CONSOLE
(GIN Macro)
Defined in: MACS PW
Used in: CHTAB, INKS, MESSAB, MESSAC, MESSBB, MESSBD, MESSBF, MESSBG, MESSBI, MESSBJ, MESSC, MESSCA, MESSCD, MESSCG, MESSCH, MESSDJ, MONFILEA864, PMBDTS863, READOPLN867, WTSTAT867
- CONSOLE.mac.txt
3H4# [??? CONSOLE SECT COMM FGN 9 DOC 3H#6 # 3HRQ # 3J?B # 3JR2 # DISTRIBUTE CONSOLE MESSA7ES 3K=L # 3KQ= #MAC CONSOLE 3L9W LDX 0 %B 3LPG ANDN 0 4 3M96 BZE 0 MLAB1 [BR IF NOT QU,AN, OR DP 3MNQ SBN %B 5 3N8B BNG %B MEND [BR IF NO CONSOLE OUTPUT 3NN2 MLAB1 3P7L SMO FX2 3PM= STO %B ACOMMUNE1 3Q6W SBN %B 1 3QLG BZE %B MRENAME [BR IF CENTRAL ONLY 3R66 LDX 2 FX2 3RKQ LDCH 0 ATYPE(2) 3S5B SBN 0 CONSA/64 3SK2 BNZ 0 MTRM1 [BR IF NOT CONSA ACTIVITY 3T4L MHUNTW 2,GMON,AOUT 3TJ= LDCT 0 #400 [CONSA 3W3W ORS 0 A1+1(2) [SET RETAIN BLFCK BRT 3WHG BRN MEND [AND EXIT 3X36 MTRM1 3XGQ DOWN CONSROOT,1 3Y2B BRN MEND2 3YG2 #SKI %A 3Y^L MRENAME 3^F= HUNTW 1,GMON,AOUT 3^YW #SKI %A<1$1 42DG BRN MCONSOLE 42Y6 #SKI %A 43CQ #SKI 43XB MRENAME 44C2 #SKI %A 44WL ( 45B= #SKI %A<1$1 45TW LDX 1 %A 46*G ) 46T6 MCONSOLE 47#Q LDXC 3 A1(1) 47SB BCS MEND [IGNORE IF CD SET 48#2 SBN 3 1 48RL SETUPCOR 3,2,CONBUFF,COUT [CORE FOR OUTPUT BLOCK 49?= STO 3 AREC(2) [STORE RECORD HEADER 49QW HUNTW 1,GMON,AOUT 4==G SBN 3 1 4=Q6 BNZ 3 MTRM2 4?9Q LDX 0 A1+3(1) 4?PB STO 0 ATEXT(2) 4#92 BRN MTRM3 4#NL MTRM2 4*8= ADN 1 A1+2 4*MW ADN 2 ATEXT 4B7G SMO 3 4BM6 MOVE 1 0 4C6Q SBN 2 ATEXT 4CLB MTRM3 4D62 CONSOUT 2 [OUTPUT TO CENTRAL OPERATOR 4D?8 #SKI 4DDB ( 4DKL #SKI EMSJNL 4F5= ( 4FJW BSOFF EMSBIT,MEND2 4G4G COOR3 #53 [EMS 4GJ6 ) 4GRY ) 4H3Q MEND 4HHB LDX 1 FX1 4J32 LDX 2 FX2 4JGL MEND2 4K2= #NOR