MACROS SJ
(George Source)
- MACROS SJ.txt
22FL ...[??? VALIDATE SECT FILE FGN 24 DOC 27*W #MAC VALIDATE 27CK ...[VALIDATE TEST IF PARAMETERS ARE AE- SET, B:- NULL 27F# ...[ANY OTHER PARMETER CAUSES AN ERROR 27H3 ...[PARAMS. %A :- NUMBER OF PARAMETRSTO BE VALIDATED 27JQ ...[%B,%C ETC. PARAMS. 27LF ...[IF ANY GIVEN PARAMETER IS IN ERROR (EXCEPT %A) THE LAST ACTION OF THE 27N8 ...[MACRO IS TO SKIP THUS THE NEXT LINE AFTER A CALL TO THE MACRO IS SKIPPE 27PX ...[ON EXIT FROM VALIDATE 20V IS 0 IF ALL PARAMETRS ARE VALID 27RL ...[BUT NON ZERO ELSE. 27TG #DEF 20?=%A [NUMBER OF PARAMETERS 28*6 VALIDAT %B,%C,%D,%E,%F 28SQ #SKI 20?<1$1 [SKIP IF NOT ALL PARAMETERS ACC. 29#B #NOR 29FJ ...[ 29LQ ...[ 29S2 ...[??? VALIDAT SECT FILE FGN 24 DOC 2*9B #MAC VALIDAT 2*?K ...[VALIDAT IS USE TO RECURSIVELY VALIDATE INDIVIDUAL PARAM, IT IS THE 2**S ...[BODY OF THE MACRO VALIDATE 2*D3 ...[IF THE PARAMET CAUSES A COMPILATION ERROR THEN THE MACRO IS LEFT 2*G= ...[WITH 20?NON ZERO 2*JF ...[ENTRY PARAMETR IS 20V :- NUMBER OF PARAMS. TO VALIDATE 2*LN ...[%A,%B ETC. ARE TO BE VALIDATED 2*P2 #SKI %A+0*0 [SKIPS IF %A SET OR NULL 2B8L #SKI [ONLY GETS HERE IF ERROR 2BN= ( 2C7W #DEF 20?=20?-1 [COUNT OF REMAINING PARAMETERS 2CMG #SKI 20? [SKIP IF NONE LEFT 2D76 VALIDAT %B,%C,%D,%E,%F 2DLQ ) 2F6B #NOR 2F?J ...[ 2FDQ ...[ 2FL2 ...[??? HUNTANY SECT FILE FGN 24 DOC 2LG= #MAC HUNTANY 2LJ8 ...[ HUNTANY IS A GP CHAIN HUNTING MACRO. 2LL6 ...[NB X0 DESTROYED 2LN4 ...[%A MODIFIER ADDRESS OF BLOCK 2LQ2 ...[%B TYPE 2LRY ...[%C SUBTYPE 2LTW ...[%D BASE OF CHAIN <4095 2LXS ...[%E LABEL IF NO SUCH BLOCK EXISTS 2LYT ...[%F RE-ENTRY LABEL (OPTIONAL) 2L^W LDX %A %D+FPTR 2MFG M2HUNTANY 2M^6 SMO FX1 2NDQ TXU %A M1HUNTANY-1 2NYB BCC %E 2PD2 LDX 0 ATYPE(%A) 2PXL SRL 0 12 2QC= SBN 0 %B+%C 2QWW BZE 0 M1HUNTANY 2R44 ...#STR %F 2R9= ...#DEF %F=0? 2RBG LDX %A FPTR(%A) 2RW6 BRN M2HUNTANY 2S*Q +%D 2STB M1HUNTANY 2T*2 #NOR 2TG8 ...[ 2TMB ...[ 2TSL ...[??? SWITCHES SECT FILE FGN 24 DOC 2^PL #MAC SWITCHES 2^RT ...[ SWITCHES 2^W4 ...[THIS MACRO GENERATES A SWITCH LIST :- BRN LABEL 2^Y? ...[%A SWITCH BASE 322G ...[%B,%C ETC ARE THE IDENTIFIERS USED TO GENERATE A LABEL OF FORM %BL 324P ...[THE SWITCH IS OBEYED BY SMO ING ITS BASE 326Y ...[NB MACRO CORRUPTS 19?+0 329= #OPT MSWITCHES=0 32NW #SKI MSWITCHES$1 338G ( 33N6 #FRE MSWITCHES 347Q #DEF MSWITCHES=1 34MB #DEF 19?+0=0 3572 ) 35LL #STR %B 366= ( 36KW #DEF 0?=%A+%B 375G #DEF 19?+0=19?+0]>%B 37K6 BRN %BL 384Q SWITCHES %A,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 38JB ) 3942 #STR %B 39HL #SKI 3=3= ( 3=GW #FRE MSWITCHES 3?2G #DEF 0?=19?+0]+%A+1 3?G6 ) 3?^Q #NOR 3#6Y ...[ 3##6 ...[ 3#FB ...[??? NOBITS SECT FILE FGN 24 DOC 3*Y= #MAC NOBITS 3B47 ...[ NOBITS 3B84 ...[%A TABLE NUMBER (SEE TABLSET) 3B?^ ...[%B NO OF BITS IN TABLE FIELD (SEE TABLSET) 3BCW #FRE MNOBITS 3BXG #DEF MNOBITS%A=%B 3CC6 #DEF MNOBITS=%B 3CWQ #NOR 3D3Y ...[ 3D96 ...[ 3DBB ...[??? TABLSET SECT FILE FGN 24 DOC 3JR2 #MAC TABLSET 3JSP ...[ TABLSET 3JWD ...[SETS UP A TABLE ENTRY 3JY7 ...[%A VALUE TO BE STORED IN NEXT POSN IN TABLE 3J^W ...[%B,%C NEXT VALUES 3K3K ...[MNOBITS NO OF BITS ALLOCATED TO TABLE ENTRY IE NOBITS INVOKED 3K5# ...[ENTRIES ARE STORED IN TABLE STARTING AT BIT0 - BIT(-1+MNOBITS) 3K73 ...[FURTHER ENTRIES ARE STORED AT INCREASED BIT NUMBERS 3K8Q ...[NB 19?+0 DESTROYED 3K=L #OPT MTABLSET=0 3KQ= #SKI MTABLSET 3L9W #SKI 3LPG ( 3M96 +0 3MNQ #DEF 19?+0=0 3N8B #FRE MTABLSET 3NN2 #DEF MTABLSET=1 3P7L ) 3PM= #FID 19?+0] 19?+0]+MNOBITS-1 %A 3Q6W #DEF 19?+0=19?+0]+MNOBITS 3QLG #STR %B 3R66 TABLSET %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 3RKQ #STR %B 3S5B #SKI 3SK2 #FRE MTABLSET 3T4L #NOR 3T9S ...[ 3TC2 ...[ 3TJ= ...[??? TABRET SECT FILE FGN 24 DOC 3X36 #MAC TABRET 3X8# ...[TO RETURN CONTROL TO TABDRIVE 3X*G ...[%A = TABLEDRIVE IDENTIFIER. 3XGQ BRN MTABDRIVE%A 3Y2B #NOR 3Y7J ...[ 3Y#Q ...[ 3YG2 ...[??? TABEND SECT FILE FGN 24 DOC 3^YW #MAC TABEND 4264 ...[TO RETURN CONTROL TO THE END OF TABDRIVE 42?= ...[%A = TABLEDRIVE IDENTIFIER. 42DG BRN MTABDRIVE0%A 42Y6 #NOR 435# ...[ 43=G ...[ 43CQ ...[??? TABDRIVE SECT FILE FGN 24 DOC 46T6 #MAC TABDRIVE 46X* ...[TO DRIVE THROUGH A TABLE 46^J ...[%A MODIFIER CONTAING INDEX VALUE 473R ...[%B TABLE 4762 ...[%C NO OF BITS PER TABLE ENTRY 4789 ...[%D SWITCH LIST 47=D ...[%E TABDRIVE INVOKE IDENTIFIER 47#Q ADN %A %B 47SB SMO FX1 48#2 LDX 7 0(%A) 48RL #DEF MTABDRIVE%E=0? 49?= LDN 0 0 49QW SLC 70 %C 4==G SMO 0 4=Q6 BRN %D 4?9Q #DEF MTABDRIVE0%E=0? 4?PB #NOR 4?WJ ...[ 4#3Q ...[ 4#92 ...[??? SJSIZE SECT FILE FGN 24 DOC 4#NL #MAC SJSIZE [MEND TIME MACRO TO SET NO OF BLOCK IN SJFILE 4*8= [ AND MINIMUM GRAB SIZE WHEN MANDATORY REQUEST MADE 4*MW [ %A = SIZE OF FILE 4B7G [ %B = MIN SIZE OF FILE 4BM6 [ %B MUST LIE IN THE RANGE JOURNAL - FNEARLY 4C6Q [ %A MUST LIE IN THE RANGE FILESIZE - %B 4CLB #DEF 20?=JOURMIN 4D62 #STR %B 4DKL #DEF 20?=%B+0&511<JOURMIN>FNEARLY 4F5= #MEN SJOPEN 4FJW #TRA BSJSIZE-2 4G4G +20? 4GJ6 #STR %A 4H3Q +%A<FILESIZE>20? 4HHB #END 4J32 #NOR 4J5K ...[ 4J88 ...[ 4J=S ...[??? LA SECT FILE FGN 24 DOC 4JGL #MAC LA 4K2= #DEF 20?=#40000000@L-(%A%) 4KFW #STR %B 4K^G #SKI 4LF6 ([%B NULL 4LYQ LA %A,0,%C 4MDB #EXI 4MY2 ) 4NCL #STR %C 4NX= ([INVERT CASE 4PBW #SKI 20?ṡ 4PWG ([B12-23 4QB6 NGN %B 20?+1 4QTQ #EXI 4R*B ) 4RT2 #SKI 20?� 4S#L ([B0 SPECIAL CASE 4SS= NGNC %B 1 [SETS C 4T?W #EXI 4TRG ) 4W?6 LA %A,%B 4WQQ ERX %B GMINUS1 4X=B #EXI 4XQ2 ) 4Y9L #SKI 20?� 4YP= ( 4^8W LDCT %B 20?@L-15 4^NG #EXI 5286 ) 52MQ #SKI 20?ṡ 537B ( 53M2 LDN %B 20? 546L #EXI 54L= ) 555W #SKI 20?鱀 55KG ( 5656 LDX %B BIT9 56JQ #EXI 574B ) 57J2 #SKI 20?丠 583L ( 58H= LDX %B BIT10 592W #EXI 59GG ) 5=26 LDX %B BIT11 5=FQ #NOR 5=LY ...[ 5=S6 ...[ 5=^B ...[??? OP SECT FILE FGN 24 DOC 5?YL #MAC OP 5#5S ...[ THE NEXT MACRO IS TO ALLOW ANY SENSIBLE OPERATION CONCERNING THE 5#?2 ...[ CONTENTS OF X0 AND THE WORD CONTAINING THE IDENTIFIER. 5#D= #ACC %D 5#XW ([NOT AN ACC 5*CG #STR %D [SKIP IF NULL 5*X6 LDX 0 %D 5BBQ MOD %C 0 %B/BITMULTṡ,%A 5BWB #EXI 5CB2 ) 5CTL MOD %C %D %B/BITMULTṡ,%A 5D*= #NOR 5DGD ...[ 5DML ...[ 5DSW ...[??? BI SECT FILE FGN 24 DOC 5GRB #MAC BI [P,I 5GSC ...[ %A IS THE BIT IDENTIFIER, %B POINTS TO THE START OF DATA 5GTD ...[ %C IS THE INSTRUCTION 5GWF ...[ NOW SOME USEFUL MACROS 5GXG ...[ BI P,I BIT INVERT 5GYJ #STR %C%D 5H5Q !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 5H?2 LA %B 5HQL OP %A,%B,ERS 5J== #NOR 5J#T ...[ 5JCD ...[ 5JG4 ...[??? BS SECT FILE FGN 24 DOC 5JPW #MAC BS [P,I 5JX4 #STR %C%D 5K4= !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 5K9G LA %B 5KP6 OP %A,%B,ORS 5L8Q #NOR 5L?* ...[ 5L*Y ...[ 5LDJ ...[??? BC SECT FILE FGN 24 DOC 5LNB #MAC BC [P,I 5LTJ #STR %C%D 5M2Q !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 5M82 LA %B,0,INVERT 5MML OP %A,%B,ANDS,0 5N7= #NOR 5N9T ...[ 5N#D ...[ 5NC4 ...[??? JBS SECT FILE FGN 24 DOC 5NLW #MAC JBS [L,P,I 5NS4 #STR %D%E 5N^= !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 5P6G #SKI %C%<1$1 5PL6 ([B0 SPECIAL CASE 5Q5Q OP %B,%C,LDXC 5QKB BCS %A 5R52 #EXI 5RJL ) 5S4= LA %C 5SHW OP %B,%C,ANDX 5T3G BNZ 0 %A 5TH6 #NOR 5TKP ...[ 5TN# ...[ 5TQY ...[??? JBC SECT FILE FGN 24 DOC 5W2Q #MAC JBC [L,P,I 5W7Y ...#STR %D%E 5W*6 !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 5WGB #SKI %C%<1$1 5X22 ([B0 SPECIAL CASE 5XFL OP %B,%C,LDXC 5X^= BCC %A 5YDW #EXI 5YYG ) 5^D6 LA %C 5^XQ OP %B,%C,ANDX 62CB BZE 0 %A 62X2 #NOR 62^K ...[ 6348 ...[ 636S ...[??? JBSS SECT FILE FGN 24 DOC 63BL #MAC JBSS [L,P,I 63HS ...#STR %D%E 63P2 !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 63W= JBS %A,%B,%C 64*W BS %B,%C 64TG #NOR 64Y5 ...[ 652N ...[ 655# ...[??? JBCC SECT FILE FGN 24 DOC 65*6 #MAC JBCC [L,P,I 65G# ...#STR %D%E 65MG !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 65SQ JBC %A,%B,%C 66#B #SKI %C% 66S2 ( [NOT B0 67?L OP %B,%C,ERS 67R= #EXI 68=W ) 68QG OP %B,%C,STO 69=6 #NOR 69C# ...[ 69JG ...[ 69PQ ...[??? JBSC SECT FILE FGN 24 DOC 6=9B #MAC JBSC [L,P,I 6=BJ ...#STR %D%E 6=HQ !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 6=P2 #SKI %C% 6?8L ( [NOT B0 6?N= LA %C 6#7W OP %B,%C,ANDX 6#MG OP %B,%C,ERS 6*76 BNZ 0 %A 6*LQ #EXI 6B6B ) 6BL2 OP %B,%C,LDX 6C5L OP %B,%C,STOC 6CK= BCS %A 6D4W #NOR 6D7F ...[ 6D=4 ...[ 6D#N ...[??? JBCS SECT FILE FGN 24 DOC 6DJG #MAC JBCS [L,P,I 6DPN ...#STR %D%E 6DWW !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 6F46 #SKI %C% 6FHQ ( [NOT B0 6G3B BOP %C,LD,0,GEN0 [SET UP BIT,STORING IN GEN0 IF B1-9 6H2L OP %B,%C,ANDX 6HG= BOP %C,ER,0,GEN0 [INVERT BIT 6H^W OP %B,%C,ORS [OR BACK 6JFG BNZ 0 %A [J IF WAS CLEAR 6J^6 #EXI 6KDQ ) 6KYB OP %B,%C,LDX 6LD2 ERX 0 GSIGN 6LXL OP %B,%C,ORS 6MC= BNG 0 %A 6MWW #NOR 6N44 ...[ 6N9= ...[ 6NBG ...[??? LAS SECT FILE FGN 24 DOC 6^MB #MAC LAS 6^NF ...[ THE BASIC PRIMITIVES OF THE MULTI BIT OPERATIONS ARE 6^PJ ...[ LAS-LOADS THE BIT PATTERN IN 19?+9 INTO X%A 6^QM ...[ OPS-TAKES AS %E ETC A STRING OF BIT OR FIELD IDS. FOR EACH WORD 6^RQ ...[ INVOLVED IT COMPILES:- 6^ST ...[ %A,%B,%C,%D 6^TY ...[ WITH 19?+9=BIT PATTERN FOR THAT WORD 6^X3 ...[ 19?+8=DISPLACEMENT FOR THAT WORD 6^Y6 ...[ 19?+7=VALUE OF LAST ID FOR USE IN SINGLE ID SPECIAL CASES 6^^9 ...[ 19?+6=NO OF IDS MAKING UP PATTERN 722# ...[ 19?+5=0=>LAST WORD TO BE GENERATED 723C ...[ THE CODE COMPILED MUST NOT ALTER 19?+0-5 724G ...[ EACH MULTIBIT OPERATION CALLS OPS WITH %A,%B,%C,%D A MACRO CALL 725K ...[ TO DEAL WITH THE OPERATION AT A WORD BY WORD LEVEL 7272 #STR %A 72LL #SKI 736= ( 73KW LAS 0 745G #EXI 74K6 ) 754Q #SKI 19?+6]-1<1-1 75JB ( [SINGLE ID. CASE 7642 LASS 19?+7],%A 76HL #EXI 773= ) 77GW #SKI 19?+9]�$(19?+9]) 782G ( [NOT ALL IN MS9 AND/OR LS12 78G6 LDN %A 19?+9]@L-12 78^Q SLL %A 12 79FB #EXI 19?+9]ṡ 79^2 ORN %A 19?+9]ṡ 7=DL #EXI 7=Y= ) 7?CW #SKI 19?+9]� 7?XG ( [SOME BITS IN COUNT FIELD 7#C6 LDCT %A 19?+9]@L-15 7#WQ #EXI 19?+9]ṡ 7*BB ORN %A 19?+9]ṡ 7*W2 #EXI 7B*L ) 7BT= LDN %A 19?+9] 7C#W #NOR 7CCF ...[ 7CG4 ...[ 7CJN ...[??? OPS SECT FILE FGN 24 DOC 7CSG #MAC OPS 7D#6 #DEF 19?+0=0 [BIT WORD GIVING PARAMS ALREADY DEALT 7DRQ OPB %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T- 7F?B ,%U,%V,%W,%X,%Y,%Z 7FR2 #NOR 7FTK ...[ 7FY8 ...[ 7G2S ...[??? OPB SECT FILE FGN 24 DOC 7G=L #MAC OPB 7GQ= #DEF 19?+9=0 [MASK OF BITS IN NEXT WORD 7H9W #DEF 19?+1=0 [COUNT OF PARAMS EXAMINED 7HPG #DEF 19?+6=0 [COUNT OF IDS IN NEXT WORD 7J96 #DEF 19?+5=0 [SET 'LAST WORD' INDICATOR 7JNQ OPC %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T- 7K8B ,%U,%V,%W,%X,%Y,%Z[ 7KN2 #EXI 19?+5] [EXIT IF OPC AGREES LAST WORD 7L7L #DEF 19?+0=19?+0]@C(1-(19?+1])) [RESCANNING FROM 2ND ID PARAM 7LM= OPB %A,%B,%C,%D,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U- 7M6W ,%V,%W,%X,%Y,%Z[ 7MLG #NOR 7MP5 ...[ 7MRN ...[ 7MW# ...[??? OPC SECT FILE FGN 24 DOC 7N66 #MAC OPC 7NKQ #SKI 19?+0]�$#40000000 7P5B ( [BIT 0 = 0 7PK2 #SKI 19?+6]<1$1 [SKIP IF NOT 1ST THIS SCAN 7Q4L #DEF 19?+8=%E/BITMULTṡ[START OF GENERATE FOR THIS WORD 7QJ= #SKI %E/BITMULTṡ-(19?+8])<1$1 7R3W ( [SAME 7RHG #DEF 19?+6=19?+6]+1 7S36 #DEF 19?+0=19?+0]^#40000000 [SHOW HAVE DEALT WITH THIS PARAM 7SGQ MASK %E 7T2B #DEF 19?+9=19?+9]^(21?) [SET BIT(S) IN MASK 7TG2 #DEF 19?+7=%E 7T^L ) 7WF= #SKI %E/BITMULTṡ-(19?+8]) 7WYW #DEF 19?+5=1 [SET 'NOT LAST WORD' 7XDG ) 7XY6 #STR %F 7YCQ ( 7YXB #DEF 19?+1=19?+1]+1 7^C2 #DEF 19?+0=19?+0]@C1 [MOVE ONTO NEXT PARAM 7^WL OPC %A,%B,%C,%D,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U- 82B= ,%V,%W,%X,%Y,%Z[ 82TW #EXI 83*G ) 84#Q %A ,%B,%C,%D 84SB #NOR 84^J ...[ 856Q ...[ 85#2 ...[??? MBCI SECT FILE FGN 24 DOC 86?= #MAC MBCI 86QW #SKI 19?+6]-1<1-1 87=G ( 87Q6 FC %A,19?+7] [SINGLE ID CASE 889Q #EXI 88PB ) 8992 #SKI 19?+9]$#77777777 89NL ( [NOT WHOLE WORD 8=8= #SKI 19?+9]<#7777-#7777 8=MW ( 8?7G NGN 0 19?+9]+1 8?M6 MOD ANDS 0 19?+8],%A 8#6Q #EXI 8#LB ) 8*62 #SKI 19?+9]�<#7777-#7777 8*KL ( 8B5= NGNC 0 19?+9]ṡ+1 8BJW MOD ANDS 0 19?+8],%A 8C4G #EXI 8CJ6 ) 8D3Q #SKI (19?+9]@L-12)*(19?+9]ṡ) 8DHB ( [LAS EXPANDS TO 3 WORDS-SO LAS INVERS 8F32 #DEF 19?+9=19?+9]$#77777777 8FGL LAS 0 8G2= MOD ANDS 0 19?+8],%A 8GFW #EXI 8G^G ) 8HF6 LAS 0 8HYQ ERX 0 GMINUS1 8JDB MOD ANDS 0 19?+8],%A 8JY2 #EXI 8KCL ) 8KX= MOD STOZ 19?+8],%A 8LBW #NOR 8LFF ...[ 8LJ4 ...[ 8LLN ...[??? MBC SECT FILE FGN 24 DOC 8LWG #MAC MBC 8MB6 OPS MBCI %A,,,,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%- 8MTQ T,%U,%V[ 8N*B #NOR 8NGJ ...[ 8NMQ ...[ 8NT2 ...[??? MBSII SECT FILE FGN 24 DOC 8PS= #MAC MBSII 8Q?W LAS 0 8QRG MOD %B 0 19?+8],%A 8R?6 #NOR 8R*P ...[ 8RD# ...[ 8RGY ...[??? MBS SECT FILE FGN 24 DOC 8RQQ #MAC MBS 8S=B OPS MBSII %A,ORS,,,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,- 8SQ2 %S,%T,%U,%V[ 8T9L #NOR 8T#9 ...[ 8TBS ...[ 8TFD ...[??? MBI SECT FILE FGN 24 DOC 8TP= #MAC MBI 8W8W OPS MBSII %A,ERS,,,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,- 8WNG %S,%T,%U,%V[ 8X86 #NOR 8X*# ...[ 8XGG ...[ 8XMQ ...[??? JMBSI SECT FILE FGN 24 DOC 8YM2 #MAC JMBSI 8^6L ...[ JMBS-%C NULL,JMBAC-%C LABEL 925W #SKI (19?+6]-1)^(19?+7]@L-19)<1-1 92KG ( [SINGLE BIT CASE 9356 #STR %C 93JQ #SKI 19?+5] 944B ( [ALLEXCEPT LAST WORD OF JMBAC 94J2 JBS %A,%B,19?+7] 953L #EXI 95H= ) 962W JBC %C,%B,19?+7] 96GG #EXI 9726 ) 97FQ LAS 0 97^B MOD ANDX 0 19?+8],%B 98F2 #STR %C 98YL #SKI 19?+5] 99D= ( [ALLEXCEPT LAST WORD OF JMBAC 99XW BNZ 0 %A 9=CG #EXI 9=X6 ) 9?BQ BZE 0 %C 9?WB #NOR 9?Y^ ...[ 9#3J ...[ 9#68 ...[??? JMBS SECT FILE FGN 24 DOC 9#B2 #MAC JMBS 9#TL OPS JMBSI %A,%B,,,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%- 9**= S,%T,%U[ 9*SW #NOR 9*XF ...[ 9B24 ...[ 9B4N ...[??? JMBAC SECT FILE FGN 24 DOC 9B#G #MAC JMBAC 9BS6 OPS JMBSI M1JMBAC,%B,%A,,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q- 9C?Q ,%R,%S,%T,%U[ 9CRB M1JMBAC 9D?2 #NOR 9DD8 ...[ 9DKB ...[ 9DQL ...[??? JMBCI SECT FILE FGN 24 DOC 9FPW #MAC JMBCI 9G9G ...[ JMBC-%C NULL,JMBAS-%C LABAL 9H8Q #SKI (19?+6]-1)^(19?+7]@L-19)<1-1 9HNB ( [SINGLE BIT CASE 9J82 #STR %C 9JML #SKI 19?+5] 9K7= ( [ALL BUT LAST WORD OF JMBAS 9KLW JBC %A,%B,19?+7] 9L6G #EXI 9LL6 ) 9M5Q JBS %C,%B,19?+7] 9MKB #EXI 9N52 ) 9NJL LAS 0 9P4= #SKI 19?+9]� 9PHW STO 0 GEN0 [IF CANT DO ERN STO FOR ERX 9Q3G MOD ANDX 0 19?+8],%B 9QH6 #SKI 19?+9]� 9R2Q ERX 0 GEN0 9RGB #SKI 19?+9]�<1-1 9S22 ERN 0 19?+9] 9SFL #STR %C 9S^= #SKI 19?+5] 9TDW ( [ALL BUT LAST WORD OF JMBAS 9TYG BNZ 0 %A 9WD6 #EXI 9WXQ ) 9XCB BZE 0 %C 9XX2 #NOR 9X^K ...[ 9Y48 ...[ 9Y6S ...[??? JMBC SECT FILE FGN 24 DOC 9YBL #MAC JMBC 9YW= OPS JMBCI %A,%B,,,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%- 9^*W S,%T,%U[ 9^TG #NOR 9^Y5 ...[ =22N ...[ =25# ...[??? JMBAS SECT FILE FGN 24 DOC =2*6 #MAC JMBAS =2SQ OPS JMBCI M1JMBAS,%B,%A,,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q- =3#B ,%R,%S,%T,%U[ =3S2 M1JMBAS =4?L #NOR =4DS ...[ =4L2 ...[ =4R= ...[??? JMBACC SECT FILE FGN 24 DOC =6=6 #MAC JMBACC =6PQ JMBAC %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U =79B MBC %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U =7P2 #NOR =7W8 ...[ =83B ...[ =88L ...[??? RBS SECT FILE FGN 24 DOC =9MG #MAC RBS ==76 [ SETS BIT(S) IN A GEORGE SEGMENT AT RESTORE TIME ==LQ [ %A IS THE SEGMENT CONTAINING THE BIT =?6B [ %B IS A POINTER REL TO WHICH THE BIT IS ADDRESSED =?L2 [ %C ETC ARE BIT IDENTIFIERS =#5L #STR %A =#K= ( =*4W #MEN %A [NOT IF %A NULL =*JG #DEF 22?=D%A =B46 ) =BHQ #TRA +%B+(%C/BITMULTṡ) [TRA TO THE WORD =C3B #DEF 20?=22?±+34?+0? [ADDR OF WORD IN SEG BIFF =CH2 #DEF 21?=#40000000@L-(%C%) =D2L +20?]^21? =DG= #STR %D [SKIP UNLESS MORE IDS =D^W RBS ,%B,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X =FFG #STR %A =F^6 #END =GDQ #NOR =GKY ...[ =GR6 ...[ =GYB ...[??? RBC SECT FILE FGN 24 DOC =HXL #MAC RBC =JC= [ SIMILAR TO RBS BUT UNSETS THE BIT =JWW #STR %A =KBG ( =KW6 #MEN %A =L*Q #DEF 22?=D%A =LTB ) =M*2 #TRA +%B+(%C/BITMULTṡ) =MSL #DEF 20?=22?±+34?+0? [ADDR OF WORD IN SEG BIFF =N#= #DEF 21?=#40000000@L-(%C%) =NRW +20?]^21?$21? =P?G #STR %D [SKIP UNLESS MORE IDS =PR6 RBC ,%B,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X =Q=Q #STR %A =QQB #END =R=2 #NOR =RC8 ...[ =RJB ...[ =RPL ...[??? BOP SECT FILE FGN 24 DOC =^K6 #MAC BOP =^MP ...[ THE FOLLOWING MACROS OPERATE ON THE BITS IN AN ACC,CORRESPONDING =^Q# ...[ TO THE BIT IDS GIVEN =^SX ...[ BOP,MBOP ARE THE PRIMITIVES =^XG ...[ BSXD SETS THE BITS IN AN ACC, OVWERWRITING PREV CONTETS ?225 ...[ MBSXD IS THE MULTI CASE ?24Q #SKI %A%>11-11 ?2JB ( [B12-23 ?342 %BN %C #40000000@L-(%A%) ?3HL #EXI ?43= ) ?4GW #SKI %A%-1<8-8 ?52G ( [B1-8 ?5G6 #STR %B,LD ?5^Q ( [NOT LD OPERATION ?6FB #STR %D ?6^2 ( [%D SPECIFIED ?7DL %BX %C %D ?7Y= #EXI ?8CW ) ?8XG LDCT 0 #400@L-(%A%) ?9C6 %BX %C 0 ?9WQ #EXI ?=BB ) [LD OPERATION ?=W2 LDCT %C #400@L-(%A%) ??*L #STR %D ??T= STO %C %D ?##W #EXI ?#SG ) ?*#6 #SKI %A%<1-1 ?*RQ %BX %C GSIGN ?B?B #SKI %A%-9<1-1 ?BR2 %BX %C BIT9 ?C=L #SKI %A%-10<1-1 ?CQ= %BX %C BIT10 ?D9W #SKI %A%-11<1-1 ?DPG %BX %C BIT11 ?F96 #NOR ?F?P ...[ ?FB# ...[ ?FDY ...[??? MBMASK SECT FILE FGN 24 DOC ?FNQ #MAC MBMASK ?G8B #DEF 19?+8=%A/BITMULTṡ [WORD ADDR ?GN2 #DEF 19?+9=0 [BIT MASK ?H7L MBMASK2 %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S- ?HM= ,%T,%U,%V,%W,%X[ ?J6W #NOR ?J9F ...[ ?J#4 ...[ ?JBN ...[??? MBMASK2 SECT FILE FGN 24 DOC ?JLG #MAC MBMASK2 ?K66 #SKI 19?+8]-(%A/BITMULTṡ ) ?KKQ ( [NOT IN SAME WORD ?L5B ! BITS NOT IN SAME WORD ?LK2 GEOERR BRIEFPM,BSXMACS ?M4L #EXI ?MJ= ) ?N3W MASK %A [21?=MASK FOR THIS ID ?NHG #DEF 19?+9=19?+9]^21? ?P36 #STR %B ?PGQ MBMASK2 %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S- ?Q2B ,%T,%U,%V,%W,%X[ ?QG2 #NOR ?QJK ...[ ?QM8 ...[ ?QPS ...[??? MBOP SECT FILE FGN 24 DOC ?Q^L #MAC MBOP ?RF= #SKI %Aṡ$(%A)<1-1 ?RYW ( [ALL IN LS12BITS ?SDG %BN %C %Aṡ ?SY6 #EXI ?TCQ ) ?TXB #STR %B,LD ?WC2 ( [NOT LD OPERATION ?WWL #STR %D ?XB= ( [%D SPECIFIED ?XTW %BX %C %D ?Y*G #EXI ?YT6 ) ?^#Q MBOP2 %A,0 [LOADS %A INTO 0 ?^SB %BX %C 0 #2#2 #EXI #2RL ) [LD OPERATION #3?= MBOP2 %A,%C #3QW #STR %D #4=G STO %C %D #4Q6 #NOR #4SP ...[ #4X# ...[ #4^Y ...[??? MBOP2 SECT FILE FGN 24 DOC #59Q #MAC MBOP2 #5PB #SKI %A𑅰 #692 ( [SOME IN B9-11 #6NL LDN %B %A@L-12 #78= SLL %B 12 #7MW #SKI %Aṡ #87G ORN %B %Aṡ #8M6 #EXI #96Q ) #9LB ... LDCT %B %A@L-15 #=62 #SKI %Aṡ #=KL ORN %B %Aṡ #?5= #NOR #?7T ...[ #?=D ...[ #?*4 ...[??? BSXD SECT FILE FGN 24 DOC #?JW #MAC BSXD ##4G BOP %B,LD,%A ##J6 #NOR ##LP ...[ ##P# ...[ ##RY ...[??? MBSXD SECT FILE FGN 24 DOC #*3Q #MAC MBSXD #*HB MBMASK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%- #B32 U,%V,%W,%X [ #BGL MBOP 19?+9],LD,%A #C2= #NOR #C7D ...[ #C#L ...[ #CFW ...[??? LBW SECT FILE FGN 24 DOC #HWG #MAC LBW [P,I,W #JB6 #ACC %C #JTQ ([ NOT AN ACC #K*B LBW %A,%B,0 #KT2 STO 0 %C #L#L #EXI #LS= ) #M?W LA %B,%C #MRG OP %A,%B,ANDX,%C #N?6 #NOR #ND# ...[ #NKG ...[ #NQQ ...[??? JBWS SECT FILE FGN 24 DOC #P=B #MAC JBWS [L,W #PG8 ...[ JUMP TO L IF W IS SET #PQ2 #ACC %B #Q9L ([ NOT AN ACC #QP= LDX 0 %B #R8W BNZ 0 %A #RNG #EXI #S86 ) #SMQ BNZ %B %A #T7B #NOR #T#J ...[ #TFQ ...[ #TM2 ...[??? JBWSBS SECT FILE FGN 24 DOC #W6L #MAC JBWSBS [L,W,P,I #WBD ...[ JUMP TO L IF W IS SET ELSE SET BIT(P,I) #WL= JBWS %A,%B #X5W BS %C,%D #XKG #NOR #XQN ...[ #XXW ...[ #Y56 ...[??? JBWC SECT FILE FGN 24 DOC #YJQ #MAC JBWC [L,W #YSJ ...[ JUMP TO L IF W IS CLEAR #^4B #ACC %B #^J2 ([NOT AN ACC *23L LDX 0 %B *2H= BZE 0 %A *32W #EXI *3GG ) *426 BZE %B %A *4FQ #NOR *4LY ...[ *4S6 ...[ *4^B ...[??? JBWCBC SECT FILE FGN 24 DOC *5F2 #MAC JBWCBC [L,W,P,I *5NS ...[ JUMP TO L IF W IS CLEAR OR CLEAR BIT(P,I) *5YL JBWC %A,%B *6D= BC %C,%D *6XW #NOR *754 ...[ *7== ...[ *7CG ...[??? JBCSBS SECT FILE FGN 24 DOC *7X6 #MAC JBCSBS [L,P,I,P2,I2 *86Y ...[ JUMP TO L IF BIT(P,I) IS CLAER OR SET IT OR SET BIT(P2,I2) *8BQ JBCS %A,%B,%C *8WB BS %D,%E *9B2 #NOR *9FX ...[ *9KS ...[ *9PP ...[??? POP SECT FILE FGN 25 DOC *9TL #MAC POP [L,P,S,L2,SUB *=83 ...M1POP *=GD ... JBC M2POP,%B,%C [J IF LOCKOUT NOT SET *=KX ...#STR NOWAIT,%G *=PB ...( *=SW BS %B,%C1 [SET 'WAITERS' BIT *?#G #STR %D *?S6 #SKI *#?Q ( [COOR3 CASE *#RB #SKI %C2&(#400:0) **?2 ! POP ERROR [SEMAPHORE SAYS IT IS LONG EVENT CASE **QL COOR3 %C2 *B== ) *BPW #STR %D *C9G ( *CP6 #SKI %C2&(#400:0)$(#400:0) *D8Q ! POP ERROR [COOR3 SAYS THE SEMAPHORE *DNB LONGSET %C2ṡ,(GEOERR),%E *F82 ... LONGSTOP %D,,%F [BREAK-IN *FML ) *FP8 ...) *FQQ ...#STR %A *FTW ...#SKI *F^2 ... BRN M1POP *G46 ...#STR %A *G7= BRN %A *GLW ...M2POP *H6G BS %B,%C [SET LOCKOUT BIT *HL6 #NOR *HR# ...[ *HYG ...[ *J5Q ...[??? VOP SECT FILE FGN 24 DOC *JKB #MAC VOP [P,S,SUB *JT8 ...[NOTE THE GEOERR IS IF A LONGSET HAS ALREADY BEEN DONE IT IS ILLEGAL *K52 BC %A,%B *KJL JBCC M1VOP,%A,%B1 *L4= #SKI %B2&(#400:0) *LHW ( *M3G LONGON1 %B2,%C [SUB STYLE IS OPTOINAL *MH6 M1VOP *N2Q #EXI *NGB ) *P22 FON %B2 *PFL M1VOP *P^= #NOR *Q3T ...[ *Q3Y ...[??? WAITVOP SECT FILE FGN 27 DOC *Q43 ...#MAC WAITVOP *Q46 ...[ WAITS UNTIL SPECIFIED SEMAPHORE IS RELEASED *Q49 ... JBC M1WAITVOP,%B,%C [J IF LOCKOUT NOT SET *Q4# ... BS %B,%C1 [SET 'WAITERS' BIT *Q4C ...#STR %D *Q4G ...#SKI *Q4K ...( [COOR3 CASE *Q4N ...#SKI %C2&(#400:0) *Q4R ...! POP ERROR [SEMAPHORE SAYS IT IS LONG EVENT CASE *Q4W ... COOR3 %C2 *Q4^ ...) *Q54 ...#STR %D *Q57 ...( *Q5= ...#SKI %C2&(#400:0)$(#400:0) *Q5* ...! POP ERROR [COOR3 SAYS THE SEMAPHORE *Q5D ... LONGSET %C2ṡ,(GEOERR),%E *Q5H ... LONGSTOP %D,,%F [BREAK-IN *Q5L ...) *Q5Q ...#STR %A *Q5W ... BRN %A *Q62 ...M1WAITVOP *Q68 ...#NOR *Q6D ...[ *Q94 ...[??? LASS SECT FILE FGN 24 DOC *QDW #MAC LASS [F,A,INVERT *QYG #DEF 20?=%A@L-19+1 [20? = NO OF BRTS *RD6 #SKI 20?-1<1$1 *RXQ ( *SCB [ ONE BIT CASE *SX2 LA %A ,%B,%C *TBL #EXI *TW= ) *W*W MASK %A [21? = FIELD *WTG #STR %C *X*6 #SKI *XSQ ( *Y#B [ MASK *YS2 #SKI 20?<13-13 *^?L ( *^R= [ < 12 BIT CASE B3PQ #SKI 21?ṡ$21? B49B ...( B4P2 [ NOT COMPLETELY IN LS 12 BITS B58L #SKI 21?�$21? B5N= ( B67W [ NOT COMLETELY IN MS 9 BITS B6MG [ STRADDLING AT LEAST 2 FIELDS OR TOTALY IN 9,10,11 B776 LDN %B #7777@L(20?-12) B7LQ SLL %B 23-(%A%) B86B #EXI B8L2 ) B95L [ IN TOP 9 BITS ONLY B9K= LDCT %B #777@L(20?-9)@L(8-(%A%)) B=4W #EXI B=JG ) B?46 [ IN LS 12 BITS ONLY B?HQ LDN %B #7777@L(20?-12)@L(23-(%A%)) B#3B #EXI B#H2 ) B*2L [ 13 BITS OR MORE B*G= NGN %B 1@L(24-20?) B*^W #SKI 20?-24 BBFG ( BB^6 [ NOT 24 BITS BCDQ #SKI %A%-20?+1 BCYB SRL %B %A%-20?+1 BDD2 #EXI BDXL ) BFC= ) BFWW [ INVERT BGBG #SKI 20?<12-12 BGW6 ( BH*Q [ <12 BIT CASE BHTB NGN %B 1@L20? BJ*2 #SKI %A%-23 BJSL SLC %B 23-(%A%) BK#= #EXI BKRW ) BL?G [ > 12 BIT CASE BLR6 [ IF RH BIT = 23 & MORE THAN 14 BITS BM=Q #SKI %A%-23<1$1 BMQB ( BN=2 [BIT 23 BNPL #SKI 20?<15-15<1$1 BP9= ( BPNW [15 BITS OR MORE BQ8G LDCT %B #777@L(20?-15) BQN6 #EXI BR7Q ) BRMB ) BS72 LDN %B #7777@L(12-20?) BSLL #SKI %A%-20?+1 BT6= SRC %B (%A%)-20?+1 BTKW #NOR BTR4 ...[ BTY= ...[ BW5G ...[??? MASK SECT FILE FGN 24 DOC BWK6 #MAC MASK [F BWSY ...[ BITS 0-4 = NO OF BITS - 1, 5-18 = DISPLACEMENT,19-23 = LS BIT BX4Q [ SET UP 21? WITH A MASK OF THE FIELD BXJB #DEF 21?=-1@L((%A@L-19)-23)@L(23-(%A%)) BY42 #NOR BY6K ...[ BY98 ...[ BY?S ...[??? RNORM SECT FILE FGN 24 DOC BYHL #MAC RNORM [F,A B^3= #DEF 20?=23-(%A%) [NO OF BITS TO SHIFT RIGHT B^GW #EXI 20? [EXIT IF NO SHIFT C22G #STR %B C2G6 ( C2^Q SRL %B 20? C3FB #EXI C3^2 ) C4DL SRL 0 20? C4Y= #NOR C52T ...[ C55D ...[ C584 ...[??? LNORM SECT FILE FGN 24 DOC C5CW #MAC LNORM [F,A C5XG #DEF 21?=23-(%A%) [NO TO SHIFT LEFT C6C6 #EXI 21? C6WQ #STR %B C7BB ( C7W2 SLL %B 21? C8*L #EXI C8T= ) C9#W SLL 0 21? C9SG #NOR C9X5 ...[ C9^N ...[ C=4# ...[??? LFUN SECT FILE FGN 24 DOC C=#6 #MAC LFUN [P,F,A A=0 BY DEFAULT C=RQ #SKI %B%-23<1-1 C??B ( C?R2 #DEF 20?=%B@L-19+1 C#=L #SKI 20?-9<1$1 C#Q= ( C*9W [ 9 BITS C*PG OP %A,%B,LDEX,%C [LS BIT = 23 CB96 #EXI CBNQ ) CC8B #SKI 20?-24<1$1 CCN2 ( CD7L OP %A,%B,LDX,%C CDM= #EXI CF6W ) CFLG ) CG66 #STR %C CGKQ LASS %B,%C CH5B #STR %C CHK2 #SKI CJ4L LASS %B,0 CJJ= OP %A,%B,ANDX,%C CK3W #NOR CK6F ...[ CK94 ...[ CK?N ...[??? LF SECT FILE FGN 24 DOC CKHG #MAC LF [P,F,A A=0 BY DEFAULT CL36 #SKI %B%-23 CLGQ ( CM2B [ %B LS BIT NOT BIT23 CMG2 OP %A,%B,LDX,%C CM^L #DEF 20?=(%B%)-(%B@L-19+1)+1 CNF= #STR %C CNYW ( CPDG #SKI 20? CPY6 SLL %C 20? [KNOCK OUT TOP BITS CQCQ SRL %C 20?+23-(%B%) [PUT IN LS BITS CQXB #EXI CRC2 ) CRWL #SKI 20? CSB= SLL 0 20? CSTW SRL 0 20?+23-(%B%) CT*G #EXI CTT6 ) CW#Q LFUN %A,%B,%C CWSB #NOR CWW^ ...[ CW^J ...[ CX48 ...[??? STFUN SECT FILE FGN 24 DOC CX#2 #MAC STFUN [P,F,A A NOT = 0 CXRL #STR %C CY?= #SKI %C<1$1 CYQW ! %C NOT SPECIFIED OR ZERO C^=G #SKI %B%-23<1$1 C^Q6 ( D29Q [ RIGHT HAND BIT = 23 D2PB #DEF 20?=%B@L-19+1 D392 #SKI 20?-9<1$1 D3NL ( D48= OP %A,%B,DEX,%C D4MW #EXI D57G ) D5M6 #SKI 20?-12<1$1 D66Q ( D6LB OP %A,%B,DSA,%C D762 #EXI D7KL ) D85= #SKI 20?-15<1$1 D8JW ( D94G ... OP %A,%B,DLA,%C D9J6 #EXI D=3Q ) D=HB #SKI 20?-24<1$1 D?32 ( D?GL OP %A,%B,STO,%C D#2= #EXI D#FW ) D#^G ) D*F6 FC %A,%B D*YQ #STR A!"#£&Q,%D DBDB #SKI DBY2 ( DCCL LDX 0 %C DCX= LNORM %B DDBW OP %A,%B,ORS DDWG #EXI DFB6 ) DFTQ OP %A,%B,ORS,%C DG*B #NOR DGC^ ...[ DGGJ ...[ DGK8 ...[??? STF SECT FILE FGN 24 DOC DGT2 #MAC STF [P,F,A A NOT = 0 DH#L STFUN %A,%B,%C,A!"#£&Q DHS= #NOR DHWT ...[ DH^D ...[ DJ44 ...[??? FC SECT FILE FGN 24 DOC DJ?W #MAC FC [P,F DJRG LASS %B,0,INVERT DK?6 OP %A,%B,ANDS DKQQ #NOR DKT* ...[ DKXY ...[ DL2J ...[??? DECF SECT FILE FGN 24 DOC DL=B #MAC DECF [P,F DLQ2 LA %B DM9L OP %A,%B,SBS DMP= #NOR DMRT ...[ DMWD ...[ DM^4 ...[??? INCF SECT FILE FGN 24 DOC DN8W #MAC INCF [P,F DNNG LA %B DP86 OP %A,%B,ADS DPMQ #NOR DPQ* ...[ DPSY ...[ DPXJ ...[??? JFZ SECT FILE FGN 24 DOC DQ7B #MAC JFZ [L,P,F DQM2 LFUN %B,%C DR6L BZE 0 %A DRL= #NOR DRNT ...[ DRRD ...[ DRW4 ...[??? JFNZ SECT FILE FGN 24 DOC DS5W #MAC JFNZ [L,P,F DSKG LFUN %B,%C DT56 BNZ 0 %A DTJQ #NOR DTM* ...[ DTPY ...[ DTSJ ...[??? JDECFZ SECT FILE FGN 24 DOC DW4B #MAC JDECFZ [L,P,F DWJ2 DECF %B,%C DX3L JFZ %A,%B,%C DXH= #NOR DXKT ...[ DXND ...[ DXR4 ...[??? JDECFNZ SECT FILE FGN 24 DOC DY2W #MAC JDECFNZ [L,P,F DYGG DECF %B,%C D^26 JFNZ %A,%B,%C D^FQ #NOR D^J* ...[ D^LY ...[ D^PJ ...[??? TRF SECT FILE FGN 24 DOC D^^B #MAC TRF [P,F,P,F F2F2 #SKI (%D@L-19)-(%B@L-19)� F2YL ! MOVING FIELD TO SMALLER FIELD F3D= #SKI %D@L-19-23 F3XW FC %C,%D F4CG LFUN %A,%B F4X6 #DEF 21?=%B%-(%D%) F5BQ [ - => R SHIFT F5WB #SKI 21? F6B2 ( F6TL #SKI 21?� F7*= ( F7SW SRL 0 -21? [-VE => R SHIFT F8#G ) F8S6 #SKI 21?�<1$1 F9?Q SLL 0 21? F9RB ) F=?2 #SKI %D@L-19-23 F=QL ( F?== OP %C,%D,ORS F?PW #EXI F#9G ) F#P6 OP %C,%D,STO F*8Q #NOR F**Y ...[ F*H6 ...[ F*NB ...[??? SJFILENO SECT FILE FGN 24 DOC FC7= #MAC SJFILENO FCLW SMO BSJACT FD6G LDX %A CJGEN FDL6 #NOR ^^^^ ...671564400028