[ [ DISPLAY #DISPLY KBD UMB 2 QNA QUES ANS SETi1 ANS SETi5 BUF8-1 [ [ FIRST OPTION -Y,N,P #PAR1 LDA 1 SHDi "Y " JMP PAR1Y SHDi "R " JMP PAR1R [ [ DEFAULT IS N LDAi "|N" STA 1 CLR STAi5 JMP PAR2 [ [ ANS IS Y #PAR1Y LDAi 1 STAi5 JMP PAR2 [ [ ANS IS R #PAR1R LDAi -1 STAi5 JMP PAR2 T [ SECOND OPTION- PRINT ALL MIN-MAX #PAR2 LDAi1 SHDi "Y " JMP p+5 [ [ DEFAULT IS N LDAi "|N" STA 1 CLR STAi5 JMP PAR3 [ [ PARAMETERS 3 THROUGH 7 #PAR3 LDAi -5 STA A29H [ SET TO 4 PLACES STC 6 [ ITEM COUNTER DTOB CLR [ ERROR STAi5 LDHi1 XSKi6 JMP p-5 [ [ PARAMETER 8 - INPUT CHAN # LDHi1 LDHi1 BCLi 7770 STAi5 ADAi SAM 10 STC SAMPL [ [ FIX UP TIMER LDA BUF8+6 STA 13 COM STC TIMEP HLT JMP DISPLY [ [ #TIMEP 0 #SAMPL 0 #BUF8 0 $200 #ANS 0 $300 #QUES " ENTER CONTROL |1 PRINT .Y, N, R. |1 ALL MIN-MAX .Y, N. |4 X-DAC |4 Y-DAC |4 PULSE HEIGHT |4 PULSE INTERVAL |4 INPUT SCALE .LT 1. |1 INPUT CHAN .0 TO 9. RESULTS " #PR1 " MAX TRIANGLE " #PR2 " MIN TRIANGLE " #PR3 " MAX - MIN " #PR4 " PULSE HEIGHT :" T QNA=JMP p [ [ Q AND A ROUTINE #A39O LDAi 2 ADD 0 STAi 0 ADD p+133 STC 1 LDA 1 ADD p+170 STC p+35 LDAi 1 STC p+26 STC 6 SET 3 p+23 SET 4 p+26 JMP p+125 JMP p+3 JMP p+14 JMP p-3 STH 3 LDHi 4 COM STC 6 ADD p+202 LDHi 3 XSKi 6 JMP p-2 LDHi 3 JMP p-15 STH 3 SETi 4 0 LDAi 376 STC p+12 SETi 3 0 SET 5 p-7 SETi 1 5 LDAi -40 ADMi 0 LDHi 3 JMP p+67 JMP p+303 JMP p+17 SHDi 1200 JMP p-14 JMP p+71 JMP p-10 JMP p+67 SROi 0 DIS 1 LDHi 5 JMP p+52 JMP p-17 JMP p-20 JMP p-10 KST JMP p-40 KBD SETi 2 p+233 SHD 2 JMP p+121 SHDi 2 JMP p-105 XSK 6 JMP p-51 SHDi 2 JMP p+20 SHDi 2 JMP p+131 SHDi 2 JMP p+21 JMP p+25 JMP p-106 JMP p-62 STC p+5 JMP p+20 JMP p+50 JMP p+47 LDAi 0 STH 4 JMP p-72 LDH 4 JMP p+11 JMP p-75 -6002 JMP p+36 JMP p+4 JMP p-101 JMP p-104 JMP p-3 LDHi 4 SHDi 2100 JMP 0 SAEi 76 XSKi 0 XSKi 0 JMP 0 ROL 1 ADD p+163 STC 2 ADD p+20 ADD 1 STC 1 ADD 5 COM ADD 4 AZE CLR STC p-100 ADD p-115 DSC 2 DSCi 2 JMP 0 LDAi -4000 ADM 4 JMP p-141 [CHARACTER PATTERNS [KBD 0:CODE 00 4136 3641 [1:01 2101 0177 [2:02 4523 2151 [3:03 4122 2651 [4:04 2414 0477 [5:05 5172 0651 [6:06 1506 4225 [7:07 4443 6050 [8:10 5126 2651 [9:11 5122 3651 [EOL:12 KBDi ADD p-212 [DEL:13 JMP 0 67 [SPACE:14 0000 0000 [i:15 0101 0126 [p:16 3700 3424 [-:17 0404 0404 [+:20 0404 0437 [|:21 0000 0077 [#:22 JMP p-102 JMP p-52 [CASE:23 JMP p-53 JMP p-211 [A:24 4477 7744 [B:25 5177 2651 [C:26 4136 2241 [D:27 4177 3641 [E:30 4577 4145 [F:31 4477 4044 [G:32 4136 2645 [H:33 1077 7710 [I:34 7741 0041 [J:35 4142 4076 [K:36 1077 4324 [L:37 0177 0301 [M:40 3077 7730 [N:41 3077 7706 [O:42 4177 7741 [P:43 4477 3044 [Q:44 4276 0376 [R:45 4477 3146 [S:46 5121 4651 [T:47 4040 4077 [U:50 0177 7701 [V:51 0176 7402 [W:52 0677 7701 [X:53 1463 6314 [Y:54 0770 7007 [Z:55 4543 6151 [META [56 [CASE EOL 2356 1322 [57 [CASE DEL 1200 p-137 [:60 [CASE SPACE 4020 2055 [=:61 [CASE i 1212 1212 [u:62 [CASE p 0107 0107 [,:63 [CASE - 0500 0006 [.:64 [CASE + 0001 0000 [$:65 [CASE | 4577 7745 [[:66 [CASE # 4177 0000 [_:67 [CASE CASE 0101 0101 [":70 [CASE A LDHi 3 LDAi [":71 [CASE B 14 JMP p-277 [<:72 [CASE C 2410 0042 [>:73 [CASE D 4200 1024 []:74 [CASE E 0000 7741 [*:75 [CASE F 2050 0050 [::76 [CASE G [UNDEFINED:77 [Q+AR T [ [ ENTRY TO FILL ANSWER BUF #QNF LDAi STHi 3 STC A39O+32 LMB 1 JMP 0 [ [ USE THE EXISTING ANSWERS #QNU LDAi LDHi 3 STC A39O+32 LMB 1 JMP 0