{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS SJ)}}
====== MACROS SJ ======
(George Source)
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&511FNEARLY
4F5= #MEN SJOPEN
4FJW #TRA BSJSIZE-2
4G4G +20?
4GJ6 #STR %A
4H3Q +%A20?
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