{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RAECOMMS867)}}
====== RAECOMMS867 ======
(George Source)
**Macros used:** [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FI|FI]], [[george:macro:FON|FON]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:IF|IF]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:THEN|THEN]]
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