[SUPUNLNC
[PROGRAM TO PUNCH PAPER TAPE FOR SUSAN WEINBERGER MACHINE
[MODIFIES FROM SUPUNCH IN LAP6-DIAL
$20
JMP 1I  [INITIALIZE
#1A OPRi1
SAEi
0215   [RETURN
JMP p+2
JMP 1E  [ASSEMBLE AND PRINT
SAEi
0377  [RUBOUT
JMP p+2
JMP 1D  [START AFRESH
OPRi2
ADAi
-260
APO
JMP 1A  [NOT DIGIT, IGNORE
ADAi
-3
APOi
JMP 1D  [START AFRESH
ADAi
3
AZEi
JMP 1D  [ZERO ILLEGAL, START AFRESH
STAi10
XSKi11
XSKi12  [HAVE WE EXCEEDED 6 ENTRY MAX
JMP 1A
JMP 1D
[DELETE
#1D LDAi
243
OPRi2
SROi
3737
JMP 1D
[INITIALIZE
#1I OPR 1
CLR
OPR 2
JMP 1C
SROi
3333
JMP p-3
SETi10
1L-1
SETi11
0
SETi12
-7
JMP 1A
[CARR.RETURN AND LINE FEED
0000
#1C LDA
0
STC 1C-1
LDAi
215
OPRi2
LDAi
212
OPRi2
JMP 1C-1
[ASSEMBLE AND TYPE LIST
#1E SETi15
1P-1
SETi16
-30
CLR
STAi15
XSKi16
JMP p-2
SETi15
1P-1
LDA
11
AZEi
JMP 1D [NO LIST
COM
STA
16
[LEVER COMBINATIONS
ADAi
1L-1
STC 13
SETi14
1L-1
LDAi
4000  [SET START BIT ON FIRST CODE ONLY
JMP p+2
CLR
ADAi14
ROL 1
BSEi13
STAi15
XSKi16
JMP p-6
LDA 15
BSEi
0200  [STOP BIT
STA 15
[EJECT PAPER
JMP 1C
SROi
3333
JMP p-3
[PRINT LIST
SETi15
1P-1
#1B JMP 1C
LDAi15
AZEi
JMP 1F  [STOP AT END OF LIST
ROR 3
BCLi
7770
BSEi
0260
OPRi2
LDA 15
ROR 1
BCLi
7774
BSEi
0260
OPRi2
JMP 1B
[RESPONSE REQUESTED
#1F JMP 1C
LDAi
0277  [QUERY
OPRi2
OPRi1 [WAIT FOR REPLY
SAEi
0377
JMP p+2
JMP 1D
SAEi
0307  [G FOR GO
JMP 1F  [IGNORE OTHER CHARACTERS
[PUNCH
JMP 1H
SETi7
-12
#1G LDAi
17
ADD 11
COM
STC 16
SETi15
1P-1
LDAi15
OPRi2
XSKi16
JMP p-3
XSKi7
JMP 1G  [COMPLETE 12 SEQUENCES
JMP 1H
JMP 20
[PUNCH BLANK TAPE
#1H LDA
0
STC p+10
OPRi2  [PUNCH BLANKS
SROi
3777
JMP p-3
SROi
3333
JMP p-6
JMP 0000 [RETURN JUMP
[LISTS
[LIGHT LIST
0050
0060
0040
0020
0010
0030
[LEVER LIST
#1L 0
0
0
0
0
0
0
0
[PRINT LIST
#1P 0
0
0
0
0
0
0
0
0
[END FOR NOW
[SUPUNLNC
[20 JAN 78