{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS2JSR)}}
====== MACROS2JSR ======
(George Source)
229S ...[??? CILLEGAL SECT CENT FGN 2 DOC
22FL #
22^= # RUTH HEAP ROOM F6
23DW #
23YG #
24D6 # MACROS:-
24XQ #
25CB # CILLEGAL
25X2 # MONITOR
26BL # ILLEGAL ETC.
26W= # TOPCA/1
27*W # PERTYPNO
27TG # RELOFP
28*6 # PERCOUNT
28SQ # FPERENT/A/B
29#B #
29S2 # PLEASE RETURN TO F5
2=?L #
2=R= # THIS MACRO SWAPS EXEC1,2 AROUND TO MAKE ISSUE 9 EXEC LOOK LIKE OTH
2?=W # THIS MACRO IS USED TO REPORT AN ILLEGAL IN AN OBJ.PROG FROM THE CP
2?QG #MAC CILLEGAL [JSRAYNER.OBJ PROG ILLEGAL (COM PROC ACT)
2#=6 SMO FX1
2#PQ LDX 5 MCILL
2*9B ACROSS MONEVENT,2
2*P2 MCILL +JY%A
2B8L #NOR
2BDD ...[??? MONITOR SECT CENT FGN 2 DOC
2BN= # MACRO FOR REPORTING MONITOR EVENTS
2C7W #MAC MONITOR
2CMG SMO FX1
2D76 LDX 5 MMON
2DLQ ACROSS MONEVENT,1
2F6B MMON +JY%A
2FL2 #NOR
2FTS ...[??? ILLEGAL SECT CENT FGN 2 DOC
2G5L # ILLEGAL & ILLEGALX ARE BOTH FOR REPORTING ILLEGALS IN OBJ PROGS FR
2GK= #MAC ILLEGAL
2H4W SMO FX1
2HJG LDX 5 MILL
2J46 ACROSS OPILLS,8
2JHQ MILL +JY%A
2K3B #NOR
2K?8 ...[??? ILLEGALX SECT CENT FGN 2 DOC
2KH2 #MAC ILLEGALX
2L2L LDX 5 %A
2LG= ACROSS OPILLS,8
2L^W #NOR
2M9N ...[??? TOPCA SECT CENT FGN 2 DOC
2MFG # THIS MACRO STORES X3-7 & THE LINK PAIR LOCATED BY %A IN THE PCA.
2M^6 # & THEN FPUTS THE PCA
2NDQ #SKI CLONK<1$1
2NYB (
2PD2 #MAC TOPCA [JSRAYNER
2PXL LDN 1 %A
2QC= LDX 2 FX2
2QWW SMO APETADDR(2)
2RBG LDN 2 ALINK1
2RW6 MOVE 1 2
2S*Q LDN 1 3
2STB SBN 2 ALINK1-ACC3
2T*2 MOVE 1 5
2TSL #SKIP G3
2W#= SBN 2 ACC3
2WRW #SKIP G4
2X?G (
2XR6 ADN 2 HLOCK1-ACC3
2Y=Q SMO FX2
2YQB LDN 1 HLOCK1
2^=2 MOVE 1 HLOCKLEN*HLOCKN
2^PL STOZ 0(1) [ "CLEAR"
329= STOZ HLOCKLEN(1)
32NW SBN 2 HLOCK1
338G )
33N6 FPUT
347Q #NOR
34MB )
3572 #SKI CLONK
35LL (
366= #
36KW #MAC TOPCA
375G LDX 0 %A
37K6 LDX 2 FX2
384Q SMO APETADDR(2)
38JB LDN 2 ACC3
3942 STO 0 ALINK1-ACC3(2)
39HL LDN 1 3
3=3= MOVE 1 5 [MOVE ACCS
3=GW #SKI G3
3?2G SBN 2 ACC3
3?G6 #SKI G4
3?^Q (
3#FB ADN 2 HLOCK1-ACC3
3#^2 SMO FX2
3*DL LDN 1 HLOCK1
3*Y= MOVE 1 HLOCKLEN*HLOCKN
3BCW STOZ 0(1)
3BXG STOZ HLOCKLEN(1)
3CC6 SBN 2 HLOCK1
3CWQ )
3DBB FPUT
3DW2 #NOR
3F*L ...)
3FT= ...[??? TOPCA1 SECT CENT FGN 2 DOC
3G#W # THIS MACRO CHANGES FROM OLPA TO PCA SETTING LINK GIVEN IN OLPA
3GSG #MAC TOPCA1
3H#6 LDN 0 %A
3HRQ LDX 1 FX2 [ADDR OF OLPA
3J?B LDX 2 APETADDR(1) [ADDR OF PCA
3JR2 STO 2 FX2
3K=L ADN 1 ALINK1
3KQ= ADN 2 ALINK1
3L9W MOVE 1 HLINK
3LPG MOVE 0 HLINK
3M96 #SKIP G3
3MNQ SBN 2 ALINK1
3N8B #SKIP G4
3NN2 (
3P7L ADN 2 HLOCK1-ALINK1
3PM= ADN 1 HLOCK1-ALINK1
3Q6W MOVE 1 HLOCKLEN*HLOCKN
3QLG STOZ 0(1) [ "CLEAR"
3R66 STOZ HLOCKLEN(1)
3RKQ SBN 2 HLOCK1
3S5B )
3SK2 LDX 1 FX1
3T4L #NOR
3T#D ...[??? PERTYPNO SECT CENT FGN 2 DOC
3TJ= [
3W3W [MACRO FOR ENTERING PERIPHERAL TYPE AND UNIT NO. CONVERSION ROUTINE
3WHG [BINARY TO CHARACTER
3X36 #MAC PERTYPNO
3XGQ LDX 0 %A
3Y2B SMO FX2
3YG2 STO 0 EXEC3
3Y^L DOWN PERTYPNO,1%B
3^F= #NOR
3^F* ...[
3^FD ...[??? MPERTYPN SECT CENT FGN 4 DOC
3^FH ...[
3^FL ...#MAC MPERTYPNO
3^FP ... ACCSTO %A,ACOMMUNE9,FX2
3^FS ... DOWN PERTYPNO,2
3^FX ...#NOR
3^G2 ...[
3^G5 ...[??? MANYDA SECT CENT FGN 4 DOC
3^G8 ...[
3^G? ...#MAC MANYDA
3^GB ...#STR %A
3^GF ...#SKI
3^GJ ...(
3^GM ...#MEN PERTYPNO
3^GQ ...#TRA K90PERTYPNO
3^GT ... NULL
3^GY ...#TRA K92PERTYPNO
3^H3 ... NULL
3^H6 ...#END
3^H9 ...#MEN PERCON
3^H# ...#TRA K90PERCON
3^HC ... NULL
3^HG ...#END
3^HK ...#MEN OPCA
3^HN ...#TRA K90OPCA
3^HR ... ANDN 6 #377
3^HW ...#TRA K91OPCA
3^H^ ... ANDN 5 #377
3^J4 ...#END
3^J7 ...#MEN ILLPERI
3^J= ...#TRA K90ILLPERI
3^J* ... ANDN 3 #377
3^JD ...#END
3^JH ...#MEN MONRESUM
3^JL ...#TRA K90MONRESUM
3^JP ... ANDN 6 #377
3^JS ...#END
3^JX ...#EXI
3^K2 ...)
3^K5 ...#STR OFF,%A
3^K8 ...(
3^K? ...! PARAMETER MUST BE "OFF" OR NULL
3^KB ...#EXI
3^KF ...)
3^KJ ...#MEN PERTYPNO
3^KM ...#TRA K90PERTYPNO
3^KQ ... BRN K91PERTYPNO
3^KT ...#TRA K92PERTYPNO
3^KY ... BRN K93PERTYPNO
3^L3 ...#END
3^L6 ...#MEN PERCON
3^L9 ...#TRA K90PERCON
3^L# ... BRN K91PERCON
3^LC ...#END
3^LG ...#MEN OPCA
3^LK ...#TRA K90OPCA
3^LN ... ANDN 6 #77
3^LR ...#TRA K91OPCA
3^LW ... ANDN 5 #77
3^L^ ...#END
3^M4 ...#MEN ILLPERI
3^M7 ...#TRA K90ILLPERI
3^M= ... ANDN 3 #77
3^M* ...#END
3^MD ...#MEN MONRESUM
3^MH ...#TRA K90MONRESUM
3^ML ... ANDN 6 #77
3^MP ...#END
3^MS ...#NOR
3^MX ...[
3^P4 ...[??? RELOFP SECT CENT FGN 2 DOC
3^YW # THIS MACRO RELEASES A PERIPHERAL FROM AN OBJ PROG.USED FROM OFA
42DG #MAC RELOFP
42Y6 ACCSTO %A,ACOMMUNE7,FX2
43CQ DOWN RELPER,2
43XB #NOR
4478 ...[??? PERCOUNT SECT CENT FGN 2 DOC
44C2 #MAC PERCOUNT
44WL #STR %A
45B= #SKI
45TW (
46*G LDX 1 FX1
46T6 FJOCA 2,FX2,N
47#Q LDEX 0 JMISC(2)
47SB BZE 0 M1PER
48#2 DOWN RELPER,3
48RL M1PER LDX 2 FX2
49?= )
49QW #STR ALL,%A
4==G #SKI
4=Q6 DOWN RELPER,31
4?9Q #NOR
4?FJ ...[??? FPERENT SECT CENT FGN 2 DOC
4?PB # THIS MACRO LOOKS UP ENTRIES IN THE PRB
4#92 # %A & %D MUST BE ACCUMULATORS
4#NL # %B &%C MUST BE MODIFIERS
4*8= #MAC FPERENT
4*MW #STR %B,%C
4B7G LDX %C %B
4BM6 SBN %C 2
4C6Q #STR %D
4CLB (
4D62 #STR %A,%D
4DKL #STR
4F5= STO %A GEN6
4FJW STOZ %D
4G4G )
4GJ6 M1
4H3Q ADN %C 2
4HHB #STR %D
4J32 (
4JGL LDX 0 1(%C)
4K2= BPZ 0 M2
4KFW ADN %D 1
4K^G )
4LF6 M2
4LYQ LDX 0 0(%C)
4MDB BNG 0 M3
4MY2 #STR %A,%D
4NCL TXU 0 %A
4NX= #STR %A,%D
4PBW #STR
4PWG TXU 0 GEN6
4QB6 BCS M1
4QTQ BRN MEND
4R*B M3
4RT2 NGN %C 1
4S#L MEND
4SS= #NOR
4T44 ...[??? FPERENTA SECT CENT FGN 2 DOC
4T?W #
4TRG # THIS IS A SHORTER AND LESS GENERAL VERSION OF FPERENT
4W?6 # ON ENTRY %A IS MODIFIER PNTG TO APERIRES BLOCK ,%B CONTAINS TYPE/UNIT
4WQQ # NO. IN B0-8,9-23 RESPECTIVELY
4X=B # ON EXIT %A -> ENTRY IF FOUND ELSE CONTROL JUMPS TO %C
4XQ2 #MAC FPERENTA
4Y9L ADN %A A1-2
4YP= MFPERENTA1
4^8W ADN %A 2
4^NG LDX 0 0(%A)
5286 BNG 0 %C
52MQ ERX 0 %B
537B BNZ 0 MFPERENTA1
53M2 #NOR
53WS ...[??? FPERENTB SECT CENT FGN 2 DOC
546L # THIS MACRO LOOKS UP ENTRIES IN THE PRB GIVEN A PTR TO DEVICE
54L= # LIST.%A MUST BE A MODIFIER
555W #MAC FPERENTB
55KG ADN %A A1-2
5656 MFPERENTB
56JQ ADN %A 2
574B LDX 0 0(%A)
57J2 BNG 0 %C
583L LDX 0 1(%A)
58H= ERX 0 %B
592W ANDX 0 BITS22LS
59GG BNZ 0 MFPERENTB
5=26 #NOR
5=9Y ...[??? CPIFORTI SECT CENT FGN 2 DOC
5=FQ #MAC CPIFORTIMES
5=^B RESON CPIBIT
5?F2 #NOR
^^^^ ...54220272000800000000