                        super c on s o l e 
 d e f i n e 	 w a i t 
 	 l a c   ( 4 0 0 000
	dac  re g
	isp re g
	jm p .- 1
	terminate
sta,	0
	dap b eg-1
	la c   sta
	dap  . 1
	lac s ta
	s za
	jmp .-2
	jmp .
beg,	lap
	and (70000
	dip a13
	dip a21
	dip a33
	dip a41
	dip a51
	dip b12
	dip b23
	dip b31
	dip b41
	dip pib
	dip eib
	dip b51
	dip b51 1
be1,	lat
	and (70000
	dac bnk
	lat
	and (7
	dac tu
	sza i
	jmp beg
st,	wait
	lat
	and (700000
	sza
	jmp be1
	szs 10
	jmp a
	jmp b
a,	szs 20
	jmp aa
	szs 30
	jmp aa
	szs 40
	jmp aa
	szs 50
	jmp aa
	szs 60
	jmp aa
	jmp st
aa,	szs 20
	jmp a1
	szs 30
	jmp a2
	szs 40
	jmp a3
	szs 50
	jmp a4
	szs 60
	jmp a5
	jmp st
b,	szs 20
	jmp b1
	szs 30
	jmp b2
	szs 40
	jmp b3
	szs 50
	jmp b4
	szs 60
	jmp b5
	jmp st
a1,	lac bnk
	add (7777
	dac buf
a11,	lac i buf
	sza
	jmp a12
	lac buf
	sad bnk
	jmp st
	sub (1
	dac buf
	jmp a11
a12,	lac buf
	and (7777
	add (1
	dac a15
	lac bnk
	dac a14
	cal 43
	0
a13,	. 3
a14,	0
a15,	0
	law .-4
	jda sta
	jmp st
a2,	lac bnk
	dac a22
	cal 41
	0
a21,	. 3
a22,	0
	7777
	law .-4
	jda sta
	jmp st
a3,	lat
	and (777
	dac a34
	lac tu
	ior (011100
	rcl 9s
	rcl 9s
	cal 61
	0
a33,	. 3
	1
a34,	0
	law .-4
	jda sta
	jmp st
a4,	lac bnk
	dac a42
	add (7777
	dac a43
	lac tu
	ior (011300
	rcl 9s
	rcl 9s
	cal 61
	0
a41,	. 3
a42,	0
a43,	0
	law .-4
	jda sta
	jmp st
a5,	lac bnk
	dac a52
	add (7777
	dac a53
	lac tu
	ior (011700
	rcl 9s
	rcl 9s
	cal 61
	0
a51,	. 3
a52,	0
a53,	0
	law .-4
	jda sta
	jmp st
b1,	lac tu
	ior (010100
	rcl 9s
	rcl 9s
	cal 61
	0
b12,	. 3
	666
	777
	law .-4
	jda sta
	jmp st
b2,	lat
	and (777
	dac b24
	lac tu
	ior (011000
	rcl 9s
	rcl 9s
	cal 61
	0
b23,	. 3
	1
b24,	0
	law .-4
	jda sta
	szs 50
	jmp b4
	jmp st
b3,	lac tu
	ior (010300
	rcl 9s
	rcl 9s
	cal 61
	0
b31,	. 3
	1
	1
	law .-4
	jda sta
	jmp st
b4,	lac tu
	ior (011600
	rcl 9s
	rcl 9s
	cal 61
	0
b41,	. 3
pib,	r
eib,	r 33
	law .-4
	jda sta
	szs 60
	jmp b5
	jmp st
b5,	lac (r
	dap b52
	dap xyz
xyz,	lio r
	cla
	rcl 6s
	add (tbl
	dap . 1
	lac .
	ral 6s
	ral 6s
	dac t1
	cla
	rcl 6s
	add (tbl
	dap . 1
	lac .
	ral 6s
	dac t2
	cla
	rcl 6s
	add (tbl
	dap . 1
	lac .
	ior t2
	ior t1
b52,	dac r
	idx .-1
	idx xyz
	sas (lio r 32
	jmp xyz
	lac (r 32
	dap b53
b53,	lac r 32
	sza
	jmp b54
	lac b53
	sub (1
	dac b53
	sas (lac r-1
	jmp b53
	jmp st
b54,	lac (341300
	dac r 33
	cal 52
	0
b51,	. 3
	r-1
	35
	law .-4
	jda sta
	szs 50
	jmp b4
	jmp st
	constants
t,	0
	0
	0
	0
	0
buf,	0
bnk,	0
tu,	0
reg,	0
t1,	0
t2,	0
tbl,	0
	1
	2
	3
	4
	5
	6
	7
	10
	11
	20
	40
	0
	0
	0
	0
	0
	21
	22
	23
	24
	25
	26
	27
	30
	31
	0
	33
	57
	0
	0
	0
	54
	41
	42
	43
	44
	45
	46
	47
	50
	51
	0
	0
	0
	0
	0
	0
	0
	61
	62
	63
	64
	65
	66
	67
	70
	71
	0
	73
	55
	0
	0
	0
	0
	0
	007735
r,	0
	start beg
       
                                                                                                                           2
