RAECOMMS867
(George Source)
Macros used: ENDCOM, FI, FON, FREECORE, GEOERR, IF, SEG, SEGENTRY, THEN
- RAECOMMS867.txt
22FL #LIS K0RAECOMMS 22^= SEG RAECOMMS,,,,G334,G336 23DW 8HRAECOMMS 23YG #OPT G334 = 0 24D6 #SKI G334&1 24XQ # FOR G3UG MEND M334 (SHUTUP COMMAND) 25CB #OPT G336 = 0 25X2 #SKI G336&1 26BL # FOR G3UG MEND M336 (UNJAM COMMAND) 26W= # 27*W # **************************************************** 27TG # * * 28*6 # * THIS CHAPTER IMPLEMENTS MOST OF THE NON- * 28SQ # * STANDARD RAE COMMANDS. ENTRY IS DIRECT FROM * 29#B # * 'VERBCLAS' OR 'VCLASTWO'. * 29S2 # * * 2=?L # **************************************************** 2=R= # 2?=W SEGENTRY K1RAECOMMS [ GERONIMO 2?QG CALL 3 UNAVAILABLE 2#=6 SEGENTRY K2RAECOMMS [ MOTA 2#PQ CALL 3 UNAVAILABLE 2*9B SEGENTRY K3RAECOMMS [ TTTP 2*P2 CALL 3 UNAVAILABLE 2B8L SEGENTRY K4RAECOMMS [ TEKTRONIX 2BN= CALL 3 UNAVAILABLE 2C7W SEGENTRY K5RAECOMMS [ SHUTUP 2CMG BRN X5RAECOMMS 2D76 SEGENTRY K6RAECOMMS [ PLOT 2DLQ CALL 3 UNAVAILABLE 2F6B SEGENTRY K7RAECOMMS [ JAP 2FL2 CALL 3 UNAVAILABLE 2G5L SEGENTRY K8RAECOMMS [ PERFSAM 2GK= CALL 3 UNAVAILABLE 2H4W SEGENTRY K9RAECOMMS [ WELL 2HJG CALL 3 UNAVAILABLE 2J46 SEGENTRY K10RAECOMMS [ UNJAM 2JHQ BRN X10RAECOMMS 2K3B SEGENTRY K11RAECOMMS [ MESSAGE 2KH2 ... CALL 3 UNAVAILABLE 2L2L # 2LG= # ENTRY POINTS PRESERVED FOR SAFETY IN RECOMPILATION. 2L^W # THIS ERROR PATH CATCHES COMMANDS NOT IN M.E.S. 2MFG UNAVAILABLE 2M^6 GEOERR 1,NO-ENTRY 2NDQ # 2NYB # 2PD2 # 2PXL ZEXIT 2QC= ENDCOM [ EXIT 2QWW # 2RBG # 2RW6 # ---------------------------------------------------------------- 2S*Q # 2STB # 2T*2 # ******************************************* 2TSL # * * 2W#= # * RAE MEND 7 * 2WRW # * * 2X?G # ******************************************* 2XR6 # 2Y=Q X5RAECOMMS 2YQB # 2^=2 #SKI G334&1$1 2^PL GEOERR 1,NOSHUTUP 329= #SKI G334&1 32NW ( 338G # ENTRY FOR 'SHUTUP' COMMAND 33N6 # 347Q LDX 3 BCONSOUT [ FIND BASE OF CONSOLE OUTPUT CHAIN 34MB LDN 7 BCONSOUT 3572 BRN T1 [ ENTER LOOP ALLOWING FOR EMPTY 35LL # 366= TIN +CONBUFF+CINP@L12 [ INPUT BLOCK TYPE/SUBTYPE 36KW # DME GETS UPSET IF WE LOSE ANY INPUT BLOCKS 375G # 37K6 R1 LDX 4 ATYPE(3) 384Q LDX 3 FPTR(3) 38JB TXU 4 TIN(1) [ KEEP ALL INPUT-TYPE BLOCKS 3942 BCS T2 [ AND 1ST NON-INPUT 39HL T1 TXU 3 7 3=3= BCS R1 3=GW BRN ZEXIT 3?2G # 3?G6 R2 LDX 4 ATYPE(3) 3?^Q LDX 3 FPTR(3) 3#FB TXU 4 TIN(1) 3#^2 IF CS 3*DL THEN 3*Y= FREECORE BPTR(3) [ FREE NON-INPUT BLOCK 3BCW FI 3BXG T2 TXU 3 7 3CC6 BCS R2 3CWQ BRN ZEXIT 3DBB # 3DW2 # 3F*L # ---------------------------------------------------------------------- 3FT= # 3G#W ) 3GSG # 3H#6 # ******************************************* 3HRQ # * * 3J?B # * RAE MEND 9 * 3JR2 # * * 3K=L # ******************************************* 3KQ= # 3L9W # 3LPG X10RAECOMMS 3M96 # 3MNQ #SKI G336&1$1 3N8B GEOERR 1,NO-UNJAM 3NN2 #SKI G336&1 3P7L ( 3PM= # ENTRY FOR THE 'UNJAM' COMMAND 3Q6W # 3QLG FON #11 3R66 BRN ZEXIT 3RKQ # 3S5B # ------------------------------------------------------- 3SK2 # 3T4L # 3TJ= ) 3W3W # 42DG # 42Y6 #END #### ##RY ^^^^ ...366076660015