7 22FL ...#OPT K0GIVEA=0 14 22_= ...#LIS K0GIVEA>K0OBJPROG>K0ALLGEO>K0GREATGEO 7 23DW ...#SEG GIVEA865 4 23JR ...[ 15 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 4 23SK ...[ 7 23YG ... 8HGIVEA 4 24D6 # 4 24XQ # 18 25CB [ THIS SEGMENT IS ENTERED FROM OPCA TO PROCESS THE 19 25NQ ...[ 165 (GIVE) ORDER WITH ALL VALUES OF OPERAND N(M) EXCEPT 20 2626 ...[ 4 AND 12 WHICH ARE DEALT WITH BY SEGMENT GIVE (WHICH USED TO 15 26?G ...[ DEAL WITH THEM ALL BUT BECAME TOO BIG). 17 26JW ...[ A ZERO REPLY IS GIVEN IF N(M) IS NEGATIVE 18 26W= [ OR GREATER THAN THE CURRENT VALUE OF TOPGIVE, OR IF 8 27*W [ N(M) = 6 OR 7. 4 27TG # 8 28*6 [ ENTRY POINT 10 28SQ ... SEGENTRY K1GIVEA,ZEP1 4 29#B # 7 29S2 #DEF TOPGIVE=13 9 2=?L PB11 #10000 19 2=R= XMONTH 44H0FEB0MAR0APR0MAY0JUN0JUL0AUG0SEP0OCT0NOV0DEC 6 2?=W THOU +1000 6 2?QG XK9 +K9 6 2#=6 XK +1024 6 2#PQ XMINK -1024 6 2D76 SL 4H/00/ 4 2DLQ # 18 2F6B ZEP1 [ENTRY POINT FROM OPCA 19 2FL2 LDX 7 EVENT5(2) [ISOLATE X-FIELD OF EXTRACODE 7 2G5L SLC 7 3 7 2GK= ANDN 7 7 7 2H4W DATUMA 3 7 2HJG MACCS ,3 7 2J46 LDX 3 0 7 2JHQ ADX 3 7 17 2K3B LDXC 4 EVENT2(2) [(MODIFIED) OPERAND 8 2KH2 BCS XGIVE 8 2L2L BNZ 4 XG 4 2LG= # 10 2L_W [ GIVE(0) DATE IN BINARY 4 2MFG # 16 2M_6 LDX 4 EDATE [GET BINARY DATE 19 2NDQ STSLR STO 4 0(3) [STORE SINGLE-LENGTH REPLY 8 2NYB #SKI K6GIVE>99-99 9 2PD2 TRACE 4,GIVESLR 7 2PXL TC EVENTFIN 4 2QC= # 9 2QWW XG LDN 6 TOPGIVE 7 2RBG TXL 6 4 8 2RW6 BCS XGIVE 7 2S*Q SMO 4 7 2STB X BRN X 8 2T*2 BRN XG1 8 2TSL BRN XG2 8 2W#= BRN XG3 16 2WRW ... BRN (GEOERR) [SINCE NOW IN GIVE 8 2X?G BRN XG5 8 2XR6 BRN XG6 8 2Y=Q BRN XG7 8 2YQB BRN XG8 8 2_=2 BRN XG9 8 2_PL BRN XG10 8 329= BRN XG11 17 32NW ... BRN (GEOERR) [SINCE NOW IN GIVE 4 338G # 4 33N6 XG13 16 347Q [ GIVE(13) EXECUTIVE NAME AND SYSTEM IDENTIFIER 9 34MB LDX 4 EXECNAME 10 3572 LDX 5 EXECNAME+1 8 35LL BRN STDLR 4 366= # 4 4=Q6 XG1 4 4?9Q # 12 4?PB [ GIVE(1) DATE IN CHARACTER FORM 4 4#92 # 8 4#NL DATECON EDATE 10 4*8= LDX 5 ACOMMUNE1(2) 15 4*MW LDX 6 ACOMMUNE2(2) [X56= DDCCCYY 7 4B7G LDX 4 5 8 4BM6 ANDN 5 #7777 7 4C6Q SLL 56 6 8 4CLB LDN 0 11 7 4D62 XG1A SMO 0 10 4DKL TXU 5 XMONTH-1(1) 8 4F5= BCC XG1B 8 4FJW BCT 0 XG1A 17 4G4G XG1B LDX 5 0 [MONTH IN RANGE 0-11 7 4GJ6 SBN 5 9 19 4H3Q BNG 5 XG1C [BRN UNLESS OCT,NOV OR DEC 18 4HHB ADN 5 #100-10 [ALLOW FOR NEXT ADDITION 19 4J32 XG1C ADN 5 10 [NOW IN RANGE 1-9,#100-#102 7 4JGL SLL 5 6 13 4K2= ORX 5 SL(1) [/MM/ 13 4KFW SRL 4 12 [--DD 20 4K_G ANDN 4 #1777 [CONVERT SPACE TO ZERO IF DAY<10 14 4LF6 SLL 45 12 [DD/MM/-- 13 4LYQ SRL 6 12 [00YY 7 4MDB ORX 5 6 19 4MY2 STDLR STO 4 0(3) [STORE DOUBLE-LENGTH REPLY 7 4NCL SBNC 7 7 18 4NX= BCS ST [BRN UNLESS XX* = X7X0 7 4PBW SBN 3 8 8 4PWG ST STO 5 1(3) 8 4QB6 #SKI K6GIVE>99-99 4 4QTQ ( 10 4R*B TRACE 4,GIVEREP1 10 4RT2 TRACE 5,GIVEREP2 4 4S#L ) 8 4SS= BRN TC 4 4T?W XG2 4 4TRG # 12 4W?6 [ GIVE(2) TIME IN CHARACTER FORM 4 4WQQ # 15 4X=B TIMECON CLEANCT [CONVERT TIME 16 4XQ2 LDX 4 ACOMMUNE1(2) [GET CONVERSION 10 4Y9L LDX 5 ACOMMUNE2(2) 14 4YP= ADN 4 #100 [. TO / 14 4_8W ADX 5 PB11(1) [. TO / 20 4_NG BRN STDLR [J TO STORE DOUBLE LENGTH REPLY 5 5286 XG12A 8 52MQ LDX 2 FX2 4 537B XG3 4 53M2 # 15 546L [ GIVE(3) CORE STORE ALLOCATED TO PROGRAM 4 54L= # 14 5=26 LDX 4 ALIMIT(2) [GET SIZE 20 5=FQ BRN STSLR [J TO STORE SINGLE LENGTH REPLY 4 5=_B # 4 B*2L XG5 4 B*G= # 17 B*_W [ GIVE(5) DETAILS OF CENTRAL PROCESSOR AND EXECUTIVE 4 BBFG # 8 BB_6 LDCT 4 256 17 BCDQ ORN 4 GEORGE_#40 [ UDAS IMPLEMENTED 10 BCYB ORX 4 CPEXECINFO 17 BD3* ... SEGENTRY K50GIVE [FOR MACRO CSSGIVE5 6 BD6# ... NULL 16 BD9? LDEX 5 GVERSION [GEORGE ISSUE NO. 7 BDG8 SLL 5 6 10 BDR5 ORX 5 CPEXECINFO+1 9 BF42 LDX 0 GVERSION 8 BF#X SRL 0 12 16 BFKS DCH 0 5 [GEORGE MARK NO. 8 BFWW BRN STDLR 4 BGBG # 13 BGW6 [ UNASSIGNED MODES - GIVE ZERO REPLY 4 BH*Q # 4 BHTB XG6 9 BHTL ... SEGENTRY K60GIVEA 16 BHTW ...# FOR MACRO CSSGIVE6 8 BHW8 ... BRN XGIVE 4 BHWK ...# 17 BHX2 ...# A SPECIAL PRIVILEGED READ ACCESS TO GEORGE CODE. 14 BHXC ...# IP MANAGER3=0,OR -VE----NO FACILITY 11 BHXS ...# =1,GIVE 6 ONLY 13 BHYC ...# >1,GIVE 6 & GIVE 6/2 8 BH_3 ... BNG 7 XGIVE 8 BH_D ... BZE 7 XGIVE 8 BH_T ... LDX 6 0(3) 10 BJ2= ... BNG 6 XGIVE6MODE2 8 BJ2M ... BNZ 6 XMV1 7 BJ34 ... LDX 6 2 8 BJ3F ...XMV1 LDX 3 1(3) 7 BJ3W ... LDX 7 3 8 BJ4? ... ANDN 3 #777 8 BJ4N ... SRL 7 15 8 BJ55 ... BNZ 7 XMV2 8 BJ5G ... LDN 7 45 7 BJ5X ...XMV2 LDX 4 6 7 BJ6P ... ADX 4 3 8 BJ7H ... TXL 4 CORES 9 BJ7Y ... BCC STSLR+1 21 BJ7_ ...# NEXT CHEXK IS THAT TARGET ADDRESS IS NOT BEYOND END OF PROG (B9518) 9 BJ82 ... LDX 0 ALIMIT(2) 7 BJ83 ... SBX 0 7 17 BJ84 ... BZE 3 XGV6B [0 = MOVE OF 512 WORDS 7 BJ85 ... SBX 0 3 5 BJ86 ...XGV6A 9 BJ87 ... BNG 0 STSLR+1 9 BJ8* ... ADX 7 ADATUM(2) 8 BJ8Q ... MOVE 6 0(3) 9 BJ97 ... BRN STSLR+1 5 BJ9= ...XGV6B 8 BJ9* ... SBN 0 512 8 BJ9D ... BRN XGV6A 6 BJ9J ...XGIVE6MODE2 7 BJ9_ ... SBN 7 1 8 BJ=B ... BZE 7 XGIVE 9 BJ=R ... DOWN PNTLAST,7 9 BJ?8 ... BRN STSLR+1 4 BJ?K ...# 4 BJ*2 XG7 7 BJSL XGIVE LDN 4 0 8 BK#= BRN STSLR 4 BKRW # 4 BL?G XG8 10 BLR6 [ GIVE(8) MODE SETTING 7 BM=Q SMO 2 19 BMQB LDCH 4 ALMT [CURRENT MODES B18-23 OF ALMT 7 BN=2 SRL 4 3 8 BNPL BRN STSLR 4 BP9= # 4 BPNW XG9 12 BQ8G [ GIVE(9) MODE SETTING REQUESTED 4 BQN6 # 8 BR7Q LDX 4 0(3) 17 BRMB ANDN 4 5 [GET REQUIRED MODES 8 BS72 #SKI K6GIVE>99-99 10 BSLL TRACE 4,GIVE9REP 7 BT6= SLL 4 3 7 BTKW SMO 2 8 BW5G DCH 4 ALMT 20 BWK6 MELPTR 2 [POINT TO CURRENT MEMBER ELEMENT 7 BX4Q SMO 2 8 BXJB DCH 4 ARM 8 BY42 BRN TC 4 BYHL XG10 18 B_3= [ GIVE (10) TIME USED IN MICROSECONDS (APPROXIMATELY) 4 B_GW # 9 C22G LDX 5 ATM1(2) 9 C2G6 ADX 5 ATM2(2) 9 C2_Q ADX 5 ATM3(2) 9 C3FB ADX 5 ATM4(2) 8 C3_2 TESTTP ,XGTP 8 C4DL BRN XGORD 16 C4Y= XGTP FINDPUC ,2 [TRUSTED PROGRAM 9 C5CW ADX 5 ATM1(2) 9 C5XG ADX 5 ATM2(2) 18 C6C6 ADX 5 ATM3(2) [ADD PUC TIMERS TO SUMMED 14 C6WQ ADX 5 ATM4(2) [TP TIME. 8 C7BB LDX 2 FX2 5 C7W2 XGORD 7 C8*L FJOPCA 2 21 C8T= LDXC 5 5 [ALLOW FOR TIMER SUM GOING NEGATIVE 17 C9#W LDN 4 0 [TOTAL BEATS IN X4,X5 20 C9SG DVR 4 BEATTIME [DIVIDE BY BEATSAMSEC TO GET MSEC 11 C=#6 ADXC 5 HCLOCKTIME+1(2) 19 C=RQ LDX 4 HCLOCKTIME(2) [ADD IN MSEC CLOCKED SO FAR 9 C??B MPY 5 THOU(1) 17 C?R2 MPA 4 THOU(1) [CONVERT TO MICROSEC 7 C#=L LDX 4 5 16 C#Q= LDX 5 6 [RESULT TO X4,X5 8 C*9W BRN STDLR 4 C*PG # 4 CB96 XG11 4 CBNQ # 15 CC8B [ GIVE (11) TIME SINCE MIDNIGHT IN SECONDS 15 CCN2 LDX 4 CLEANCT [TIME IN K9S 15 CD7L MPY 4 XK9(1) [TIME IN MS 9 CDM= DVD 4 THOU(1) 16 CF6W LDX 0 5 [INTEGRAL PART 17 CFLG DVR 4 THOU(1) [X5=FRACTIONAL PART 7 CG66 LDX 4 0 8 CGKQ BRN STDLR 4 CH5B # 8 CHK2 MENDAREA 25 4 CJ4L #END 8 ____ ...61214277000200000000