100 XLIST OFF > 110 XLIST ON 120 130 *RECOVX+1 /OVER <^C> ROUTINE 140 150 TFL /NO KERCHUNKS 160 170 *SPLAT /OVER CHARACTER 180 190 "\&177+4000 /MAKE IT SPECIAL 200 EJECT 210 *NSTART /OVERLAY ADDRESS 220 230 IFNZRO .&177 240 XDISP2, PUSHJ /CALL THE ARGUMENT HANDLER 250 LARG1, ARG&177 /**** RELOCATE **** 260 JMP VTCLEAR /NONE PRESENT 270 JMS I INTEGER /EVALUATE ARGUMENT 280 PUSHA /SAVE IT 290 PUSHJ /CALL THE ARGUMENT HANDLER 300 LARG2, ARG /**** RELOCATE **** 310 NL7777 /NONE FOUND, SET 320 CDF CODFLD /GOTO CODE FIELD 330 DCA I (STORFLG) /STORE FLAG 340 TAD I (STORFLG) /GET IT BACK 350 CDF 00 /BACK TO FIELD 0 360 SNA CLA /SKIP IF SET 370 JMS I INTEGER /EVALUATE ARGUMENT IF PRESENT 380 SNA CLA /SKIP IF NON-ZERO 390 NL7777 /SET IF ZERO 400 CDF CODFLD /GOTO CODE FIELD 410 DCA I (CHNGFLG) /STORE INTO CHANGE FLAG 420 CDF 00 /BACK TO FIELD 0 430 POPA /GET ARGUMENT BACK 440 CMA /INVERT 450 TAD (144) /CENTER IT 460 CLL RTL /*4 470 RTL /*16 480 CDF CODFLD /GOTO CODE FIELD 490 DCA I (Y) /SAVE AS COORDINATE 500 DCA I (Q) /CLEAR QUOTIENT 510 CDF 00 /BACK TO FIELD 0 520 POPA /GET ARGUMENT BACK 530 CIF CODFLD /GOTO CODE FIELD 540 JMP I (XDISP3) /FINISH THERE 550 560 VTCLEAR,CIF CODFLD /GOTO CODE FIELD 570 JMS I (CLRBUF) /CLEAR THE BUFFER 580 POPA /REMOVE ARGUMENT FROM STACK 590 CLA CLL /CLEAN UP 600 RETURN /BACK TO FOCAL 610 620 / ARGUMENT HANDLER. 630 640 ARG, TAD CHAR /GET DELIMITER 650 TAD (-",) /IS IT A ? 660 SZA CLA /SKIP IF SO 670 POPJ /TAKE IMMEDIATE RETURN 680 PUSHJ; EVAL-1 /CALL ARGUMENT EVALUATOR 690 IAC /TAKE SKIP RETURN 700 POPJ /BACK TO CALLER 710 EJECT 720 / SYSIO TRAP HANDLER. 730 740 VTRAP, IOF /PREVENT PROBLEMS 750 CLA CLL /CLEAN UP 760 DPSM /STOP THE DISPLAY 770 DISPLC, HLT /DO DISPLACED INSTRUCTION 780 JMP I (SYSIO+2) /KEEP GOING 790 800 / SYSIO RESTORE TRAP HANDLER. 810 820 VTRAP2, IOF /PREVENT PROBLEMS 830 CLA CLL /CLEAN UP 840 DPSM /STOP THE DISPLAY 850 TAD DISPLC /GET THE DISPLACED INSTRUCTION 860 DCA I (SYSIO+1) /RESTORE IT 870 TAD DSPLC2 /GET OLD SBOOT CONTENTS 880 DCA I L7600 /RESTORE IT 890 JMP I L7600 /BACK TO THE MONITOR 900 910 DSPLC2, .-. /OLD SBOOT CONTENTS HERE 920 930 / "O" COMMAND REENTRY. 940 950 OCOMAGN,GETC /COMES HERE TO CONTINUE "O" MULT-COMMANDS 960 970 / "O" COMMAND ENTRY. 980 990 OCOM, SPNOR /IGNORE ANY SPACES 1000 TAD CHAR /GET COMMAND CHARACTER 1010 PUSHA /SAVE IT 1020 SKP /MAY ALREADY BE TERMINATOR 1030 GETC /GET NEXT CHARACTER 1040 SORTC; TERMS-1 /IS IT A TERMINATOR? 1050 SKP /YES 1060 JMP .-4 /NO, KEEP GOING 1070 TAD CHAR /GET TERMINATOR 1080 CDF CODFLD /GOTO CODE FIELD 1090 DCA I (CHRTMP) /SAVE IT 1100 CDF 00 /BACK TO FIELD 0 1110 POPA /YES, GET COMMAND CHARACTER BACK 1120 DCA CHAR /PUT INTO CHAR 1130 SORTC /FIND IT IN LIST 1140 OLISTP, OLIST-1&177 /**** RELOCATE **** 1150 SKP /FOUND IT 1160 ERROR2 /BARF 1170 TAD SORTCN /GET INDEX 1180 TAD (JMP I ODISP) /MAKE INTO INSTRUCTION 1190 DCA .+2 /PUT INLINE 1200 CIF CODFLD /GOTO CODE FIELD 1210 .-. /DISPATCH COMMAND 1220 EJECT