100 GOT300, DCA INTENS /LIGHT IS DIM NOW 110 JMS MODNXT /GET NEXT CHARACTER 120 TAD (-204) /COMPARE TO 204 CODE 130 SNA /SKIP IF DIFFERENT 140 JMP I (GOT204) /JUMP IF IT MATCHES 150 IAC /COMPARE TO 203 CODE 160 SZA CLA /SKIP IF IT MATCHES 170 JMP I (GOTBAD) /BARF ON ANY OTHER 180 GOT203, ISZ SUCCESS /INDICATE SUCCESSFUL TRIAL 190 NL4000 /FUDGE TO PREVENT 200 DCA MTEMP /INVALIDATION 210 JMP I (GOODIN) /FINISH IT THERE 220 EJECT 230 EJECT 240 XLIST OFF > 250 XLIST ON 260 /GRIND PROGRAM VARIABLES, TEMPORARIES, ETC. 270 280 BFRPTR, ZBLOCK 2 /BEGIN BURST POINTER 290 BRSTPTR,ZBLOCK 2 /PRE-BURST POINTER 300 FRSPIKE,ZBLOCK 2 /FIRST SPIKE ADDRESS 310 L1, 1; 0 /CONSTANT 0000 0001 320 L2, 2; 0 /CONSTANT 0000 0002 330 L4, 4; 0 /CONSTANT 0000 0004 340 LSPIKE, ZBLOCK 2 /LAST SPIKE ADDRESS 350 MBGPTR, ZBLOCK 2 /MOVEMENT BEGIN POINTER 360 ZBLOCK 2 /FRACTION FOR CORRECTED PRINTOUTS 370 MENPTR, ZBLOCK 2 /MOVEMENT END POINTER 380 ZBLOCK 2 /FRACTION FOR CORRECTED PRINTOUTS 390 MOVFRST,ZBLOCK 2 /MOVEMENT'S FIRST SPIKE ADDRESS 400 ZBLOCK 2 /MOVEMENT'S FIRST SPIKE FRACTIONAL TIME 410 MOVLST, ZBLOCK 2 /MOVEMENT'S LAST SPIKE ADDRESS 420 ZBLOCK 2 /MOVEMENT'S LAST SPIKE FRACTIONAL TIME 430 OFPTR2, ZBLOCK 2 /SECOND OLD SPIKE POINTER 440 OFRAC2, ZBLOCK 2 /SECOND OLD SPIKE FRACTION 450 OLDEND, ZBLOCK 2 /OLD END Y POINTER 460 ZBLOCK 2 /FOR PRTIME 470 OLFPTR, ZBLOCK 2 /OLD SPIKE POINTER 480 OLFRAC, ZBLOCK 2 /OLD SPIKE FRACTION 490 PASFRST,ZBLOCK 2 /PAUSE'S FIRST SPIKE ADDRSS 500 ZBLOCK 2 /PAUSE'S FIRST SPIKE FRACTIONAL TIME 510 PASLST, ZBLOCK 2 /PAUSE'S LAST SPIKE ADDRESS 520 ZBLOCK 2 /PAUSE'S LAST SPIKE FRACTIONAL TIME 530 XBEGT, ZBLOCK 2 /FIRST "X" TIME 540 550 PAGE 560 EJECT 570 XLIST OFF 580 IFNZRO FILE < 590 IFNZRO .&177 < 600 XLIST ON 610 PAGE 620 630 XLIST OFF > 640 XLIST ON 650 PQINIT, .-. /PARAMETER INITIALIZER 660 PQ7770, SPA SNA SZL CLA /THIS DEFINITELY CLEARS AC 670 PQ7, 7 /THIS MIGHT BE HARMLESSLY SKIPPED 680 TAD I PQINIT /GET FIRST ARGUMENT 690 AND PQ7770 /JUST FILE BITS 700 DCA PQFILE /SAVE AS FILE POINTER 710 TAD I PQINIT /GET FILE ARGUMENT AGAIN 720 AND [7] /JUST UNIT BITS 730 TAD (20^100+WRITE) /20 BLOCKS 740 DCA PQFUN /PUT INTO CALL 750 ISZ PQINIT /BUMP TO NEXT ARGUMENT 760 TAD I PQINIT /GET NEXT ARGUMENT 770 ISZ PQINIT /BUMP PAST 780 DCA PQNUM /SAVE AS STARTING LINE NUMBER 790 TAD I PQINIT /GET NEXT ARGUMENT 800 ISZ PQINIT /BUMP PAST ARGUMENT 810 DCA PQINC /SAVE AS LINE NUMBER INCREMENT 820 TAD PQBUFF /GET BUFFER POINTER 830 DCA PQPTR /RESET 840 TAD (PQLEFT+1) /RESET 850 DCA PQPUT /CO-ROUTINE 860 TAD (FILBUF+3777) /FIZZY CONSTANT 870 DCA PQWORK /TO PLACE HOLDER 880 JMS PQLINE /FINISH EMPTY LINE 890 JMP I PQINIT /RETURN 900 910 PQLINE, .-. /LINE FINISHING ROUTINE 920 NL7775 /BACKUP 3 930 TAD PQWORK /ADD ON CURRENT POINTER 940 DCA PQWORK /SAVE IT BACK 950 TAD PQWORK /GET IT AGAIN 960 DCA I (FILBUF+3777) /SAVE AS LINE INFO POINTER 970 TAD PQPTR /GET CURRENT BUFFER POINTER 980 DCA I (FILBUF+3776) /SAVE AS FILE POINTER 990 TAD PQPTR /GET AGAIN 1000 DCA I PQWORK /SAVE IN DUMMY PAIR 1010 ISZ PQWORK /BUMP TO DUMMY LINE 1020 STA /-1 IS DUMMY LINE VALUE 1030 DCA I PQWORK /SAVE DUMMY LINE NUMBER 1040 JMP I PQLINE /RETURN 1050 1060 PQWRITE,.-. /WRITE A FILE 1070 SPA /? 1080 JMP PQCLOSE /YES, DUMP FILE 1090 AND [77] /JUST TO MAKE SURE 1100 SNA /SKIP IF NOT 1110 JMP PQEOL /PUT IN LINE ON 1120 JMS PQSTORE /PUSH IT IN 1130 PQSRET, ISZ PQWRITE /BUMP TO BEYOND ARGUMENTS 1140 JMP I PQWRITE /RETURN TO SENDER 1150 EJECT