MACROS2JSR
(George Source)
- MACROS2JSR.txt
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