MACROS ICB
(George Source)
- MACROS ICB.txt
2D76 ...[??? TESTRT SECT CENT FGN 2 DOC 2KH2 #MAC TESTRT 2L2L # 2LG= ...[ MACRO TO TEST WHETHER THE PROGRAM BELONGING TO THE 2L^W ...[ CURRENT JOB HAS HAD A 'REALTIME ON' COMMAND EFFECTED 2MFG ...[ %A IS A BRANCH IF REALTIME IS IN EFFECT 2M^6 # 2NDQ #STR %B 2NYB #SKI 2PD2 ( 2PXL #STR %C%D%E 2QC= FCJOB 1,FX2,%C,%D,%E 2QWW #STR %C%D%E 2RBG #SKI 2RW6 FCJOB 1,FX2,PCA,CPA,OLPA 2S*Q LDX 0 JMISC(1) 2STB LDX 1 FX1 2T*2 LDX 2 FX2 2TSL ) 2W#= #STR %B 2WRW MOD LDX 0 JMISC,%B 2X?G ANDN 0 #200 [MASK FOR RELEVANT MARKER BIT (B16) 2XR6 BNZ 0 %A [BRANCH IF REALTIME IN EFFECT 2Y=Q #NOR 2YGJ ...[??? TESTRTQ SECT CENT FGN 2 DOC 2YQB #MAC TESTRTQ 2^=2 # 2^PL ...[ MACRO TO TEST IF THE PROGRAM ASSOCIATED WITH THE CURRENT JOB 329= ...[ HAS HAD A 'REALTIME ON' COMMAND ISSUED BUT NOT YET EFFECTED 32NW # 338G #STR %B 33N6 #SKI 347Q ( 34MB #STR %C%D%E 3572 FCJOB 1,FX2,%C,%D,%E 35LL #STR %C%D%E 366= #SKI 36KW FCJOB 1,FX2,PCA,CPA,OLPA 375G LDX 0 JMISC(1) 37K6 LDX 1 FX1 384Q LDX 2 FX2 38JB ) 3942 #STR %B 39HL MOD LDX 0 JMISC,%B 3=3= ANDN 0 #400 [MASK FOR RELEVANT MARKER BIT (B15) 3=GW BNZ 0 %A [BRANCH IF REALTIME TO BE EFFECTED 3?2G #NOR 3?=# ...[??? RTTEST SECT CENT FGN 2 DOC 3?G6 #MAC RTTEST 3?^Q ...[ MACRO TO BRANCH TO %A IF RE ON COMMAND HAS BEEN ISSUED 3#FB #STR %B 3#^2 #SKI 3*DL ( 3*Y= #STR %C%D%E 3BCW FCJOB 1,FX2,%C,%D,%E 3BXG #STR %C%D%E 3CC6 #SKI 3CWQ FCJOB 1,FX2,PCA,CPA,OLPA 3DBB LDX 0 JMISC(1) 3DW2 LDX 1 FX1 3F*L LDX 2 FX2 3FT= ) 3G#W #STR %B 3GSG MOD LDX 0 JMISC,%B 3H#6 ANDN 0 #600 3HRQ BNZ 0 %A 3J?B #NOR 3Q#4 ...[??? PROGEND SECT CENT FGN 2 DOC 3QLG # 3R66 # 3RKQ # MACRO TO RETURN TO COMMAND LEVEL FOR PROGRAM EVENTS 3S5B # 3SK2 #SKI COMPROMK7<1$1 3T4L ( 3TJ= #MAC PROGEND 3W3W ACROSS COMPROB,15 3WHG #NOR 3X36 ...) 3XGQ # 3Y2B #SKI COMPROMK7 3YG2 ( 3Y^L #MAC PROGEND 3^F= ACROSS COMPRO,15 3^YW #NOR 42?? ...) 42KN ...[??? CHNUMCON SECT CENT FGN 2 DOC 42Y6 # 43CQ #SKI ADELO<1$1 43XB ( 44C2 #MAC CHNUMCON 44WL # 45B= ...[ ROUTINE FOR CONVERTING A SERIES OF NUMERICAL EXPRESSIONS 45TW # 46*G #STR %A 46T6 #SKI 47#Q DOWN CHNUMCON,1 47SB #STR %A 48#2 DOWN CHNUMCON,3 48RL #NOR 49?= ...) 49QW #SKI ADELO 4==G ( 4=Q6 #MAC CHNUMCON 4?9Q #STR %A 4?PB #SKI 4#92 ( 4#NL #STR %B 4*8= ( 4*MW DOWN CHNUMCON,1 4B7G BRN %B 4BM6 ) 4C6Q #STR %B 4CLB #SKI 4D62 ( 4DKL DOWN CHNUMCON,11 4F5= ) 4FJW ) 4G4G #STR %A 4GJ6 ( 4H3Q #STR %B 4HHB ( 4J32 DOWN CHNUMCON,3 4JGL BRN %B 4K2= ) 4KFW #STR %B 4K^G #SKI 4LF6 ( 4LYQ DOWN CHNUMCON,31 4MDB ) 4MY2 ) 4NCL #NOR 4NQ3 ...) 4P4D ...[??? CHNUMCO1 SECT CENT FGN 2 DOC 4PBW #SKI ADELO<1$1 4PWG ( 4QB6 #MAC CHNUMCO1 4QTQ # 4R*B ...[ ROUTINE FOR CONVERTING A SINGLE NUMERICAL EXPRESSION 4RT2 # 4S#L #STR %A 4SS= #SKI 4T?W DOWN CHNUMCON,4 4TRG #STR %A 4W?6 DOWN CHNUMCON,5 4WQQ #NOR 4X=B ...) 4XQ2 #SKI ADELO 4Y9L ( 4YP= #MAC CHNUMCO1 4^8W #STR %A 4^NG #SKI 5286 ( 52MQ #STR %B 537B ( 53M2 DOWN CHNUMCON,4 546L BRN %B 54L= ) 555W #STR %B 55KG #SKI 5656 ( 56JQ DOWN CHNUMCON,41 574B ) 57J2 ) 583L #STR %A 58H= ( 592W #STR %B 59GG ( 5=26 DOWN CHNUMCON,5 5=FQ BRN %B 5=^B ) 5?F2 #STR %B 5?YL #SKI 5#D= ( 5#XW DOWN CHNUMCON,51 5*CG ) 5*X6 ) 5BBQ #NOR 5BP7 ...) 5C3J ...[??? CHNUMCOD SECT CENT FGN 2 DOC 5CB2 #MAC CHNUMCOD 5CTL # 5D*= ...[ ROUTINE FOR USE WHEN A SINGLE DECIMAL NUMBER IS TO BE CONVERTED 5DSW # 5F#G STO 3 GEN0 5FS6 #STR %B 5G?Q #SKI 5GRB MHUNT 2,CPB,CUNI 5H?2 #STR %B,2 5HQL LDX 2 %B 5J== LDEX 3 ANUM(2) 5JPW LDN 0 0 5K9G LDN 1 0 5KP6 MCN1 CDB 0 APARA(2) 5L8Q BCS MCN2 5LNB BCHX 2 £ 5M82 BCT 3 MCN1 5MML BNZ 0 MCN2 5N7= LDX 2 FX2 5NLW STO 1 ACOMMUNE1(2) 5P6G LDX 1 FX1 5PL6 SETREP OK 5Q5Q LDX 3 GEN0 5QKB BRN MCN3 5R52 MCN2 LDX 3 GEN0 5RJL #SKI ADELO 5S4= CHNUMCO1 %A,%C 5SHW #SKI ADELO<1$1 5T3G CHNUMCO1 %A 5TH6 MCN3 5W2Q #NOR 5W=J ...[??? CHNUMCOO SECT CENT FGN 2 DOC 5WGB #MAC CHNUMCOO 5X22 # 5XFL ...[ ROUTINE FOR USE WHEN A SINGLE OCTAL NUMBER IS TO BE CONVERTED 5X^= # 5YDW STO 3 GEN0 5YYG #STR %B 5^D6 #SKI 5^XQ MHUNT 2,CPB,CUNI 62CB #STR %B,2 62X2 LDX 2 %B 63BL LDEX 3 ANUM(2) 63W= LDCH 1 APARA(2) 64*W SBN 1 #23 64TG BNZ 1 MCH2 65*6 SBN 3 2 65SQ TXL 3 EIGHT 66#B BCC MCH2 66S2 ADN 3 1 67?L LDN 0 0 67R= MCH1 BCHX 2 £ 68=W LDCH 1 APARA(2) 68QG TXL 1 EIGHT 69=6 BCC MCH2 69PQ SLL 0 3 6=9B ORX 0 1 6=P2 BCT 3 MCH1 6?8L LDX 2 FX2 6?N= STO 0 ACOMMUNE1(2) 6#7W LDX 1 FX1 6#MG LDX 3 GEN0 6*76 SETREP OK 6*LQ BRN MCH3 6B6B MCH2 LDX 3 GEN0 6BL2 #SKI ADELO 6C5L CHNUMCO1 %A,%C 6CK= #SKI ADELO<1$1 6D4W CHNUMCO1 %A 6DJG MCH3 6F46 #NOR 6F?Y ...[??? CHNUMCOX SECT CENT FGN 2 DOC 6FHQ #MAC CHNUMCOX 6G3B # 6GH2 ...[ ROUTINE FOR CONVERTING A SINGLE OCTAL OR DECIMAL NUMBER 6H2L # 6HG= STO 3 GEN0 6H^W #STR %B 6JFG #SKI 6J^6 MHUNT 2,CPB,CUNI 6KDQ #STR %B,2 6KYB LDX 2 %B 6LD2 LDEX 3 ANUM(2) 6LXL LDCH 1 APARA(2) 6MC= SBN 1 #23 6MWW BZE 1 MCH4 6NBG LDN 0 0 6NW6 LDN 1 0 6P*Q MCH1 CDB 0 APARA(2) 6PTB BCS MCH2 6Q*2 BCHX 2 £ 6QSL BCT 3 MCH1 6R#= BNZ 0 MCH2 6RRW BRN MCH5 6S?G MCH4 SBN 3 2 6SR6 TXL 3 EIGHT 6T=Q BCC MCH2 6TQB ADN 3 1 6W=2 MCH7 BCHX 2 £ 6WPL LDCH 0 APARA(2) 6X9= TXL 0 EIGHT 6XNW BCC MCH2 6Y8G SLL 1 3 6YN6 ORX 1 0 6^7Q BCT 3 MCH7 6^MB MCH5 LDX 2 FX2 7272 STO 1 ACOMMUNE1(2) 72LL LDX 1 FX1 736= LDX 3 GEN0 73KW SETREP OK 745G BRN MCH6 74K6 MCH2 LDX 3 GEN0 754Q #SKI ADELO 75JB CHNUMCO1 %A,%C 7642 #SKI ADELO<1$1 76HL CHNUMCO1 %A 773= MCH6 77GW #NOR ^^^^ ...17215633000400000000