*20 CLR LIF 0 JMP START SEGMNT 0 *20 LONG, -30 PMODE A, FLD-1 B, DFLD-1 PTR, 0 GET, 0 CR, 215 NCR, -215 LF, 212 NLF, -212 RO, 377 NRO, -377 BSL, 334 PER, 56 MASK, 0077 ILD, LDFLD TYPE, 0 TSF JMP .-1 TLS JMP I TYPE TYPCL, 0 TSF JMP .-1 TLS CLA CLL JMP I TYPCL LISN, 0 KSF JMP .-1 KRB JMP I LISN RUB, CLA CLL TAD A CMA TAD 14 SNA JMP START-1 CLA CLL TAD LONG CMA IAC TAD A CMA TAD 14 SPA JMP IN CLA CMA TAD 14 DCA 14 CLA CMA TAD 17 DCA 17 CLA CMA DCA I 14 CLA CMA TAD 14 DCA 14 JMP OUT IN, CLA CMA TAD 14 DCA 14 TAD PER DCA I 14 CLA CMA TAD 14 DCA 14 OUT, TAD BSL JMS TYPCL JMP I ILD CRLF, TAD CR JMS TYPCL TAD LF JMS TYPCL JMP I ILD LINE, JMP START-1 LMODE INPUT, CLR LDA 14 SAE 17 JMP .+5 LDA I 2017 STC STR JMP .+4 LDA I 7000 STC STR PDP PMODE JMS LISN TAD NCR SNA JMP CRLF TAD CR TAD NLF SNA JMP LINE TAD LF TAD NRO SNA JMP RUB TAD RO JMS TYPE AND MASK DCA I 14 STR, NOP JMP I ILD *177 LINC LMODE START, CLR LDA LONG COM ADA I FLD STC 17 SET I 14 FLD+4 LDA I FLD STC PTR SAM 0 STC AD LDA I 300 ESF CLR PDP PMODE TLS TAD CR JMS TYPCL TAD LF JMS TYPE JMS TYPCL TAD A /FLD-1 DCA 10 TAD LONG IAC DCA 11 TAD PER DCA I 10 ISZ 11 JMP .-3 CLA CMA DCA I 10 TAD 10 SZA JMP .-4 LINC LMODE RSTRT, LDA AD APO JMP .+6 LDA I 1 STA I DSTART, 0 JMP .+4 LDA I 25 STC DSTART PDP PMODE LDFLD, CLA CLL TAD PTR DCA GET TAD LONG IAC DCA 15 TAD B DCA 16 AGAIN, TAD I GET IAC SZA JMP LD TAD GET CIA TAD A SZA JMP .+4 TAD 17 DCA GET JMP LD CLA CLL TAD A IAC DCA GET LD, CLA CLL TAD I GET DCA I 16 ISZ GET ISZ 15 JMP AGAIN LINC LMODE RDEL, SAM 0 STA AD APO COM COM ADA I 1000 COM STC 4 LDA I AD, 0 APO JMP LEFT LDA I 25 STA I LIM, 0 LDA I 1 STA I DIR, 0 COM STA I PTRI, 0 JMP DISP LEFT, LDA I 1 STA LIM LDA I -1 STA DIR COM STC PTRI DISP, CLR SET I 7 DFLD-1 SET 1 DSTART SET 6 LONG SAM 0 MORE, LDA I 7 ROL 1 ADA I PATRN STC 5 DSC 5 DSC I 5 LDA I 4 ADM 1 KST SKP JMP INPUT XSK I 6 JMP MORE XSK I 4 JMP DISP LDA DIR ADM DSTART SAE LIM JMP RDEL LDA PTRI ADM PTR STC .+2 LDA 0 APO I JMP RSTRT LDA PTR SAE I FLD-1 JMP .+5 LDA 17 STC PTR JMP RSTRT LDA I FLD STC PTR JMP RSTRT /PATTERN WORDS FOR CHAR DISPL. PATRN, 4522 /AT SIGN NOLIST 1645 4477 /A 7744 5177 /B 2651 4136 /C 2241 4177 /D 3641 4577 /E 4145 4477 /F 4044 4136 /G 2645 1077 /H 7710 7741 /I 0041 4142 /J 4076 1077 /K 4324 177 /L 301 3077 /M 7730 3077 /N 7706 4177 /O 7741 4477 /P 3044 4276 /Q 376 4477 /R 3146 5121 /S 4651 4040 /T 4077 177 /U 7701 176 /V 7402 677 /W 7701 1463 /X 6314 770 /Y 7007 4543 /Z 6151 7700 /[ 0041 1020 /\ 0204 4100 /] 0077 2000 /^ 2077 3410 /BACK ARROW 1010 0 /SPACE 0 7500 /! 0 6060 /" 0 3614 /NUMBER SIGN 1436 7721 /DOLLAR SIGN 4677 1446 /% 6130 5166 /& 0526 5000 /APOSTROPHY 60 0000 /( 4136 3641 /) 0000 2050 /* 50 404 /+ 437 0500 /, 0006 404 /- 404 1 /. 0 601 // 4030 4136 /0 3641 2101 /1 177 4523 /2 2151 4122 /3 2651 2414 /4 477 5172 /5 651 1506 /6 4225 4443 /7 6050 5126 /8 2651 5120 /9 3651 4200 /: 0 4201 /; 0 2410 /< 0042 1212 /= 1212 4200 /> 1024 4020 /? LIST PATEND, 2055 /END OF PATRNS TABLE DFLD, 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7777 7777 FLD, 0