100 JMS DOTAIL /GO PUT THE TAIL ON 110 JMP I DOEND /RETURN 120 130 NXTT, NL2000 /SET "EXAMINED" BIT 140 AND MDWORD /GET THE BIT 150 SNA CLA /SKIP IF WE WERE HERE 160 JMP CHKEGD /CHECK FURTHER IF NOT 170 CAM /CLEAN UP 180 TAD MDWORD /GET AGAIN 190 AND L1000 /JUST "ON-TARGET" BIT 200 SNA CLA /SKIP IF ON 210 JMP NXTTIN /JUMP IF OFF 220 GDENIN, TAD [-11] /SETUP FOR 230 DCA CNT /LONGER TAIL 240 JMP NXT2IN /FINISH IT THERE 250 EJECT 260 CHKEGD, TAD MDWORD /GET MODEM WORD 270 AND L1000 /JUST GUIDE BIT 280 SNA CLA /SKIP IF SET 290 JMP I DOEND /RETURN IF NOT 300 TAD TEMP /\ 310 TAD (-2^20) / >BACKUP TWO LINES 320 DCA TEMP // 330 TAD [-11] /SETUP 340 DCA CNT /TAIL COUNTER 350 DLD; M4 /GET BACKUP FACTOR 360 DAD; TAILTMP /ADD ON CURRENT POSITION 370 DST; DBLTMP /STASH FOR SUB-ROUTINE 380 JMS DOTAIL /GO DRAW A TAIL 390 TAD TEMP /\ 400 TAD (2^20) / >RESTORE POSITION 410 DCA TEMP // 420 JMP GDENIN /FINISH IT THERE 430 440 DOTAIL, .-. /TAIL-PINNING ROUTINE 450 CAM /CLEAN UP 460 TAD DSPADR /GET ORIGINAL LINE ADDRESS 470 CIA /INVERT 480 TAD TEMP /FORM ROW ADDRESS 490 DCA VERT /SAVE FOR LATER 500 TAD TEMP /GET OUR TEMPORARY 510 DCA TMPSAVE /SAVE IT 520 TAILUP, DLD; DBLTMP /GET A POSITION 530 CLA DVI;[14] /DIVIDE BY 12 540 TAD [TAD L4000] /MAKE INTO TAD INSTRUCTION 550 DCA INLINE /SAVE FOR LATER 560 MQA /GET ADDRESS BACK 570 TAD VERT /MAKE ABSOLUTE 580 DCA TEMP /STASH IT 590 INLINE, TAD L4000+.-. /GET THE RIGHT BIT 600 MQL /SET IT UP 610 JMS I [DINSRT] /INSERT IT 620 DLD; DBLTMP /GET CURRENT POSITION 630 DPIC /INCREMENT IT 640 DST; DBLTMP /STORE IT BACK 650 ISZ CNT /DONE ALL YET? 660 JMP TAILUP /NO, GO BACK 670 CAM /CLEAN UP 680 TAD TMPSAVE /RESTORE 690 DCA TEMP /OUR TEMPORARY 700 JMP I DOTAIL /RETURN 710 720 PAGE 730 EJECT 740 TSTCHR, .-. /TEST FOR SPECIAL CHARACTERS 750 JMS I [INPUT] /GET A CHARACTER 760 SNA /SKIP IF ANY 770 JMP TSTXIT /FORGET IT 780 TAD (-"S!300) /IS IT <^S>? 790 SNA /SKIP IF NOT 800 JMP FREZIT /JUMP IF SO 810 TAD [-"Q+"S] /IS IT <^Q>? 820 SNA /SKIP IF NOT 830 JMP FREEIT /JUMP IF SO 840 TAD (-10+21) /IS IT ? 850 SNA /SKIP IF NOT 860 JMP DORITE /JUMP IF SO 870 TAD [-30+10] /IS IT ? 880 SNA /SKIP IF NOT 890 JMP DOLEFT /JUMP IF SO 900 TAD (-"F!200+30) /IS IT "F"? 910 SNA /SKIP IF NOT 920 JMP FASTER /JUMP IF SO 930 IAC /IS IT "E"? 940 SNA /SKIP IF NOT 950 JMP I (ENDO) /JUMP IF SO 960 IAC /IS IT "D"? 970 SNA /SKIP IF NOT 980 JMP I (DELETE) /JUMP IF SO 990 IAC /IS IT "C"? 1000 SNA /SKIP IF NOT 1010 JMP ENABLE /JUMP IF SO 1020 IAC /IS IT "B"? 1030 SNA /SKIP IF NOT 1040 JMP I (BEGDO) /JUMP IF SO 1050 TAD (-"S+"B) /IS IT "S"? 1060 SNA /SKIP IF NOT 1070 JMP SLOWER /JUMP IF SO 1080 TAD (-"I+"S) /IS IT "I"? 1090 SNA /SKIP IF NOT 1100 JMP DISABLE /JUMP IF SO 1110 /DO CURSOR CONTROLS HERE 1120 JMP TSTXIT /FINISH THERE 1130 1140 FREZIT, NL0001 /SET OR 1150 FREEIT, DCA FREZSW /CLEAR THE FROZEN SCREEN SWITCH 1160 JMP TSTXIT /FINISH THERE 1170 1180 DOLEFT, DLD; DIRECT /GET CURRENT INCREMENT 1190 SMA /SKIP IF ALREADY NEGATIVE 1200 DCM /COMPLEMENT IT 1210 RITIN, DST; DIRECT /STORE NEW DIRECTION 1220 TSTXIT, CAM /CLEAN UP 1230 JMP I TSTCHR /RETURN 1240 EJECT