{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS ICB)}}
====== MACROS ICB ======
(George Source)
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