100 DORITE, DLD; DIRECT /GET CURRENT INCREMENT 110 SPA /SKIP IF ALREADY POSITIVE 120 DCM /COMPLEMENT IT 130 JMP RITIN /FINISH IT THERE 140 150 FASTER, TAD L4 /GET POSITIVE INCREMENT 160 SKP /NOT NEGATIVE 170 SLOWER, TAD M4 /GET NEGATIVE INCREMENT 180 DCA TEMP /SAVE INCREMENT 190 NL4000 /GET SIGN BIT 200 AND DIRECT+1 /GET CURRENT DIRECTION 210 CLL RAL /INTO LINK 220 TAD DIRECT /GET LOW ORDER 230 SZL /SKIP IF POSITIVE 240 CIA /INVERT TO POSITIVE 250 TAD TEMP /ADD ON TENTATIVE INCREMENT 260 SPA SNA /SKIP IF POSITIVE 270 JMP TSTXIT /FORGET IT 280 AND L200 /TOO LARGE? 290 SZA CLA /SKIP IF NOT 300 JMP TSTXIT /JUMP IF SO 310 NL4000 /GET SIGN BIT 320 AND DIRECT+1 /GET CURRENT DIRECTION 330 CLL RAL /INTO LINK 340 TAD TEMP /GET DESIRED INCREMENT 350 SZL /SKIP IF GOING FORWARD 360 CIA /INVERT FOR CURRENT REVERSE DIRECTION 370 TAD DIRECT /UPDATE THE 380 DCA DIRECT /NEW VALUE 390 JMP TSTXIT /GO BACK FOR MORE 400 410 ENABLE, NL0001 /SET OR 420 DISABLE,DCA EDSW /CLEAR EDIT CAPABILITIES 430 JMP TSTXIT /GO BACK FOR MORE 440 450 PAGE 460 EJECT 470 DELETE, JMS LOCATE /LOCATE OUR POSITION 480 CDF BUFFLD /GOTO BUFFER FIELD 490 TAD I CNT /GET THE X-WORD 500 AND [1777] /REMOVE BEGIN, BLINK BITS 510 DCA I CNT /STASH IT BACK 520 ISZ CNT /BUMP TO Y-WORD 530 NL3777 /SETUP MASK 540 AND I CNT /REMOVE END BIT 550 DCA I CNT /STORE IT BACK 560 ISZ CNT /BUMP TO TIME WORD 570 ISZ CNT /BUMP TO MODEM WORD 580 NOP /JUST IN CASE 590 REGEND, TAD I CNT /GET MODEM WORD 600 AND [4777] /REMOVE LOOKED AT, ON-TARGET BITS 610 OTHEND, DCA I CNT /STASH IT BACK 620 CDF 00 /BACK TO FIELD 0 630 STA /INDICATE 640 DCA DIRTSW /DIRTY BUFFER 650 JMP I (REFRESH) /GO DISPLAY IT AGAIN 660 670 LOCATE, .-. /ADDRESS LOCATING ROUTINE 680 TAD FREZSW /ARE WE FROZEN? 690 SZA CLA /SKIP IF NOT 700 JMP LOCOK /JUMP IF SO 710 DPBL /COMPLAIN 720 JMP I [TSTXIT] /FORGET IT 730 740 LOCOK, TAD OLCURSOR /GET RELATIVE POSITION 750 CLL RTL /MAKE INTO RELATIVE ADDRESS 760 MQL /MAKE LOW-ORDER PART 770 DAD; POS /GET ABSOLUTE ADDRESS 780 DST; DBLTMP /STASH IT 790 LOAD; DBLTMP /SETUP THE ADDRESS IN RESIDENT MEMORY 800 CLA /THROW AWAY OLD VALUE 810 TAD I (ADDR) /GET OUR X-WORD ADDRESS 820 DCA CNT /STASH IT 830 JMP I LOCATE /RETURN 840 EJECT 850 BEGDO, JMS LOCATE /SETUP THE ADDRESS, ETC. 860 JMS I (VALINP) /GET VALID INPUT 870 SNA /SKIP IF NOT NORMAL 880 JMP BEGNORM /JUMP IF NORMAL 890 IAC /TEST FOR BLINK 900 SNA /SKIP IF NOT 910 JMP BEGBLNK /JUMP IF BLINK 920 IAC /TEST FOR REJECT (OFF-TARGET) 930 SNA /SKIP IF NOT 940 JMP BEGREJECT /JUMP IF REJECT 950 IAC /TEST FOR ON-TARGET 960 SNA /SKIP IF NOT 970 JMP BEGON /JUMP IF ON-TARGET 980 IAC /TEST FOR GUIDED 990 SNA /SKIP IF NOT 1000 JMP BEGGD /JUMP IF GUIDED 1010 HLT /FOR FUTURE EXPANSION 1020 1030 BEGNORM,TAD I CNT /GET X-WORD 1040 AND [1777] /REMOVE OLD BITS 1050 TAD L4000 /ADD ON PLAIN BEGIN BIT 1060 BLBEGN, DCA I CNT /STORE IT BACK 1070 ISZ CNT /BUMP TO Y-WORD 1080 NL3777 /SETUP MASK 1090 AND I CNT /REMOVE END BIT 1100 DCA I CNT /STOR IT BACK 1110 ISZ CNT /BUMP TO TIME WORD 1120 ISZ CNT /BUMP TO MODEM WORD 1130 NOP /JUST IN CASE 1140 JMP REGEND /FINISH IT THERE 1150 1160 BEGBLNK,TAD I CNT /GET X-WORD 1170 AND [1777] /REMOVE OLD BITS 1180 TAD [6000] /FORCE ON BEGIN, BLINK BITS 1190 JMP BLBEGN /FINISH THERE 1200 EJECT