[IOCHAR
[
[SUBROUTINES FOR LETTERS, NUMBERS
[
[#8A, ALPHANUMERIC DISPLAY, GIVES WORDS
[#8B, BINARY-OCTAL DISPLAY, GIVES OCTAL NUMBERS
[#8D, DECIMAL DISPLAY, GIVES DECIMAL NUMBERS
[
[
[
[BINARY-OCTAL DISPLAY
[ENTER AT 8B
[CALL: JMP 8B
[      ADDRESS OF #
[      X COORD.
[      Y COORD.
[
#8B LDA
0
SET i 11
8D+107 [8**N
JMP p+5
[
[
[DECIMAL DISPLAY
[ENTER AT 8D
[CALL: JMP 8D
[      ADDRESS OF #
[      X COORD.
[      Y COORD.
[
#8D LDA
0
SET i 11
8D+113 [10**N
JMP 8D+145 [INIT
JMP 8D+36 [DECODE
[OUTPUT
JMP 8D+11 [DIS CON
STC 8D+20 [SWITCH
JMP <RETURN>
[
[
[DISPLAY CONTROLLER
[IGNORES LEADING ZEROES
[PUTS PATTERN WORD IN 10
[
ADD 0
STC p+23
SRO i
4210
JMP p+11
ADD 12
ADM i
<SWITCH>
AZE
JMP p+4
SET i 12 [LEADING 0
8D+143 [BLANK
JMP p+7
LDA [GET #
12
ROL 1
ADA i
8D+117 [FWA # PATTERNS
STC 12
JMP 8D+177 [F DIS
JMP <RETURN>
[
[
[DECODE OCTAL, DECIMAL
[USED IN DIS, TTY
[11: FWA DECODE LIST
[INTERNAL: ADDRESS OF #
[CALL: JMP FWA
[      JMP DISPATCH
[      <NEXT INSTR>
[
ADD 0
BCL i
JMP-ADD
STC p+1
<ADD DISPATCH>
STC p+37
XSK i 0
ADD 0
STC p+40
LDA
<NUMBER ADDRESS>
STC p+7
SET i 12
1777 [DIGIT CTR
XSK i 12
LDA 11
COM
LAM i
<TEMP>
LZE i
JMP p+6
STC p+4
LAM
p-5
JMP p-12
<GARBAGE>
APO i
JMP p-15
AZE i
XSK i 12
AZE
ADA 11
AZE i
CLR
STC p-20 [TEMP
XSK i 11
<DISPATCH>
SRO i
3567
JMP p-33
JMP <RETURN>
[
[NUMBERS FOR DECODE
1000 [OCTAL
100
10
1
1750 [DECIMAL
144
12
1
[
[NUMERICAL PATTERNS
4136 [0
3641
2100 [1
0177
4523 [2
2151
4122 [3
2651
2414 [4
0477
5172 [5
0651
1506 [6
4225
4443 [7
6050
5126 [8
2651
5131 [9
3452
0000 [BLANK
0000
[
[
[INITIALIZE 8A, 8B, 8D
[GETS ADDRESS OF # OR LIST
[GETS X, Y COORD.
[SETS DISPLAY SIZE
[FORMS FINAL RETURN
[ENTER WITH CALL+1 IN ACC
[
BCL i
JMP
STC 12
LDA 12
STA [#, LIST
8D+50
STA
p+6
COM
APO
ADD 8K+2
ADD 8K+2
ADA i
<NUM>
STC 8D+206 [INCR
LDA i 12
STC 10 [X COORD
LDA i 12
STC 8D+202 [Y COORD
ADD 12
ADD p-23 [JMP
ADD 8K+1 [1
STA  [RETURNS
8D+10
STC 8A+11
JMP 0
[
[
[FINAL DISPLAY
[DISPLAYS ONE CHAR FROM LIST
[10: FWA PATTERN WORD
[12: X COORDINATE
[INTERNAL: Y COORD.
[          INCREMENT
[FULL OR HALF-SIZE
[
ADD 0
STC p+31 [RETURN
LDA i
<Y>
SRO 12
DIS 10
ADA i
<INCR> [2 OR 4
SRO i
3737
JMP p-6
LDA
p-5
ADM
10
SRO i
2525
JMP p-17
XSK i 12
SRO i
2525
JMP p-23
LDA
10
ADD p-21
STC 10
JMP <RETURN>
[
[
[ALPHANUMERIC DISPLAY
[ENTER AT 8A
[CALL: JMP 8A
[      FWA LIST OF PATTERN WORDS
[      X COORD.
[      Y COORD.
[# OF CHARACTERS IN ACC
[
#8A COM
STC 11
ADD 0
JMP 8D+145 [INIT
ADD 8D+162 [FWA LIST
STC 12
JMP 8D+177 [F DIS
XSK i 11
JMP p-2
JMP <RETURN>
[
[