Transactor/Transactor_09_1986_Transactor_Publishing.d64

Commodore Disk Image | 1988-01-01 | 170.8 KB

 jsr,  7,  32, and, 11,  33, bit,  4,  36
&${$e6}
 and,  4,  37, rol,  4,  38, plp,  1,  40, and,  2,  41
C${$f0}
 rol, 13,  42, bit,  7,  44, and,  7,  45, rol,  7,  46
 ${$fa}
 bmi,  3,  48, and, 12,  49, and,  5,  53, rol,  5,  54
{SHIFT--}$ sec,  1,  56, and,  9, 1){CBM-R}J(he$,w{CBM-N}1,1) {CBM-M} 2670
{$f0}!D
w:m{CBM-R}l2:m:de{CBM-R}0:

"N
de{CBM-R}de{CBM-N}w{CBM-D}(10{CBM-S}(l2{CBM-Q}m)):m:
"X

6"
 end of program - close files
G"
p${CBM-R}" ;":2150:p${CBM-R}"  .end":2150: 1:2450: 15
"
" un-assembly complete":
"

{CBM-U}"{CBM-N}
 mnemonic, addressing mode, hex code
{$f5}"{CBM-H}
 brk
































































































































































































































































M
 {CBM-+} convert string (an$) to decimal (de) and hex (h$)
' {CBM-A}hd{CBM-R}0:l2{CBM-R}0:l3{CBM-R}1:l4{CBM-R}C(an$):hn{CBM-R}3
; {SHIFT-@}a1${CBM-R}J(an$,l3,1)
q D a1${CBM-W}{CBM-E}G(32){CBM-M}2540
] Nl3{CBM-R}l3{CBM-N}1
X X l3{CBM-E}l4 {CBM-M} de{CBM-R}0:2080:
 {$e2}2490
{CBM-K} {$ec} a1${CBM-R}G(36) {CBM-M} hd{CBM-R}1:l3{CBM-R}l3{CBM-N}1
{SHIFT-*} {$f6}l2{CBM-R}l4{CBM-Q}l3{CBM-N}1:h${CBM-R}J(an$,l3,l2)
{SHIFT-+}

 225, cpx,  4, 228, sbc,  4, 229
+ inc,  4, 230, inx,  1, 232, sbc,  2, 233, nop,  1, 234
l+ cpx,  7, 236, sbc,  7, 237, inc,  7, 238, beq,  3, 240
+ sbc, 12, 241, sbc,  5, 245, inc,  5, 246, sed,  1, 248
{CBM-U}+& sbc,  9, 249, sbc,  8, 253, inc, ea {CBM-M} "disk error";ea;eb$;""
{$f3}{CBM-L}
{$f9}{SHIFT-*}
!J open file and get first two bytes
:T1,8,12,f$:{CBM-K}#1,a$,b$
h{$de} ps{CBM-W}{CBM-R}2{CBM-M}
I{$e8} p{CBM-W}(sa{CBM-Q}1){CBM-M}2090:p{CBM-R}p{CBM-N}1:2280
O{$f2}
U{$fc}
 open source file
{CBM-X}ot${CBM-R}"d"{CBM-M}p${CBM-R}"@"{CBM-N}nf${CBM-N}",s,w":6,8,3,p$:2220:
Got{CBM-M}
 a,  7, 173, ldx,  7, 174, bcs,  3, 176, lda, 12, 177
'){CBM-U} ldy,  5, 180, lda,  5, 181, ldx,  6, 182, clv,  1, 184
D)B lda,  9, 185, tsx,  1, 186, ldy,  8, 188, lda,  8, 189
{CBM-K})L ldx,  9, 190, cpy,  2, 192, cmp, 11, 193, cpy,  4, 196
{$de})V cmp,  4, 1970:bc{CBM-R}bc{CBM-N}1
p${CBM-R}"        "{CBM-N}".byte $"{CBM-N}h${CBM-N}";<this was a bit instruction>"
$2150:
*
I  read a byte (a$) from file and calculate ascii value (q)
*{CBM-K}#1,a$:q{CBM-R}F(a${CBM-N}n1$)::
4
{CBM-I}> decode instruction
{SHIFT-*}hp{CBM-R}p{CBM-N}1:n${CBM-R}mn$(q):n{CBM-R}md(q):
Fr
{$eb}\ oor,  5, 118
'^ sei,  1, 120, adc,  9, 121, adc,  8, 125, ror,  8, 126
?'H sta, 11, 129, sty,  4, 132, sta,  4, 133, stx,  4, 134
{$7c}'R dey,  1, 136, txa,  1, 138, sty,  7, 140, sta,  7, 141
{CBM-O}'{$7c} stx,  7, 142, bcc,  3, 144, sta, 12, 145, sty,  5, 14































































































































































































































































 57, and,  8,  61, rol,  8,  62
% rti,  1,  64, eor, 11,  65, eor,  4,  69, lsr,  4,  70
w% pha,  1,  72, eor,  2,  73, lsr, 13,  74, jmp,  7,  76
%" eor,  7,  77, lsr,  7,  78, bvc,  3,  80, eor, 12,  81
Q%, eor,  5,  85, lsr,  5,  86, cli,
,  1,   0, ora, 11,   1, ora,  4,   5, asl,  4,   6
2#{CBM-V}
 php,  1,   8, ora,  2,   9, asl, 13,  10, ora,  7,  13
O#H
 asl,  7,  14, bpl,  3,  16, ora, 12,  17, ora,  5,  21
{CBM-D}#R
 asl,  5,  22, clc,  1,  24, ora,  9,  25, ora,  8,  29
{$e9}#{CBM--}
 asl,  8,  30,































































































































































































































































 hd{CBM-R}0 {CBM-M} 2640:2180:
{$e1}


!
 hex to decimal (h$ to de)
:!
de{CBM-R}0:m{CBM-R}1{CBM-@}l2:w{CBM-R}0{CBM-@}15: J(h$,m,1){CBM-R}J(he$,w{CBM-N}1,1) {CBM-M} 2610
p!(
w:m{CBM-R}l2:m:de{CBM-R}0:
M!2
de{CBM-R}de{CBM-N}w{CBM-D}(16{CBM-S}(l2{CBM-Q}m)):m:
S!<

!f
 string (h$) to decimal (de)
{CBM-L}!p
de{CBM-R}0:l2{CBM-R}C(h$):m{CBM-R}1{CBM-@}l2:w{CBM-R}0{CBM-@}9
Z!z
 J(h$,m,
  8, 254


198, iny,  1, 200, cmp,  2, 201
*  dex,  1, 202, cpy,  7, 204, cmp,  7, 205, dec,  7, 206
x*{$ea} bne,  3, 208, cmp, 12, 209, cmp,  5, 213, dec,  5, 214
*{$f4} cld,  1, 216, cmp,  9, 217, cmp,  8, 221, dec,  8, 222
R*{$fe} cpx,  2, 224, sbc, 11,$ot{CBM-R}1:ot${CBM-R}"p"{CBM-M}6,4:
{$eb}.6,3:
{$f1}8
b print pass number
cl"pass #";ps;" of the file to be decoded":ps{CBM-R}ps{CBM-N}1:
iv
I{$60} initialize the disk drive
J15,8,15,"i"{CBM-N}D(fd):
T15,"i"{CBM-N}D(fo):
{$7e}
{CBM-J} end of source file
G6,G(0);: 6:
, dec,  4, 198, iny,  1, 200, cmp,  2, 201
*  dex,  1, 202, cpy,  7, 204, cmp,  7, 205, dec,  7, 206
x*{$ea} bne,  3, 208, cmp, 12, 209, cmp,  5, 213, dec,  5, 214
*{$f4} cld,  1, 216, cmp,  9, 217, cmp,  8, 221, dec,  8, 222
R*{$fe} cpx,  2, 224, sbc, 11,utput data line for assembler
Fp${CBM-R}p${CBM-N}xx$:6,p$;:2220:lc{CBM-R}lc{CBM-N}1:
P
@Z decimal (de) to hex (h$) conversion
Vdx{CBM-R}de:h${CBM-R}"":m{CBM-R}hn{CBM-@}0{SHIFT-POUND}{CBM-Q}1:n%{CBM-R}dx{CBM-Z}(16{CBM-S}m):dx{CBM-R}dx{CBM-Q}n%{CBM-D}16{CBM-S}m
h${CBM-R}h${CBM-N}J(he$,n%{CBM-N}1,1)::

{CBM-L}{CBM-I} read disk error channel
{$ed}{CBM-D}15,ea,eb$,ec,ed:8
{$f6}' sta,  5, 149, stx,  6, 150, tya,  1, 152, sta,  9, 153
3( txs,  1, 154, sta,  8, 157, ldy,  2, 160, lda, 11, 161
P( ldx,  2, 162, ldy,  4, 164, lda,  4, 165, ldx,  4, 166
{CBM-Z}({CBM-@} tay,  1, 168, lda,  2, 169, tax,  1, 170, ldy,  7, 172
{$ea}({CBM-S} ld































































































































































































































































 1,  88, eor,  9,  89
&6 eor,  8,  93, lsr,  8,  94, rts,  1,  96, adc, 11,  97
k&@ adc,  4, 101, ror,  4, 102, pla,  1, 104, adc,  2, 105
&j ror, 13, 106, jmp, 10, 108, adc,  7, 109, ror,  7, 110
E&t bvs,  3, 112, adc, 12, 113, adc,  5, 117, r
8
{$f6}' sta,  5, 149, stx,  6, 150, tya,  1, 152, sta,  9, 153
3( txs,  1, 154, sta,  8, 157, ldy,  2, 160, lda, 11, 161
P( ldx,  2, 162, ldy,  4, 164, lda,  4, 165, ldx,  4, 166
{CBM-Z}({CBM-@} tay,  1, 168, lda,  2, 169, tax,  1, 170, ldy,  7, 172
{$ea}({CBM-S} ld 1,  88, eor,  9,  89
&6 eor,  8,  93, lsr,  8,  94, rts,  1,  96, adc, 11,  97
k&@ adc,  4, 101, ror,  4, 102, pla,  1, 104, adc,  2, 105
&j ror, 13, 106, jmp, 10, 108, adc,  7, 109, ror,  7, 110
E&t bvs,  3, 112, adc, 12, 113, adc,  5, 117, rting address
0{CBM-+}de{CBM-R}p{CBM-N}1:hn{CBM-R}3:2180:p${CBM-R}" *=$"{CBM-N}h${CBM-N}"; <starting address>":2150
6{CBM-A}
K{SHIFT-@} assign label values for addresses out of range
{$7c}D lo{CBM-R}0 {CBM-M}1270
{CBM-Q}Np${CBM-R}" ;<out of range jumps and subs>":2150
FXi{CBM-R}1{CBM-@}lo:de{CBM-R}l2(i):2180
{$fc}{$e2} i{CBM-R}lo{CBM-Q}lv{CBM-N}1 {CBM-M} p${CBM-R}" ;
 jsr,  7,  32, and, 11,  33, bit,  4,  36
&${$e6}
 and,  4,  37, rol,  4,  38, plp,  1,  40, and,  2,  41
C${$f0}
 rol, 13,  42, bit,  7,  44, and,  7,  45, rol,  7,  46
 ${$fa}
 bmi,  3,  48, and, 12,  49, and,  5,  53, rol,  5,  54
{SHIFT--}$ sec,  1,  56, and,  9,
{$ee}J
Tp{CBM-R}p{CBM-N}1: p{CBM-E}e {CBM-M}
{$de} ad{CBM-R}p {CBM-M} 1060
!{$e8}2090:
5{$f2}p{CBM-R}p{CBM-N}2: p{CBM-E}e {CBM-M}
n{$fc} ad{CBM-R}p{CBM-A}ad{CBM-R}p{CBM-Q}1{CBM-M} 1060
{$60}2090:2090:
F
 invalid label change to out of range label
F$lv{CBM-R}lv{CBM-N}1:lo{CBM-R}lo{CBM-N}1:l2(lo){CBM-R}ad:i{CBM-R}i{CBM-N}1:ad{CBM-R}l1(i):
L.
{$f3}8 print count of inva1){CBM-R}J(he$,w{CBM-N}1,1) {CBM-M} 2670
{$f0}!D
w:m{CBM-R}l2:m:de{CBM-R}0:

"N
de{CBM-R}de{CBM-N}w{CBM-D}(10{CBM-S}(l2{CBM-Q}m)):m:
"X

6"
 end of program - close files
G"
p${CBM-R}" ;":2150:p${CBM-R}"  .end":2150: 1:2450: 15
"
" un-assembly complete":
"

{CBM-U}"{CBM-N}
 mnemonic, addressing mode, hex code
{$f5}"{CBM-H}
 brkt{CBM-R}ad{CBM-M}lf{CBM-R}0:820
 t{CBM-W}ad{CBM-P}t{CBM-W}{CBM-E}0 {CBM-M} 820
3  t{CBM-E}ad{CBM-P}lf {CBM-M} l2(i){CBM-R}ad:ad{CBM-R}t:820
k* t{CBM-R}0{CBM-P}lf {CBM-M} l2(i){CBM-R}ad
{$60}4: lf {CBM-M} lo{CBM-R}lo{CBM-N}1
F>
Lh
r print summary of label counts
{CBM-U}\" number of in range labels: ";lb
{$e4}F" number of out of range labels: ";lo
{$ea}PM
 {CBM-+} convert string (an$) to decimal (de) and hex (h$)
' {CBM-A}hd{CBM-R}0:l2{CBM-R}0:l3{CBM-R}1:l4{CBM-R}C(an$):hn{CBM-R}3
; {SHIFT-@}a1${CBM-R}J(an$,l3,1)
q D a1${CBM-W}{CBM-E}G(32){CBM-M}2540
] Nl3{CBM-R}l3{CBM-N}1
X X l3{CBM-E}l4 {CBM-M} de{CBM-R}0:2080:
 {$e2}2490
{CBM-K} {$ec} a1${CBM-R}G(36) {CBM-M} hd{CBM-R}1:l3{CBM-R}l3{CBM-N}1
{SHIFT-*} {$f6}l2{CBM-R}l4{CBM-Q}l3{CBM-N}1:h${CBM-R}J(an$,l3,l2)
{SHIFT-+}

 225, cpx,  4, 228, sbc,  4, 229
+ inc,  4, 230, inx,  1, 232, sbc,  2, 233, nop,  1, 234
l+ cpx,  7, 236, sbc,  7, 237, inc,  7, 238, beq,  3, 240
+ sbc, 12, 241, sbc,  5, 245, inc,  5, 246, sed,  1, 248
{CBM-U}+& sbc,  9, 249, sbc,  8, 253, inc,:ad{CBM-E}{CBM-R}s{CBM-P}ad{CBM-W}{CBM-R}e{CBM-M}1880
n op{CBM-W}{CBM-E}32{CBM-P}op{CBM-W}{CBM-E}76{CBM-P}op{CBM-W}{CBM-E}108{CBM-A}ad{CBM-R}0 {CBM-M} p${CBM-R}pp${CBM-N}"$"{CBM-N}h${CBM-N}",y"
(x2150:
.B
bL indirect mode
YV2090:ad{CBM-R}q:2090:ad{CBM-R}ad{CBM-N}q{CBM-D}mh:p{CBM-R}p{CBM-N}2:de{CBM-R}ad:hn{CBM-R}3:2180
p${CBM-R}pp${CBM-N}"(ad"{CBM-N}h${CBM-N}")":2150:

{CBM-X} x-indexed indirect mode
{$fa}2090:p{CBM-R}p{CBM-N}1:de{CBM-R}qa,  7, 173, ldx,  7, 174, bcs,  3, 176, lda, 12, 177
'){CBM-U} ldy,  5, 180, lda,  5, 181, ldx,  6, 182, clv,  1, 184
D)B lda,  9, 185, tsx,  1, 186, ldy,  8, 188, lda,  8, 189
{CBM-K})L ldx,  9, 190, cpy,  2, 192, cmp, 11, 193, cpy,  4, 196
{$de})V cmp,  4, 197
or,  5, 118
'^ sei,  1, 120, adc,  9, 121, adc,  8, 125, ror,  8, 126
?'H sta, 11, 129, sty,  4, 132, sta,  4, 133, stx,  4, 134
{$7c}'R dey,  1, 136, txa,  1, 138, sty,  7, 140, sta,  7, 141
{CBM-O}'{$7c} stx,  7, 142, bcc,  3, 144, sta, 12, 145, sty,  5, 14   <invalid labels>":2150
 {$ec}p${CBM-R}"     ad"{CBM-N}h${CBM-N}"=$"{CBM-N}h$:2150:
2{$f6}lt{CBM-R}1:t{CBM-R}l1(lt)
c
lc{CBM-W}{CBM-E}lf{CBM-M}1350
i

P after 1000 lines create new file
{CBM-Z}nf${CBM-R}of${CBM-N}J(D(nf),2){CBM-N}".s":p${CBM-R}";":2150:p${CBM-R}".fil"{CBM-N}nf$:2150
P(2450:nf{CBM-R}nf{CBM-N}1:lc{CBM-R}1:2320:2220
V2
{$f3}< sta 57, and,  8,  61, rol,  8,  62
% rti,  1,  64, eor, 11,  65, eor,  4,  69, lsr,  4,  70
w% pha,  1,  72, eor,  2,  73, lsr, 13,  74, jmp,  7,  76
%" eor,  7,  77, lsr,  7,  78, bvc,  3,  80, eor, 12,  81
Q%, eor,  5,  85, lsr,  5,  86, cli, lid addresses
'b lv {CBM-W}{CBM-E}0 {CBM-M} " number of invalid addresses: "lv
-l
wv fourth pass - output assembler code
A{$60}2380
GJ
T open source and machine code files
{CBM-Z}{$7e}nf${CBM-R}of${CBM-N}"1.s":p{CBM-R}s{CBM-Q}1:nf{CBM-R}2
M2320:2220:2260:nf{CBM-R}2:lc{CBM-R}1
S
{$f0} write star,  1,   0, ora, 11,   1, ora,  4,   5, asl,  4,   6
2#{CBM-V}
 php,  1,   8, ora,  2,   9, asl, 13,  10, ora,  7,  13
O#H
 asl,  7,  14, bpl,  3,  16, ora, 12,  17, ora,  5,  21
{CBM-D}#R
 asl,  5,  22, clc,  1,  24, ora,  9,  25, ora,  8,  29
{$e9}#{CBM--}
 asl,  8,  30,
Z third pass - check if all labels valid
) lb{CBM-R}0 {CBM-M} 1120
l2380:p{CBM-R}s{CBM-Q}1:2260:i{CBM-R}1:ad{CBM-R}l1(i)
Q2090:2120:ad{CBM-R}p{CBM-M}i{CBM-R}i{CBM-N}1:ad{CBM-R}l1(i)
{CBM-+}{CBM-I} n 970,980,980,980,980,980,1010,1010,1010,1010
M{CBM-D} n{CBM-E}10 {CBM-M}  (n{CBM-Q}10) 980,980,970,970
{SHIFT-+}{CBM-L}p{CBM-W}{CBM-R}e{CBM-M}920
{$e8}{SHIFT-*} 1:1090 hd{CBM-R}0 {CBM-M} 2640:2180:
{$e1}


!
 hex to decimal (h$ to de)
:!
de{CBM-R}0:m{CBM-R}1{CBM-@}l2:w{CBM-R}0{CBM-@}15: J(h$,m,1){CBM-R}J(he$,w{CBM-N}1,1) {CBM-M} 2610
p!(
w:m{CBM-R}l2:m:de{CBM-R}0:
M!2
de{CBM-R}de{CBM-N}w{CBM-D}(16{CBM-S}(l2{CBM-Q}m)):m:
S!<

!f
 string (h$) to decimal (de)
{CBM-L}!p
de{CBM-R}0:l2{CBM-R}C(h$):m{CBM-R}1{CBM-@}l2:w{CBM-R}0{CBM-@}9
Z!z
 J(h$,m,
  8, 254


198, iny,  1, 200, cmp,  2, 201
*  dex,  1, 202, cpy,  7, 204, cmp,  7, 205, dec,  7, 206
x*{$ea} bne,  3, 208, cmp, 12, 209, cmp,  5, 213, dec,  5, 214
*{$f4} cld,  1, 216, cmp,  9, 217, cmp,  8, 221, dec,  8, 222
R*{$fe} cpx,  2, 224, sbc, 11,:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"($"{CBM-N}h${CBM-N}",x)":2150:

{CBM-POUND}
{CBM-R} y-indexed indirect mode
[{CBM-C}2090:p{CBM-R}p{CBM-N}1:de{CBM-R}q:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"($"{CBM-N}h${CBM-N}"),y":2150:
AF
XP accumulator mode
Zp${CBM-R}pp${CBM-N}"a":2150:
{$e4}
{CBM-C}{$ee} bit converted to .byte operation
Y{$f8}de{CBM-R}op:hn{CBM-R}1:218, dec,  4, 198, iny,  1, 200, cmp,  2, 201
*  dex,  1, 202, cpy,  7, 204, cmp,  7, 205, dec,  7, 206
x*{$ea} bne,  3, 208, cmp, 12, 209, cmp,  5, 213, dec,  5, 214
*{$f4} cld,  1, 216, cmp,  9, 217, cmp,  8, 221, dec,  8, 222
R*{$fe} cpx,  2, 224, sbc, 11,

Z third pass - check if all labels valid
) lb{CBM-R}0 {CBM-M} 1120
l2380:p{CBM-R}s{CBM-Q}1:2260:i{CBM-R}1:ad{CBM-R}l1(i)
Q2090:2120:ad{CBM-R}p{CBM-M}i{CBM-R}i{CBM-N}1:ad{CBM-R}l1(i)
{CBM-+}{CBM-I} n 970,980,980,980,980,980,1010,1010,1010,1010
M{CBM-D} n{CBM-E}10 {CBM-M}  (n{CBM-Q}10) 980,980,970,970
{SHIFT-+}{CBM-L}p{CBM-W}{CBM-R}e{CBM-M}920
{$e8}{SHIFT-*} 1:1090:ad{CBM-E}{CBM-R}s{CBM-P}ad{CBM-W}{CBM-R}e{CBM-M}1880
n op{CBM-W}{CBM-E}32{CBM-P}op{CBM-W}{CBM-E}76{CBM-P}op{CBM-W}{CBM-E}108{CBM-A}ad{CBM-R}0 {CBM-M} p${CBM-R}pp${CBM-N}"$"{CBM-N}h${CBM-N}",y"
(x2150:
.B
bL indirect mode
YV2090:ad{CBM-R}q:2090:ad{CBM-R}ad{CBM-N}q{CBM-D}mh:p{CBM-R}p{CBM-N}2:de{CBM-R}ad:hn{CBM-R}3:2180
p${CBM-R}pp${CBM-N}"(ad"{CBM-N}h${CBM-N}")":2150:

{CBM-X} x-indexed indirect mode
{$fa}2090:p{CBM-R}p{CBM-N}1:de{CBM-R}q{CBM-@}lb{CBM-N}1:t{CBM-R}l1(i):t{CBM-R}ad{CBM-M}lf{CBM-R}0:720
!
{CBM-R} t{CBM-W}ad{CBM-P}t{CBM-W}{CBM-E}0 {CBM-M} 720
d
{CBM-C} t{CBM-E}ad{CBM-P}lf {CBM-M} l1(i){CBM-R}ad:ad{CBM-R}t:720
\
F t{CBM-R}0{CBM-P}lf {CBM-M} l1(i){CBM-R}ad
Q
P: lf {CBM-M} lb{CBM-R}lb{CBM-N}1
W
Z
{$7d}
{$e4}
{CBM-G}
{$ee} labels for addresses out of range
B
{$f8}op{CBM-W}{CBM-E}32{CBM-P}op{CBM-W}{CBM-E}76{CBM-P}op{CBM-W}{CBM-E}108{CBM-M}
O
 ad{CBM-R}0{CBM-M}
{$fa}
lf{CBM-R}1:i{CBM-R}1{CBM-@}lo{CBM-N}1:t{CBM-R}l2(i):
h${CBM-N}",y":2150:
{$ed}{CBM-S}
{CBM-U} absolute mode
8B2090:ad{CBM-R}q:2090:ad{CBM-R}ad{CBM-N}q{CBM-D}mh:p{CBM-R}p{CBM-N}2:de{CBM-R}ad:hn{CBM-R}3:2180
]Lp${CBM-R}pp${CBM-N}"ad"{CBM-N}h$:ad{CBM-E}{CBM-R}s{CBM-P}ad{CBM-W}{CBM-R}e{CBM-M}1760
V op{CBM-W}{CBM-E}32{CBM-P}op{CBM-W}{CBM-E}76{CBM-P}op{CBM-W}{CBM-E}108{CBM-A}ad{CBM-R}0 {CBM-M} p${CBM-R}pp${CBM-N}"$"{CBM-N}h$
 2150:
 {$ea}
{CBM-V}{$f4} x-indexed absolute mode
{$f5}{$fe}2090:ad{CBM-R}q:2090:ad{$ea}2480:sa{CBM-R}de: sa{CBM-R}0{CBM-M}sa{CBM-R}s
c{$f4} sa{CBM-W}s{CBM-A}sa{CBM-R}{CBM-E}e{CBM-M}"error - out of range address":480
i{$fe}
S second pass - construct label table
2380:p{CBM-R}s{CBM-Q}1:2260
2090:2120:op{CBM-R}q
{CBM-*}& n 580,590,630,590,590,590,600,600,600,600,590,590,580,580
{$ed}0p{CBM-W}{CBM-R}e{CBM-M}540
{$f9}
{$e8}{$f0}2150:
{$ee}{$fa}
 immediate mode
:2090:de{CBM-R}q:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"#$"{CBM-N}h$:2150:p{CBM-R}p{CBM-N}1:
@
_" relative mode (branches)
,2090:ad{CBM-R}p{CBM-N}q{CBM-N}(q{CBM-E}127){CBM-D}mh{CBM-N}2:de{CBM-R}ad:hn{CBM-R}3:2180
{CBM-E}6ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}p${CBM-R}pp${CBM-N}"$"{CBM-N}h$:1610
D@p${CBM-R}pp${CBM-N}"ad"{CBM-N}h$
Vj2150:p{CBM-R}p{CBM-N}1:
{CBM--}trt reading op codes
f2090:op{CBM-R}q:2120
p
7z check if this is a labeled address
uDpp${CBM-R}"        ": t{CBM-R}0{CBM-M}1410
XN t{CBM-W}p {CBM-M} lt{CBM-R}lt{CBM-N}1:t{CBM-R}l1(lt):1380
{CBM-L}X t{CBM-R}p {CBM-M} de{CBM-R}p:hn{CBM-R}3:2180:pp${CBM-R}"ad"{CBM-N}h${CBM-N}"  ":lt{CBM-R}lt{CBM-N}1:t{CBM-R}l1(lt)
P n{CBM-W}{CBM-E}0{CBM-M}pp${CBM-R}pp${CBM-N}n${CBM-N}" "
 (n{CBM-N}1) 0:bc{CBM-R}bc{CBM-N}1
p${CBM-R}"        "{CBM-N}".byte $"{CBM-N}h${CBM-N}";<this was a bit instruction>"
$2150:
*
I  read a byte (a$) from file and calculate ascii value (q)
*{CBM-K}#1,a$:q{CBM-R}F(a${CBM-N}n1$)::
4
{CBM-I}> decode instruction
{SHIFT-*}hp{CBM-R}p{CBM-N}1:n${CBM-R}mn$(q):n{CBM-R}md(q):
Fr
{$eb}\ oting address
0{CBM-+}de{CBM-R}p{CBM-N}1:hn{CBM-R}3:2180:p${CBM-R}" *=$"{CBM-N}h${CBM-N}"; <starting address>":2150
6{CBM-A}
K{SHIFT-@} assign label values for addresses out of range
{$7c}D lo{CBM-R}0 {CBM-M}1270
{CBM-Q}Np${CBM-R}" ;<out of range jumps and subs>":2150
FXi{CBM-R}1{CBM-@}lo:de{CBM-R}l2(i):2180
{$fc}{$e2} i{CBM-R}lo{CBM-Q}lv{CBM-N}1 {CBM-M} p${CBM-R}" ;    ea {CBM-M} "disk error";ea;eb$;""
{$f3}{CBM-L}
{$f9}{SHIFT-*}
!J open file and get first two bytes
:T1,8,12,f$:{CBM-K}#1,a$,b$
h{$de} ps{CBM-W}{CBM-R}2{CBM-M}
I{$e8} p{CBM-W}(sa{CBM-Q}1){CBM-M}2090:p{CBM-R}p{CBM-N}1:2280
O{$f2}
U{$fc}
 open source file
{CBM-X}ot${CBM-R}"d"{CBM-M}p${CBM-R}"@"{CBM-N}nf${CBM-N}",s,w":6,8,3,p$:2220:
Got{CBM-M}

{$ee}J
Tp{CBM-R}p{CBM-N}1: p{CBM-E}e {CBM-M}
{$de} ad{CBM-R}p {CBM-M} 1060
!{$e8}2090:
5{$f2}p{CBM-R}p{CBM-N}2: p{CBM-E}e {CBM-M}
n{$fc} ad{CBM-R}p{CBM-A}ad{CBM-R}p{CBM-Q}1{CBM-M} 1060
{$60}2090:2090:
F
 invalid label change to out of range label
F$lv{CBM-R}lv{CBM-N}1:lo{CBM-R}lo{CBM-N}1:l2(lo){CBM-R}ad:i{CBM-R}i{CBM-N}1:ad{CBM-R}l1(i):
L.
{$f3}8 print count of inva:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"($"{CBM-N}h${CBM-N}",x)":2150:

{CBM-POUND}
{CBM-R} y-indexed indirect mode
[{CBM-C}2090:p{CBM-R}p{CBM-N}1:de{CBM-R}q:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"($"{CBM-N}h${CBM-N}"),y":2150:
AF
XP accumulator mode
Zp${CBM-R}pp${CBM-N}"a":2150:
{$e4}
{CBM-C}{$ee} bit converted to .byte operation
Y{$f8}de{CBM-R}op:hn{CBM-R}1:218
t{CBM-R}ad{CBM-M}lf{CBM-R}0:820
 t{CBM-W}ad{CBM-P}t{CBM-W}{CBM-E}0 {CBM-M} 820
3  t{CBM-E}ad{CBM-P}lf {CBM-M} l2(i){CBM-R}ad:ad{CBM-R}t:820
k* t{CBM-R}0{CBM-P}lf {CBM-M} l2(i){CBM-R}ad
{$60}4: lf {CBM-M} lo{CBM-R}lo{CBM-N}1
F>
Lh
r print summary of label counts
{CBM-U}\" number of in range labels: ";lb
{$e4}F" number of out of range labels: ";lo
{$ea}P{CBM-R}ad{CBM-N}q{CBM-D}mh:p{CBM-R}p{CBM-N}2:de{CBM-R}ad:hn{CBM-R}3:2180
p${CBM-R}pp${CBM-N}"ad"{CBM-N}h${CBM-N}",x":ad{CBM-E}{CBM-R}s{CBM-P}ad{CBM-W}{CBM-R}e{CBM-M}1820
u op{CBM-W}{CBM-E}32{CBM-P}op{CBM-W}{CBM-E}76{CBM-P}op{CBM-W}{CBM-E}108{CBM-A}ad{CBM-R}0 {CBM-M} p${CBM-R}pp${CBM-N}"$"{CBM-N}h${CBM-N}",x"
A2150:
G&
0 y-indexed absolute mode
{CBM-C}:2090:ad{CBM-R}q:2090:ad{CBM-R}ad{CBM-N}q{CBM-D}mh:p{CBM-R}p{CBM-N}2:de{CBM-R}ad:hn{CBM-R}3:2180
{$e6}dp${CBM-R}pp${CBM-N}"ad"{CBM-N}h${CBM-N}",y": 1:860
~d
n2090:p{CBM-R}p{CBM-N}1:
1x2090:ad{CBM-R}q:2090:ad{CBM-R}ad{CBM-N}q{CBM-D}mh
mBp{CBM-R}p{CBM-N}2:ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}760:
xL680:
VV2090:ad{CBM-R}p{CBM-N}q{CBM-N}(q{CBM-E}127){CBM-D}mh{CBM-N}2
p{CBM-R}p{CBM-N}1:ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}
680:

  labels for addresses of in range branches, jumps, lda, etc

{CBM-POUND}lf{CBM-R}1:i{CBM-R}1
{$f1}^ zero page mode
'H2090:p{CBM-R}p{CBM-N}1:de{CBM-R}q:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"$"{CBM-N}h$:2150:
-R
l{$7c} x-indexed zero page mode
2090:p{CBM-R}p{CBM-N}1:de{CBM-R}q:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"$"{CBM-N}h${CBM-N}",x":2150:

{CBM-D} y-indexed zero page mode
{$e7}{CBM-@}2090:p{CBM-R}p{CBM-N}1:de{CBM-R}q:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}"$"{CBM-N}1480,1510,1550,1580,1640,1670,1700,1730,1790,1850,1910
9 n{CBM-E}10{CBM-M}  (n{CBM-Q}10) 1950,1980,2010
k  p{CBM-E}{CBM-R}e {CBM-M} 2700
u{CBM-N}1280
[{CBM-H}
{$7f}{CBM-V} illegal op code .byte assumed
{CBM-A}Hde{CBM-R}op:hn{CBM-R}1:2180:p${CBM-R}pp${CBM-N}".byte $"{CBM-N}h$:2150:
{CBM-L}R
I{CBM--} implied mode
{CBM--}{$e6}p${CBM-R}pp$:2150:utput data line for assembler
Fp${CBM-R}p${CBM-N}xx$:6,p$;:2220:lc{CBM-R}lc{CBM-N}1:
P
@Z decimal (de) to hex (h$) conversion
Vdx{CBM-R}de:h${CBM-R}"":m{CBM-R}hn{CBM-@}0{SHIFT-POUND}{CBM-Q}1:n%{CBM-R}dx{CBM-Z}(16{CBM-S}m):dx{CBM-R}dx{CBM-Q}n%{CBM-D}16{CBM-S}m
h${CBM-R}h${CBM-N}J(he$,n%{CBM-N}1,1)::

{CBM-L}{CBM-I} read disk error channel
{$ed}{CBM-D}15,ea,eb$,ec,ed:   <invalid labels>":2150
 {$ec}p${CBM-R}"     ad"{CBM-N}h${CBM-N}"=$"{CBM-N}h$:2150:
2{$f6}lt{CBM-R}1:t{CBM-R}l1(lt)
c
lc{CBM-W}{CBM-E}lf{CBM-M}1350
i

P after 1000 lines create new file
{CBM-Z}nf${CBM-R}of${CBM-N}J(D(nf),2){CBM-N}".s":p${CBM-R}";":2150:p${CBM-R}".fil"{CBM-N}nf$:2150
P(2450:nf{CBM-R}nf{CBM-N}1:lc{CBM-R}1:2320:2220
V2
{$f3}< sta$ot{CBM-R}1:ot${CBM-R}"p"{CBM-M}6,4:
{$eb}.6,3:
{$f1}8
b print pass number
cl"pass #";ps;" of the file to be decoded":ps{CBM-R}ps{CBM-N}1:
iv
I{$60} initialize the disk drive
J15,8,15,"i"{CBM-N}D(fd):
T15,"i"{CBM-N}D(fo):
{$7e}
{CBM-J} end of source file
G6,G(0);: 6:
lid addresses
'b lv {CBM-W}{CBM-E}0 {CBM-M} " number of invalid addresses: "lv
-l
wv fourth pass - output assembler code
A{$60}2380
GJ
T open source and machine code files
{CBM-Z}{$7e}nf${CBM-R}of${CBM-N}"1.s":p{CBM-R}s{CBM-Q}1:nf{CBM-R}2
M2320:2220:2260:nf{CBM-R}2:lc{CBM-R}1
S
{$f0} write star
epcount

jmp obfin    ;finished subrtn
{CBM-@};
7{CBM-S}docode {CBM-R}{CBM-D}    ;write repeat code
h{CBM-U}jsr writerep
HBlda #1       ;restart count
YLsta repcount
{$7f}V;
 obfin {CBM-R}{CBM-D}
{$ea}lda {CBM-I}byt
{CBM-R}{$f4}sta prevbyt  ;prev{CBM-R}{CBM-I}
N{$fe}inc picptr   ; address
Zbne ob1
{$eb}inct
{$f3}Rok {CBM-R}{CBM-D}
{CBM--}jmp obfin    ;finished outbyte
{$e6};
={$f0}df {CBM-R}{CBM-D}      ;{CBM-I} byte dferent
[{$fa}lda repcount ;check count
cmp #4       ;3 {CBM-A} m{CBM-A}e the same"?
{CBM-T}bcs docode   ;yes, s rep code
{SHIFT-*};no, just  byte n times
 "tax          ;# reps  loop

,l
{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-*}{SHIFT-POUND}4{SHIFT-POUND}{SHIFT-*}{SHIFT-POUND}Q {SHIFT-*}l{CBM-Q}hhh {$e1}~P ~ ~LH{CBM-POUND}H{CBM-N}H@{CBM-Z}P{SHIFT-*}{$f0}k{SHIFT-POUND}
P{SHIFT-*}8{CBM-G}-{$ed}L{SHIFT-*}{$fb}{CBM-G}.{$ed}M{SHIFT-*}{$fc}{CBM-Z}H{SHIFT-*}E{$fb}-{CBM-Z}I{SHIFT-*}E{$fc}.{CBM-Z}J{SHIFT-*}E{$fb}/{CBM-Z}K{SHIFT-*}E{$fc}0{CBM-Z}L{SHIFT-*}E{$fb}1{CBM-Z}M{SHIFT-*}E{$fc}2{CBM-Z}N{SHIFT-*}3{CBM-Z}O{SHIFT-*}4 {$60}{CBM-G}Z{$7b} S
{CBM-N}{$f0}{CBM-T}{CBM-I}~: Y{CBM-G}l{$e1}{CBM-M}hhh{SHIFT-POUND}P{SHIFT-*} {CBM-O}-
H{SHIFT-*}{$f7}{CBM-G}1-/{CBM-G}2.0H{CBM-POUND}H{CBM-N}H(l{CBM-@}










indestructible variables - by tom hall



sp1
{$fe}{$f6}lda picptr

cmp pic
$
bcc out  ;do  byte
,rts
7sp1 {CBM-R}{CBM-D}
p(bcc out  ;do  byte
S2jsr writerep ;write last group
<rts          ;all bytes de
f;
p;
{CBM-V}zoutbyte {CBM-R}{CBM-D}   ;check  byte
{$de}Djsr {CBM-K}byt   ; byte from mem
{$eb}Nsta {CBM-I}by"

 disk un-assembler.long c64
h
 originally by paul higginbottom
V
 modified by j. lothian, ottawa, ontario
(
 initialize variables
U2
53280,12:53281,15:a${CBM-R}"":q{CBM-R}.:p{CBM-R}.:n{CBM-R}.:n${CBM-R}"":p${CBM-R}"":de{CBM-R}.:i{CBM-R}.:bc{CBM-R}.
<
n1${CBM-R}G(0):he${CBM-R}"0123456789abcdef":xx${CBM-R}          ;all finished!
;
;
5$spic {CBM-R}{CBM-D}   ;compress picture
u.lda picture  ;start addr lo
D8sta picptr
Lbclc
ladc #{CBM-W}picC ;find last pic byte
{CBM-D}vsta pic   ;last byte lo
{CBM-V}{$60}lda picture{CBM-N}1
{$de}Jsta picptr{CBM-N}1 ;start addr hi
{$ed}Tadc #{CBM-E}picC

(  ;do until {CBM-Q}of{CBM-Q}file
{$f7}{$60}rts
{$fe}J.


rep indica{CBM-@}r
rbeq {CBM-K}rep
<\;n{CBM-A}mal byte, just s{CBM-@}re it
oFsta (picptr),y
KPinc picptr   ; address
WZbne gr0
inc picptr{CBM-N}1
gr0 {CBM-R}{CBM-D}
{CBM-K}jmp gpfin
{CBM-M}{CBM-I};
{CBM-W}{CBM-D}{CBM-K}rep {CBM-R}{CBM-D}
Q{CBM-L}jsr {CBM-K}in    ;byte {CBM-@} repeat
Y{SHIFT-*}pha
{$f9}(b){CBM-R}a$:md(b){CBM-R}a:


<
 check where source should be listed
{$7f}
" source code on print (p), screen (s),":" or disk (d)";ot$
{CBM-@}{CBM-N}
 ot${CBM-W}{CBM-E}"p"{CBM-P}ot${CBM-W}{CBM-E}"s"{CBM-P}ot${CBM-W}{CBM-E}"d"{CBM-M}160
{CBM-N}{CBM-H}

Q{CBM-V}
 get object and source file names
H
" drive number of the program(0 orcompress
{$f2}>jsr {CBM-K}in
hcmp #254     ;rep indica{CBM-@}r
rbeq {CBM-K}rep
<\;n{CBM-A}mal byte, just s{CBM-@}re it
oFsta (picptr),y
KPinc picptr   ; address
WZbne gr0
inc picptr{CBM-N}1
gr0 {CBM-R}{CBM-D}
{CBM-K}jmp gpfin
{CBM-M}{CBM-I};
{CBM-W}{CBM-D}{CBM-K}rep {CBM-R}{CBM-D}
Q{CBM-L}jsr {CBM-K}in    ;byte {CBM-@} repeat
Y{SHIFT-*}pha
{$f9}{CBM-P}fd{CBM-W}{CBM-E}1{CBM-M}270
" source filename";of$
v"C(of$){CBM-E}12{CBM-M}"error - file name is too long":280
V,of${CBM-R}D(fo){CBM-N}":"{CBM-N}of${CBM-N}".":2420
{$7c}6
@ convert bit to .byte option
{$e3}j" do you wish bit operations converted    to byte operations?"
t" yes (y) or picptr{CBM-N}1
{$f6}ob1 {CBM-R}{CBM-D}
{$fe}&rts
0;

:;
.dwriterep {CBM-R}{CBM-D}  ;write repeat code
rnlda #254     ;special rol byte
Axjsr chrout
Blda prevbyt  ;byte {CBM-@} repeat
Ljsr chrout
{CBM-E}Vlda repcount ;number of reps
{SHIFT-*}jsr chrout
Hrts
N;
T;
 {CBM-POUND}{CBM-K}byt {CBM-R}{CBM-D}
da prevbyt  ;byte {CBM-@} repeat
6cmp #254     ;ctrl byte"?
b@beq docode   ;yes, must code it
hj;
Ftnlp {CBM-R}{CBM-D}       ;repeat loop
V^lda prevbyt
Hjsr chrout   ;s byte
{CBM-S}Rdex          ;do .x times
{SHIFT-@}{$7c}bne nlp
Zlda #1       ;restart count
{$eb}sta r
activated


$","d$:

{$ee}


Hi{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
2R 2
q{$7c}2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
V2,G(0)G(216);:  colour nybbles
i{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{CBM-E}i{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
{CBM-U}{CBM-@} 2
{SHIFT-+}{CBM-S}"The background colour is:"
{$f1}{CBM-U}{CBM-K}#1,a$: F(a${CBM-N}z$)
{$fd}B 1t
Xcmp prevbyt  ;compare {CBM-@} previous
,bne df     ;dferent"?
2;
tinc repcount ;same, inc count
X bne ok       ;{CBM-E}255 repetitis"?
{CBM-N}dec repcount ;set {CBM-@} 255
{CBM-U}{CBM-H}jsr writerep ;write repeat code
X{CBM-V}lda #1       ;restart count
{$e9}Hsta repcounG(13):ps{CBM-R}1:mh{CBM-R}256:lf{CBM-R}1000:ot{CBM-R}.
"f

lp
"        c-64 disk un-assembler"
z
"            jack lothian":"             please wait"
D

{CBM-C}N
 arrays defining assembler op codes
{$e3}X
 md(255),mn$(255),l1(500),l2(500)

i{CBM-R}1{CBM-@}151:a$,a,b:mn$
{$7e}sta pic{CBM-N}1 ;last byte hi
;
0jsr {CBM-K}byt   ; byte from mem
wsta prevbyt  ;initialize prev byte
V{CBM-+}ldy #1       ;{CBM-K} 2nd byte
{$7c}{CBM-A};
{SHIFT-@}out {CBM-R}{CBM-D}
{CBM-Z}Djsr outbyte  ;fetch byte {CBM-A} group
{CBM-W}N;
TXlda picptr{CBM-N}1 ;see  at pic
{$e3}{$e2}cmp pic{CBM-N}1
{$ef}{$ec}bne  is: ";s;" ($";h$;")"
b
{CBM-S}de{CBM-R}e:2180:" ending address is:   ";e;" ($";h$;")"
Q
{CBM-U}" length of the file is ";e{CBM-Q}s{CBM-N}1;" bytes"
W
B

L read start address for un-assembly
F
V" un-assembly starting address"
{$ef}
 "        in decimal or hex ($)";an$
 1)";fd:fd{CBM-W}{CBM-E}0{CBM-P}fd{CBM-W}{CBM-E}1{CBM-M}200
.R
" program filename";f$
E{CBM--}
C(f$){CBM-E}16{CBM-M}"error - file name is too long":210
{$e6}
2410:f${CBM-R}G(fd){CBM-N}":"{CBM-N}f${CBM-N}",p,r"
{$f0}
1,8,9,f$:2220: 1
{CBM-E}{$fa}
ea{CBM-W}{CBM-E}0{CBM-M} 15:210
D ot${CBM-W}{CBM-E}"d"{CBM-M}330
" drive number for the source file";fo:fo{CBM-W}{CBM-E}0Jjsr {CBM-K}in    ;# of repetitis
Ttax
{$de}pla
/{$e8}replp {CBM-R}{CBM-D}     ;repeat byte n times
b{$f2}sta (picptr),y
^{$fc}inc picptr   ; address
Jbne gr1
{$7b}inc picptr{CBM-N}1
gr1 {CBM-R}{CBM-D}
$dex
.bne replp
{CBM-I}8;
{CBM-P}bgpfin {CBM-R}{CBM-D}
Lljsr st   ; disk status
{$ef}vbeq {CBM-K}pic  no (n)";an$
"^ an${CBM-W}{CBM-E}"n" {CBM-P} an${CBM-W}{CBM-E}"y" {CBM-M} 340
fH an${CBM-R}"y" {CBM-M} md(36){CBM-R}14:md(44){CBM-R}14
lR
{$7c}{$7c} first pass - find start and end addresses
{SHIFT-POUND}2380:2260:s{CBM-R}F(a${CBM-N}n1$){CBM-N}F(b${CBM-N}n1$){CBM-D}mh:e{CBM-R}s
D{CBM-K}#1,a$:e{CBM-R}e{CBM-N}1:st{CBM-R}0{CBM-M}400
{SHIFT-+} 1:de{CBM-R}s:hn{CBM-R}3:2180

{CBM-@}" starting address
{CBM-R}sei          ;disable {CBM-J}errupts
'{CBM-C}lda 1        ;cpu bank register
bF{CBM-P} #$fc     ;select ram
lPsta 1
GZlda (picptr),y ; byte
O{$e4}pha
{$ee}lda banksav  ;{CBM-K} {CBM-A}iginal state
{CBM-M}{$f8}sta 1        ;{CBM-P}
{CBM-P}cli
{CBM-Y}pla
{CBM-B}rts
E ;
K*;
{$e6}4{CBM-K}pic {CBM-R}{CBM-D}    ;un
D
700    ;enable pal 64
"N
;
<X
; picture compress{CBM-A} {CBM-Q}
[
; optimizes hi{CBM-Q}res picture
M
; {CBM-P} s  disk

; this versi cverts file#8 (r)
{CBM-L}
; {CBM-@} file#9 (w) with same  addr
U{CBM-N}
;  ({CBM-D})   compresses 8 {CBM-@} 9
{$f0}{CBM-H}
;  ({CBM-D}{CBM-N}3) s 8 {CBM-@} mem{CBM-A}y
{$f6}{CBM-V}
;

H
;"
Vsetin {CBM-R}{CBM-D} ;set  {CBM-@} file #8
Lpha:txa:pha
Vldx #8
, jsr chkin
<{$ea}pla:tax:pla
d{$f4}rts
j{$fe};
p;
Sse{CBM-@}ut {CBM-R}{CBM-D} ;set output {CBM-@} file #9
pha:txa:pha
&ldx #9
0jsr chkout
{CBM-Z}:pla:tax:pla
{CBM-J}drts
{CBM-C}n.


dex
{$e8}bne replp    ;do it .x times
{$ee}"e it
 jsr s{CBM-@}rbyt
{CBM-N}jmp gpfin
{CBM-H};
9{CBM-V}{CBM-K}rep {CBM-R}{CBM-D}    ;repeat byte n times
wHjsr {CBM-K}in    ;byte {CBM-@} repeat
_Rpha
{$7f}{CBM--}jsr {CBM-K}in    ;# of repetitis
{$e6}tax
{$f0}pla
{$fa}replp {CBM-R}{CBM-D}
{CBM-B}jsr s{CBM-@}rbyt  ;stick it in mem{CBM-A}y
Gdex
{$e8}bne replp    ;do it .x times
{$ee}"
&D
 700 ;activate pal 64 assembler
>N
; picture compress{CBM-A}
yX
; optimizes hi{CBM-Q}res pic
K
; {CBM-P} s  disk

; this versi s from mem{CBM-A}y

; at $2000:
{CBM-H}
;  ({CBM-D}),"d:filename"
I{CBM-N}
; {CBM-A} s {CBM-@}  addr:
{$e2}{CBM-H}
;  ({CBM-D}{CBM-N}3),"filename"
{$e8}{CBM-V}
;

H
; "@0:comp2.pal"1: sta repcount
{$7e}jmp obfin
;
#docode {CBM-R}{CBM-D}
4jsr writerep
:{CBM-+};
g{CBM-A}obfin {CBM-R}{CBM-D}
t{SHIFT-@}lda {CBM-I}byt
DDsta prevbyt
LNrts
RX;
X{$e2};
{$ec}writerep {CBM-R}{CBM-D}  ;write repeat code
{CBM-N}{$f6}jsr se{CBM-@}ut
N
lda #254     ;special rol byte
{SHIFT--}
jsr chrout
{$fd}lda prevbyt  ;comp flag
)
jbanksav  .byte 0 ;{CBM-A}ig loc 1 Eue
h
tpic   .w{CBM-A}d 0 ; of bitmap
n
^;
R
HpicC  {CBM-R}8000   ;bitmap byte Cgth

Rpicptr  {CBM-R}$fb

{$7c};kernel routines:
{CBM-Q}
setlfs {CBM-R}$ffba
{CBM-X}
setnam {CBM-R}$ffbd
L
   {CBM-R}$ffc0
{$de}
{CBM-@}chrout {CBM-R}$ffd2
{$ee}
{CBM-S}{CBM-K}in  {CBM-R}$ffe4
{$fc}
{CBM-U}   {CBM-R}$ffa

Fsta {CBM-I}byt

Pcmp prevbyt

Zbne df
&
;
7
inc repcount
z
bne ok       ;count past 255"?
K
{CBM-I}dec repcount

{CBM-D}jsr writerep ;write rep code

{CBM-L}ok {CBM-R}{CBM-D}
{CBM-@}
{SHIFT-*}jmp obfin
{CBM-N}
J;
I
Tdf {CBM-R}{CBM-D}    ;{CBM-I} byte dferent
Z
{$de}lda repcount
{$e5}
{$e8}cmp #6
{$f2}bcs docode
y
{$fe} 210, 255, 173,   9, 192,  32
. 195, 255,  32, 204, 255,  76
=  49, 234



G   7, 192, 240,   6,  32, 210
 255,  32, 210, 255, 232, 224
{CBM-Z}   8, 208, 231,  76, 167, 193
P{CBM-@}  76,   6, 193, 206,  43, 192
{$f3}{CBM-S} 208, 248, 169,  13,pic ;s picture {CBM-@} file
jmp fin
";
0&decomp {CBM-R}{CBM-D}
>0jsr setin
A:jsr {CBM-K}in: sta picptr ; addr lo
djsr {CBM-K}in: sta picptr{CBM-N}1 ;"  "  hi
nldy #0
{SHIFT-POUND}xjsr {CBM-K}pic  ;{CBM-K} picture
{CBM-P}B;
{SHIFT-@}Lfin {CBM-R}{CBM-D}
GVjsr chn
Ylda #8: jsr
{$eb}lda #9: jsr
{$f3}rts
{$f9}{CBM-R}{CBM-D}

B;
"Llda 1        ;bank select reg
aVsta banksav  ;s{CBM-@}re  later
[lda #8       ;file #8
Wtax          ;device #8
jsr setlfs   ; 8,8,1 {CBM-A} 2
{CBM-J}jsr $aefd    ;check  comma
V{CBM-POUND}jsr $ad9e    ;eEuate {CBM-X}ressi
{$f7}{CBM-R}jsr $ad8f    ;check  strin@0:comp1.pal",8
R
;
{CBM--}
.opt oo
+{$e6}
{CBM-D}{CBM-R}$c000
1{$f0}
;
b{$fa}
jmp compress
qjmp decomp
w;
Lrepcount .byte 1
{$7f}"{CBM-I}byt   .byte 0
,prevbyt  .byte 0
{SHIFT-POUND}6st8      .byte 0
{CBM-P}@;
{SHIFT-*}jpicptr  {CBM-R}$fb
Vt;kernel routines:
{$e8}^chrout {CBM-R}$ffd2
{$f8}H{CBM-K}in  {CBM-R}$ffe4

R
*ldy #0
4lda sflag ;compress {CBM-A}
4>beq nosnd    ;nosnd{CBM-R}
thjsr chkout   ;output {CBM-@} file
Drlda picture
\jsr chrout   ;start addr lo
Flda picture{CBM-N}1
{CBM-L}Pjsr chrout   ;start addr hi
XZjsr spic  ;s picture {CBM-@} file
{$f9}jmp ss1      ;  files;
{$fb},gpfin {CBM-R}{CBM-D}
6jsr st   ;check disk status
?@beq {CBM-K}pic   ;do until {CBM-Q}of{CBM-Q}file
gjrts
mt;
s^;
THs{CBM-@}rbyt {CBM-R}{CBM-D}   ;put .a in mem{CBM-A}y
Rsta (picptr),y
{SHIFT-POUND}{$7c}inc picptr   ;incent pointer
{CBM-J}bne sb0
Finc picptr{CBM-N}1
Qsb0 {CBM-R}{CBM-D}
Y{CBM-@}rts
{CBM-*}{CBM-S};
{$e5}{CBM-U};
B,8
R
;
{CBM--}
.opt oo
{$e6}
{CBM-D}{CBM-R}$c000
${$f0}
;
5{$fa}
jmp compress
djmp decomp
j;
Ppicture  .w{CBM-A}d $2000 ;bitmap loc'n
"repcount .byte 1 ;counts repetiti
{CBM-C},{CBM-I}byt   .byte 0 ;current mem byte
 6prevbyt  .byte 0 ;previous byte

@sflag .byte 0 ;comp{CBM-Z}debyte {CBM-@} repeat
jsr chrout
-(lda repcount ;number of reps
<2jsr chrout
g<lda #1
Mfsta repcount ;re{CBM-Q}initialize count
Uprts
{$7b}z;
D;
N{CBM-K}pic {CBM-R}{CBM-D}    ;uncompress
{CBM-POUND}Xjsr {CBM-K}in
Gcmp #254     ;rep indica{CBM-@}r
Tbeq {CBM-K}rep
{$f2};n{CBM-A}mal byte, just s{CBM-@}rc3
Bchkout {CBM-R}$ffc9
 Lchkin  {CBM-R}$ffc6
0Vchn {CBM-R}$ffcc
? st {CBM-R}$ffb7
e{$ea};
u{$f4}compress {CBM-R}{CBM-D}
{$60}{$fe}lda #1
Osta sflag
ldy #1       ;secdary address
bne cp1
{CBM-@}&;
{CBM-R}0decomp {CBM-R}{CBM-D}
{CBM-X}:lda #0
Ldsta sflag
{$ef}nldy #2       ;secdary address
{$fa}xcp1  ;m{CBM-A}e than 4 the same"?
({$fc};no, just  byte n times
ftax        ;# reps  loop
vlda prevbyt
Rcmp #254   ;ctrl byte"?
$beq docode ;yes, have {CBM-@} code it
.;
{CBM-N}8jsr se{CBM-@}ut
{SHIFT-@}blda prevbyt
Elnlp {CBM-R}{CBM-D}
Tvjsr chrout
{CBM--}{$60}dex
{$e8}Jbne nlp
Tlda # {CBM-P} exit
nosnd {CBM-R}{CBM-D}
'jsr chkin    ;{CBM-K}  addr first
3{CBM-I}jsr {CBM-K}in
o{CBM-D}sta picptr   ; addr lo
[{CBM-L}jsr {CBM-K}in
W{SHIFT-*}sta picptr{CBM-N}1 ; addr hi
Jjsr {CBM-K}pic   ;{CBM-K} picture
Tss1 {CBM-R}{CBM-D}
{CBM-I}{$de};
E{$e8}jsr chn   ;clear i{CBM-Z}o channels
P{$f2}lda #8
{$e8}{$fc}jsr      ;  file #8
rts;
~{CBM-POUND};
{CBM-R}spic {CBM-R}{CBM-D}
{CBM-C}jsr setin
&Fjsr {CBM-K}in
6Psta prevbyt
bZout {CBM-R}{CBM-D}
r{$e4}jsr outbyte
^{$ee}lda st8
K{$f8}beq out
jsr writerep ;last sequence
rts
;
 ;
{CBM-S}*outbyte {CBM-R}{CBM-D}
{CBM-C}4jsr setin
H>jsr {CBM-K}in
Phpha
{$ef}rjsr st: sta st8 ; status
{$f7}\plg

{CBM-C}ldy #0

Flda ($64),y  ;string Cgth
-
Ppha: iny
o
Zlda ($64),y  ;string addr low
\
{$e4}tax: iny
{$7d}
{$ee}lda ($64),y  ;string addr hi

{$f8}tay: pla
{CBM-A}
jsr setnam   ;fiCame{CBM-R}above string
F
jsr      ; file
{$ec}
ldx #8       ;file #8  chkin{CBM-Z}out
{$f2}
 ;
{$fd}   {CBM-R}$ffc3

{$7c}chkout {CBM-R}$ffc9
*
chkin  {CBM-R}$ffc6
:
chn {CBM-R}$ffcc
i
st {CBM-R}$ffb7
o
{CBM-@};
_
{CBM-S}compress {CBM-R}{CBM-D}
M
{CBM-U}jsr setin

Bjsr {CBM-K}in   ;start addr lo

Ljsr se{CBM-@}ut
{CBM-M}
Vjsr chrout
{CBM-J}
 jsr setin
R
{$ea}jsr {CBM-K}in   ;start addr hi

{$f4}jsr se{CBM-@}ut
{$ef}
{$fe}jsr chrout
jsr s

{SHIFT-*}lBAl{$f7}ClBClNBlBlVDl{$e4}DlElcEl{SHIFT-POUND}{SHIFT-*}lNElGGlH











~
{$f8}









{$f0}{$f0}

P



{CBM-Z}:{SHIFT-*}P{CBM-Z}
{SHIFT--}9{SHIFT-*}{CBM-Z}P:{SHIFT-*}{CBM-Z}P;{SHIFT-*}{CBM-Z}P<{SHIFT-*} N{SHIFT-*}{$60}{CBM-Z}
I{$e7}P{CBM-Z}I{SHIFT-*}{$f0},{CBM-Z}
{$ea}{SHIFT-*}{CBM-Z}{$eb}{SHIFT-*}{SHIFT-POUND}{$e7}
{SHIFT-POUND}{SHIFT-*}{CBM-Z})A{CBM-Z}*A{SHIFT-POUND}{SHIFT-POUND}A{$60}{CBM-Z}:{SHIFT-*}{$f0}P{CBM-Z}9{SHIFT-*}
{SHIFT--}{CBM-Z};{SHIFT-*}P{CBM-Z}<{SHIFT-*}P{SHIFT-POUND}
:{SHIFT-*}{$60}h{SHIFT-POUND}{$7f}
{CBM--}{CBM-G}8{SHIFT-*}){$fd}H{$60}h{CBM-Z}8{SHIFT-*}{SHIFT-POUND}
{CBM--}H{$60}l{$e3}
,l{SHIFT-*}{$f5}{SHIFT-POUND}
{SHIFT-POUND}
8

 the transactor volume 5 issue 06         page 48
z

* data loader for "bigprint"

* for star gemini printer and cardco interface

cs{CBM-R}0
C
 i{CBM-R}49152 {CBM-@} 49639: a: i,a:cs{CBM-R}cs{CBM-N}a: i
I(
:
2
 cs{CBM-W}{CBM-E}58931 {CBM-M}"**** error in data statements ***,  64,  64,   0,  64
3.  64,  64,   0,   0, 120, 169
v8  59, 141,  20,   3, 169, 192
Yb 141,  21,   3,  88,  96, 165
l 197, 201,  64, 208,   8, 169
{CBM-B}v   0, 141,   4, 192,  76,  49
{$e2}{$60} 234, 173,   4, 192, 208,  43
J 169,   1, 141,
17
{SHIFT-@} 208,  73,  32, 141,  17, 208
@D 173,  24, 208,  73,   8, 141
CN  24, 208,  76,  49, 234, 169
X   0, 141,   3, 192, 173, 141
{SHIFT-POUND}{$e2}   2,  41,   4, 240,   5, 169
L{$ec} 255, 141,   3, 192, 173,   9
{$ef}{$f6} 192,  32, 195, 255, 173,   9

  XGl GIP{CBM-I}( GJP{$fa}l GIP{SHIFT-POUND}
k{SHIFT-*}l GIP Gl G{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-G}PFF8{CBM-G}{$fb}{$e9}{$fb}{CBM-G}{$fc}{$e9}
{$fc}{CBM-G}{$fb}I
{CBM-G}{$fc}{$e9} {CBM-A} gG{$60}{$e6}{$fd}P{$e6}{$fe}{$e6}P{$e6}{SHIFT-POUND}E{$fb}{$fb}{$e6}{$fc}{CBM-G}{$fb}I@{CBM-G}{$fc}{$e9}~ G{$60}@{CBM-S}k{SHIFT-*}{$f0} {CBM-G}G  {$e6}G{CBM-E}{$fb}{$f9} {$f5}GH{CBM-Z}={SHIFT-*},5{SHIFT-*}{CBM-Z}@{SHIFT-*}{$fd}{CBM-Z}?{SHIFT-*}
>{SHIFT-*} gGH{CBM-POUND}H{CBM-N}{$60}{SHIFT-POUND}
&&&{CBM-Z}g{SHIFT-*}E{CBM-Z}h{SHIFT-*}E{$60} {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}P{CBM-G}P{CBM-I}P,{CBM-I}Xh{SHIFT-*}{CBM-I}
g{SHIFT-*}{$60}{CBM-Z}{CBM--}){$fe}{CBM--} 255, 169,  25, 141
*
p  42, 192, 173,   5, 192, 240
m
z  13,  56, 165, 251, 233,  64
P
D 133, 251, 165, 252, 233,   1

N 133, 252, 162,   0, 189,  18
{CBM-L}
X 192, 172,   7, 192, 208,   3
Y
 189,  22, 192,  32, 210, 255
{$fc}
 232, 224,   4, 208{CBM-X}={SHIFT-*}f{SHIFT-*}{CBM-X}b{SHIFT-*}b{SHIFT-*}{CBM-X}E3{SHIFT-*}{$60}
u{CBM-N}~ YA



>{SHIFT-*},5{SHIFT-*}0
={SHIFT-*}>{SHIFT-*}l3E YA)?{SHIFT-*} YA)@{SHIFT-*}{CBM-S}a{SHIFT-*}{CBM-X}={SHIFT-*}f{SHIFT-*}{CBM-X}b{SHIFT-*}b{SHIFT-*}{$60} NB A{CBM-I}{CBM-X}+{SHIFT-*}/{SHIFT-*}J{$f7} Y
{$f0} {$e4}D Y
{$f0} VD{CBM-Z}'{SHIFT-*}M/{SHIFT-*}+{SHIFT-*}{CBM-Z}({SHIFT-*}M0{SHIFT-*},{SHIFT-*}{CBM-Z}){SHIFT-*}-{SHIFT-*}{CBM-Z}*{SHIFT-*}.{SHIFT-*} A +D8{CBM-Z}-{SHIFT-*}{$ed}1{SHIFT-*}-{SHIFT-*}{CBM-Z}.{SHIFT-*}{$ed}2{SHIFT-*}.{SHIFT-*} {CBM-J}A +D8{CBM-Z}+{SHIFT-*}{$ed}/{SHIFT-*}+{SHIFT-*}{CBM-Z},{SHIFT-*}{$ed}0{SHIFT-*},{SHIFT-*} +D{CBM-Z}-{SHIFT-*}M1{SHIFT-*}-{SHIFT-*}{CBM-Z}.{SHIFT-*}M2{SHIFT-*}.{SHIFT-*}l+D{SHIFT-POUND}
{$fb}{$fc} {$f1}{CBM-Y} (lh{CBM-R}i{SHIFT-*} {$f1}{CBM-Y}j{SHIFT-*}{$f0} {CBM-A}{$ed}{CBM-G}{$fb}I4
{CBM--} 192,  29,  10, 192, 153,  34
7{$e6} 192, 200, 192,   8, 208, 234
z{$f0} 232, 224,   8, 208, 216, 173
{$7d}{$fa}   7, 192, 240,  68, 169,   7
  141,  45, 192, 174,   5, 192
C 189,   7, 192, 141,   6, 192
{$e6} 160,   7, 185,  34, 192, 174

"  {$fe}{CBM-G}{$fb}I
{$fb}{CBM-G}{$fc}I {$fc}{CBM-Z}'{SHIFT-*}-6{SHIFT-*}{CBM-N}{$60}{SHIFT-POUND}
{CBM-POUND},4{SHIFT-*}Pp$0{SHIFT-POUND}~$K0{$60}{CBM-E}{$fb}m3{SHIFT-*},5{SHIFT-*}0
=vCA{CBM-X}vCP=^CA{CBM-X}^Ci~1{$fb}A{$fb}{CBM-E}{$fd}-b{SHIFT-*}
f{SHIFT-*}{$fd}{$60}@ {SHIFT-*}0 NB Y
{$f0} {$e4}D Y
{$f0} VD I{SHIFT-*} {$7d}B ClZ{SHIFT-*}{SHIFT-POUND}J{SHIFT-POUND}
K8{CBM-X}+{SHIFT-*}{$fd}'{SHIFT-*}B{CBM-X},{SHIFT-*}{$fd}({SHIFT-*}C{SHIFT-POUND}~JK8{SHIFT-POUND}
{$f5}BB{SHIFT-POUND}
{$f5}CC{$60}BPJK{$60}{CBM-G}CjG{CBM-G}BJF{SHIFT-POUND}
{$e5}BH{SHIFT-POUND}
{$e5}CI{$60}{CBM-G}FEDF{CBM-N}{CBM-G}GEEGECP{$e4}B
8{$e5}BF{CBM-G}G{$e5}CG8192, 136,  16, 247
!R 162,   0, 189,  34, 192,  77
d{$7c}   3, 192,  32, 210, 255, 172
G   7, 192, 240,   6,  32, 210
 255,  32, 210, 255, 232, 224
{CBM-Z}   8, 208, 231,  76, 167, 193
P{CBM-@}  76,   6, 193, 206,  43, 192
{$f3}{CBM-S} 208, 248, 169,  13,{CBM-I}{$fa}{SHIFT-POUND}{CBM-M}h{SHIFT-POUND}{$e9}hl{CBM-T}{CBM-POUND} {SHIFT-POUND}{SHIFT-*}{CBM-Z}{$ea}{SHIFT-*}
{CBM-Z}{$eb}{SHIFT-*}{CBM-Z})A{CBM-Z}*A{SHIFT-POUND}
l{SHIFT-*}l{CBM-@}{CBM-@}{$fe}{$f0}

{$fb}HP{$fb}{$e6}{$fc}F{$fe}P{$f3}{CBM-@}{$fd}{$f0}
{$f0}{$fb}P{$fb}{$fb}{$60} I{SHIFT-*}
{$fb} L{$fc} {$e8}{$fd} {$fe} +A{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}@{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND}
 +AlZ{SHIFT-*} {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}{CBM-G}{$60} {$fd}{CBM-S} {$7c}A+{SHIFT-*},{SHIFT-*} YA-{SHIFT-*}.{SHIFT-*}{SHIFT-POUND}?{CBM-I},5{SHIFT-*}{SHIFT-POUND}{CBM-I}
M+{SHIFT-*}{$ed},{SHIFT-*}{CBM-A}lh{CBM-R}{SHIFT-POUND}GM-{SHIFT-*}{SHIFT-POUND}
{$ed}.{SHIFT-*}{$f1}{$60} m{SHIFT-*} YA{$f0}{SHIFT-POUND}5{SHIFT-*} Y
{$f0} B{CBM-Z}
{SHIFT--}i
{SHIFT--}{CBM-Z}P)0P{CBM-Z}P P,5{SHIFT-*}*":
<
 49152
f

p
:
>{$e8}  76,  46, 192,   0,   0,   0
A{$f2}   0,   0,   7, 100, 128,  64
{$fc}  32,  16,   8,   4,   2,   1
{CBM-M}  27,  76, 192,   3,  27,  75
J  64,   1,  64,   0,  64,   0
{$ed}  64,  64,   0,  64,   0,  64
$  64,   04, 192, 165
(T 197, 201,   3, 240,  35, 201
k{$7e}   6, 208,  16, 169,   3, 141
N   7, 192, 141,  45, 192, 169
   0, 141,   5, 192,  76, 143
{CBM-H} 192, 201,   5, 208,   8, 169
W{CBM-+}   0, 141,   7, 192,  76, 143
{$fa}{CBM-A} 192,  76,  49, 234, 173,  192, 162,   4, 160,   4,  32
5
 186, 255, 169,   0,  32, 189
x 255,  32, 192, 255, 174,   9
{$7b} 192,  32, 201, 255, 169,   0
( 133, 251, 169,  32, 133, 252
A2 169,  27,  32, 210, 255, 169
{$e4}<  51,  32, 210, 255, 169,  16

f  32, 210,
3{CBM-G}){$fb}{$60}{CBM-G}{CBM-Z}{CBM--}{CBM--}{$60} Y
{$f0} N{SHIFT-*} YA{$f5}{SHIFT-*}{$f9}{SHIFT-*}{SHIFT-POUND},{SHIFT-POUND}
l{SHIFT-*}{$60}

{$fc}{CBM-G}{$fc}I {$fc} {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N}
{$e8}JP{$60}{CBM-E}" iFHl<FWhh{CBM-G}W0I I{$60}){CBM-*}P)?lNG){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lLGIP {SHIFT-+}Gl GIP{CBM-I}( gGJP{$fa}l GIP{SHIFT-POUND}k{SHIFT-*}l GIP gGl G{CBM-I},{CBM-I}{SHIFT--}MF{$f0}J{$f8}l G{CBM-X}{SHIFT--}F



>{SHIFT-*},5{SHIFT-*}0
={SHIFT-*}>{SHIFT-*} 3El G


IP, 237, 169
  40, 141,  43, 192, 169,   0
b  162,   7, 157,  34, 192, 157
E{CBM-N}  26, 192, 202,  16, 247, 162
{CBM-H}   0, 160,   0, 177, 251, 141
{CBM-Q}{CBM-V}  44, 192, 230, 251, 208,   2
NH 230, 252, 173,  44, 192,  57
{$f1}R  10, 192, 240,   9, 185,  3({$fb}{$e6}{$fc}JP{$f2}{CBM-Z}i{SHIFT-*}E{$fb}{$fb}{$fd}{SHIFT-POUND}
E{$fc}{$fc}hIX{$fe}HIL{$fb}&{$fc}{$fb}&{$fc}{$fb}&{$fc}{CBM-G}{$fc}I {$fc} {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N}
{$e8}JP{$60}{CBM-E}" iFHl<FWhh{CBM-G}W0I I{$60}){CBM-*}P)?lNG){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lLGIP {SHIFT-+}Gl GIP{CBM-I}( gGJP{$fa}l GIP{SHIFT-POUND}k{SHIFT-*}l GIP gGl G{CBM-I},{CBM-I}{SHIFT--}MF{$f0}J{$f8}l G{CBM-X}{SHIFT--}F



>{SHIFT-*},5{SHIFT-*}0
={SHIFT-*}>{SHIFT-*} 3El G


IP 6, 192,  61,  10, 192, 240
,
,  16, 185,  26, 192, 174,  45
o
6 192,  29,  10, 192, 202,  29
R
@  10, 192, 153,  26, 192, 136

j  16, 226, 206,   6, 192, 206
{CBM-U}
t  45, 192, 206,  45, 192,  16
{SHIFT-+}
^ 213, 160,   7, 185,  26, 192
{$fe}
H 153,  34, {$60} A Y
{$f0},I{CBM-@}P QB S
 A Y
I,P
 {$e4}D Y
I,P VD +D Y
I{CBM-@}{$f0}{CBM--}{$60} I{SHIFT-*}{CBM-I}
 C{CBM-I} C{CBM-G}BED{CBM-G}C{$e5}E> {CBM-O}C$K
 QB8{SHIFT-POUND}
{$e5}LL {$7d}B C{$e6}HP{$e6}I{$f0}F{$ee}'{SHIFT-*}P{$ee}({SHIFT-*} QC{CBM-Z}){SHIFT-*}EL){SHIFT-*} {$7d}B Cl[D{CBM-I}{CBM-J}B{CBM-H}DDBJ{$f5} {CBM-O}C$K
 QB8{SHIFT-POUND}
{$e5}LL {$7d}B C{$e6}H{$f0}{CBM-Z}){SHIFT-*}EL){SHIFT-*} QC{$ee}'{SHIFT-*}P{$ee}({SHIFT-*} {$7d}B Cl{CBM-+}D$K C QBlZ{SHIFT-*} YA)iJJJ4{SHIFT-*}{$60} YA){$f0},5{SHIFT-*}a{SHIFT-*}{CBM-N}  32, 210
{CBM-U} 255, 165, 197, 201,  63, 240
9B  27, 208,   3,  76, 218, 192
\L 173,   7, 192, 240,  12, 173
{$7f}V   5, 192,  73,   1,  41,   1
{CBM-I}  141,   5, 192, 208, 236, 206
E{$ea}  42, 192, 208, 231, 169,  27
{$e8}{$f4}  32, 210, 255, 169,  64,  32{CBM-Z}PP{SHIFT-POUND}P
{CBM-Z}P){$ef}P{SHIFT-POUND}6{SHIFT-*}i~7{SHIFT-*}{SHIFT-POUND}~3{SHIFT-*}{$60}{SHIFT-POUND}a{SHIFT-*}{CBM-Z}c{SHIFT-*}b{SHIFT-*}{SHIFT-POUND}4{SHIFT-*} A{CBM-Z}-{SHIFT-*}



>{SHIFT-*}f{SHIFT-*}{CBM-Z}+{SHIFT-*})={SHIFT-*},5{SHIFT-*}0
>{SHIFT-*}>{SHIFT-*}f{SHIFT-*}lkA!P YA)?{SHIFT-*} YA@{SHIFT-*}{CBM-Z}>{SHIFT-*}lkA A{CBM-I}{CBM-X}+{SHIFT-*}'{SHIFT-*}J{$f7}{$60}8{SHIFT-POUND}G{$ed}){SHIFT-*}hjjj{$fc}
{$fb}jF{$fb}jF{$fb}E{$fc}{$fc}{CBM-Z}'{SHIFT-*}{CBM-S}({SHIFT-*}-7{SHIFT-*},5{SHIFT-*}
h*{CBM-N}HE{$fb}{$fb}E{$fc}{$fc}H)E{$fb}{$fb}{$fd}{$e6}{$fc}{CBM-G}{$fc}jF{$fd}jF{$fd}jF{$fd}{$fe},5{SHIFT-*}0{SHIFT-POUND}
E{$fd}{$fd}{SHIFT-POUND}LE{$fe}{$fe}l{$f9}B{CBM-Z}a{SHIFT-*}I{$ea}{SHIFT-POUND}
E{$fd}{$fd}{SHIFT-POUND}XE{$fe}


 save"0:errcat 64.bas",8
HD
 ** rte/85 - error vector driven catalog routine for c64 and vic 20
{CBM-T}N
 ** press > then (return) for a catalog of drive zero
DX
 j{CBM-R}828 {CBM-@} 951:  x:  j,x:
O
(828)
U


 169,  71, 141,   0,   3, 169,   3,
B
{$f8}{$7e}"lda $90
"bne chp1

"rts
"chp1 ldx #5
,"jmp ($300)
2";
d"dsbuf {CBM-D}{CBM-R}{CBM-D}{CBM-N}$24
j";


jsr $b79e
E@"cpx #8
Rb"bcc dvc2
{$7f}d"cpx #$0c
f"bcs dvc2
h"stx device
{CBM-POUND}j"dvc1 rts
{CBM-F}l"dvc2 jmp $b248
An";
Qp"name lda #0
{SHIFT--}r"sta $b9
{$e9}t"sta $0a
{$f7}v"

 *** right justify 80 ***
?
 *** richard perrit   ***
^
 *** august 11/85     ***
D(
:
{$7c}2
 ad=49152 for c-64
<
 ad=634   for pet
{CBM-S}f
 must have 80 columns
{CBM-H}p
:
{SHIFT--}N
ad{CBM-R}634:i{CBM-R}ad{CBM-@}ad{CBM-N}31:x:ch{CBM-R}ch{CBM-N}x:i,x:
X
 ch{CBM-W}{CBM-E}4605 {CBM-M} "!data error!"
b

0"lda device
2"sta $ba
4"lda #$6f
%6"sta $b9
48"jsr chpres
b:"jmp $f3d5
h<";
z>"dvc jsr $b79e
E@"cpx #8
Rb"bcc dvc2
{$7f}d"cpx #$0c
f"bcs dvc2
h"stx device
{CBM-POUND}j"dvc1 rts
{CBM-F}l"dvc2 jmp $b248
An";
Qp"name lda #0
{SHIFT--}r"sta $b9
{$e9}t"sta $0a
{$f7}v"$

 **program to change velocity
b
 **values of dual drives
[
 **by scott maclean
(
 1,8,15: **open command channel
2
 G(147)
{SHIFT-POUND}<
 "Interrupt Delay";id
Hf
 "Motor Accel. Delay";mad
{$e6}p
 "Motor Cutoff Time";mct
z
1,"uj": **reset d $ffa5
{$e8}!jsr $ffa5
{$ea}!ldx $90
!{$ec}!bne kat2
){$ee}!tax
6{$f0}!bne kat3
i{$f2}!kat2 jsr $f642
w{$f4}!jmp $aad7
J{$f6}!kat3 jsr $aad7
X{$f8}!jsr $ffa5
{$fa}!sta t2
{$fc}!jsr $ffa5
{$fe}!ldx t2
{CBM-N}
"jsr $bdcd
{CBM-U}"jsr $ab3f
K"kat4 jsr $ffa5
W"ldx $90
{$e4}"bne kat2
{$f2}
"jsr $ffd2{$f6}{$f9}828,169:829,0:830,76
5{$f7}{$f9}831,49:832,243: 4
I{$f8}{$f9}"filename";f$:4,8,4,f$:{CBM-K}#4,a$,a$:829,1:a${CBM-R}""
{$f9}{$f9}"poke812,60:poke813,3":a${CBM-E}""{CBM-M}63995
 {$fa}{$f9}{CBM-K}#4,a$
{SHIFT-@}{$fb}{$f9}a$;:a${CBM-W}{CBM-E}G(13){CBM-M}63994
{CBM--}{$fc}{$f9}{CBM-K}#4,a$:a{CBM-R}0:st{CBM-R}0{CBM-M}a{CBM-R}F(a${CBM-N}G(0))
{$f9}{$fd}{$f9}"a$=chr$("a"):goto63993

{$fe}{$f9}!jsr $b47d

!tay
"!dss3 lda dsbuf,y
2 !sta ($62),y
:{CBM-I}!dey
g{CBM-@}!bpl dss3
u{CBM-+}!jmp $b4ca
[{CBM-POUND}!;
L{CBM-N}!dsn jsr dss1
Z{CBM-D}!ldx dsbuf
{CBM-S}!lda dsbuf{CBM-N}1
{CBM-A}!{CBM-P} #$0f
{CBM-M}{CBM-R}!dsn1 cpx #"0"
{CBM-H}{CBM-H}!beq dsn2
{CBM-C}{CBM-L}!dex
G{CBM-U}!adc #9
T{SHIFT-@}!bcc dsn1
{$e1}{CBM-C}!dsn2 tay
{$ec}{CBM-V}!lda #0
{$f9}{SHIFT-*}!jmp u5,  32, 183, 255
7 208,  19, 200, 192,  28, 208, 240,  32
D 225, 255, 240,   9, 169,  13,  32, 210
 255, 160,   0, 240, 201, 169,   2,  32
{CBM-V}" 195, 255,  32, 204, 255, 162, 128,  76
W, 139, 227,  36,  48
1   58, 196,  ok,  ok << cha'D
* gaussian elimination routine *
vN
:"Row Dimension";n:"Column Dimension";m
X
a%(n,m{CBM-N}1),b(n{CBM-N}m{CBM-N}1):i{CBM-R}1{CBM-@}n:j{CBM-R}1{CBM-@}m{CBM-N}1:k{CBM-R}i{CBM-N}j
{CBM-I}
"a"i;j;:"=";a(i,j,b(k))
{CBM--}
"";:::"":"Next Row Dim";n{CBM-Q}1;"Next Col Dim";m{CBM-Q}1

i{CBM-R}1{CBM-@}n:j{CBM-R}1{CBM-@}m{CBM-N}1:a(i,j,b(k)); 141
/
   1,   3,  96, 201,  49, 208, 104, 169
\{CBM-N}
   2, 162, 182, 160,   3,  32, 189, 255
{CBM-H}
 169,   2, 162,   8, 160,   0,  32, 186
{CBM-L}{CBM-V}
 255,  32, 192, 255, 162,   2,  32, 198
{$e3}H
 255, 169,  13,  32, 210, 255,  32, 207
R
 255,  32, 207, 255
1{CBM-N}r2:r{CBM-R}ra{CBM-D}rb
7
H
r{CBM-R}{CBM-G}a(i{CBM-N}1){CBM-N}{CBM-G}b(i{CBM-N}1):r;::""::m{CBM-R}1{CBM-P}n{CBM-R}1{CBM-M}220
b
R
:110
{$7d}
{CBM--}
y{CBM-R}a(n,m{CBM-N}1,b(k)){CBM-Z}a(n,m,b(k)):y;"is a solution":: 3:1



{CBM-I}
"a"i;j;:"=";a(i,j,b(k))
{CBM--}
"";:::"":"Next Row Dim";n{CBM-Q}1;"Next Col Dim";m{CBM-Q}1

i{CBM-R}1{CBM-@}n:j{CBM-R}1{CBM-@}m{CBM-N}1:a(i,j,b(k));
:
'
 169,  0,162,  1,160,  1,169,019
m
  32,210,255,169,148, 32,210,255
S
 169,141, 32,210,255,200,192, 24
{CBM-N}
 144,241,232,224, 80,144,229, 96


































































































jsr $e257
x"lda device
z"sta $ba
\"jsr $79
+^"beq dvc1
9{$60}"jsr $aefd
gB"jsr $b79e
uD"jmp $e1ec
[F";
LH"dld jsr name
ZJ"jmp $e16f
L";
N"dsve jsr name
 P"jmp $e159
{CBM-+}R";
{CBM-U}T"chpres lda #0
DV"sta $90
PX"lda $ba
{$de}Z"jsr $ffb1
{$ec}{$7c}"jsr $ffae
Drive
-D
1,"m-w"G(0)G(16)G(3)G(id)G(mad)G(mct)
vN
 **sets up at locations $1000-$1003
^X
  1


10,255,200,192, 24
{CBM-N}
 144,241,232,224, 80,144,229, 96



































































































~"bne kat4

"jsr $ffe1
"beq kat2
("jsr $ffe4
5"beq kat1
h"kat5 jsr $ffe1
u"beq kat2
C"jsr $ffe4
P"beq kat5
{$7d}"bne kat1
 "dollar .byte "$"
{CBM-G}""device .byte 8
{CBM-Q}$";
{CBM-B}&"comms jsr $ad9e
M("jsr $b6a3
Y*"sta $b7
{$e5},"sty $bc
{$f1}."stx $b
=st{CBM-M}829,0: 4:
7~{$f9}198,3:631,13:632,13:633,13:"":


 up at locations $1000-$1003
^X
  1


10,255,200,192, 24
{CBM-N}
 144,241,232,224, 80,144,229, 96


































































































sfp
~B!;

D!kat lda device

F!sta $ba
+
H!lda #$60
7
J!sta $b9
b
L!lda #1
s
N!ldy #{CBM-E}dollar
D
P!ldx #{CBM-W}dollar
R
R!jsr $ffbd

T!jsr $f3d5

V!lda $ba

X!jsr $ffb4
{CBM-+}
Z!lda $b9
{CBM-H}
{CBM--}!jsr $ff96
{CBM-B}
{$de}!lda #0
K
 !sta $90
Y
{$e2}!jsr $ffa5
{$e7}
{$e4}!jsr $ffa5
{$fa}
{$e6}!kat1 jsr
nge for vic 20 >>



={CBM--}
 255,  32, 207, 255,  32, 207, 255, 170
J{$e6}
  32, 207, 255, 132, 251,  32, 205, 189
{CBM-A}{$eb}
   ok,  ok,  ok,  ok,  ok,  ok,  ok, 221 << change for vic 20 >>
{SHIFT--}{$f0}
 164, 251, 169,  32,  32, 210, 255,  32

{$fa}
 207, 255,  32, 210, 25::::
=
i{CBM-R}1{CBM-@}n:j{CBM-R}1{CBM-@}m{CBM-N}1: {CBM-G}a(i){CBM-R}{CBM-Q}a(i{CBM-Q}1,1,b(k)){CBM-D}a(i,j,b(k))
Q{CBM-N}
 {CBM-G}b(i){CBM-R}a(i,1,b(k)){CBM-D}a(i{CBM-Q}1,j,b(k)):r{CBM-R}{CBM-G}a(i){CBM-N}{CBM-G}b(i)
{CBM-O}{CBM-H}
r1{CBM-R}{CBM-Q}a(i{CBM-Q}1,1,b(k)){CBM-D}a(i,j,b(k)):r2{CBM-R}a(i,1,b(k)){CBM-D}a(i{CBM-Q}1,j,b(k)):ra{CBM-R}r1{CBM-N}r2

{CBM-V}
r1{CBM-R}a(i,1,b(k)){CBM-D}a(i{CBM-Q}1,j,b(k)):r2{CBM-R}a(i,1,b(k)){CBM-D}a(i{CBM-Q}1,j,b(k)):rb{CBM-R}r, 160,   2,  32, 207
={CBM--}
 255,  32, 207, 255,  32, 207, 255, 170
J{$e6}
  32, 207, 255, 132, 251,  32, 205, 189
{CBM-A}{$eb}
   ok,  ok,  ok,  ok,  ok,  ok,  ok, 221 << change for vic 20 >>
{SHIFT--}{$f0}
 164, 251, 169,  32,  32, 210, 255,  32

{$fa}
 207, 255,  32, 210, 25
e 0
-B;
(-Ddlz lda uzf2
5-Fbne dlz1
@-Hlda t3
k-Jldy t4
y-Lsta sdptr
I-Nsty sdptr{CBM-N}1
Y-Pdlz1 lda #0
-Rsta uzf2
-T;
-Vdelins lda t3
{SHIFT-POUND}-Xldy t4
{CBM-U}-Zsta mvstrt
I-{$7c}sty mvstrt{CBM-N}1
Q-{$7e}sec
{CBM-*}-sbc sdptr
{$eb}-sta $22
{$f3}-tya
.sbc sdptr{CBM-N}1
.sta +c95l6 lda l95txt,y
6+sta (t5),y
>+iny
f+tax
t+bne c95l6
\+dey
I+ sty linC
V+"sty uzf2
+$jsr t3bump
+&jsr updabp
 +(jmp dlz
{CBM-+}+*;
{CBM-J}+,l95put pha
{SHIFT-*}+.{CBM-P} #$f0
N+0beq l95p1
V+2lsr
{$de}+4lsr
{$e6}+6lsr
{$ee}+8lsr
{$fa}+:{CBM-A}a #$30
,<sta (t5),y
,>in)

 dos support (d. spruyt, 1985)   :
/
:
o
 5 statements, 2 functions
u
:
M
 keyword chars: 24
S
:

 keyword     routine  line   ser #
B
  s/cat      kat      8644    123
{$e9}
  s/dos      comms    8742    124

  s/dev      dv
c95l2
')Hlda $7a
5)Jbne c95l3
a)Ldec $7b
s)Nc95l3 dec $7a
B)Plda stmctr
N)Rsta $24
{$7d})Tlda functr
)Vsta $25
)Xjsr c2l2
{CBM-T})Zlda uzf3
{CBM-A}){CBM--}beq rdn2
{CBM-U}){$de}sei
{SHIFT-*}) sed
H){$e2}clc
W){$e4}lda stmctr
{$e3}){$e6}adc $24
{$f2}){$e8}sta stmctr

*{$ea}bcs c95l4
*{$ec}lda functr
*{$ee} bne mvm6
4B inc $23
!4D inc $25
)4F dex
64H bne mvm6
k4J mvm7 lda ($22),y
[4L sta ($24),y
C4N iny
N4P cpy t2
{$7b}4R bne mvm7
4T rts
4V ;
4X mvstrt .w{CBM-A}d 0
{CBM-Z}4Z mvdest .w{CBM-A}d 0
{CBM-C}4{CBM--} mv .w{CBM-A}d 0
B4{$de} ;
U4""device .byte 8
{$e8}4{CBM-V}#errpgm ldx $3a
{$f0}4{SHIFT-*}#inx
{$fd}4B#bne epg1
Rtay
+'Tjsr $73
8'Vbcs rdn1
c'X{CBM-P} #$0f
o'Zsta $22
w'{$7c}tya
_'{$7e}asl
G'asl
O'asl
W'asl
'{CBM-A}a $22
'tay
'jsr $73
{CBM-T}'rdn1 clc
{CBM-A}'rdn2 rts
{CBM-L}';
J'chkl95 lda uzf3
W'beq rdn2
{$e4}'lda #$5f
{$ef}'ldy #0
{$fb}'sta $14
(sty $15
(sty uzf3
"( v{CBM-N}1
2T sbc mvstrt{CBM-N}1
!2V pha
)2X clc
:2Z adc mvstrt{CBM-N}1
f2{$7c} sta $23
n2{$7e} pla
v2 clc
G2 adc mvdest{CBM-N}1
S2 sta $25
2 mvm4 lda ($22),y
2 sta ($24),y
 2 dey
{CBM-Z}2 cpy #$ff
{SHIFT-@}2 bne mvm4
F2 lda $23
W2 cmp mvstrt{CBM-N}1
{$e4}2 beq mvm5
{$f0}2 dec $23
{$fc}2 dec $25
3 jt3
+%"sta t3
6%$lda t4
a%&adc #0
l%(sta t4
t%*rts
z%,;
K%.chkl2 ldy #2
Z%0lda (t5),y
%2cmp #2
%4bne c2l4
%6iny
{SHIFT-POUND}%8lda (t5),y
{CBM-L}%:bne c2l4
A%<lda t5
L%>ldy t6
W%@adc #2
{$e3}%bsta $7a
{$f0}%dbcc c2l1
{$f8}%finy
&hc2l1 sty $7b
&jjsr $73
"&lcmlda t5
0{$de}ldy t6
%0 sta mv
30{$e2}sty mv{CBM-N}1
a0{$e4}jmp mvmem
g0{$e6};
x0{$e8}sdptr .w{CBM-A}d 0
I0{$ea}siptr .w{CBM-A}d 0
O0{$ec};
0: mvmem lda mv
0< bne mvm1
0> dec mv{CBM-N}1
{CBM-Z}0@ mvm1 dec mv
{CBM-W}0b ;
G0d mvm2 lda mvstrt
S0f sta $22
{$e2}0h lda mvdest
{$ee}0j sta $24
{$fc}0l lda mv{CBM-N}1

1n cmp m
.F "caTdoSdeV"


.F "dloaDdsavE"
>
L.F "ds":.byte $a4:.F "dS"
[
N.w{CBM-A}d kat{CBM-Q}1,comms{CBM-Q}1,dvc{CBM-Q}1
Q
O.w{CBM-A}d dld{CBM-Q}1,dsve{CBM-Q}1

t.w{CBM-A}d dss{CBM-Q}1,dsn{CBM-Q}1

<
usfp ldx #0
{CBM-I}
>
stx $0d
{CBM-S}
@
sta $62
{SHIFT-@}
b
sty $63
G
d
ldx #$90
O
f
sec
{SHIFT--}
h
jmp $bc49
{$e3}
j
;
{$f7}
P!dss1 lda device
$23
.sec
".lda t5
0.sbc siptr
8.pha
c.lda t6
s.sbc siptr{CBM-N}1
[.tay
C.pla
K.sec
W.sbc $22
.sta $22
. tya
.{CBM-I}sbc $23
{CBM-T}.{CBM-@}sta $23
{CBM-Q}.{CBM-+}clc
{CBM-L}.{CBM-POUND}lda t3
B.{CBM-N}adc $22
M.{CBM-D}sta t3
{CBM--}.{CBM-S}sta mvdest
{$e7}.{CBM-A}lda t4
{$f3}.{CBM-R}adc $23
{$fe}.{CBM-H}sta t4
/{CBM-L}sta mvd
y
,@l95p1 pla
*,b{CBM-P} #$0f
6,d{CBM-A}a #$30
e,fsta (t5),y
m,hiny
u,jrts
[,l;
N,nstmctr .byte 0
,pfunctr .byte 0
,r;
{CBM-K},tl95txt .byte 1,1,95,0
{CBM-P},v.F "xtra"
{CBM-C},x.byte 32
K,z.F ".byte"
{$f0},\.byte 32,32,32,32,32,32,32,59,32
-^.F "stmts,funcs"
-{$60}.bytc      8766    125
6

 s/dload    dld      8808    126
\
 s/dsave    dsve     8814    127

 f/ds$      dss      8598    128
{CBM-POUND}

 f/ds       dsn      8618    129
{CBM-S}
:
F
 u/usfp (2620/006)
L
:
{$f3}
 ================================
{$f9}
:

adc $25
**{$f0}sta functr
8*{$f2}c95l4 cld
@*{$f4}cli
m*{$f6}bcs rdn2
\*{$f8}jsr makbuf
G*{$fa}ldy #0
{$7e}*{$fc}c95l5 lda l95txt,y
*{$fe}sta (t5),y
*
iny
{CBM-I}*cpy #$0f
{CBM-A}*bne c95l5
{CBM-B}*lda stmctr
N*jsr l95put
{SHIFT-+}*
lda #","
{$ea}*sta (t5),y
{$f2}*iny
+lda functr
+jsr l95put
'
$5D#rts
5F#epg1 jmp $af08
5H#;


 mvstrt{CBM-N}1
:3  sta $23
k3{CBM-I} lda mvdest{CBM-N}1
w3{CBM-@} sta $25
C3{CBM-+} lda mv
K3{CBM-POUND} sec
Z3{CBM-N} sbc mvstrt
3{CBM-D} sta t2
3{CBM-S} inc t2
3{CBM-A} lda mv{CBM-N}1
{CBM-P}3{CBM-R} sbc mvstrt{CBM-N}1
{SHIFT-@}3{CBM-H} ldy #0
B3{CBM-L} tax
O3{CBM-U} beq mvm7
{$e4}3{SHIFT-@} mvm6 lda ($22),y
{$f4}3{CBM-C} sta ($24),y
{$fc}3{CBM-V} iny
4{SHIFT-*}jsr $a533
0({CBM-I}jsr $a613
=({CBM-@}bcc rdn2
i({CBM-+}lda $5f
u({CBM-POUND}ldy $60
{$60}({CBM-N}sta t3
K({CBM-D}sty t4
Y({CBM-S}sta sdptr
({CBM-A}sty sdptr{CBM-N}1
({CBM-R}adc #2
 ({CBM-H}sta $7a
{CBM-S}({CBM-L}bcc c95l1
{CBM-L}({CBM-U}iny
H({SHIFT-@}c95l1 sty $7b
T({CBM-C}jsr $73
{$e1}({CBM-V}cmp #"x"
{$ee}({SHIFT-*}bne rdn2

)Bc95l2 jsr $73

)Dbeq rdn2
)Fbcs mp mvm4
3 mvm5 rts
.3 dmvmem lda mvstrt{CBM-N}1
:3  sta $23
k3{CBM-I} lda mvdest{CBM-N}1
w3{CBM-@} sta $25
C3{CBM-+} lda mv
K3{CBM-POUND} sec
Z3{CBM-N} sbc mvstrt
3{CBM-D} sta t2
3{CBM-S} inc t2
3{CBM-A} lda mv{CBM-N}1
{CBM-P}3{CBM-R} sbc mvstrt{CBM-N}1
{SHIFT-@}3{CBM-H} ldy #0
B3{CBM-L} tax
O3{CBM-U} beq mvm7
{$e4}3{SHIFT-@} mvm6 lda ($22),y
{$f4}3{CBM-C} sta ($24),y
{$fc}3{CBM-V} iny
4{SHIFT-*}p #$8f
/&nbne c2l4
b&pc2l2 jsr rdnum
o&rbcs c2l4
^&tsty stmctr
P&vc2l3 cmp #","
{$7d}&xbeq c2l5
&zjsr $73
&\bne c2l3
{CBM-T}&^c2l4 rts
{CBM-L}&{$60}c2l5 jsr rdnum
C&Bbcs c2l4
R&Dsty functr
{CBM-*}&Finc uzf3
{$e7}&Hrts
{$ed}&J;
~&Lrdnum jsr $73
'Nbcs rdn2
'P{CBM-P} #$0f
'vstrt{CBM-N}1
1p bcc mvm5
'1r bne mvm3
31t lda mv
b1v cmp mvstrt
o1x bcc mvm5
E1z mvm3 lda mvdest{CBM-N}1
V1\ cmp mvstrt{CBM-N}1
1^ bcc dmvmem
1{$60} bne umvmem
 1B lda $24
{CBM-D}1D cmp $22
{CBM-O}1F beq mvm5
H1H bcc dmvmem
{SHIFT-+}1J umvmem lda mv
{$e3}1L sec
{$f2}1N sbc mvstrt
{$fa}1P tay
2R lda mR!sta $ba
T!lda #$6f
V!sta $b9
'X!lda #0
3Z!sta $b7
b{$7c}!jsr chpres
n{$7e}!lda $ba
\!jsr $ffb4
H!lda $b9
V!jsr $ff96
!ldy #$ff
!dss2 iny
!jsr $ffa5
{CBM-S}!sta dsbuf,y
{CBM-F}!cmp #$0d
H!bne dss2
V!jsr $f642
{$de}!rts
{$ef}!dss jsr dss1
{$f7}!tya
est{CBM-N}1
/{CBM-U}clc
#/{SHIFT-@}lda $2d
//{CBM-C}sta mv
;/{CBM-V}adc $22
g/{SHIFT-*}sta $2d
s/Blda $2e
A/Dsta mv{CBM-N}1
M/Fadc $23
Y/Hsta $2e
/Jjsr mvmem
/Llda sdptr
{CBM-@}/Nsta mvdest
{CBM-H}/Plda sdptr{CBM-N}1
E/Rsta mvdest{CBM-N}1
S/Tlda siptr
{$e3}/Vldy siptr{CBM-N}1
{$f2}/Xsta mvstrt
0Zsty mvstrt{CBM-N}1
0{CBM--}
=D

 use (june 18/85)               :
J
:

  1 statement, 0 functions

:
{CBM-D}
 keyword characters: 3
{CBM-R}
:
Z
 keyword     routine  line   ser #

 use         uze      7192    117

:

 u/mvmem (8250/120)
:

 u/delins (8054/122){$fa}{$fa}{$fa}{$fa}{$fa}{$e8}{$fa}{$fa}{$fa}lsrn^{$fa}fv{$fa}j{$fa}{$fa}{$fa}nop{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$ea}{$fa}{$fa}{$fa}pha{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}h{$fa}{$fa}{$fa}php{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}pla{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}H{$fa}{$fa}{$fa}plp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}({$fa}{$fa}{$fa}rol.>{$fa}&6{$fa}*{$fa}{$fa}{$fa}r{CBM-A}

N{$7e}{$fa}FV{$fa}J{$fa}{$fa}{$fa}rti{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}@{$fa}{$fa}{$fa}sec{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}8{$fa}{$fa}{$fa}sed{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$f8}{$fa}{$fa}{$fa}sei{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}tay{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-POUND}{$fa}{$fa}{$fa}tsx{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{SHIFT-@}{$fa}{$fa}{$fa}txs{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}symass 3.13 robert huehn feb 1986



first pass.*cpy linC
a,bne uz18
n.beq uz13
t0;
H2dskchk ldx #$62
V4jsr chkin
6jsr prg{CBM-K}
8cmp #"2"
:bcc dkc2
{CBM-N}<cmp #"7"
{CBM-Y}>bne dkc1
D@jsr prg{CBM-K}
Qbcmp #"3"
{$de}dbne dkc1
{$e6}fclc
{$f4}h.byte $24
 jdkc1 sec
 ldkc2 php
  ndkc3 jsr prg{CBM-K}
, plda
{$fa}{$fa}bneP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}beq{$f0}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cmpM{SHIFT--}YEU{$fa}{$fa}IAQjsr {$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}ldx{CBM-S}{$fa}{CBM-V}{CBM-+}{$fa}{CBM-L}{$fa}{CBM-I}{$fa}{$fa}rts{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$60}{$fa}{$fa}{$fa}ldy{CBM-D}{CBM-C}{$fa}{CBM-@}{CBM-H}{$fa}{$fa} {$fa}{$fa}bmi0{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}decN{$de}{$fa}FV{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-P}



-=9%5{$fa}{$fa})!1bcs{CBM-A}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}inc{$ee}{$fe}{$fa}{$e6}{$f6}{$fa}{$fa}{$fa}{$fa}{$fa}bcc{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}tya{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bpl{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}asl{$fa}{$fa}
{$fa}{$fa}{$fa}clc{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}adcM{$7d}YEU{$fa}{$fa}IAQe{CBM-A}

m]yeu{$fa}{$fa}iaq uz12 jsr {CBM-K}lin
j{$e2}lda uzf1
v{$e4}bne uz9
D{$e6}jsr chkl2
X{$e8}uz13 jsr compar
{$ea}bcc uz15
{$ec}php
{$ee}jsr updabp
{CBM-Q}{$f0}sta linflg
{CBM-W}{$f2}plp
{CBM-B}{$f4}bne uz7
L{$f6}lda uzf2
Y{$f8}bne uz14
{$e4}{$fa}lda t3
{$ef}{$fc}ldy t4
{$fd}{$fe}sta sdptr


sty sdptr{CBM-N}1
sty uzf2
.uz14 jsr t3bu{$e6}]{$e6}]l{$f6}
 {$f9}


{CBM-E}ZI({$f0} {CBM-E}[
{$fb}
 s{$f7}
 {$fb}
 {$fb}
l{$f6}
{$e6}ZP{$e6}{$7b}F]F] {CBM-E}[
{$fb}
 s{$f7}
 {$fb}
 {$fb}
{$e6}]l{$f6}
I{$fa}P
{CBM-I}{CBM-*}~ {CBM-*}~ {$f9}
 B{CBM-X}lg{$f9}


y{$e6}yP{$e6}z{$60}{CBM-I}



{CBM-E}Z{$f0}.I"{$f0}# {$f0}I:{$f0}"I;{$f0}I{CBM-R}{$f0}I {$f0}HP{$e1}{SHIFT-*}

P{$e6}ZPY{$e6}{$7b}PUi{CBM-N}lf{$fb}
]{SHIFT-*}

{$60}H{CBM-E}ZIbPl{$fb}
IwPl {$fb}
IFPl{$fc}
IPl){$fc}
IpPlh{$fc}
{CBM-I}{$ed}~ {$ed}~ {$f9}
 B{CBM-X}lg{$f9}
{CBM-G}Pl{CBM-D}{$f5}jsr prg{CBM-K}
hjsr prg{CBM-K}
tlda $2b
{$60}ldy $2c
Ksta t3
Vsty t4
 lda #0
{CBM-I}sta uzf1
{CBM-@}sta uzf2
{CBM-POUND}{CBM-+}sta uzf3
{CBM-Y}{CBM-POUND}sta stmctr
F{CBM-N}sta functr
Y{CBM-D}uz6 jsr makbuf
{$e5}{CBM-S}uz7 sec
{$f1}{CBM-A}lda $37
{$fc}{CBM-R}sbc t5
{CBM-H}lda $38
{CBM-L}sbc t6
{CBM-U}sbc #2
+{SHIFT-@}bcs uz12
:{CBM-C}"
-!{$7c};
@!{$7e}linflg .byte 0
q!linC .byte 0
D!uzf1   .byte 0
W!uzf2   .byte 0
!uzf3   .byte 0
!;
 !{CBM-K}lin ldy #0
{CBM-A}!gtl1 sty t2
{CBM-X}!jsr prg{CBM-K}
H!ldy t2
W!sta (t5),y
{$e3}!ldx $90
{$f0}!stx uzf1
{$fd}!bne gtl4
"cpy #4
"bcc gtl3
"tax
*" beabjsr $79
mdbeq uz4
[fjsr $aefd
Ihjsr $b79e
Wj.byte $2c
luz4 ldx device
nstx t2
{CBM-I}plda #$62
{CBM-D}rjsr
{CBM-Y}tlda #0
Fvjsr setnam
Sxlda #$62
{$de}zldx t2
{$eb}\ldy #$0f
{$fa}^jsr setlfs
{$60}jsr
Blda t2
Djsr $ffb1
+Fjsr $ffae
7Hlda r{CBM-N}1
0#Lsta t6
8#Npla
?#Pr{CBM-A}
m#Rsta siptr
x#Tsta t5
C#Vlda #0
R#Xsta linflg
Z#Zrts
#{CBM--};
#{$de}updabp sec
# lda linC
{CBM-M}#{$e2}adc t5
{CBM-R}#{$e4}sta t5
{CBM-X}#{$e6}lda #0
H#{$e8}adc t6
S#{$ea}sta t6
{SHIFT-+}#{$ec}rts
{$e1}#{$ee};
{$f3}#{$f0}compar ldy #1
{$fb}#{$f2}sec

${$f4}lda (t3),y
${$f6}beq com2
"${$f8}ldy
t
 u/errpgm (9150/135)
z
:


 ================================

:
&
;
{CBM-I}'
setlfs   {CBM-R} $ffba
{CBM-Y}(
setnam   {CBM-R} $ffbd
I)
     {CBM-R} $e1c1
{$de}*
chkin    {CBM-R} $e11e
{$ef}+
     {CBM-R} $e1cc
,
chn   {CBM-R} $ffcc
-
{CBM-K}in    {CBM-R} $e124
.
;
(
.F "usE"
7L.w{CBM-A}d uze{CBM-Q}1

 ..

second pass...


assembly complete


symbol table overflow


illegal quantity


undefined symbol


branch out of range


illegal mode


illegal pseudo-op

rk{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}

{$fa}{$fa}{$fa}bvcp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bvsP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cld{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}cli{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}x{$fa}{$fa}{$fa}clv{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-U}{$fa}{$fa}{$fa}cpyL{$fa}{$fa}D{$fa}{$fa}{$fa}{SHIFT-*}{$fa}{$fa}inx{$fa} $90
9 rbeq dkc3
d tlda #0
p vsta $90
x xplp
E zbcs pgg1
M \rts
S ^;
 {$60}prg{CBM-K} jsr {CBM-K}in
 Bpha
 Dlda $90
{CBM-T} F{CBM-P} #$bf
{CBM-A} Hbne pgg1
{CBM-U} Jpla
{SHIFT-*} Lrts
R Npgg1 jsr uz11
{$e2} Plda #{CBM-W}uzerr
{$ee} Rsta $22
{$fe} Tlda #{CBM-E}uzerr
!Vjmp $a445
!X;
'!Zuzerr .F "mergEtxa{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cpx{$ec}{$fa}{$fa}{$e4}{$fa}{$fa}{$fa} {$fa}{$fa}jmplL{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}tax{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-N}{$fa}{$fa}{$fa}iny{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}H{$fa}{$fa}{$fa}sty{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-A}a


{$fa}{$fa}dey{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}dex{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}J{$fa}{$fa}{$fa}stx{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}sbc{$ed}{$fd}{$f9}{$e5}{$f5}{$fa}{$fa}{$e9}{$e1}{$f1}bit,{$fa}{$fa}${$fa}{$fa}{$fa}{$fa}{$fa}{$fa}brk{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}

{$fa}{$fa}{$fa}bvcp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bvsP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cld{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}cli{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}x{$fa}{$fa}{$fa}clv{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-U}{$fa}{$fa}{$fa}cpyL{$fa}{$fa}D{$fa}{$fa}{$fa}{SHIFT-*}{$fa}{$fa}inx{$fa}mp
:jmp uz7
nuz15 lda linflg
[
beq uz16
Gjsr dlz
{$7b}uz16 jsr compar
bcs uz17
jsr t3bump
clc
{CBM-D}bcc uz16
{CBM-C}uz17 lda t5
Gldy t6
Ssta $22
{CBM-*}sty $23
{$ee} jsr makbuf
{$fb}"ldy #$ff
$uz18 iny
&lda ($22),y
'(sta (t5),y
4
l{$f6}
{SHIFT-POUND}

{$60} {$f9}
^

{CBM-E}ZI,{$f0}HD^P{$f5}{CBM-G}{$f0}3]H{CBM-G}^^8{$e5}^^{CBM-A}{SHIFT-POUND}

^ s{$f7}
 {$fb}
{CBM-G}{$60}{$f0} {$fb}
{CBM-G}^{$f0}${CBM-@}]HEZZ{SHIFT-*}{$e6}{$7b}P{CBM-C}{CBM-G}{$60}{$f0}{SHIFT-POUND}IEyy{$e6}zD^P{CBM-P}l{$fb}
 {$f9}
 {CBM-E}ZI"{$f0}{CBM-+}{$f0}^ {$fb}
{CBM-@}^HD]P{$ea}l{$fb}
{$e6}yP{$f4}{$e6}zP{$f0}{CBM-G}PlI{$f5}
 {$f9}
{CBM-I}{$7c}~ {$7c}~ {$f9}
{CBM-G}y9{CBM-G}z: B{CBM-X}l{CBM-S}{CBM-M}{CBM-G}y){$f0}{CBM-G}{$f0}{SHIFT-POUND}

 {$fb}
l{$fb}
{$e6}yP{$f9}{$e6}zP{$f5}lda{CBM-Z}{CBM-X}{CBM-O}{CBM-G}{CBM-J}{$fa}{$fa}{SHIFT-POUND}{CBM-K}{CBM-E}sta{$fa}lda linflg
f{CBM-V}beq uz8
r{SHIFT-*}jsr dlz
^Bjmp uz6
ODuz8 jsr uz11
{$7d}Fjmp $a435
Huz9 lda linflg
Jbeq uz10
{SHIFT-POUND}Ljsr dlz
{CBM-X}Nuz10 jsr chkl95
JPjsr uz11
XRjmp $a474
{$ea}Tuz11 jsr chn
{$f7}Vlda #$62
Xjsr
Zjsr $ffe7
{CBM--}jsr $a533
+{$de}jmp $a659
=q gtl4
7"{CBM-I}gtl2 iny
d"{CBM-@}bne gtl1
q"{CBM-+}jsr uz11
_"{CBM-POUND}jmp $ab66
O"{CBM-N}gtl3 cpy #1
{$7c}"{CBM-D}bne gtl2
"{CBM-S}tax
"{CBM-A}bne gtl2
"{CBM-R}dex
{CBM-+}"{CBM-H}stx uzf1
{CBM-U}"{CBM-L}gtl4 sty linC
{SHIFT-*}"{CBM-U}rts
F"{SHIFT-@};
U"{CBM-C}makbuf clc
{$e1}"{CBM-V}lda $37
{$ed}"{SHIFT-*}adc $2d
{$f5}"Bpha
#Dlda $38

#Fadc $2e
#Hlsr
%#Jsta sipt$90
cJbeq uz5
nLldx #5
]Njmp ($300)
PPuz5 jsr dskchk
{$7d}Rlda #$63
Tjsr
Vpla
Xtay
Zpla
{CBM-M}{$7c}tax
{CBM-P}{$7e}pla
{CBM-V}jsr setnam
Klda #$63
Vldx t2
{$de}tay
{$ed}jsr setlfs
{$f7}jsr
jsr dskchk
jsr chn
 ldx #$63
.jsr chkin
;#3
1${$fa}lda (t3),y
@${$fc}cmp (t5),y
m${$fe}bcc com1
z$
bne com1
B$dey
Q$lda (t3),y
$cmp (t5),y
$com1 rts
$
com2 lda #1
{CBM-G}$rts
{CBM-Q}$;
{CBM-X}$t3bump ldy #4
Q$mku1 lda (t3),y
{$de}$beq mku2
{$e6}$iny
{$f3}$bne mku1

%jmp pgg1

%mku2 tya
%sec
 % adc juze jsr errpgm
ulda #2
Cjsr $b4f4
Qjsr $ad9e
{$7f} jsr $b6a3
"jsr $b4f4
$tay
{CBM-K}&bne uz1
{CBM-P}(jmp $af08
{SHIFT-*}*uz1 lda #","
P,sta ($33),y
X.iny
{$e5}0lda #"p"
{$f5}2sta ($33),y
{$fd}4iny
6tya

8pha
:lda $33
!<pha
->lda $34
5@pha

{$f1}'

 "TransBASIC programs start here
g
 "load and run the program
J
 "'tb sampler.run' for a demo

 "of the TransBASIC II system.
{CBM-P}
 "note: this file is only a
N
 "directory placemarker -
{$ed}(
 "scratch it if you wish.

















D
 b  160
%N
q${CBM-R}G(34): G(14);
qX
b{CBM-R}1:  "Instructions (y/n)   y";yn$
E
 yn${CBM-R}"y"  300
{$7c}
 B(773){CBM-W}192  160

_a
{CBM-@}
d${CBM-R}J(D(B(186)),2):  a  180
{CBM--}{CBM-N}
a{CBM-R}1: "loading 'use' code" :  "tb/use.obj",E(d$),1
{$e8}{CBM-H}
 49152
{CBM-V}
b${CBM-R}q${CBM-N}"symass 3.1
633: j,13:
"
j{CBM-R}634{CBM-@}638: j,17:
(
"
d
, "TransBASIC Sampler
j
6
S
@ "This Transactor Disk contains the
{CBM-K}
j "TransBASIC modules that were published
H
t "in the corresponding Transactor
{$f3}
^ "Magazine. Most modules contain more
 H

 "enter 'RUN' and the commands will be
j{CBM-S} "added to BASIC. You can then include
X{CBM-U} "the new commands as part of your BASIC
{CBM-T}B "programs. For more details, see the
RL "TransBASIC II Manual (see order card in
{$e9}V "any Transactor)
{$ef}

{$ea}

{SHIFT-*}l{SHIFT-*}lEA

elsEexiTusE
:{SHIFT-POUND}DA{$e5}A{CBM-I}{CBM-X}@{SHIFT-*}{CBM-X}h{SHIFT-*}J{$f1}{CBM-Z}{SHIFT-*}M{SHIFT-*}{SHIFT-*}{SHIFT-POUND}{$60}{SHIFT-*} F{$60}
{$7c}{CBM-G}{CBM-M}{$e4}{CBM-M}{CBM-S}p{SHIFT-*}{CBM-V}{SHIFT-*}{$fd}{SHIFT-*}iA{CBM-I}

{CBM-X}
I"{$f0}\ {SHIFT-+}A%Q
JH{$e8}{CBM-X}
8{$f9}{SHIFT-*}{$f0}{$f5}IP{SHIFT-POUND}_{CBM-@}Q
H{CBM-G}I?{$e8}
H{CBM-O}
PEL@{SHIFT-*}{CBM-+}{$e6}{CBM-G}I{$f0}{$f8}H{CBM-O}{SHIFT-*}{$fa}{CBM-O}{SHIFT-*}PE{CBM-@}Q{CBM-X}
W{CBM-X}
{$f0}RI"{$f0}N
H{$e8}P{$f0}I_PH{CBM-E}_{$e9}@I{$e9}M{SHIFT-*}{CBM-E}_{CBM-N}Lb{SHIFT-*}
{CBM-N}{$f0}{CBM-O}{SHIFT-*}H({$f8}JP{$f5}{CBM-O}{SHIFT-*}){$7f} g{CBM-Q}H({$f3}{CBM-@}l

l{CBM-P}{SHIFT-POUND},3H{SHIFT-POUND}p3Hh{CBM-G}3h{CBM-G}4h Y
{$f0} {$fd}{CBM-S} {CBM-Y}l B{CBM-S}FF{SHIFT-POUND}B L{$e1}{SHIFT-POUND}
 {CBM-X}~{SHIFT-POUND}B{CBM-+}  {SHIFT-@}~ A{$e1}{CBM-G} {CBM-E}~ {CBM-S}~{CBM-G}{$f0}{CBM-I}L
 2C{SHIFT-POUND}C L{$e1}H{CBM-POUND}H{CBM-N}H {CBM-X}~{SHIFT-POUND}C{CBM-+}{CBM-POUND} {SHIFT-@}~ A{$e1} 2C L~{CBM-I}C {$e1} \C \C{CBM-G}+{CBM-@},{SHIFT-POUND}
{$7b}C{$7c}C{$7d}C+E,E {CBM-P}C8{CBM-G}7{$e5}{CBM-G}8{$e5}{$e9}{CBM-A}3{CBM-Z}YC{$f0} pElB CBl5{CBM-@}{CBM-Z}YC{$f0} pE KD CBlT{CBM-@} L~{SHIFT-POUND}B L{$e1} {$e7}~ 3{CBM-G}ly{CBM-+} {$7e}C{CBM-Z}{$7b}CPV D {SHIFT-+}C" LCYC(P{CBM-+}{CBM-Z}{$7c}CP
{CBM-G}{CBM-@}
{CBM-E}{$f0}HP{$f9}lHC8E{CBM-G}I
{$60} {CBM-E}IP*H{CBM-E}P%{CBM-G}{CBM-@}IZH{$7b} S
IP mD{CBM-A}+EI,{$f0} S
P{$f7}{$60} mD{CBM-A}{$fa},E{$ee}{$7d}C{$60} S
{CBM-A}){CBM-POUND} S
{CBM-A})"



"{CBM-POUND} S
{$60}{CBM-Z}{$7d}C{$f0}{$fa}{SHIFT-POUND}_
{$7d}C 3{CBM-G} {CBM-+}{$e7}{CBM-G}_{CBM-@}{$60} E{$e1}EIZH{$7b} S
IxPI S
{$f0}D{CBM-A}{$f9}{CBM-G}ZPF{$7b}FZ{CBM-Z}+E${CBM-Z},E% /D{CBM-Z}{$7d}C{$f0}{CBM-POUND}X{$f8}{CBM-Z}+EE$+E{CBM-A}{CBM-Z},EE%,EXx{CBM-A} {CBM-P}C
{CBM-O}-EH{SHIFT-*}P{$f6}{CBM-Z}+E E{SHIFT-POUND},
{CBM-N}"{CBM-Z}F${CBM-Z}FMFoP{CBM-Z}FMFe{CBM-Z}FMF>P{CBM-G}$E"{$f0}54{CBM-Z}F8{$ed}F{CBM-POUND}{CBM-Z}F{$ed}FhMF#HMF%{CBM-E}"${SHIFT-*}~P{$f7}{CBM-G}#MF{$f0}F#F%l9F{$60}{CBM-Z}F#{CBM-Z}F%{CBM-Z}F8{$ed}F{$e6}{CBM-Z}F{$ed}F
{CBM-N}{$f0}{CBM-E}"$HP{$f9}{$e6}#{$e6}%JP{$f2}{CBM-E}"$HDP{$f7}{$60}





{CBM-+}:{$e8}P{$60}l{CBM-P}{$60}{$60}PI S
{$f0}D{CBM-A}{$f9}{CBM-G}ZPF{$7b}FZ{CBM-Z}+E${CBM-Z},E% /D{CBM-Z}{$7d}C{$f0}{CBM-POUND}X{$f8}{CBM-Z}+EE$+E{CBM-A}{CBM-Z},EE%,EXx{CBM-A} {CBM-P}C
{CBM-O}-EH{SHIFT-*}P{$f6}{CBM-Z}+E E{SHIFT-POUND},


2061


{CBM-G}7({CBM-G}8){CBM-G}-&{CBM-G}.'
{CBM-G}&PF'F&{CBM-E}&I{CBM-A}oh{CBM-G}&PF'F&{CBM-E}&I2{CBM-N}{CBM-G}&PF'F&{CBM-E}&E7*E8{CBM-N}HP{CBM-G}(PF)F(({CBM-G}*
IP{CBM-G}*h{CBM-G}(PF)F(H({CBM-T}I{$7f}P{$ed}{SHIFT-POUND}l{CBM-C}{CBM-G}({CBM-X}7{CBM-G}){CBM-V}8 C{CBM-+}{SHIFT-POUND}~:l{CBM-C}{$7f}{SHIFT-POUND}

{CBM-I}:~ :~ {$f9}
{CBM-+}:{$e8}PlT{CBM-@}{CBM-I}^~ ^~ {$f9}
{CBM-G}7w{CBM-G}8x{$e6}ZP{$e6}{$7b}{CBM-G}Zpn{CBM-G}{$7b}qo x{$f9}
PlI{$f5}
 &{$fb}
PI{CBM-R}P;ln{$f6}
{CBM-I}

{CBM-K}ZI
 {$f9}
 s{$f7}


rHrl{CBM-D}{$f5}
{CBM-G}w8{$e9}
w{CBM-A}FxE-{CBM-G}x{$e5}.{CBM-A}
{CBM-I}~ ~ {$f9}
 B{CBM-X}lg{$f9}
{CBM-G}wIr{CBM-G}xI

s {SHIFT-POUND}

wP{$fb}{CBM-@}]{CBM-E}ZwP{$f8}{$60}

{CBM-E}ZIj{$f0}IbP !{$f0}  {$f0} {$f9}
{SHIFT-POUND}Ps {$f9}
{SHIFT-POUND}Pl {$f9}
P{SHIFT-POUND}Pc

{CBM-E}ZI#{$f0}{$e4}I({$f0} {CBM-@}]{$f0}+{$f0}({CBM-E}ZI,P"H{CBM-E}Z Ix{$f0}H{CBM-E}[I{$fa}{$f0}{CBM-@}]] s{$f7}
{$e6}]{$e6}]

l
{$f7}
 s{$f7}
{$f0}{CBM-Q}{SHIFT-POUND}Eyy{$e6}zl{CBM-D}{$f5}
 {$f9}
 {$f9}
 s{$f7}
yz{$60}H{CBM-E}Z&{SHIFT-POUND}
-I{CBM-A})I
&&'{CBM-A}$&&'{CBM-A}&&'{CBM-A}&&'{CBM-A}E&&{CBM-G}'I

'{CBM-A}HPDl {$f7}
{CBM-I}{CBM-+}~ {CBM-+}~ {$f9}
 B{CBM-X}lg{$f9}
{SHIFT-POUND}

&'{CBM-E}Z8{$e9}06I
{CBM-A}2h{CBM-G}&{CBM-+}'&&'{CBM-A}W&&'{CBM-A}QE&&E''{CBM-A}F&&'{CBM-A}{SHIFT-*}HE&&{CBM-G}'I

'{CBM-A}{CBM-W}HPCl {$f7}
H{SHIFT-POUND}

&'{CBM-E}Z8{$e9}0I{CBM-A}&&'{CBM-A}E&&{CBM-G}'I

'HP{$e2}l {$f7}
{SHIFT-POUND}B{$fc}[{SHIFT-POUND}B{$fc}\{CBM-I}



{CBM-E}[{$f0}QZPH{SHIFT-*}{$f3}D]P8{$60}{$e8}{CBM-G}[I
[{$e6}\ 8P{SHIFT-+}{$60}{CBM-G}7B{CBM-G}8C
3"{CBM-N}q$
H
 "load " b$ "," d$
-R
"run
f{CBM--}
a${CBM-R}q${CBM-N}"tb/kernel"{CBM-N}q$
I{$e6}
 "load " a$ "," d$ ""
{$f0}
 "Now enter: USE"q$"[module name]"q$
{CBM-F}{$f5}
 "(see directory for module names)
{$e4}{$fa}
 "When finished enter "q$"RUN"q$""
{$f0} 198,8

j{CBM-R}631{CBM-@}
"than one command. To try the commands
>R "in a module, type:":
M{$7c} "USE"G(34)"module name"G(34)",device#":
 "The device# defaults to the last one
F "one used. You may USE as many modules
{$f2} "as memory will allow. When finished,
{CBM-@}
="Proceed (y/n)   y";yn$
$
{$f4} yn${CBM-R}"y"  140
/
{$fe}b{CBM-R}0:


ype:":
M{$7c} "USE"G(34)"module name"G(34)",device#":
 "The device# defaults to the last one
F "one used. You may USE as many modules
{$f2} "as memory will allow. When finished,
{CBM-@}
{CBM-M} S
I{$f0}6I_P$ S
 Al{CBM-S}{CBM-M}8{$e9}@I{$e9}M{SHIFT-*}{CBM-A}
{CBM-POUND}{CBM-O}{SHIFT-*}h{CBM-O}{SHIFT-*}hlS
{CBM-G}ZPF{$7b}FZLd{SHIFT-*}l{CBM-P} @Al{CBM-S}{CBM-M}{SHIFT-POUND}Ah{SHIFT-POUND}hlS
 S
I_{$f0}{CBM-G}ZPF{$7b}FZLf{SHIFT-*}{SHIFT-POUND}

 S
8{$e9}@I{$e9}8{$ed}{SHIFT-*}FM{SHIFT-*}{CBM-A}A
{CBM-POUND}{CBM-O}{SHIFT-*}h{CBM-O}{SHIFT-*}hlS
 {CBM-Z} Y
I{$f0}{SHIFT-POUND}{CBM-M} ~{CBM-S} Y
{CBM-+}A{$f0}
{CBM-A}l {CBM-POUND}HH Y
l
A {$f8}{CBM-POUND} Y
I
P{$60} S
I_P{$ee} S
I@P{$e7} S
lA{CBM-I}{CBM-X}@{SHIFT-*}J{$f7}{SHIFT-POUND}{CBM-I}{SHIFT-*} Fl{$e5}AI[Ia{$60}{$60} F{SHIFT-POUND} {$f4}{CBM-H} {CBM-Z} {CBM-T}{CBM-L} {$f4}{CBM-H}{CBM-POUND}P
 E{$e1}E{$7c}C {$f5}ClB{CBM-Z}YC{$f0} pE {SHIFT-+}C{CBM-A} {$f5}C{$f5}{CBM-G}{CBM-@}"# {CBM-P}C ~H{CBM-E}"LZCP{$f6}{$f0}{CBM-Z}{CBM-I}B {$e1} \CI2I7P \CI3P$8 \C{CBM-G}{$f0}{$f9}{SHIFT-POUND}
({CBM-A}
{$60} ${$e1}h{CBM-G}){CBM-B}PH{$60} CB{SHIFT-POUND}T"{SHIFT-POUND}Cle{CBM-@}mergE





 \C{CBM-@}{CBM-+}{$7b}CP{SHIFT-*}{CBM-N}{$f0}HP{$e6} CBlF{CBM-Q}{SHIFT-*}P{$f3}{CBM-N}P{$f0}J{$7b}CZC{$60}{CBM-G}7E-h{CBM-G}8E.j{$e3}EHJ{$e2}E{SHIFT-POUND}
YC{$60}8{CBM-Z}ZCE{SHIFT-POUND}
E{$60} 8{CBM-E}{$f0} {CBM-E}QP{CBM-E}Q{$60}{SHIFT-POUND}{$60}
H{CBM-Z},E E{CBM-O}-EH{CBM-N}P{$f7}ZC{$7c}C {$f5}C LClpEh){$f0}{$f0}jjjj0HH)0H{$60}

_
xtra .byte       ; stmts,funcs
{CBM-Z}{$7c}CP
{CBM-G}{CBM-@} E{$e1}E{SHIFT-POUND}
{$7c}C{CBM-G}{CBM-@}FF8{$ed} E"{$ed}{$e1}E#8{CBM-G}{$ed}{$e2}Eh{CBM-G}{$ed}{$e3}E{CBM-POUND}H8{$e5}""{$e5}##{CBM-G}E"F{CBM-G}E#F{CBM-G}-FE"-{CBM-G}.FE#. {$e4}E{CBM-Z} EF{CBM-Z}{$e1}EF{CBM-Z}{$e2}E{CBM-D}{$e3}EFF{CBM-G}{CBM-@}FFl{$e4}E



{CBM-Z}FPNFNF{CBM-Z}FP{$e6}{$7b}
{CBM-E}[
{$fb}
F] s{$f7}
 {$fb}
l{$f6}
{$e6}ZP{$e6}{$7b}{CBM-G}]8{$e9}{CBM-POUND}]{CBM-E}Z I,{$f0}H{CBM-E}[
{$fb}
 s{$f7}
 {$fb}
{$e6}]{$e6}]{$e6}]l{$f6}


{CBM-E}ZIjPlK{$fa}
IbP !{$f0}  {$f0}l{CBM-M}{$f9}
 {$f9}
P
 {CBM-E}[
{$fb}
l{$f6}


{CBM-E}ZI#Pl{$e2}{$f9}
I(Pl{$fa}{$f9}
I!P{$e6}ZP{$e6}{$7b}F],{SHIFT-POUND}

{$60}{CBM-I}{CBM-@}]{$f0}{$f0}{CBM-E}ZI,P]{$e8}H{CBM-E}ZIx{$f0}{$e8}^ s{$f7}
{$f0}{CBM-@}^{CBM-E}[
{$fb}
{CBM-G}( {$fb}
 {$fb}
l{CBM-X}{$fa}
{CBM-G}{$60}P{$e9}{CBM-@}^HHH{CBM-E}[I{$fa}{$f0}{$de}
{$fb}
{CBM-G}( {$fb}
{CBM-@}^{$f0}
{CBM-D}P {$f7}
l{CBM-D}{$f5}
{CBM-E}ZI{CBM-R}Pl:{$f6}
 I{$f8}
l {$f6}


{CBM-E}ZI.PlA{$fb}
 _{$f6}


{CBM-G}yrH{CBM-G}zr{CBM-@}]{CBM-E}ZI {$f0}I:{$f0}l{$60}{$f5}
HEZZ{$e6}{$7b}lH{$f5}
{$e6}{CBM-I}M~ M~ {$f9}
{CBM-G}pn{CBM-G}qo x{$f9}
Pl%{$f6}
 &{$fb}
{$f0}!{CBM-I}

{CBM-K}ZI{CBM-D}P {$f7}
l{$f6}
 I{$f8}
l%{$fa}


{CBM-E}ZI.PlA{$fb}
{CBM-@}]{CBM-E}ZI {$f0}I:{$f0}lZ{$f5}
HEZZ{$e6}{$7b}l{$e2}{$f5}
{CBM-I}{$7c}~ {$7c}~ {$f9}
{CBM-G}y9{CBM-G}z: B{CBM-X}lT{CBM-@} _{$f6}
 {$f9}
 s{$f7}


rHrl{CBM-D}{$f5}




'HHl {$f7}
HD]{$f0}
{CBM-E}ZI{CBM-N}{$f0}I{CBM-Q}P{$f1}& {$fa}{$f8}
{CBM-@}&&'l {$f7}
{SHIFT-POUND}

()*_

{CBM-E}ZI$Pl{$f8}
I"{$f0}{CBM-C}I{CBM-D}{$f0}'I{CBM-E}{$f0}I{CBM-W}{$f0}I%Pl{CBM-K}{$f8}
8{$e9}0{CBM-R}I
{CBM-A}{CBM-S}l[{$f8}
_{$e6}ZP{$e6}{$7b}F]PFH{CBM-G}y&{CBM-G}z'{CBM-G}*P{CBM-G}&({CBM-G}')lR{$f7}
I{CBM-N}P{CBM-G}&E(({CBM-G}'E){$ea}ln{$f8}
8{CBM-G}({$e5}&({CBM-G}){$e5}'){$7c}D]{$f0}{CBM-E}Z*HEZZ{$e6}{$7b}8{CBM-G}]]{$e5}]]l]{$f7}
{CBM-G}_P{CBM-G}({CBM-+}){$60}I{CBM-E}P{CBM-G}){CBM-I}

{$60}{CBM-G}({CBM-I}

{$60}H{SHIFT-POUND}

&'{CBM-E}Z8{$e9}05I

{$e9}
{CBM-G}B8{$e9}
B{CBM-A}FCEw{CBM-G}C{$e5}x{CBM-A}{CBM-G}P{CBM-G}y{CBM-+}z{$60}{CBM-I}{CBM-U}~ {CBM-U}~ {$f9}
 B{CBM-X}lg{$f9}


{CBM-E}B{$f0}QZPMH{SHIFT-*}{$f3}D&PD {CBM-E}B{CBM-N}{CBM-E}B{$60}{CBM-G}9{CBM-G}: {CBM-+} I{CBM-+}lT{CBM-@}{CBM-G}nZ{CBM-G}o{$7b}

{CBM-E}ZnH{CBM-E}Zo{$f0}H{CBM-E}Z9H{CBM-E}Z:{CBM-G}ZIZ{$e6}{$7b}{$60}{CBM-@}]H,{CBM-@}]EZZ{$e6}{$7b}l&{$fb}
&'

{CBM-E}&{$f0} R~HP{$f6}{$60} {CBM-E}[
{$fb}
 {$f9}
 s{$f7}
8{$e9}{CBM-A}J8{$e5}y&{$e5}z{CBM-N}{CBM-G}&II

{$f0}
{CBM-I}J~ J~ {$f9}
 B{CBM-X}lg{$f9}
{CBM-G}& {$fb}
l{$f6}
{$e6}Z
8

 the transactor volume ? issue ??         page ??
y
    save"1:verifizerb128",8

    don't know if you need this, but it does work with the pet
{SHIFT-+}
    checkbytes to the extent of identical token numbers.
'
    make sure that line 30 sa$044e

{CBM-A}f043f 85 eb       sta $eb
'{CBM-E}f0441 e8          inx
a{CBM-R}f0442 8a          txa
^{CBM-W}f0443 29 03       {CBM-P} #$03
{$7c}{CBM-H}f0445 85 ea       sta $ea
{CBM-J}f0447 20 6e 04    jsr $046e
{SHIFT-@}{CBM-L}f044a c6 ea       dec $ea
Z{CBM-Y}f044c 10 f9       bpl $0447
{$f4}{CBM-U}f044e c8  ldx #$01

{CBM-+}f042c 86 01       stx $01
/
{CBM-M}f042e ca          dex
N
{CBM-POUND}f042f a5 1b       lda $1b     ;low byte of line# still Eid
{CBM-E}
{SHIFT-POUND}f0431 85 e9       sta $e9     ; b128 has no line#  the stack.
{$f2}
{CBM-N}f0433 20 76 04    jsr $0476   ;find where line# s in
~{SHIFT-*}f045d 4a          lsr
Af045e 4a          lsr
3Bf045f 4a          lsr
mCf0460 4a          lsr
GDf0461 18          clc
Ef0462 69 c1       adc #$c1
{CBM-+}Ff0464 8d 01 d0    sta $d001
{SHIFT-*}Gf0467 18          clc
{$e7}Hf0468 68          pla        ;er
7f0411 c9 27       cmp #$27  ; me than the hi {CBM-B}ce i have other
Gf0413 f0 11       beq $0426 ;such in page 4
f0415 85 fb       sta $fb
{CBM-G}f0417 ad 83 02    lda $0283
Cf041a 85 fc       sta $fc
{$e2}f041c a9 27       lda #$27
f041e 8d 5 88       lda $88    ;ptr {CBM-@} {CBM-@}kenized text in the buffer is
{$60}Qf0478 a4 89       ldy $89    ;clobbered. so we'll just re{CBM-K} the
Rf047a 85 85       sta $85    ;line number {CBM-@} {CBM-K} y {CBM-O}itied
{$e1}Sf047c 84 86       sty $86    ;($88{CBM-Q}8a buffer ptr, $85{CBM-Q}87 txtptr170
~:
$cverted from pet {CBM-P} c{CBM-Q}64 versis
{$60}some subs{SHIFT-*}tial changes were needed. writeup  your use:
this will w{CBM-A}k ly  the  buffer does {CBM-POUND} cross page
Wboundry. n{CBM-A}mal buffer is in {CBM--} 1 at $fa5e{CBM-Q}faff, which is ok.
{SHIFT--};

f0400 4c 0e 04        sec        ;buffer {CBM-@} cross pages. s{SHIFT-*}dard
kYf0488 e5 88       sbc $88    ;setup {CBM-A} something similar {CBM-@} it
Zf048a a8          tay        ;is assumed. also, {CBM-POUND}hing will w{CBM-A}k
R{SHIFT-+}f048b 60          rts        ;you move the  buffer from {CBM--} 1.
XP:
{$fe}Z1,131,  2, 96,165
1(   1, 72,162,  1,134,  1,202,165
w0  27,133,233, 32,118,  4,234,177
{$7d}8 136,240, 22,201, 32,240, 15,133
{CBM-T}@ 235,232,138, 41,  3,133,234, 32
Ih 110,  4,198,234, 16,249,200,208
{$ef}p 230,165,233, 41, 15, 24,105,193
x 14. d followed by ctl{CBM-Q}[ will V a program. hest.
g{CBM-@}{CBM-Q}   1,0:1, etc in the b{CBM-Q}machine does  n o t  supress the
y{CBM-+}questi mark.
_{CBM-D};
{CBM-L}:              upgrade{CBM-Q}pet verizer from your disk:
{CBM--}{SHIFT-*}verizer 2{CBM-Z}4 does {CBM-POUND} w{CBM-A}k in my 2pet. $d9 uses {CBM-*} number. {CBM-*} numys 'bank 15', and not some other keyword!
N
                                                  liz deal 6/4/85


* data loader for "verifizer b128" *
{CBM-K}
cs{CBM-R}0
D
{CBM--} 15: i{CBM-R}1024 {CBM-@} 1163: a: i,a
T(
cs{CBM-R}cs{CBM-N}a: i
Z2
:
<
 cs{CBM-W}{CBM-E}16828 {CBM-M} "***** data er         iny
{CBM-O}f044f d0 e6       bne $0437
2{SHIFT-@}f0451 a5 e9       lda $e9
o{CBM-F}f0453 29 0f       {CBM-P} #$0f
I{CBM-C}f0455 18          clc
{CBM-X}f0456 69 c1       adc #$c1
G{CBM-V}f0458 8d 00 d0    sta $d000  ;from pet versi{CBM-Q} the screen
{$e5}{CBM-B}f045b a5 e9       lda $e9
buffer
{CBM-Q}f0436 ea          nop         ; {CBM-@} {CBM-K} y
t{CBM-D}f0437 b1 88       lda ($88),y ; Bing the  buffer
{CBM-Z}f0439 f0 16       beq $0451   ; {$e6} indirect ptr
O{CBM-S}f043b c9 20       cmp #$20    ; x{CBM-Q}y from c64 code are now exchanged
{$ef}{CBM-P}f043d f0 0f       beq  $1
If0469 85 01       sta $01
;Jf046b 6c fb 00    jmp ($00fb);{CBM-P} back {CBM-@} warm start
FKf046e a5 eb       lda $eb    ;multilpy
Lf0470 18          clc
Mf0471 65 e9       adc $e9
{CBM-C}Nf0473 85 e9       sta $e9
VOf0475 60          rts
Pf0476 a82 02    sta $0282
! f0421 a9 04       lda #$04
a{CBM-K}f0423 8d 83 02    sta $0283
[{CBM-I}f0426 60          rts
{CBM-T}f0427 a5 01       lda $01     ;overabundance of cauti...
X{CBM-@}f0429 48          pha         ; chances are it's 1 anyway.
{$f7}{CBM-G}f042a a2 01      )

Tf047e 20 26 ba    jsr $ba26  ;chr{CBM-K}, y{CBM-R}0
cUf0481 18          clc        ;clc {CBM-POUND} really needed
Vf0482 20 4e 8d    jsr $8d4e  ;{CBM-K} line#, no err{CBM-A}s {CBM-O}sible, i hope.
KWf0485 a5 85       lda $85    ;this code does  n o t  permit the

Xf0487 38      jmp $040e ;{$e6} {CBM-I} z{CBM-Q}pg places $e9{CBM-Q}eb,fb{CBM-Q}fc
9
f0403 a5 fb       lda $fb
y
f0405 8d 82 02    sta $0282
W
f0408 a5 fc       lda $fc

f040a 8d 83 02    sta $0283
{CBM-E}
f040d 60          rts
{$f4}
f040e ad 82 02    lda $0282 ;test low byte of warm vec {CBM-Q} saf:              b{CBM-Q}bits  your Qi:
b{CBM-Q}   sometimes b128 {CBM-K}s its ters. specically, in graphics mode
sht{CBM-Q}l may come out as sht{CBM-Q}v. two solutis: (1)push , {CBM-P}
Fflip the mode several times, {CBM-A} (2) use ctrl{CBM-Q}[ (that's rol {CBM-P} left
{CBM-I}square bracket)1,  0,208,165,233, 74, 74, 74
;{$60}  74, 24,105,193,141,  1,208, 24
AH 104,133,  1,108,251,  0,165,235
P  24,101,233,133,233, 96,165,136
{CBM-Z}X 164,137,133,133,132,134, 32, 38
S 186, 24, 32, 78,141,165,133, 56
{$f9} 229,136,168, 96,170,170,170,
ebers
Jaren't Fii codes in 2.  {CBM-*} is {CBM-*} 10. check  $0a at $2a7.


ers. specically, in graphics mode
sht{CBM-Q}l may come out as sht{CBM-Q}v. two solutis: (1)push , {CBM-P}
Fflip the mode several times, {CBM-A} (2) use ctrl{CBM-Q}[ (that's rol {CBM-P} left
{CBM-I}square bracket)ror *****":
af
 bank 15:sys 1024:rem   bank 15:sys 1027 turns off
gp

mD
:
S
  76, 14,  4,165,251,141,130,  2
 165,252,141,131,  2, 96,173,130
{CBM-B}   2,201, 39,240, 17,133,251,173
{$e5} 131,  2,133,252,169, 39,141,130
    2,169,  4,14
^

H :  "   new pal filename";pn$
,
R {CBM-T}20)cn""
k
{$7c} "  destination drive";pn
[
 {CBM-T}20)pd""
Z
 "destination device#";pd

pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{CBM-B}
{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
{$e9}
{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M}  "file exists" :  :  360
{$f3}
{CBM-U} :
sa{CBM-R}1025                             :  start addr pet/cbm
OR
sl{CBM-R}100                              :  starting line #
{CBM-G}{CBM--}
ic{CBM-R}10                               :  increment
{CBM-P}{$e6}
 270
{$e1}{$f0}
 :  "append to existing pal file (y/n)";yn$
{$f5}{$fa}
 yn${CBM-R}"y" {CBM-M} 900
{CBM-W}{CBM-E}62  {CBM-M}  " file exists" :  :  970
=8 : "creating new file from ";op$;"  stand by..."
xb 1, od, 8, op${CBM-N}",p,r"
Sl 2, pd, 6, pn${CBM-N}",p,w"
{CBM-N}v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));   :  file start address
H{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));

J{CBM-K}#1, b$, c$ :  st{CBM-R}
,B(189)){CBM-N}z$            :  +z$ to add lost mkr
{CBM-A}2,a$;
w{SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$)                           :  update start addr
BD 1130
JN  1
{CBM-S}X mc{CBM-N}21, 13                          :  input delim back to cr
X{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic
{$ec}:  "   old pal filename";op$
 {CBM-T}20)cn""
2 "              drive";op
b{CBM-I} {CBM-T}20)od""
A{CBM-D} "            device#";od
{CBM-L} 1, od, 8, op$ : ed{CBM-R}od :  700 :   1
{CBM-M}{SHIFT-*} e {CBM-M}  ee$ :  :  900
{CBM-B}J :  {CBM-T}21)"@"op$""
{CBM-*}T "   new pal filename";pn$
{$fa}{$de}
I
{SHIFT-*} {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L}
{CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}^{SHIFT-POUND}{SHIFT-*}{SHIFT-POUND}w,{SHIFT-POUND}{SHIFT-*}-{SHIFT-POUND}{$7f}{CBM-I}  {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}{CBM-I}{$7f} F~ {$e4}~ R~I
{$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L\{SHIFT-*}{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND}
X{CBM-G}EI?{$f0}Kl{SHIFT-*}ave"0:directories",8
{CBM-I}
{CBM-X}{SHIFT-*}{$e8}  $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            :  "(DO NOT exit with <RETURN>)   Append another file n";yn$
? yn${CBM-R}"y" {CBM-M} 840
x 2, pd, 6, pn${CBM-N}",a"
 2, z$z$;             :  add end file marker ($00, $00)
{CBM-@}*  2 :   15
W4 "load";G(34);pn$;G(34);","J(D(pd),2)""
{SHIFT--}>
h 270
{CBM-Z}< {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L}
{CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}{CBM-Z}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND},{SHIFT-POUND}-{SHIFT-POUND}{$7f}{CBM-I}  {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}

{CBM-I}{$7f} F~ {$e4}~ R~I
{$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}{CBM-Z}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND}
X{CBM-G}EI?{$f0}KlIave"0:directories",8
{CBM-I}
{CBM-X}{SHIFT-*}{$e8}  $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            : , hex hi
1
na{CBM-R}sl :  660     :  output line #    - hex lo, hex hi
O
xsl;a$           :  ===== remove for better speed ======
{CBM-I}
Bsl{CBM-R}sl{CBM-N}ic             :  increment line number
S
L2,a$z$;        :  output line (+chr$ zero)
{$e4}
V sx{CBM-R}0 {CBM-M} 550
{$fa}
  28

 the transactor volume 5 issue 06         page 12
]

* data loader for "verifizer" *
R
 vic/64 version
{$7b}
cs{CBM-R}0

 i{CBM-R}828 {CBM-@} 958: a: i,a
{CBM-M}(
cs{CBM-R}cs{CBM-N}a: i
{CBM-Z}2
:
{CBM--}<
 cs{CBM-W}{CBM-E}14755 {CBM-M} "***** data error *****":
{$ea}f
 sys 828
{$f0}p

{$f6}D
:
({$e8}
Ba{CBM-R}sl :  :  {CBM-T}20)sl""
-L "    starting line #";sl
]V sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a :  450
M  {CBM-T}20)ic""
{$ea} "     line increment";ic
{$f4} :
{CBM-V}{$fe} ** open input and output files **
R 1, cd, 8, cn$
{$ed} 2, pd, 6, pn${CBM-N}",p,w"
%
 360 :  450 :  520
3 :  "cbm source filename";cn$
c {CBM-T}20)cn""
B" "       source drive";cn
R, {CBM-T}20)cd""
6 "     source device#";cd
{CBM-D}@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$
Vj 1, cd, 8, cn$ : ed{CBM-R}cd :  700 :   1
{$f2}t e {CBM-M}  ee$ :  :  270
{$f8}64  {CBM-M} 1230     :  get line link
!Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
_{$7e}{CBM-K}#1, b$, c$                           :  get line number
a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
F mc{CBM-N}21, 0                           :  input delim now $00
O mc
{CBM-+}a${CBM-R}a${CBM-N}H(i$
E 450                               :  alter next line num
3{$f6} 1, cd, 8, cn${CBM-N}",s,r"
=
 550


        :  get line number
a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
F mc{CBM-N}21, 0                           :  input delim now $00
O mc
{CBM-+}a${CBM-R}a${CBM-N}H(i$ H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010
7{$e8}pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) :  1080
g{$f2} {CBM-T}20)cn""
F{$fc} "  destination drive";pn
V {CBM-T}20)pd""
 "destination device#";pd
{CBM-A}pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
Z$ 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
. e160,   0, 189,   0,   2, 240,  22, 201
t$  32, 240,  15, 133,  91, 200, 152,  41,   3
. 133,  90,  32, 183,   3, 198,  90,  16, 249
{CBM-U}8 232, 208, 229,  56,  32, 240, 255, 169,  19
{$ea}b  32, 210, 255, 169,  18,  32, 210, 255, 165
l  89,  41,                 :  for new cbm file name
sr 450                  :  alter next line number, increment
G\ 1, cd, 8, cn$
F 2, pd, 6, pn${CBM-N}",a"
{CBM-D}P 550                   :  go add file
{CBM-*}Z ** append cbm source to existing pal file **

Z  15,  24, 105,  97,  32, 210, 255
nv 165,  89,  74,  74,  74,  74,  24, 105,  97
{$60}  32, 210, 255, 169, 146,  32, 210, 255,  24
{CBM-R}J  32, 240, 255, 108, 251,   0, 165,  91,  24
PT 101,  89, 133,  89,  96


, 254,   1, 133,  89, 162
"   0,  :   1 :  760
{CBM-D}{CBM-D} output 2 hex bytes {CBM-D}{CBM-D}
+2, G(a {CBM-P} 255);
@2, G({CBM-J}(a{CBM-Z}256));
f{CBM-POUND}
w{CBM-R}{CBM-D}{CBM-D} err{CBM-A}  {CBM-D}{CBM-D}
H{CBM-C} 15, ed, 15
{$7f}F15, e, e$, et, es
{CBM-POUND}Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es)
{CBM-E}Z  15
{CBM-Y}{$e4}
{CBM-*}{$ee} ** add more cbm source modules **
{$e5}{$f8}
+76,  74,   3, 165, 251, 141,   2,   3, 165
z{$f2} 252, 141,   3,   3,  96, 173,   3,   3, 201
{$fc}   3, 240,  17, 133, 252, 173,   2,   3, 133
{CBM-V} 251, 169,  99, 141,   2,   3, 169,   3, 141
{$f0}   3,   3,  96, 173, 254,   1, 133,  89, 162
"   0, a{CBM-R}sa :  660     :  output file start addr ($0401)
{$60}& mc : sx{CBM-R}st       :  input line from cbm source file
T0a${CBM-R}H(i$,B(189))
{CBM-F}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5      :  start addr + line len + 5 for link,line,mkr
{$f6}da{CBM-R}sa :  660     :  output line link - hex lo

z$
s
 F(z$){CBM-W}{CBM-E}89 {CBM-M} 122
1t
 15: xx{CBM-R}tu:  136:  swap to destination
Hu
 15,t,15: "want to new the output disk  n";z$
{$7c}v
 F(z$){CBM-W}{CBM-E}89 92
w
:
x
"disk name,id";x$,y$
{CBM-O}y
15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$
Pz
127:  e {CBM-M} : 84
V[
:
~\
15,"i"{CBM-N}t$:  1
0

 ****************************************
_
 * convert cbm assembler source file to *

 *  file to pal assembler source file   *
{CBM-X}(
 *         k.j.h. hildon 03/83          *
{$ec}2
 *   ========  palvert  1.0 =========   *
<
 *      work
,4)" :"J(a$,4,16)" "t$(t9)"      "
#c
p{CBM-R}B(203) {CBM-P} r
ad
{CBM-K} z$:  z${CBM-R}"" {CBM-P} p{CBM-W}064 73
Me
 z${CBM-R}"y" {CBM-A} z${CBM-R}"n" {CBM-M} z{CBM-R}F(z$): r{CBM-R}255: 73
f
 z${CBM-R}G(13) {CBM-M} r{CBM-R}0: 73
g
68
h
:
Ci
 z{CBM-W}80 {CBM-M}  "                     ": 75
{$f7}j
n{CBM-R}n{CBM-N}1: l2(n){CBM-R}l2: n$(n){CBM-R}n$: t%(n){CBM-R}t9: l

                         :  establish input buffer
PX
mc{CBM-R}896                              :  mach code start addr
{SHIFT-POUND}
 *** string input routine -- by jim butterfield ***
{$ef}
 160,   2, 177,  42, 153, 184,   0, 200, 192,   6, 208, 246, 162
5
   1,
 move rom to ram, etc.
a2
xx{CBM-R}fr:  136: n{CBM-R}0:  1:  15:  15,f,15: 15,"i"{CBM-N}f$
y3
127:  e {CBM-M} :  50
Z4
z{CBM-R}90: : "pattern  *";p$
{CBM-I}5
p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
M6
 "hold down 'y' or 'n' key to select"
{$ee}7
 "programs to be copied..."
8
@abc{$ee}@P{$ee}a U{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P 2{CBM-G}{$f0}{CBM-F}{$60},{$f2}p{$60}{CBM-G}{$f0}){$fd}{$f1}{SHIFT-POUND}@{$f2}{CBM-Z}{$ed}Ih{$f0} - {SHIFT-POUND} q{SHIFT-POUND}
p{CBM-POUND}{CBM-E}ppHP{$f9}{$e6}q{CBM-G}qI{SHIFT-*}P{SHIFT-POUND} qI
P{$e9} 7l{CBM-G}{$fb}{$fd}l{CBM-G}{$fc}{$fd}X{CBM-+}{$fd}{CBM-X}{$f0}x{$60}{CBM-I} {CBM-K}{CBM-N} {CBM-K}{CBM-I}
 {CBM-K} {$e4}~I
P{$f9}{$60}{CBM-X}{CBM-Z}{$f0} R~{$e8}P{$f5}{$60}
press <return> when ready

place switch in
i
 move rom to ram, etc.
@
swap{CBM-R}init{CBM-N}3:  swap rom to ram or vice-versa

fr{CBM-R}251: tu{CBM-R}252: tp{CBM-R}253:  from, to and temp storage of drive type
!
:
{CBM-G}"
"from unit  8";f
{CBM-C}#
123:  get drvnum
F$
f${CBM-R}d$
{$ec}%
 "1) serial or 2) ieee  2";tf

&
 tf{CBM-W}
(st {CBM-P} 191): e${CBM-R}"*st*"
{$fd}


:

{CBM-K}#1,x$,x$,x$
%
x{CBM-R}F(x${CBM-N}G(0))
>
{CBM-K}#1,x$: y{CBM-R}F(x${CBM-N}G(0))
d

j
:

 tp,B(xx): (swap): :  flip to source/destination drive


ll{$f9}lHl{SHIFT-+}l/l {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d
{CBM-E}I@Io{CBM-A} U{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}Z
5273


:
4

 "  disk copy-all      jim butterfield"
D

 "** glink ieee-488 interface version **"


 " copies between serial and ieee drives"
P

a${CBM-R}"!jim butterfield!": a${CBM-R}a${CBM-N}a${CBM-N}a$: a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
Z

p${CBM-R}""

 l2(232),l1%(232),n$(232),
111
{$ef}L
:
M
 4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
N
:
jO
l{CBM-R}l{CBM-Q}l2: 127:  e {CBM-M}  "*** ";e$;e: 117
TP
 t%{CBM-R}4 {CBM-M} (z4): 114:  relative copy
{$7e}Q
(z3)
{CBM-POUND}R
xx{CBM-R}tu:  136:  set destination again
WS
n$(j){CBM-R}"": 127:  e {CBM-M}  "**** ";e$;e: 117
{$e1}T
 ""

,t,0,"$"{CBM-N}t${CBM-N}": !#$%&"
]
127:  e {CBM-M} : 84
,^
131: 131: q{CBM-R}q{CBM-N}1
e_
{CBM-K}#1,x$:  x${CBM-W}{CBM-E}"" 95
n{$60}
131
UA
l{CBM-R}x{CBM-N}y{CBM-D}256:  "(";l;"blocks free )"
B
xx{CBM-R}tu:  136:  1:  15: 79
C
:
LD
xx{CBM-R}fr:  136:  14,f,15:  source cmd channel
{$fc}E
xx{CBM-R}tu:  136:  15,t,15
s on pet/cbm with disk      *
jf
 * absolutely no copyright restrictions *
Yp
 *  won't work on basic 1.0 or dos 1.0  *
{CBM-POUND}z
 ****************************************
{$ec}D
i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" :  i$ must be 1st var used
/N
i${CBM-R}i${CBM-N}i${CBM-N}i$

1%(n){CBM-R}l1%
k
 st{CBM-R}0 {CBM-P} n{CBM-W}232 60
jl
xx{CBM-R}fr:  136:  1:  15:  " * * * * *                  "
Qm
 n{CBM-R}0 {CBM-M}  "* no programs *":  120
{$7f}n
 j{CBM-R}1 {CBM-@} n
{CBM-T}o
l2{CBM-R}l2(j): t%{CBM-R}t%(j):  l{CBM-E}l2 100
{CBM-E}p
 q{CBM-R}0 84
Nq
 "*** output disk full"
{$ee}r
"do you have a new one";  32, 198, 255,  32, 228, 255, 201,  13, 240,  11, 164, 189
V
 145, 187, 200, 132, 189, 196, 186, 208, 238,  76, 204, 255
{CBM-POUND}{CBM-N}
 :  j{CBM-R}mc {CBM-@} mc{CBM-N}37 :  x :  j, x : t{CBM-R}t{CBM-N}x :
L{CBM-H}
 t{CBM-W}{CBM-E}5767 {CBM-M} "typo in data" :
{$f4}{CBM-V}
z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0
3H

 1,f,3,"$"{CBM-N}f$:  ok
9
127:  e {CBM-M} : 50
(:
(z1)
8;
r{CBM-R}255:  61
b<
(z2)
K=
 j{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:  F(J(a$,j{CBM-N}3)){CBM-R}160 {CBM-M} j
{$7c}>
n${CBM-R}J(a$,4,j)
 ?
t9{CBM-R}F(a$){CBM-Q}128:  t9{CBM-W}1 {CBM-A} t9{CBM-E}4 75
{CBM-H}@
l1%{CBM-R}F(J(a$,22))
Wa
l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
b
 I("   "{CBM-N}J(D(l2),2)
eee mode
serial mode



{CBM-N}{$60}
{CBM-G}P{$f6}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e U{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 R~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa} U{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~ {$7c}{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc 2{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}

1 {CBM-A} tf{CBM-E}2 {CBM-M} 37

'
:

(
"to unit  8";t
7
)
123:  get drvnum
a
*
t${CBM-R}d$
G
+
 "1) serial or 2) ieee  1";tt
{$7e}
,
 tt{CBM-W}1 {CBM-A} tt{CBM-E}2 {CBM-M} 43

-
:
{CBM-I}
.
 f{CBM-R}t {CBM-P} f${CBM-R}t$ {CBM-P} tt{CBM-R}tf {CBM-M}
{CBM-POUND}
/
:
{$e6}
0
 fr,tf{CBM-Q}1:  tu,tt{CBM-Q}1:  drive type source and destination
1
(init):
{CBM-E} {CBM-E}I*{$f0}
I?{$f0}QPH{SHIFT-*}P{$ed}{$60}
{CBM-G}P{$f6}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e U{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 R~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa} U{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~ {$7c}{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc 2{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}

t%(232),t$(4)
!
 xxx,seq,prg,usr,rel
<
 j{CBM-R}0 {CBM-@} 4:  t$(j): j
b
:
P
 when size=3956 then code begins at 6005

z1{CBM-R}6027:  entry point #1
{CBM-D}
z2{CBM-R}z1{CBM-N}3:  entry point #2
J
z3{CBM-R}z2{CBM-N}3:  entry point #3
{$e8}
z4{CBM-R}z3{CBM-N}3:  entry point #4

init{CBM-R}z4{CBM-N}3:
U
xx{CBM-R}fr:  136:  3:  14:  source
.V
xx{CBM-R}tu:  136:  4:  15:  destination
5W
j
{$60}X
x{CBM-R}{CBM-U}(0): "another input disk ready";z$
SY
 F(z$){CBM-R}89 50
Z
 1,55:
{$7b}
"drive  0";d
{CBM-POUND}{$7c}
 d{CBM-D}d{CBM-W}{CBM-E}d 123
{SHIFT-@}{$7d}
d${CBM-R}G(d{CBM-N}48):
{SHIFT-*}{$7e}
:
S{$7f}
15,e,e$,e1,e2
{$f7}
 e{CBM-R}0 {CBM-M} e{CBM-R}
:  dest cmd channel
&F
 H(n$(j){CBM-N}"                    ",21);
xG
xx{CBM-R}fr:  136:  3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
H
14,e,e$,e1,e2: 128:  e {CBM-M}  "** ";e$;e: 117
I
:
{CBM-E}J
xx{CBM-R}tu:  136:  destination
{$e9}K
 t%{CBM-R}4 {CBM-M}  4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):
r246, inc,  10, 248, sed,   3, 249, sbc,   7, 253, sbc,   6
"( 254, inc,   6


, 202, dex,   3, 204, cpy,   5
<( 205, cmp,   5, 206, dec,   5, 208, bne,  12, 209, cmp,   8
If( 213, cmp,  10, 214, dec,  10, 216, cld,   3, 217, cmp,   7

p( 221, c9, 196, cpy,   4, 197, cmp,   4, 198, dec,   4
g2( 200, iny,   3, 201, cmp,   1, 202, dex,   3, 204, cpy,   5
<( 205, cmp,   5, 206, dec,   5, 208, bne,  12, 209, cmp,   8
If( 213, cmp,  10, 214, dec,  10, 216, cld,   3, 217, cmp,   7

p( 221, c-D
" disk copy-all      jim butterfield"
FN
a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
PX
p${CBM-R}""

 l2(232),l1%(232),n$(232),t%(232),t$(4)
{CBM-Y}
 xxx,seq,prg,usr,rel
L
j{CBM-R}0{CBM-@}4:t$(j):j
{$e5}
"from unit  8";f
{$ee}{CBM-N}
830
{$f8}{CBM-H}
f${CBM-R}d$
{CBM-V}

  10, 149, sta,  10, 150, stx,  11
?{$e2}' 152, tya,   3, 153, sta,   7, 154, txs,   3, 157, sta,   6
{$ec}' 160, ldy,   1, 161, lda,   9, 162, ldx,   1, 164, ldy,   4
A{$f6}' 165, lda,   4, 166, ldx,   4, 168, tay,   3, 169, lda,   1

( 170, tax,   3, 172"

" 1,f,3,"$"{CBM-N}f$
#
,860:e{CBM-M}:230
-
64156
=
@r{CBM-R}255: 340
g
j4245
K
tj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j
{$7c}
^n${CBM-R}J(a$,4,j)

Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470
{CBM-A}
Rl1%{CBM-R}F(J(a$,22))
S
{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
{$ee}
J(a$,4,16);" ";t$(t9)
{$fd}
p{CBM-R}B(203or,   6,  94, lsr,   6
7'  96, rts,   3,  97, adc,   9, 101, adc,   4, 102, ror,   4
X' 104, pla,   3, 105, adc,   1, 106, ror,   2, 108, jmp,  13
{CBM-O}{CBM-+}' 109, adc,   5, 110, ror,   5, 112, bvs,  12, 113, adc,   8
{$fa}{CBM-A}' 117, adc,  10, 118, ror,  10, rams *": 800
{$ea}j{CBM-R}1{CBM-@}n
0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670
={$fe}q{CBM-R}0550
y"*** output disk full"
Y"do you have a new one";z$
F(z$){CBM-W}{CBM-E}89{CBM-M}
C& 15:15,t,15:"want to new the output disk  n";z$
V0F(z$){CBM-W}{CBM-E}89600
{$f0}:"disk name,id";x$,y$


d, and,   4
/b'  38, rol,   4,  40, plp,   3,  41, and,   1,  42, rol,   2
Pl'  45, and,   5,  46, rol,   5,  48, bmi,  12,  49, and,   8
{CBM-E}v'  53, and,  10,  54, rol,  10,  56, sec,   3,  57, and,   7
{$f2}{$60}'  61, and,   6,  62, rol,   6,  64, rti,          ",21);
${CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
p{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780
Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730
{CBM-Q}P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
PZl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780
{$e5}{$e4}t%{CBM-R}4{CBM-M}4462:760
{$ef}{$ee}4443
#1,x$

{CBM-K}#1,x$
{CBM-K}#1,x$
x{CBM-R}F(x${CBM-N}G(0))
4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0))
:{CBM-D}


 {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d {CBM-G}
{CBM-E}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E} {CBM-E}I*{$f0}
I?{$f0}QPH{SHIFT-*}P{$ed}{$60}
{CBM-G}P{$f6} {CBM-G}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 "
 save"0:copyall 64 glink",8
j
 ** jim butterfield's c64 copy-all

 ** modified for use with the glink ieee-488 interface
{CBM-POUND}
 ** richard evers 07-06-1987
{CBM-S}
:
Y
 ** allows concurrent copying of data

 ** serial to ieee-488, ieee-48
mp,   6, 222, dec,   6, 224, cpx,   1, 225, sbc,   9
kz( 228, cpx,   4, 229, sbc,   4, 230, inc,   4, 232, inx,   3
D( 233, sbc,   1, 234, nop,   3, 236, cpx,   5, 237, sbc,   5
MN( 238, inc,   5, 240, beq,  12, 241, sbc,   8, 245, sbc,  10
X( "to unit  9";t
H
830
"R
t${CBM-R}d$
4{CBM--}
f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M}
x{$e6}
n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$
N{$f0}
860: e {CBM-M} :230
{$fa}
z{CBM-R}90:"pattern  *";p$
{CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
{SHIFT--}"hold down 'y' or 'n' key to select"
{$fd}"programs to be copied..., ldy,   5, 173, lda,   5, 174, ldx,   5
c
( 176, bcs,  12, 177, lda,   8, 180, ldy,  10, 181, lda,  10
( 182, ldx,  11, 184, clv,   3, 185, lda,   7, 186, tsx,   3
E( 188, ldy,   6, 189, lda,   6, 190, ldx,   7, 192, cpy,   1
(( 193, cmp,   ){CBM-P}r
{CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}064450
<{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450
s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450
\{CBM-U}410
Bz{CBM-W}80{CBM-M}"                     ":470
{CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1%
JVst{CBM-R}0{CBM-P}n{CBM-W}232330
{$e3}  1: 15:" * * * * *"
{$e5}n{CBM-R}0{CBM-M}"* no prog120, sei,   3, 121, adc,   7
;{SHIFT-@}' 125, adc,   6, 126, ror,   6, 129, sta,   9, 132, sty,   4
{$7c}D' 133, sta,   4, 134, stx,   4, 136, dey,   3, 138, txa,   3
{CBM-X}N' 140, sty,   5, 141, sta,   5, 142, stx,   5, 144, bcc,  12
{$fe}X' 145, sta,   8, 148, sty,15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$

n860:e{CBM-M}:550
f
x15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&"
y
B860:e{CBM-M}:550
M
L890:890:q{CBM-R}q{CBM-N}1

V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630

890
{CBM-R}
l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )"
B
 1: 15:500
X
14,f,15:15,t,15
{CBM-POUND}H(n$(j){CBM-N}"             3,  65, eor,   9
3J'  69, eor,   4,  70, lsr,   4,  72, pha,   3,  73, eor,   1
TT'  74, lsr,   2,  76, jmp,   5,  77, eor,   5,  78, lsr,   5
{CBM-J}{$7e}'  80, bvc,  12,  81, eor,   8,  85, eor,  10,  86, lsr,  10
{$f6}'  88, cli,   3,  89, eor,   7,  93, e{$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780
 ""
2 4: 3: 15: 14
9j
C x{CBM-R}{CBM-U}(0):"another input disk ready";z$
U*F(z$){CBM-R}89230
{$7b}4
>"drive  0";d
 hd{CBM-D}d{CBM-W}{CBM-E}d830
{CBM-E}rd${CBM-R}G(d{CBM-N}48):
D\15,e,e$,e1,e2
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}
SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
@abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P K{CBM-G}{$f0}{CBM-V}{$60}
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}
8 to serial
;
 ** serial to serial or ieee-488 to ieee-488
N
 ** via transactor's glink ieee-488 interface
T

:

 ** transactor publishing inc.
{CBM-O}
 ** 85 west wilmot st., #10


 ** richmond hill,ontario, canada



 ** l4b-1k7 (416) 764-
{CBM-Z}c{$e9}c{CBM-Z}d{$e9}
d{$60}{SHIFT-POUND}E{$fb}{$fb}{$e6}{$fc}{$60}8{CBM-G}{$fb}{$e9}{$fb}{CBM-G}{$fc}{$e9}
{$fc}{$60}{CBM-A}
{CBM-G}I{CBM-@}J=<{$60}{CBM-A}# {$f3}{$fb}/ {SHIFT-@}{$fa}/{CBM-A}{CBM-G}I{CBM-G}J {$fc}{$fb}/{CBM-G}Ic{CBM-G}Jd$8{$60} {CBM-Y}{$fa}/ {CBM-+}{$fb}/{SHIFT-POUND}$ R~{CBM-G}I{CBM-+}J {$fb}/ {CBM-+}{$fb}/{SHIFT-POUND}+ R~ I{$fc}/{SHIFT-POUND}
{CBM-I}  {$fd}/ {CBM-+}{$fb}/{SHIFT-POUND}& R~{SHIFT-POUND}
{CBM-I}  {$f2}{$fc}/ {CBM-+}{$fb}/{SHIFT-POUND}% R~{SHIFT-POUND}
{CBM-I}
 {$f2}{$fc}/l{$f6}{$f4}/ {$f3}{$fb}/{SHIFT-POUND}
{CBM-I}
J{$fa} X{$f8}{$fb}&{$fc}{CBM-I}{CBM-X}
{$7d}

J{$f4}P{$eb}({$60}h{CBM-G}I{CBM-G}J{SHIFT-POUND}

H
{CBM-D}
{SHIFT-POUND}
0

 the transactor volume 4 issue 01 page 19
R

 includes changes sent in by paul blair of holder, australia
{CBM-L}
 changes are listed in transbloopors section of vol 4 issue 02
{$e5}D
52,B(42):53,B(43){CBM-N}27::1,B(52):2,B(53)
N
ts{CBM-R}B(52){CBM-N}B(53){CBM-D}256:P{$e8}l{$fb}/{CBM-+}{$fc}{CBM-POUND}JE{$fb}{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{CBM-S}{$fe}/{CBM-A}jjjj)P {SHIFT-POUND}
{CBM-N}{CBM-X}{$f2}{$fe}/
)){CBM-N}  {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}~/c{CBM-O}l~/d{SHIFT-POUND}
 d.c*P{$f6}I? R~JP{$ea}l{$fb}/Ne {$e2}{$fa}/{CBM-A} V{$fb}/P
Ne{CBM-Z}P{$f0}
I {$f0}I,{$f0}HHl'{$f5}/8${CBM-Z}{$60}{SHIFT-POUND}
IJhh Y{$fb}/{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}~/{$f0}J{$f8}{$e8}Ne{CBM-C}{$f4}~/{CBM-X}{$f8}~/
 Y{$fb}/{$f0}C8{$e9}0^I
{$e9}I{CBM-A}tL
,204,255,198,94,6,98,38,97,38,96,38,95,16,244,96
WX
h2{CBM-R}634:h4{CBM-R}55063:al{CBM-R}251:ah{CBM-R}252:c1{CBM-R}1:c2{CBM-R}2:mh{CBM-R}256:p{CBM-R}0:mr{CBM-R}127:mt{CBM-R}128:ms{CBM-R}16
{CBM-X}Y
q{CBM-R}0:h${CBM-R}"":a${CBM-R}"":b${CBM-R}"":c4{CBM-R}4:i{CBM-R}0:a1{CBM-R}0:as{CBM-R}0:{CBM-G}l(p){CBM-R}(p{CBM-Z}mh{CBM-Q}{CBM-J}(p{CBM-Z}mh)){CBM-D}mh
{$fe}
as{CBM-R}0:nl${CBM-R}G(0):a{CBM-R}0:re{CBM-R}0:ad{CBM-R}0:{CBM-G}as(a){CBM-R}((a{CBM-E}31){CBM-P}(a{CBM-W}128)){CBM-N}(a{CBM-E}rive, source filename  ";td$,of$:C(of$){CBM-E}12{CBM-M}801
t"of${CBM-R}td${CBM-N}":"{CBM-N}of${CBM-N}".":td${CBM-W}"0"{CBM-A}td${CBM-E}"1"{CBM-M}802
{$7e}#1,"i"{CBM-N}td$: 1:2,8,0,f$:ds{CBM-M}ds$: 2:
{CBM-D}%t{CBM-R}ti:3000:nf{CBM-R}2:nf${CBM-R}of${CBM-N}"1.s":p{CBM-R}s{CBM-Q}c1:ss{CBM-R}0
{SHIFT-+})3,8,3,"@"{CBM-N}nf${CBM-N}",s,w":nf$:lc{CBM-R}0:ds{CBM-M}ds$:
*p{CBM-R}s{CBM-Q}c1{CBM-M}3,"*=$";:ad{CBM-R}s010:3:815

r3,mn$(mn)" ";
z
\md(mn)870,900,930,960,990,1020,1050,1080,1110,1140,1170,1200,1230

F2000:3,"#$";:ad{CBM-R}q:9010:3:p{CBM-R}p{CBM-N}c1:815

3,"a":815
{CBM-T}
{CBM-I}3:815
O
{SHIFT-*}2000:3,"$";:ad{CBM-R}q:9010:3:p{CBM-R}p{CBM-N}c1:815
{$e4}
{$de}2000:ad{CBM-R}q:2000

{$e8}p${CBM-R}"$":ad065

{CBM-G}rt(ad{CBM-Q}s){CBM-M}p${CBM-R}"ad"
/)3,p$;:9000:3,",y":p{CBM-R}p{CBM-N}c2:815
v82000:3,"($";:ad{CBM-R}q:9010:3,"),y"
Fbp{CBM-R}p{CBM-N}c1:815
v2000:3,"($";:ad{CBM-R}q:9010:3,",x)"
{$60}p{CBM-R}p{CBM-N}c1:815
BT2000:3,"$";:ad{CBM-R}q:9010:3,",x"
R{$7e}p{CBM-R}p{CBM-N}c1:815
{$f7}2000:3,"$";:ad{CBM-R}q:901:815

P{CBM-K}#2,a$:q{CBM-R}F(a${CBM-N}nl$):
6{CBM-U}"pass1":{CBM-K}#2,a$,b$: get start address
_Bs{CBM-R}F(a${CBM-N}G(0)){CBM-N}F(b${CBM-N}G(0)){CBM-D}mh:e{CBM-R}s:9700
XC "(";e{CBM-Q}s{CBM-N}1;"bytes)"
N9600:p{CBM-R}s{CBM-Q}1
{CBM-N}Qp{CBM-R}p{CBM-N}1:2000:n${CBM-R}mn$(q):n{CBM-R}md(q)
{$f2}Rn3050,4010,4010,3050,3100,3100,3100,3050,3050,3050,3050,3"d3P@BX{SHIFT-POUND}
!

ymj,),#($y
x$$
#]{CBM-K}#{CBM-K}
){CBM-S}I{CBM-POUND}#$s#$s{CBM-K}
[[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z})
{$7c}
M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}
{CBM-H}T{CBM-H}(NT{$f4}LjR{$f2}{CBM-@}
{CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R}
"
&&RRHDJ&hdd{CBM-I}H
   acdfghjmrtx@.>;$+&%lsv{$fd}{$f7}/o{$f6}/{$f9}/W{$f7}/X{$f5}/T{$f6}/{$f6}{$f5}/F{$f5}/{CBM-F}{$f4}/r{$f6}/m{$f5}/2{$fd}/{$fd}{$f7}/{CBM-Y}{$f5}/ {$f5}/C!{$f3}{$e5}{$f8}{CBM-T}{$f6}'{$f1}C{$f1}{CBM-O}{$f0}{CBM-J}{$f0}{CBM-A}p{CBM-E}e{CBM-M}
{CBM-G}{CBM-G}rt(p{CBM-Q}s){CBM-M}3,";":3,"ad";:ad{CBM-R}p:9000
{CBM-N}
a(#al,{CBM-G}l(ad):ah,ad{CBM-Z}mh:3,;:h4:
w2#al,ad:3,;:h2:
T% 2:2,8,0,f$:{CBM-K}#2,a$,a$:
{SHIFT-POUND}{$e4}%15,8,15:a{CBM-R}0:1,143:2,2:a{CBM-R}a{CBM-N}{CBM-Y}(0):e{CBM-R}s{CBM-N}a: 2: 15:
{$ea}'   0, brk,   3,   1, ora,   9,   5, ora,   4,   6, asl,..
*{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}I I  {CBM-A}EI{SHIFT-POUND}
Q Y{$fb}/{$f0}-NeI${$f0}t{CBM-G}I  p{$f5}/{SHIFT-POUND}O  p{$f5}/{CBM-S}e{$ee}e{CBM-X}
{$f0}  p{$f5}/lD{$fd}/  p{$f5}/ {$fb}/{CBM-G}I  p{$f5}/{SHIFT-POUND}O
 p{$f5}/  p{$f5}/ R~I
{$f0}{CBM-G}){CBM-B}{$f0}{$ee}  p{$f5}/l{$f6}{$f4}/l'{$f5}/{CBM-G}I  p{$f5}/{SHIFT-POUND}{$f0}  p{$f5}/{CBM-S}e{CBM-X}
{$f0}
  p{$f5}/{$ee}eP{$ee}  p{$f5}/ {$fb}/{CBM-G}Ih  p{$f5}/{SHIFT-POUND}{$60}
 p{$f5}/ c  p{$f5}/I{CBM-G}Pi  p{$f5}/i{CBM-R}634{CBM-@}709:a:i,a::639
_S
165,251,76,34,215,160,0,152,145,1,230,1,208,2,230,2,166,2,16,244,96
{CBM-T}T
 169,0,162,4,149,95,202,16,251,169,160,133,94,162,2,32,198,255
{$e7}U
 230,98,208,10,230,97,208,6,230,96,208,2,230,95,32,228,255,165
,V
 150,240,235,32
j{$f0}h{$ee}{SHIFT-*}
P
{CBM-I}{CBM-J}IJ{$f8}{CBM-S}
I&J{CBM-A}.JP{$f7}{SHIFT-*}
P.{CBM-A}{CBM-Z}EII{CBM-Z}EJJ{CBM-A}{CBM-Z}EIIEJJ8$
H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}{$fb}{CBM-+}{$fc}h {CBM-E}{$fb}/H {CBM-E}{$fb}/{SHIFT-POUND} PI
P{SHIFT-POUND}
$ R~{SHIFT-POUND}
lR~ {$fb}/{SHIFT-POUND}  R~l]{$fe}/ A{$fb}/ R~{CBM-S}lR~h K{$fb}/{CBM-N}Hjjjj)I
II0{$60}Ne{CBM-S}e{CBM-X}
{$f0}I:{$f0}I?{$ee}e{CBM-S}({$60}{CBM-G}I{$fb}{CBM-G}J{$fc}{$60}8{CBM-G}I{$e5}{$fb}I{CBM-G}J{$e5}{$fc}J{$60}{SHIFT-POUND}8{CBM-G}I{$ed}I{CBM-G}J{$e9}
J{$60}8159)
1
lf{CBM-R}1000:lc{CBM-R}0:{CBM-G}rt(x){CBM-R}B(x{CBM-N}ts):mn$(255),md(255)
D
"2 pass disassembler":"by paul higginbottom
{$f2}i{CBM-R}1{CBM-@}149:a,a$,b:mn$(a){CBM-R}a$:md(a){CBM-R}b:
K:"drive, program filename ";dr$,f$:dr${CBM-W}"0"{CBM-A}dr${CBM-E}"1"{CBM-M}754
{$f0}1,8,15:1,"i"{CBM-N}dr$:f${CBM-R}dr${CBM-N}":"{CBM-N}f$
'!"d:9000:3:3,";"
/lc{CBM-R}lc{CBM-N}1:lc{CBM-W}{CBM-E}lf{CBM-M}830
o0nf${CBM-R}of${CBM-N}J(D(nf),2){CBM-N}".s":3,";":3,".fil "nf$
C1 3:nf{CBM-R}nf{CBM-N}1:809
>p{CBM-R}p{CBM-N}c1:2000:mn{CBM-R}q:sa{CBM-R}p:4000:3," ";
Ehmn{CBM-R}36{CBM-A}mn{CBM-R}44{CBM-M}3,";<this was a bit instruction>":845
Zimn$(mn){CBM-W}{CBM-E}""{CBM-M}850
~m3,".byt $";:ad{CBM-R}mn:9{CBM-R}ad{CBM-N}q{CBM-D}mh:ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}1019
!{$e9}{CBM-G}rt(ad{CBM-Q}s){CBM-M}p${CBM-R}"ad"
a{$fb}3,p$;:9000:3:p{CBM-R}p{CBM-N}c2:815
v{$fc}2000:ad{CBM-R}q:2000
{$7c}p${CBM-R}"$":ad{CBM-R}ad{CBM-N}q{CBM-D}mh:ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}1030
{CBM-G}rt(ad{CBM-Q}s){CBM-M}p${CBM-R}"ad"
{CBM-U}3,p$;:9000:3,",x":p{CBM-R}p{CBM-N}c2:815
M2000:ad{CBM-R}q:2000
{$f3}p${CBM-R}"$":ad{CBM-R}ad{CBM-N}q{CBM-D}mh:ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}10:3,",y"

p{CBM-R}p{CBM-N}c1:815
<
{CBM-A}2000:ad{CBM-R}p{CBM-N}q{CBM-N}(q{CBM-E}mr){CBM-D}mh{CBM-N}c2:p${CBM-R}"$":ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}1220
s
{CBM-F}{CBM-G}rt(ad{CBM-Q}s){CBM-M}p${CBM-R}"ad"
S
D3,p$;:9000:3:p{CBM-R}p{CBM-N}c1:815

N2000:ad{CBM-R}q:2000
{CBM-L}
O3,"(";:p${CBM-R}"$":ad{CBM-R}ad{CBM-N}q{CBM-D}mh:ad{CBM-W}s{CBM-A}ad{CBM-E}e{CBM-M}1240
M
P{CBM-G}rt(ad{CBM-Q}s){CBM-M}p${CBM-R}"ad"
{$f1}
X3,p$;:9000:3,")":p{CBM-R}p{CBM-N}c2110,3100
Vp{CBM-W}{CBM-R}e{CBM-M}3025
{CBM-*}9600:"pass2":
+{$ea}2000:p{CBM-R}p{CBM-N}c1:
k2000:ad{CBM-R}q:2000:ad{CBM-R}ad{CBM-N}q{CBM-D}mh
Had{CBM-E}{CBM-R}s{CBM-P}ad{CBM-W}{CBM-R}e{CBM-M}ts{CBM-N}ad{CBM-Q}s,c1
Up{CBM-R}p{CBM-N}c2:
&2000:ad{CBM-R}p{CBM-N}q{CBM-N}(q{CBM-E}mr){CBM-D}mh{CBM-N}c2
{CBM-A}'ad{CBM-E}{CBM-R}s{CBM-P}ad{CBM-W}{CBM-R}e{CBM-M}ts{CBM-N}ad{CBM-Q}s,c1
{CBM-X}0p{CBM-R}p{CBM-N}c1:
{CBM-*} p{CBM-E}e{CBM-M}3,";":3,".end": 3: 2:
{$ee}{CBM-K}p{CBM-W}s
.{$f1}N{$f1}{$f1}{$7e}{$f1}{$fe}{CBM-W}u{$f3}*{$f9}{$e2}{$f6}b{$f1}{$f1}T{$f0}Q{$f0}{CBM-B}{$f1}{$f1}{CBM-U}{$f1}{CBM-Z}{$f1}
{CBM-Z}{$f4}/{$f4}/{$ef} {$fb}/{CBM-G}I{$ef}{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{SHIFT-POUND}  p{$f5}/H  p{$f5}/{SHIFT-POUND}   p{$f5}/  p{$f5}/l{$f6}{$f4}/ {$fb}/l]{$fe}/ M{$fe}/ ({SHIFT-POUND}  R~{SHIFT-POUND} R~P{$f3}{$60}{CBM-O}{$7b}{$fe}/){$7f} {$fb}/H({$f3}{$60}
   pc  sr ac xr yr sp   v1.0{CBM-B}..sys : erroRa    @eP@0"e3P@@e3P@@e{CBM-W}P@
"d3Pd
"d3Pd"d3P@   4
+'   8, php,   3,   9, ora,   1,  10, asl,   2,  13, ora,   5
L$'  14, asl,   5,  16, bpl,  12,  17, ora,   8,  21, ora,  10
{CBM-Z}.'  22, asl,  10,  24, clc,   3,  25, ora,   7,  29, ora,   6
{$ee}8'  30, asl,   6,  32, jsr,   5,  33, and,   9,  37J{CBM-G}P>NcP{$e5} I{$fc}/{SHIFT-POUND}
{CBM-I}  {$fd}/{SHIFT-POUND}  R~  p{$f5}/{$f0}
{CBM-+}P R~{$ef} {$fb}/{CBM-G}I{$ef}{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{SHIFT-POUND}  p{$f5}/H  p{$f5}/{SHIFT-POUND}   p{$f5}/  p{$f5}/l{$f6}{$f4}/ {$fb}/l]{$fe}/ M{$fe}/ ({SHIFT-POUND}  R~{SHIFT-POUND} R~P{$f3}{$60}{CBM-O}{$7b}{$fe}/){$7f} {$fb}/H({$f3}{$60}
   pc  sr ac xr yr sp   v1.0{CBM-B}..sys : erroRa    @eP@0"e3P@@e3P@@e{CBM-W}P@
"d3Pd
"d3Pd"d3P@
D
(B(43){CBM-N}256{CBM-D}B(44){CBM-N}31)





{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"I9P/{CBM-G}"PF#F"{CBM-E}"I9{$f0}0&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-R}{CBM-G}73{CBM-G}84L7
99 ? {$7e}{$fe}9{CBM-Z}{$fe}~9A{CBM-Z}~~9B {$fd}9{SHIFT-POUND}
{CBM-I}  l{$fd}9 {$e1}{$fb}9{CBM-Z}{$fc}~9{CBM-Z}{$fd}~9{SHIFT-POUND} ~

 {$7b}{$fe}9{CBM-I}H(J{$f9}X{SHIFT-@}.x % E{$fe}9{CBM-Z}( {$fa}{$fb}9 {CBM-O}( Z{$fb}9H{SHIFT-*}{$f5} {$e1}{$fb}9{CBM-I}
1 tterfielD   pc  sr ac xr yr sp
; {CBM-B}..sys : erroRa    @eP@0"e3P@@e3P@@e{CBM-W}P@
"d3Pd
"d3Pd"d3P@"d3P@BX{SHIFT-POUND}
!

ymj,),#($y
x$$
#]{CBM-K}#{CBM-K}
){CBM-S}I{CBM-POUND}#$s#$s{CBM-K}
[[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z})
{$7c}
M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}
{CBM-H}T{CBM-H}(NT{$f4}LjR{$f2}{CBM-@}
{CBM-N}{CBM-I}{CBM-I}TTTRdH)D
 "supermon+pet   jim butterfield"
cN
(B(40){CBM-N}256{CBM-D}B(41){CBM-N}71)





{CBM-G}*{CBM-G}+ {CBM-G}4!{CBM-G}5"
{CBM-G}PF F{CBM-E}I/P/{CBM-G}PF F{CBM-E}I/{$f0}0#{CBM-G}PF F{CBM-E}E!{CBM-N}{CBM-G}#E"h{CBM-G}4PF5F4H4h{CBM-G}4PF5F4H4{CBM-R}{CBM-G}40{CBM-G}51L4
//   M{$fe}/{CBM-Z}{$fe}~/I{CBM-Z}~~/J I{$fc}/{SHIFT-POUND}
{CBM-I}  {$fd}/ {$fb}/{CBM-Z}{$fc}~/{CBM-Z}{$fd}~/
{CBM-I}H<J{$f9}X{SHIFT-@}bx
 z{$fe}/{SHIFT-POUND} R
{$fb}9 {$ef}{$fb}9{SHIFT-POUND}$ R~{CBM-G}A{CBM-+}B T{$fb}9 {$ef}{$fb}9{SHIFT-POUND}+ R~ {$fd}9{SHIFT-POUND}
{CBM-I}  l{$fd}9 {$ef}{$fb}9{SHIFT-POUND}& R~{SHIFT-POUND}
{CBM-I}  ;{$fd}9 {$ef}{$fb}9{SHIFT-POUND}% R~{SHIFT-POUND}
{CBM-I}
 ;{$fd}9l{$60}{$f5}9 <{$fc}9{SHIFT-POUND}
{CBM-I}
J{$fa} X{$f8}C&D{CBM-I}{CBM-X}
{$7d}

J{$f4}P{$eb}({$60}h{CBM-G}A{CBM-G}B{SHIFT-POUND}

H
{CBM-D}
{SHIFT-POUND}
..
*{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}A _  {CBM-A}[A{SHIFT-POUND}
{CBM-Y} "{$fc}9N1I${$f0}n{SHIFT-POUND}{CBM-+}A  y{$fe}9{CBM-A}4{CBM-I} I~{CBM-A}-{CBM-S}1{$ee}1{CBM-X}
{$f0}
D~
 J~
 J~
P{SHIFT-POUND}~CB0 J~
EP J~
EP Q{SHIFT--}{SHIFT-POUND} lR~ J~
 {CBM-Y}~
{$f0}R {CBM-I}~
{$e6} ${$fe}
{$e6}-P{$e6}.{$60} {CBM-I}~
F {$fe}
{CBM-G}-PF.F-{$60} {$f0}{$fd}


{$60}{CBM-G}5C{CBM-G}6BlF{CBM-G}CE3C{CBM-G}BE4B J~
P{$fb}{$60}

{$e6}ZP{$e6}{$7b}{CBM-E}Z{$60}{CBM-M}changEdeletEfinDkilLnumbeR

{CBM-G}{$fc}
a{$fc}
{CBM-G}{$fc}
F{$fb}
{$fe}
{CBM-D}{$fb}
%F$l${$fe}


{CBM-G} M{SHIFT--}{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} {$7c}{$fe}
H{CBM-E}<~9/{CBM-O}{$7c}~90{SHIFT-POUND}
 0./*P{$f6}I? R~JP{$ea}l{SHIFT--}{$fb}9N1 /{$fb}9{CBM-A} {$fc}9P
N1{CBM-Z}P{$f0}
I {$f0}I,{$f0}HHl{$f5}98${CBM-Z}{$60}{SHIFT-POUND}
ABhh "{$fc}9{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}O~9{$f0}J{$f8}{$e8}N1{CBM-C}{$f4}~9{CBM-X}{$f8}~9
 "{$fc}9{$f0}C8{$e9}0^I
{$e9}I{CBM-A}tLj{$f0}h{$ee}{SHIFT-*}
P
{CBM-I}{CBM-J}AJ{$f8}{CBM-S}
A&B{CBM-A}.JP{$f7}{SHIFT-*}
P.{CBM-A}{CBM-Z}EAA{CBM-Z}EBB{CBM-A}{CBM-Z}EAAEBB8$
H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}C{CBM-+}~9{$f0} {CBM-W}{$f9}9JPR{$f0} {CBM-A}{$f9}9 {CBM-A}{$f9}9{CBM-Z}/M3{$f0}l{SHIFT-*}{$f9}9{CBM-D}{$f0}2{CBM-Z}0IP#{CBM-G}A{$e5}C{CBM-N}{CBM-G}B{$e5}DPM {CBM-A}I{CBM-POUND}HPC _JJ{CBM-D}P{CBM-O}{SHIFT-*}
CP{$f8}{CBM-Z}C {$e1}{$fb}9{SHIFT-POUND} R~{CBM-@}S{$f0} R~ m H{$fe}9 {$fa}9{$ee}{CBM-Z} {$7b}{$fc}9{SHIFT-POUND}aW{SHIFT-POUND} X{$7d}{CBM-G}D
{$fc}9YZ{CBM-G}C
{$fc}9{$7b}{$7c}{SHIFT-POUND}Fl{$60}{$f5}9l{$f5}9 {CBM-W}{$f9}9{CBM-S}3{SHIFT--}
{$f0}
HH{$ee}{$f0}{$e8}lF{$f8}9{$ee}3{CBM-S}{$60}{CBM-A} <{$fc}9 {$fb}9{SHIFT-POUND}AP e{$fc}9 _{$fe}9 {$e1}~{$f0} {$fa}9{$ee}{CBM-Z}{CBM-G}I>H{SHIFT-*}{$f1}l{$f6}{$f4}/{CBM-A} {$f3}{$fb}/
 {SHIFT-@}{$fa}/{CBM-A}
{CBM-G}I{$fb}HLh{$f1}{SHIFT-POUND} R~ {$f6}/l{$f6}{$f4}/{CBM-S}b j{$fc}/X{CBM-Z}<h{CBM-Z}=h{CBM-Z}>h{CBM-Z}?{CBM-S}@{CBM-D}a@{CBM-S}b {SHIFT--}{$f5}/a@?H>l{CBM-C}{$f4}/ {$fb}/{SHIFT-POUND}> R~ {$fb}/
{$f0} {$fb}/{CBM-E}{$fb} {CBM-E}{$fb}/HLh{$f2} & M{$fe}/
{CBM-E}{$fb}{CBM-N}){CBM-B}I"{$f0}){$7f}I {CBM-A}{SHIFT-POUND}. R~HLh{$e4}{$60}{SHIFT-POUND}
,{SHIFT-POUND}f{SHIFT-POUND}
 w{$fc}/{CBM-A} {SHIFT-@}{$fa}/l'{$f5}/,f'{CBM-G}{$fb}EI{CBM-G}{$fc}{$e5}J{CBM-A}{CBM-Z}cEII{CBM-Z}dEJJ{CBM-I}{CBM-X}{$fb}J{$f8}{SHIFT-POUND} {$fb}{SHIFT-*}P{$f3}{$f0} {$fb}9{CBM-G}AH {$fb}9{CBM-A}{SHIFT-*}P{$f1}2 {$e1}{$fb}9
{CBM-E}CYPHL2P{$f3} P{$fb}9 {$e1}~{$f0} Y{$fc}9 G{$fc}9{CBM-A}{$e1}l{$60}{$f5}9l{$f5}9 {SHIFT-@}{CBM-O}{CBM-Y}{SHIFT-POUND}{CBM-C}{SHIFT-POUND}{CBM-F} "{$fc}9{$f0}yI {$f0}{$f7}I"P{CBM-S}1{CBM-X}
{$f0}i{$e8}I"{$f0}{CBM-F}{$e6}{CBM-Y}H{SHIFT-*}{$ed}l{$f5}91 "{$fc}9{$f0}0 {$fb}9{CBM-A}+{CBM-G}A{SHIFT-@} {$fb}9{CBM-A}" <{$fc}9 {$fb}9{CBM-A}= {$e1}{$fb}9{CBM-+}A{CBM-@}B{CBM-Z}2IsPQ{SHIFT-POUND}
{CBM-O}{SHIFT-POUND}C X~l{$60}{$f5}9{CBM-Z}2Iv{$f0}IlP{SHIFT-@}{SHIFT-POUND}
 U~{CBM-G}){$f0}{$e7}{CBM-Z}2{$f0}{CBM-N} g {$7e}{$fe}9l{$60}{$f5}9{CBM-+}C{CBM-@}D{SHIFT-POUND}
{CBM-O}{$f0}S  {$fc}9{CBM-A}y {$fb}9IT {SHIFT-@}{$fa}/{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{CBM-A}@ {$fb}/{CBM-Z}fIsPU{SHIFT-POUND}
S  p{$f5}/l{$f6}{$f4}/{CBM-Z}fIv{$f0}IlP{CBM-V}{SHIFT-POUND}
  p{$f5}/  p{$f5}/{CBM-G}){$f0} {CBM-Z}f{$f0}{CBM-M} ( M{$fe}/l{$f6}{$f4}/{CBM-+}{$fb}{CBM-@}{$fc}{SHIFT-POUND}
S{$f0}L w{$fc}/{CBM-A}z {SHIFT-@}{$fa}/{CBM-A}u Y{$fb}/Pp
{CBM-G}I{$fb}{CBM-G}I{$ef}{$f0} 0{$fc}/ {$fc}/{CBM-A}{$ee}l{$f6}{$f4}/{CBM-A}7 {$f3}{$fb}/{CBM-I}
 Y{$fb}/P
{$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN
P{$f6}{$f0}{$e9}l'{$f5}/{CBM-I}{CBM-Z}P- {$e2}{$fa}/{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$
{$e8} {CBM-Z}
IL{$f0}{CBM-G}JP {SHIFT-POUND}0
{$e8}O~
{$e8} ({CBM-A}I
P{$f1}{SHIFT-POUND}
~ "{$fc}9{$f0}{CBM-*}I {$f0}{$f7}{CBM-I}{SHIFT--}{SHIFT-*}~9{$f0}J{$f8} = {$7e}{$fe}9l{$60}{$f5}9 {CBM-A} {CBM-A}
{CBM-N}{CBM-X}W~9h{CBM-X}V~9hl{$fb}92lX{$f7}9lG{$fc}9L{SHIFT-*}{CBM-A} <{$fc}9 {$fb}9{SHIFT-POUND}AP e{$fc}9{CBM-I}fBFAJP{$f9} {$e1}~{$f0}
 n{$f6}9{SHIFT-POUND} {$7b}{$fc}9 s{$fc}9{CBM-A}{$ee}l{$60}{$f5}9l{$f5}9 {$fc}9
 {$fb}9{CBM-A}
{CBM-G}A*H{SHIFT-*}{$f1}l{$60}{$f5}9{CBM-A} <{$fc}9
 {$fb}9{CBM-A}{CBM-G}ACH{SHIFT-*}{$f2}{SHIFT-POUND} R~ n{$f6}9l{$60}{$f5}9{CBM-S}. {$fc}9X{CBM-Z}(h{CBM-Z})h{CBM-Z}*h{CBM-Z}+{CBM-S},{CBM-D}-@{CBM-S}. *{$f6}9l{$60}
L{CBM-R}2{CBM-R}
"
&&RRHDJ&hdd{CBM-I}H
   acdfghjmrtx@.>;$+&%lsv:{$f8}9{$f6}9N{$f9}9{$f8}9%{$f6}9{$f7}9c{$f6}9{CBM-U}{$f5}9g{$f5}9{$f6}9{CBM-J}{$f5}9{$7b}{$fd}9:{$f8}9{$f6}9{$ee}{$f5}9
4{$f5}9{$f5}9P{SHIFT-@} O~B{CBM-G}P{CBM-E}N/P{$e9} {$fd}9{SHIFT-POUND}
{CBM-I}  l{$fd}9{SHIFT-POUND}  R~ O~{$f0}{CBM-+}P R~{$f2} {$e1}{$fb}9 {$e1}~{$f0} P{CBM-F} {SHIFT-@}~l{SHIFT-*}~ {$e1}{$fb}9lK{$fe}9 {$e1}{$fb}9 {$7e}{$fe}9 ({SHIFT-POUND}  R~{SHIFT-POUND} R~P{$f3}{$60} {$e1}{$fb}9{CBM-O}{$fe}9){$7f} R~H({$f3}{$60}supermon+ v1.0        jim bu~{CBM-@}F{SHIFT-POUND}
 R~ I({CBM-A} h{SHIFT-POUND}; R~{SHIFT-POUND}  R~{CBM-Z}< {CBM-E}{$fb}/ {CBM-O}< {$fb}/H{SHIFT-*}{$f5} {$fb}/{CBM-I}
e O~
{$e8} ;{SHIFT-POUND}
I
P{$ef}{SHIFT-POUND}
~ Y{$fb}/{$f0}{SHIFT--}I {$f0}{$f7}{CBM-I}{SHIFT--}~/{$f0}J{$f8}  M{$fe}/l{$f6}{$f4}/ {CBM-A} {CBM-A}
{CBM-N}{CBM-X}{CBM-M}~/h{CBM-X}{CBM-+}~/hl{SHIFT-@}{$fa}/fl7{$f7}/l{$7e}{$fc}/
{CBM-N}{CBM-Z}CIf{$f0}I{CBM-POUND}{CBM-O}E~/h{CBM-O}D~/h{$60}{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{SHIFT-POUND}IP {$fc}{$fb}/"{CBM-Z}hjfJFIjP{$f9}{CBM-G}I{$ef}{$f0} {$f6}/{CBM-Z}h 2{$fc}/
{$fc}/{CBM-A}{$ec}l{$f6}{$f4}/l'{$f5}/ j{$fc}/
 {SHIFT-@}{$fa}/{CBM-A}
 R~{$f0} L~ {$e1}{$fb}9{CBM-I} F~{CBM-A} O~ R~I
{$f0}{CBM-G}){CBM-B}{$f0}{$f0} L~{SHIFT-POUND}8 C~l{$60}{$f5}9l{$f5}9 ~{CBM-S}1JH{$e8}{CBM-X}
P{$f9}{CBM-S}1  {CBM-X}~{SHIFT-POUND}{CBM-+}A {$60} y{$fe}9{CBM-A}P {$e1}{$fb}9{CBM-I} F~ / O~A{CBM-G}P{SHIFT-@} O~B{CBM-G}P{CBM-E}N/P{$e9} {$fd}9{SHIFT-POUND}
{CBM-I}  l{$fd}9{SHIFT-POUND}  R~ O~{$f0}{CBM-+}P R~{$f2} {$e1}{$fb}9 {$e1}~{$f0} P{CBM-F} {SHIFT-@}~l{SHIFT-*}~ {$e1}{$fb}9lK{$fe}9 {$e1}{$fb}9 {$7e}{$fe}9 ({SHIFT-POUND}  R~{SHIFT-POUND} R~P{$f3}{$60} {$e1}{$fb}9{CBM-O}{$fe}9){$7f} R~H({$f3}{$60}supermon+ v1.0        jim buR{CBM-G}{$fb} A{$fb}/ST{SHIFT-POUND}l{$f6}{$f4}/l'{$f5}/ O{$f9}/{CBM-S}g{SHIFT--}
{$f0}
HH{$ee}{$f0}{$e8}l{$f8}/{$ee}g{CBM-S}{$60}{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{SHIFT-POUND}IP {$fc}{$fb}/  t{$fe}/{CBM-G}I{$ef}{$f0} C{$f9}/{$ee}{CBM-Z} 2{$fc}/{CBM-Z} {$fc}/{CBM-A}{$e3}l{$f6}{$f4}/l'{$f5}/{SHIFT-POUND}. R~ {$fb}/ {$fb}/ {$fb}/
{CBM-E}{$fb} i{$fa}/h{CBM-S}{$e8}Jf 0 M{$fe}/{CBM-D}fl{$f3}{$f9}/{CBM-E}{$fb} {$fb}/H{SHIFT-*}{$e5}H{CBM-I} {$fa}/{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{CBM-E}{$fb}({CBM-A} {CBM-E}{$fb}/P{$ef}
{CBM-X}~{$fe}/ R~{CBM-X}~/{$f0} R~JPP{$60} ={$fa}/IDh {$fa}{$fb}9H {$fa}{$fb}9{SHIFT-POUND} P{SHIFT-POUND}
$ R~{SHIFT-POUND}
lR~ {$e1}{$fb}9{SHIFT-POUND}  R~lK{$fe}9
{$fc}9 R~{CBM-S}lR~h {$fc}9{CBM-N}Hjjjj)I
II0{$60}N1{CBM-S}1{CBM-X}
{$f0}I:{$f0}I?{$ee}1{CBM-S}({$60}{CBM-G}AC{CBM-G}BD{$60}8{CBM-G}A{$e5}CA{CBM-G}B{$e5}DB{$60}{SHIFT-POUND}8{CBM-G}A{$ed}A{CBM-G}B{$e9}
B{$60}8{CBM-Z}/{$e9}/{CBM-Z}0{$e9}
0{$60}{SHIFT-POUND}ECC{$e6}D{$60}8{CBM-G}C{$e9}C{CBM-G}D{$e9}
D{$60}{CBM-A}
{CBM-G}A{CBM-@}B)({$60}{CBM-A}# <{$fc}9 {$fb}9{CBM-A}{CBM-G}A{CBM-G}B e{$fc}9{CBM-G}A/{CBM-G}B0$8{$60}  {$7b}{$fc}9{CBM-Z} u{$fc}9{CBM-A}{$e4}l{$60}{$f5}9l{$f5}9{SHIFT-POUND}. R~ {SHIFT--}{$fb}9 P{$fb}9 {SHIFT--}{$fb}9
{CBM-E}C {$fa}9h{CBM-S}{$e8}J2 o {$7e}{$fe}9{CBM-D}2l6{$fa}9{CBM-E}C Z{$fb}9H{SHIFT-*}{$e5}{CBM-I}{SHIFT-POUND}  R~J{$fa}H{CBM-I} {$de}{$fa}9{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{CBM-E}C({CBM-A} {$fa}{$fb}9P{$ef}
{CBM-X}/~9 R~{CBM-X}5~9{$f0} R~JPP{$60} {$fa}9IP{$e8}lT{$fb}9{CBM-+}D{CBM-POUND}JEC{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{$de}{$fe}9{CBM-A}jjjj)P {SHIFT-POUND}
{CBM-N}{CBM-X}"~9
)){CBM-N}  {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}/
{CBM-G}I{$ef}{$f0}1{CBM-E}{$fb},fIQI{$f0} {$fb}/,0{$e6}IP{$e6}JPl'{$f5}/
{$fc}/ <{$fc}/lM{$f6}/ 0{$fc}/ {$fc}/{CBM-A}Il{$f6}{$f4}/ w{$fc}/{CBM-A}z
 Y{$fb}/I'P Y{$fb}/I
{$f0}jH Y{$fb}/{$f0}{SHIFT-*}P{$f3}{$f0} {CBM-Y}{$fa}/{CBM-G}IH {SHIFT-@}{$fa}/{CBM-A}{SHIFT-*}P{$f1}f {$fb}/
{CBM-E}{$fb}YPHLfP{$f3} {$fb}/{CBM-G}I{$ef}{$f0} 0{$fc}/ {$fc}/{CBM-A} l{$f6}{$f4}/l'{$f5}/ TSQ{SHIFT-POUND}{SHIFT-+}{SHIFT-POUND}Z Y{$fb}/{$f0}uI {$f0}{$f7}I"P{CBM-S}e{CBM-X}
{$f0}e{$e8}I"{$f0}Z{$e6}QH{SHIFT-*}{$ed}l'{$f5}/e Y{$fb}/{$f0}, {SHIFT-@}{$fa}/{CBM-A}'{CBM-G}{CBM-A}t "{$fc}9Po
{CBM-G}AC {$e1}~{$f0} Y{$fc}9 G{$fc}9{CBM-A}{$ef}l{$60}{$f5}9{CBM-A}7 <{$fc}9{CBM-I}
 "{$fc}9P
{$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN
P{$f6}{$f0}{$e9}l{$f5}9{CBM-I}{CBM-Z}P- /{$fb}9{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$
{$e8} {CBM-Z}
IL{$f0}{CBM-G}BP {SHIFT-POUND}0
{$e8}P{$f9}N1 "{$fc}9{$f0}I {$f0}E
{$e8}
{CBM-X}{CBM-A}{CBM-L}/{CBM-I}
{CBM-I}
3{CBM-Z} {$fa}9{CBM-S}
0{CBM-N}{CBM-X}{$7c}~9 {CBM-W}{$f9}9{CBM-X}<~9 {CBM-W}{$f9}9{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{SHIFT-POUND}0{CBM-A} {CBM-A}{$f9}9P{$f1}
{CBM-X}/~9 {CBM-W}{$f9}9{CBM-X}5P{$f9}Ne Y{$fb}/{$f0}I {$f0}E
{$e8}
{CBM-X}{CBM-A}{CBM-L}c{CBM-I}
{CBM-I}
g{CBM-Z} i{$fa}/{CBM-S}
d{CBM-N}{CBM-X}l~/ O{$f9}/{CBM-X}~/ O{$f9}/{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{SHIFT-POUND}0{CBM-A} L{$f9}/P{$f1}
{CBM-X}~{$fe}/ O{$f9}/{CBM-X}~/{$f0} O{$f9}/JPR{$f0} L{$f9}/ L{$f9}/{CBM-Z}cMg{$f0}l{$7c}{$f9}/{CBM-D}{$f0}2{CBM-Z}dIP#{CBM-G}I{$e5}{$fb}{CBM-N}{CBM-G}J{$e5}{$fc}PF {CBM-A}B{CBM-POUND}HP\ xJJ{CBM-D}P{CBM-O}H
{$fb}P{$f8}{CBM-Z}{$fb} {$fb}/{SHIFT-POUND} R~ . z{$fe}/ K{$f9}/{$ee}{CBM-Z} 2{$fc}/{SHIFT-POUND}aO{SHIFT-POUND} PU{CBM-G}{$fc} A{$fb}/Q{$f5}9 _{$fe}9 P{$fb}9
{$f0} {SHIFT--}{$fb}9{CBM-E}C {$fa}{$fb}9H{SHIFT-*}{$f3} e {$7e}{$fe}9
{CBM-E}Ch){$7f}I#H{CBM-A}{SHIFT-POUND}  R~H{SHIFT-*}{$ec}
S{SHIFT-POUND} R~{SHIFT-POUND} R~{SHIFT-POUND}>lR~{SHIFT-POUND}
,{SHIFT-POUND}2{SHIFT-POUND}
  {$fc}9{CBM-A} {$fb}9l{$f5}9,2'{CBM-G}CEA{CBM-G}D{$e5}B{CBM-A}{CBM-Z}/EAA{CBM-Z}0EBB{CBM-I}{CBM-X}CJ{$f8}{SHIFT-POUND} {$e1}{$fb}9
 {$e1}~{$f0}1{CBM-E}C,2AQA{$f0} P{$fb}9,0{$e6}AP{$e6}BPl{$f5}9 s{$fc}9 {$fc}9l{$f7}9 Y{$fc}9 G{$fc}9{CBM-A}Jl{$60}{$f5}9  {$fc}9{CBM-A}y
 "{$fc}9I'P "{$fc}9I
{$f0}iH "{$fc}9{$f0}
D
 save"0:load & run",8
,N
 ** rte/87
qX
 ** a load and run introduction
V
 ** for all commodore machines.
{$7c}
:

dv{CBM-R}8:  disk device #
{CBM-W}
pd{CBM-R}4:  printer device #
O{CBM-N}
cls${CBM-R}G(147): txt${CBM-R}G(14)
 {CBM-H}
 cls$;txt$;
{CBM-V}
 "Transactor Publishing
$

 "utility programs start here
e
 "note: this file is only a
D
 "directory placemarker -
(
 "scratch it if you wish.



























































































































""{CBM-T}14)"c64 tiny aid
e
"adapted for c64 by: david a. hook
P
"from 'tiny aid' by: jim butterfield

"and 'basic aid' by: bill seiler
{CBM-L}
""{CBM-T}12)"sample commands:
Q
"change /?/print#4,/
{$eb}

"find .gosub., 200-

"delete 130-
{$7e}l@{$fc}
{$f0}l{$eb}~
{SHIFT-POUND}I{$7c}{SHIFT-POUND}:{$7d}{SHIFT-POUND}{CBM-A}{$7e}{$60}{SHIFT-@}{CBM-X}M{$fc}~
{$f0}P{CBM-@}{CBM-+}{CBM-G}I:{CBM-A}l

{$60}{CBM-X}M{$fd}~
P{$ec}{CBM-G}{$e6}Z{CBM-I}

{CBM-G}J{$e8}{CBM-@}Z{CBM-O}

8{$fd}{CBM-+}~
{$f0}I{$f0}{$e6}{CBM-G}{$e8}{CBM-X}{CBM-G}~
{$fa}{CBM-X}{CBM-+}~
P{$e4}{$f0}{CBM-V}{$e8}HP Z{CBM-G}{CBM-G}
{CBM-N}{CBM-X}H~
h{CBM-X}G~
h {$fb}
lS

 C{$fd}
{CBM-G}_{CBM-+}{$60}$% Y~
{CBM-G}_{CBM-+}{$60}
 {CBM-E}_{$f0}{CBM-N}{CBM-E}_Z{$7b}{CBM-G}$8{$e5}Z{CBM-N}{CBM-G}%{$e5}{$7b}{CBM-POUND}{CBM-A}E--E..

{CBM-E}Z$HP{$f9}{$e6}{$7b}{$e6}%{CBM-G}.E%{CBM-A}{$ef} S~
{CBM-G}"{CBM-+}#I-{$e8}. {CBM--}~
L  V~
 S



{$f0}E{$f0}{$f6}2HP{$f2}Z{$60}I{CBM-Q}{$f0}I-P{$60}l{$eb}~
{$f0} w{$fd}
 {$e2}~
 Y~
 Y

{$f0} w{$fd}
 S

 {$e2}~
P {CBM-G}P{SHIFT-POUND}~{$60} {$7d}~
c {$7d}~
d8{CBM-G}{$e5}c{CBM-G}{$e5}d{$60}{CBM-G}Z"{CBM-G}{$7b}#{CBM-G}-${CBM-G}.%{$60}{CBM-G}"E$P{CBM-G}#E%{$60}{CBM-@}H{CBM-E}"{CBM-@}H" {CBM-R}{$fd}
P{$60}{$e6}"P{$ec}{$e6}#P{$e8}{CBM-@}{CBM-E}${CBM-@}$ {CBM-R}{$fd}
P{$60}{CBM-G}$PF%F$lU{$fd}


{CBM-G} {$ee}~
{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} -{$fe}
H{CBM-E}{CBM-S}0V R~P{$f6} {$e5}~
8{$60}{CBM-D}{$fa}~
{CBM-S}P{SHIFT-POUND}~CB0 {$7d}~
EP {$7d}~
EP {$f1}~
{SHIFT-POUND} lR~ {$7d}~
 J~
{$f0}R u~
{$e6} U{$fd}
{$e6}-P{$e6}.{$60} u~
F {CBM-X}{$fd}
{CBM-G}-PF.F-{$60} {CBM-K}{$fd}


{$60}{CBM-G}5C{CBM-G}6Bl{CBM-*}~
{CBM-G}CE3C{CBM-G}BE4B {$7d}~
P{$fb}{$60}

{$e6}ZP{$e6}{$7b}{CBM-E}Z{$60}{SHIFT-POUND}


 {$f4}~
8{CBM-G}-{$e9}{CBM-N}{CBM-G}.{$e9}

{CBM-POUND}{CBM-G}
 U~l{$f7}~
{CBM-M}changEdeletEfinDkilLnumbeRappenD

v{$fc}
{$f2}{$fb}
v{$fc}
W{$fb}
k{$fe}
~
l3{CBM-G}l{$7c}{CBM-G}l{CBM-+}ly{CBM-+}l{CBM-+}lK{SHIFT-POUND}lW{CBM-N}l{$fd}{CBM-S}l{CBM-P}lM{CBM-X}l
] ** bye **
V cls$
- "Thank you for supporting"
i "Transactor Magazine"
o


400
_B:
{$7c}L 8,dv,8,"0:RUN ME TEXT"
{CBM-@}V x{CBM-R}0 {CBM-@} 1: 8,a$:  a$: x{CBM-R}st: :  8
{CBM-N} :
{CBM-B}{$ea} ** sub form **
E{$f4}
{$e9}{$fe} "Would you like to print out"
 "a subsc
"     vic tiny aid "
:
"  adapted for vic by:
s
"     david a. hook
P
"  from 'tiny aid' by:

"    jim butterfield
{CBM-M}
"  and 'basic aid' by:
{CBM-B}
"      bill seiler
Y
"sample  commands:
{$f4}
"change /?/print#4,/



"finnow more"
0{CBM-@} "about Transactor Magazine (y/n) ";yn$
d{CBM-S} yn${CBM-R}"n" {CBM-M} 500
y{CBM-U} yn${CBM-W}{CBM-E}"y" {CBM-M} 400
_B:
{$7c}L 8,dv,8,"0:RUN ME TEXT"
{CBM-@}V x{CBM-R}0 {CBM-@} 1: 8,a$:  a$: x{CBM-R}st: :  8
{CBM-N} :
{CBM-B}{$ea} ** sub form **
E{$f4}
{$e9}{$fe} "Would you like to print out"
 "a subsc{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-*}{CBM-Z}{$fe}~
7{CBM-Z}~~
8{SHIFT-POUND}l{$7c}{CBM-Z}Y{$fb}
{$7d}{CBM-Z}Z{$fb}
{$7e}l{$fc}
{$f0}lO{SHIFT-POUND}I{$7c}{SHIFT-POUND}:{$7d}{SHIFT-POUND}{CBM-A}{$7e}{$60}{SHIFT-+}{$fb}
{SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-+}{CBM-G}I:{CBM-A}l

{$60}{CBM-X}IDP{$ed}{CBM-G}{$e6}Z{CBM-I}

{CBM-G}J{$e8}{CBM-@}Z{CBM-O}

8{$fd}Y~
{$f0}I{$f0}{$e6}{CBM-G}{$e8}{CBM-X}X~
{$fa}{CBM-X}Y~
P{$e4}{$f0}{CBM-B}{$e8}HP Z{CBM-G}{CBM-G}
{CBM-N}{CBM-X}{$f5}~
h{CBM-X}{$f4}~
h {$e9}{$fb}
lS

 {CBM-R}{$fd}
{CBM-G}_{CBM-+}{$60}$% F{CBM-G}_{CBM-+}{$60}
 {CBM-E}_{$f0}{CBM-N}{CBM-E}_Z{$7b}{CBM-G}$8{$e5}Z{CBM-N}{CBM-G}%{$e5}{$7b}{CBM-POUND}{CBM-A}E--E..

{CBM-E}Z$HP{$f9}{$e6}{$7b}{$e6}%{CBM-G}.E%{CBM-A}{$ef} 3EInc."
&H
 "85 West Wilmot Street, #10"
eR
 "Richmond Hill, Ontario"
]{CBM--}
 "CANADA  L4B 1K7"
{$7e}{$e6}
 "telephone [phone]"
{$f0}

{CBM-M}{$fa}
 "Insert your favourite boot"
{CBM-X} "program here."
C
{$e5} "View Directory (y/n) ";vd$
{$f9}" vd${CBM-R}"n" {CBM-M} 400
 {$e1}~{SHIFT-POUND}

F{CBM-@}l{$f2}{$fc}
{CBM-@}ZH1{SHIFT-POUND}

2{CBM-O}

{$f0}E{$f0}{$f6}2HP{$f2}Z{$60}I{CBM-Q}{$f0}I-P{$60}lO{$f0} {CBM-+}{$fd}
 KI F Y

{$f0} {CBM-+}{$fd}
 S

 KIP {CBM-G}P{SHIFT-POUND}~{$60} J~
c J~
d8{CBM-G}{$e5}c{CBM-G}{$e5}d{$60}{CBM-G}Z"{CBM-G}{$7b}#{CBM-G}-${CBM-G}.%{$60}{CBM-G}"E$P{CBM-G}#E%{$60}{CBM-@}H{CBM-E}"{CBM-@}H" {$fe}
P{$60}{$e6}"P{$ec}{$e6}#P{$e8}{CBM-@}{CBM-E}${CBM-@}$ {$fe}
P{$60}{CBM-G}$PF%F$l${$fe}


{CBM-G} M{SHIFT--}{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} {$7c}{$fe}
H{CBM-E}625

"number 100,5
b

"append "G(34)"name"G(34)", [device #]
n
"kill
I
(B(43){CBM-N}B(44){CBM-D}256{CBM-N}383)


{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"P<{CBM-G}"PF#F"{CBM-E}"{$f0}!&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-L}I{CBM-B}P{$ed}{CBM-G}73{CBM-G}84L7
{CBM-N}{CBM-N}{CBM-B}{SHIFT-POUND}l{$7c}{CBM-Z}{$fe}~
{$7d}{CBM-Z}~~
{CBM-I}

i ={$fd}
{CBM-G}{CBM-G}I

P{CBM-I}i ={$fd}
 S

{$f0} {$e8}~
 C{$fd}
{CBM-G}_{CBM-+}{$60}Z{$7b} {$e5}~
PHEZZ{$e6}{$7b} {$7d}~
{$f0} {$fd}
{CBM-A}l@{$fc}
u{$e6}u{CBM-@}u{CBM-+}1{CBM-G}2{CBM-E}Z{$f0}X{SHIFT--}

P{$ed}{$e8}HFP{$f1}{CBM-G}i{$f0}[ {CBM-K}{$fd}
{CBM-G}48{$e5}2{CBM-M}{$f0}(H{$f0}J{CBM-E}ZP{$f9}E{CBM-M}I@Ik{CBM-A}<{CBM-G}{CBM-M}FE{CBM-A} U{$fd}
{$f0} {CBM-X}{$fd}
{CBM-G}8{$e5}4{CBM-POUND}H{CBM-G}4{$f0}{CBM-+}3{CBM-X}

Z{$e8}HFP{$f5}{CBM-G}-E{CBM-M}-{CBM-G}.E.{CBM-G}Z{CBM-+}{$7b}_{$60}{CBM-+}c{CBM-G}d {$ee}{$fd}
 {$e1}~{SHIFT-POUND}

F{CBM-@}l{CBM-T}{$fc}
{CBM-@}ZH1{SHIFT-POUND}

2{CBM-O}{CBM-D}{$fb}~
{CBM-P}8{$e9}{$7f}{CBM-N}

J{$f0}{$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~
{CBM-G}5{CBM-G}6 {$e8}~
 {$e2}~
{CBM-G}3{CBM-G}4 {CBM-*}~
 {$7d}~
 {$7d}~
P! _~
 {$7d}~
 {$7d}~
Pl@{$fc}
 {$7d}~
{CBM-G}CZ {$7d}~
{CBM-G}BZ J~
{$f0}{$e2} {$7d}~
 {$7d}~
 {$7d}~
I"P {$7d}~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S

{CBM-A}S {$e2}~
 ~
{CBM-G}<{$7b}{CBM-G};Z

{CBM-I}

{CBM-X}

I0h S

 5~
H

Z{$e8}P{$e8} S

{CBM-A} d~
 Y

{$f8}I,{$f0}{CBM-U}P _~
 {$7d}~
 {$7d}~

Q{CBM-X}lT{$e1}l{$e1} {CBM-@}{$fb}
{$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~
{CBM-G}5{CBM-G}6 {$e8}~
 {$e2}~
{CBM-G}3{CBM-G}4 {CBM-*}~
 {$7d}~
 {$7d}~
P! _~
 {$7d}~
 {$7d}~
Pl@{$fc}
 {$7d}~
{CBM-G}CZ {$7d}~
{CBM-G}BZ J~
{$f0}{$e2} {$7d}~
 {$7d}~
 {$7d}~
I"P {$7d}~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S

{CBM-A}S {$e2}~
 ~
{CBM-G}<{$7b}{CBM-G};Z

{CBM-I}

{CBM-X}

I0h S

 5~
H

Z{$e8}P{$e8} S

{CBM-A} d~
 Y

{$f8}I,{$f0}{CBM-U}P _~
 {$7d}~
 {$7d}~
{CBM-S}0V R~P{$f6} WJ8{$60} {CBM-S} {SHIFT-*}{CBM-P}8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} KI{CBM-G}5{CBM-G}6 {$fd}N KI{CBM-G}3{CBM-G}4 F J~
 J~
P! {CBM-D}~
 J~
 J~
Pl{$fc}
 J~
{CBM-G}CZ J~
{CBM-G}BZ {CBM-Y}~
{$f0}{$e2} J~
 J~
 J~
I"P J~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}T~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S

{CBM-A}S KI q~
{CBM-G}<{$7b}{CBM-G};Z

{CBM-I}

{CBM-X}

I0h S

 ~
H

Z{$e8}P{$e8} S

{CBM-A} ~
 Y

{$f8}I,{$f0}{CBM-U}P {CBM-D}d .gosub., 200-
"
"delete 130-625
5
"number 100,5
q

"kill        (vic aid)
L
(B(43){CBM-N}B(44){CBM-D}256{CBM-N}383)


{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"P<{CBM-G}"PF#F"{CBM-E}"{$f0}!&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-L}I{CBM-*}P{$ed}{CBM-G}73{CBM-G}84L7
{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}ription form (y/n) ";yn$
$ yn${CBM-R}"n" {CBM-M} 630
9 yn${CBM-W}{CBM-E}"y" {CBM-M} 500
?&:
G0 "* Ready Printer & Press A Key *"
{$7f}:{CBM-K} a$:  a${CBM-R}"" {CBM-M} 570
{CBM-K}d 4,pd:  pd=printer device #
{CBM-V}n 8,dv,8,"0:RUN ME FORM"
{$eb}x x{CBM-R}0 {CBM-@} 1: 8,a$: x{CBM-R}st: 4,a$: :  8:  4
{$f1}B:
L{CBM-G}"{CBM-+}#I-{$e8}. yFlG{$e4} {$7c}E S

{CBM-I}

i {$fd}
{CBM-G}{CBM-G}I

P{CBM-I}i {$fd}
 S

{$f0} {$fd}N {CBM-R}{$fd}
{CBM-G}_{CBM-+}{$60}Z{$7b} WJPHEZZ{$e6}{$7b} J~
{$f0} {CBM--}{$fd}
{CBM-A}l{$fc}
u{$e6}u{CBM-@}u{CBM-+}1{CBM-G}2{CBM-E}Z{$f0}X{SHIFT--}

P{$ed}{$e8}HFP{$f1}{CBM-G}i{$f0}[ {$f0}{$fd}
{CBM-G}48{$e5}2{CBM-M}{$f0}(H{$f0}J{CBM-E}ZP{$f9}E{CBM-M}I@Ik{CBM-A}<{CBM-G}{CBM-M}FE{CBM-A} ${$fe}
{$f0} {$fe}
{CBM-G}8{$e5}4{CBM-POUND}H{CBM-G}4{$f0}{CBM-+}3{CBM-X}

Z{$e8}HFP{$f5}{CBM-G}-E{CBM-M}-{CBM-G}.E.{CBM-G}Z{CBM-+}{$7b}_{$60}{CBM-+}c{CBM-G}d ={$fe}
, vd${CBM-W}{CBM-E}"y" {CBM-M} 280
6:
&@ 8,dv,0,"$0"
cj{CBM-K}#8,a$,a$:  trash bytes
Jt{CBM-K}#8,a$,a$,a$,a1$:  st {CBM-M}  8:  400
^ F(a${CBM-N}G(0)){CBM-N}256{CBM-D}F(a1${CBM-N}G(0));
{CBM-A}H{CBM-K}#8,a$:  a${CBM-W}{CBM-E}"" {CBM-M}  a$;:  360
{CBM-X}R:  340
C{$7c}:
Y ** more info **
{CBM-*}
 "Would you like to ka
~~tr



























































hZ



















































{CBM-POUND}{CBM-POUND}
~~~~~~transactor disk9  d9 2a








blocks free.

















































sciences   V6I04











utilities.......











c64 tiny aid ldr











vic tiny aid ldr












aid4











aid2











supermon+64













supermon+vic










swords of doom











articles........











sum of squares 1











sum of squares 2











sum of squares 3











projector












hires











bigprint 64










































































































































































































































































supermon+pet











supermon+ inst











unassembler 4.0











copy-all64













copy-all64 glink











copy file64











copy-all












change unit addr









timer64.bas











timer64.pal











projectile pet











projectile c64












comp1.pal











comp2.pal












comp1.obj











comp2.obj










































































































































































































































































yellow pages 1.2












palvert 1.0











palvert64 1.0











stp sys49152











stp sys828











verifizer.vic/64











verifizer.pet











verifizer.+4










~koala split











anim split











vars-indestruct











unassembler c64








)



super sound












































































































































































































































































































































































verifizer.b128












verifizer.c128











RUN ME!











RUN ME TEXT











RUN ME FORM













transbasic......












tb sampler.run












tb/use.obj










~
super sound













hora.mus











































































































































































































































































































































































































































































symass 3.13












tb/kernel












use











move & fill











dos support











line calc











beep











stripper.bas









































































































































































































































































































































































































































































































































bits............











quake












errcat 64/20











rt justify pet











drive speed











basic stp











gauss elim











lottery










































































































































































































































































































































































































































































































































D
" tiny aid4 "
?N
"adapted by jim butterfield from
AX
"  bill seiler's 'basic aid'
Z
"sample  commands:
{CBM-N}
"break (to monitor);   kill (aid program)
J
"number 100,10  (renumber)
{CBM-*}
"delete 130-250
{$f2}{CBM-N}
"find /gosub/
{CBM-H}
"chang
{$fa}{CBM-Z}{SHIFT-POUND};{SHIFT-POUND} {CBM-G}4!{CBM-G}5"
 8P 8{$f0}# 8E4{CBM-N}{CBM-G}#E5 c c p{SHIFT-+}{$60}{$ea}{$ea}{CBM-G}PF F{CBM-E}{$60}h{CBM-G}!PF"F!H!{$60}{SHIFT-POUND}E{SHIFT-POUND}{$e5} {$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$fe}~
4{CBM-Z}~~
5{SHIFT-POUND}lY{CBM-Z}T{$fb}
Z{CBM-Z}U{$fb}
{$7b}l{$fc}
{$f0}l

{CBM-B}{SHIFT-POUND}IY{SHIFT-POUND}:Z{SHIFT-POUND}{CBM-A}{$7b}{$60}V{$fb}
{CBM-J}{CBM-Z}{SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-L}{CBM-+}{CBM-Z}{CBM-G}{CBM-J}I:{CBM-A}l{$7d}

{$60}{CBM-X}I{CBM-H}P{$ed}{CBM-G}{CBM-J}{$e6}W{CBM-L}{CBM-I}

{SHIFT-@}J{$e8}{CBM-@}W{CBM-O}

8{$fd}R~
{$f0}I{$f0}{$ed}{$e8}HF{CBM-J}P{$f1}{CBM-Z}{CBM-G}f{$f0}[ {$ee}{$fd}
{CBM-G}18{$e5}/{CBM-H}{$f0}(H{$f0}J{CBM-E}WP{$f9}E{CBM-H}I@Ik{CBM-A}<{CBM-G}{CBM-H}F{CBM-J}E{CBM-Z}{CBM-A} "{$fe}
{$f0}
{$fe}
{CBM-G}{CBM-Z}8{$e5}1{CBM-POUND}H{CBM-G}1{$f0}{CBM-L}{CBM-+}0{CBM-X}

W{$e8}HF{CBM-L}P{$f5}{CBM-G}*E{CBM-H}*{CBM-G}+E{CBM-J}+{CBM-G}W{CBM-+}X\]{CBM-+}@{CBM-G}a ;{$fe}
 {$e1}~{SHIFT-POUND}

{CBM-@}{CBM-Z}l{$ed}{$fc}
{CBM-@}WH.{SHIFT-POUND}

/{CBM-O}

{$f0}E{CBM-J}{$f0}{$f6}/HP{$f2}W{$60}lRTI{CBM-Q}{$f0}I-P{$60}l

{CBM-B}{$f0} {CBM-@}{$fd}
 {$f6}{CBM-U} {CBM-T}{CBM-J} V

{$f0} {CBM-@}{$fd}
 P

 {$f6}{CBM-U}P {CBM-G}P{SHIFT-POUND}~{$60} C~
@ C~
a8{CBM-G}{$e5}@{CBM-G}{$e5}a{$60}{CBM-G}
~
 C~
 C~
I"P C~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}M~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}W8{CBM-G}X9 P

{CBM-A}S {$f6}{CBM-U} o~
{CBM-G}9X{CBM-G}8W

{CBM-I}

{CBM-X}I0h P

 {$7b}~
H

W{$e8}P{$e8} P

{CBM-A} ~
 V

{$f8}I,{$f0}{CBM-U}P {CBM-G}~
 C~
 C~
P{SHIFT-POUND}~{$60}_0 C~
EP
 C~
EPlO C~
 {CBM-A}~
{$f0}W ~
{$e6}{CBM-Z} "{$fe}
{$e6}*P{$e6}+{$60} ~
F{CBM-Z}
{$fe}
{CBM-G}*PF+F*{$60} {$ee}{$fd}


{CBM-Z}{$60}{CBM-G}2{$60}{CBM-G}3_l"{CBM-L}{CBM-G}{$60}E0{$60}{CBM-G}_E1_ C~D
" tiny aid2 "
?N
"adapted by jim butterfield from
AX
"  bill seiler's 'basic aid'
Z
"sample  commands:
{CBM-N}
"break (to monitor);   kill (aid program)
J
"number 100,10  (renumber)
{CBM-*}
"delete 130-250
{$f2}{CBM-N}
"find /gosub/
{CBM-H}
"chang
{$fa}{CBM-Z}{SHIFT-POUND}9{SHIFT-POUND} {CBM-G}4!{CBM-G}5"
 8P 8{$f0}# 8E4{CBM-N}{CBM-G}#E5 c c p{SHIFT-+}{$60}{$ea}{$ea}{CBM-G}PF F{CBM-E}{$60}h{CBM-G}!PF"F!H!{$60}{SHIFT-POUND}E{SHIFT-POUND}{$e5} {$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$fe}~
4{CBM-Z}~~
5{SHIFT-POUND}lY{CBM-Z}T{$fb}
Z{CBM-Z}U{$fb}
{$7b}l{$fc}
{$f0}lN{SHIFT-POUND}IY{SHIFT-POUND}:Z{SHIFT-POUND}{CBM-A}{$7b}{$60}V{$fb}
{CBM-J}{CBM-Z}{SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-L}{CBM-+}{CBM-Z}{CBM-G}{CBM-J}I:{CBM-A}l{$7d}

{$60}{CBM-X}ICP{$ed}{CBM-G}{CBM-J}{$e6}W{CBM-L}{CBM-I}

{SHIFT-@}J{$e8}{CBM-@}W{CBM-O}

8{$fd}R~
{$f0}I{$f0}{$e8}HF{CBM-J}P{$f1}{CBM-Z}{CBM-G}f{$f0}[ {$ee}{$fd}
{CBM-G}18{$e5}/{CBM-H}{$f0}(H{$f0}J{CBM-E}WP{$f9}E{CBM-H}I@Ik{CBM-A}<{CBM-G}{CBM-H}F{CBM-J}E{CBM-Z}{CBM-A} "{$fe}
{$f0}
{$fe}
{CBM-G}{CBM-Z}8{$e5}1{CBM-POUND}H{CBM-G}1{$f0}{CBM-L}{CBM-+}0{CBM-X}

W{$e8}HF{CBM-L}P{$f5}{CBM-G}*E{CBM-H}*{CBM-G}+E{CBM-J}+{CBM-G}W{CBM-+}X\]{CBM-+}@{CBM-G}a ;{$fe}
 {$e1}~{SHIFT-POUND}

{CBM-@}{CBM-Z}l{$ed}{$fc}
{CBM-@}WH.{SHIFT-POUND}

/{CBM-O}

{$f0}E{CBM-J}{$f0}{$f6}/HP{$f2}W{$60}l{$fd}I{CBM-Q}{$f0}I-P{$60}lN{$f0} {CBM-@}{$fd}
 SH ,E V

{$f0} {CBM-@}{$fd}
 P

 SHP {CBM-G}P{SHIFT-POUND}~{$60} C~
@ C~
a8{CBM-G}{$e5}@{CBM-G}{$e5}a{$60}{CBM-G}W C~
 C~
I"P C~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}M~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}W8{CBM-G}X9 P

{CBM-A}S SH o~
{CBM-G}9X{CBM-G}8W

{CBM-I}

{CBM-X}I0h P

 {$7b}~
H

W{$e8}P{$e8} P

{CBM-A} ~
 V

{$f8}I,{$f0}{CBM-U}P {CBM-G}~
 C~
 C~
P{SHIFT-POUND}~{$60}_0 C~
EP
 C~
EPl{SHIFT--}{CBM--} C~
 {CBM-A}~
{$f0}W ~
{$e6}{CBM-Z} "{$fe}
{$e6}*P{$e6}+{$60} ~
F{CBM-Z}
{$fe}
{CBM-G}*PF+F*{$60} {$ee}{$fd}


{CBM-Z}{$60}{CBM-G}2{$60}{CBM-G}3_l{CBM-M}E{CBM-G}{$60}E0{$60}{CBM-G}_E1_ C~
P)D
 "supermon+64    jim butterfield"
cN
(B(43){CBM-N}256{CBM-D}B(44){CBM-N}71)





{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"I6P/{CBM-G}"PF#F"{CBM-E}"I6{$f0}0&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-R}{CBM-G}73{CBM-G}84L7
66   {$fe}6{CBM-Z}{$fe}~6A{CBM-Z}~~6B '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6 {$f6}{$fb}6{CBM-Z}{$fc}~6{CBM-Z}{$fd}~6{SHIFT-POUND} ~
{CBM-I}H(J{$f9}X{SHIFT-@}.x

Z{$f5}6{CBM-S}. {CBM-POUND}{$fc}6X{CBM-Z}(h{CBM-Z})h{CBM-Z}*h{CBM-Z}+{CBM-S},{CBM-D}-@{CBM-S}. d{$f6}6-,+H*lx{$f5}6 {$f6}{$fb}6{SHIFT-POUND}> R~ {$e1}{$fb}6
{$f0} {$ee}{$fb}6{CBM-E}C {$fc}6H{SHIFT-*}{$f3} & {$fe}6
{CBM-E}C{CBM-N}){CBM-B}I"{$f0}){$7f}I {CBM-A}{SHIFT-POUND}. R~H{SHIFT-*}{$e5}{$60}{SHIFT-POUND}
,{SHIFT-POUND}2{SHIFT-POUND}
 {CBM-J}{$fc}6{CBM-A} {$fb}6l{SHIFT-POUND}{$f5}6,2'{CBM-G}CEA{CBM-G}D{$e5}B{CBM-A}{CBM-Z}/EAA{CBM-Z}0EBB{CBM-I}{CBM-X}CJ{$f8}{SHIFT-POUND} {$f6}{$fb}6
 {$e1}~{$f0}1{CBM-E}C,2AQA{$f0} {$e1}{$fb}6,0{$e6}AP{$e6}BPl{SHIFT-POUND}{$f5}6 H{$fc}6 {$fc}6e /gosub/goto/,300-400
@{CBM-V}
l{CBM-R}B(52){CBM-N}B(53){CBM-D}256:1536:m{CBM-R}B(33):n{CBM-R}B(34)
FH
52,m:53,n:48,m:49,n:n{CBM-R}m{CBM-N}n{CBM-D}256
MR
n


n";G(34);",01";:x{CBM-R}n{CBM-Z}4096:250
{CBM-K}{$f0}
x{CBM-R}l{CBM-Z}4096:250:
Q{$fa}
",";:j{CBM-R}1{CBM-@}4:x%{CBM-R}x:x{CBM-R}(x{CBM-Q}x%){CBM-D}16:x%{CBM-E}9{CBM-M}x%{CBM-R}x%{CBM-N}7
{$e5}G(x%{CBM-N}48);:j:


{CBM-Z}~{$fd}
{$fb}




~~
5{CBM-Z}~{$fc}{$e6}{SHIFT-@}{$e8}{CBM-X}Q~
{$fa}{CBM-X}R~
P{$e4}{$f0}{CBM-B}{$e8}HP W{CBM-G}{SHIFT-@}
{CBM-N}{CBM-X}{$f3}~
h{CBM-X}{$f2}~
h {$e4}{$fb}
lP

 {CBM-A}{$fd}
{CBM-G}\{CBM-+}]!" {CBM-T}{CBM-J}{CBM-G}\{CBM-+}]
 {CBM-E}\{$f0}{CBM-N}{CBM-E}\WX{CBM-G}!8{$e5}W{CBM-N}{CBM-G}"{$e5}X{CBM-POUND}{CBM-A}E**E++

{CBM-E}W!HP{$f9}{$e6}X{$e6}"{CBM-G}+E"{CBM-A}{$ef} {CBM-L}{CBM-H}{CBM-G}{CBM-+} I*{$e8}+ {$e9}{CBM-J}l~{CBM-W} {$fb}{CBM-H} P

{CBM-J}{CBM-I}

f {$fd}
{CBM-G}{SHIFT-@}IP{CBM-I}f {$fd}
 P

{$f0} {$f5}{CBM-V} {CBM-A}{$fd}
{CBM-G}\{CBM-+}]WX {CBM-*}{SHIFT-@}PHEWW{$e6}X C~
{$f0} Z{$fd}
{CBM-A}l{$fc}
r{$e6}r{CBM-@}r{CBM-+}.{CBM-G}/{CBM-J}{CBM-E}W{$f0}X{SHIFT--}

PW{CBM-G}X {CBM-G}*!{CBM-G}+"{$60}{CBM-G}E!P{CBM-G} E"{$60}{CBM-@}H{CBM-E}{CBM-@}{CBM-Z}H ~{$fd}
P{$60}{$e6}P{$ec}{$e6} P{$e8}{CBM-@}{CBM-E}!{CBM-@}{CBM-Z}! ~{$fd}
P{$60}{CBM-G}!PF"F!l"{$fe}


{SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} C
k
P{$fb}{$60}

{$e6}WP{$e6}X{CBM-E}W{$60}{CBM-M}breaKchangEdeletEfinDkilLnumbeR

 {$fd}
 {$fc}
<{$fc}
 {$fc}
A{$fb}
{$fe}
{CBM-M}{$fb}
!l"{$fe}


{SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} Ce /gosub/goto/,300-400
@{CBM-V}
l{CBM-R}B(52){CBM-N}B(53){CBM-D}256:1536:m{CBM-R}B(33):n{CBM-R}B(34)
FH
52,m:53,n:48,m:49,n:n{CBM-R}m{CBM-N}n{CBM-D}256
MR
n


n";G(34);",01";:x{CBM-R}n{CBM-Z}4096:250
{CBM-K}{$f0}
x{CBM-R}l{CBM-Z}4096:250:
Q{$fa}
",";:j{CBM-R}1{CBM-@}4:x%{CBM-R}x:x{CBM-R}(x{CBM-Q}x%){CBM-D}16:x%{CBM-E}9{CBM-M}x%{CBM-R}x%{CBM-N}7
{$e5}G(x%{CBM-N}48);:j:


{CBM-Z}~{$fd}
{$fb}




~~
5{CBM-Z}~{$fc}{$e6}{SHIFT-@}{$e8}{CBM-X}Q~
{$fa}{CBM-X}R~
P{$e4}{$f0}{CBM-B}{$e8}HP W{CBM-G}{SHIFT-@}
{CBM-N}{CBM-X}{$f3}~
h{CBM-X}{$f2}~
h {$e4}{$fb}
lP

 {CBM-A}{$fd}
{CBM-G}\{CBM-+}]!" ,E{CBM-G}\{CBM-+}]
 {CBM-E}\{$f0}{CBM-N}{CBM-E}\WX{CBM-G}!8{$e5}W{CBM-N}{CBM-G}"{$e5}X{CBM-POUND}{CBM-A}E**E++

{CBM-E}W!HP{$f9}{$e6}X{$e6}"{CBM-G}+E"{CBM-A}{$ef} bD{CBM-G}{CBM-+} I*{$e8}+ RElC D P

{CBM-J}{CBM-I}

f {$fd}
{CBM-G}{SHIFT-@}IP{CBM-I}f {$fd}
 P

{$f0} {$f8}M {CBM-A}{$fd}
{CBM-G}\{CBM-+}]WX {$e2}IPHEWW{$e6}X C~
{$f0} Z{$fd}
{CBM-A}l{$fc}
r{$e6}r{CBM-@}r{CBM-+}.{CBM-G}/{CBM-J}{CBM-E}W{$f0}X{SHIFT--}

P{$ed}{CBM-G}X {CBM-G}*!{CBM-G}+"{$60}{CBM-G}E!P{CBM-G} E"{$60}{CBM-@}H{CBM-E}{CBM-@}{CBM-Z}H ~{$fd}
P{$60}{$e6}P{$ec}{$e6} P{$e8}{CBM-@}{CBM-E}!{CBM-@}{CBM-Z}! ~{$fd}
P{$60}{CBM-G}!PF"F!l"{$fe}


{SHIFT-@} Y{CBM--}{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {$e2}I8{$60} I {SHIFT-*}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} SH{CBM-G}2{CBM-G}3 {$f8}M SH{CBM-G}0{CBM-G}1 {CBM-M}E C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} C~

i{$fb}{$60}

{$e6}WP{$e6}X{CBM-E}W{$60}{CBM-M}breaKchangEdeletEfinDkilLnumbeR

 {$fd}
 {$fc}
<{$fc}
 {$fc}
A{$fb}
{$fe}
{CBM-M}{$fb}
!l"{$fe}


{SHIFT-@} Y{CBM--}{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {$e2}I8{$60} I {SHIFT-*}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} SH{CBM-G}2{CBM-G}3 {$f8}M SH{CBM-G}0{CBM-G}1 {CBM-M}E C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} C~
{$fe}6{SHIFT-POUND}; R~{SHIFT-POUND}  R~{CBM-Z}( {$fc}6 {CBM-O}( {$eb}{$fb}6H{SHIFT-*}{$f5} {$f6}{$fb}6{CBM-I}
1 O~
{$e8} ({CBM-A}I
P{$f1}{SHIFT-POUND}
~ 7{$fc}6{$f0}{CBM-*}I {$f0}{$f7}{CBM-I}{SHIFT--}{SHIFT-*}~6{$f0}J{$f8}  {$fe}6lZ{$f5}6 {CBM-A} {CBM-A}
{CBM-N}{CBM-X}W~6h{CBM-X}V~6hl{$fb}62l{$f7}6l{CBM--}{$fc}6L {CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6{CBM-I}fBFAJP{$f9} {$e1}~{$f0}
 V{$f6}6{SHIFT-POUND} {$fc}6 H{$fc}6{CBM-A}{$ee}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {CBM-POUND}{$fc}6
 {$fb}6{CBM-A}
{CBM-G}A*H{SHIFT-*}{$f1}lZ{$f5}6{CBM-A} q{$fc}6
 {$fb}6{CBM-A}{CBM-G}ACH{SHIFT-*}{$f2}{SHIFT-POUND} R~ V{$f6}6l
l1{$f7}6 {$fc}6 {$7c}{$fc}6{CBM-A}JlZ{$f5}6 {CBM-J}{$fc}6{CBM-A}y
 7{$fc}6I'P 7{$fc}6I
{$f0}iH 7{$fc}6{$f0}{SHIFT-*}P{$f3}{$f0} {$fb}6{CBM-G}AH {$fb}6{CBM-A}{SHIFT-*}P{$f1}2 {$f6}{$fb}6
{CBM-E}CYPHL2P{$f3} {$e1}{$fb}6 {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$e1}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {SHIFT-@}{CBM-O}{CBM-Y}{SHIFT-POUND}{CBM-C}{SHIFT-POUND}{CBM-F} 7{$fc}6{$f0}yI {$f0}{$f7}I"P{CBM-S}1{CBM-X}
{$f0}i{$e8}I"{$f0}{CBM-F}{$e6}{CBM-Y}H{SHIFT-*}{$ed}l{SHIFT-POUND}{$f5}61 7{$fc}6{$f0}0 {$fb}6{CBM-A}+{CBM-G}A{SHIFT-@} {$fb}6{CBM-A}" q{$fc}6 {$fb}6{CBM-A}= {$f6}{$fb}6{CBM-+}A{CBM-@}B{CBM-Z}2IsPQ{SHIFT-POUND}
{CBM-O}{SHIFT-POUND}C X~lZ{$f5}6{CBM-Z}2Iv{$f9}6{CBM-X}<~6 N{$f9}6{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{SHIFT-POUND}0{CBM-A} K{$f9}6P{$f1}
{CBM-X}/~6 N{$f9}6{CBM-X}5~6{$f0} N{$f9}6JPR{$f0} K{$f9}6 K{$f9}6{CBM-Z}/M3{$f0}l{SHIFT-+}{$f9}6{CBM-D}{$f0}2{CBM-Z}0IP#{CBM-G}A{$e5}C{CBM-N}{CBM-G}B{$e5}DPF {CBM-A}B{CBM-POUND}HP\ xJJ{CBM-D}P{CBM-O}{SHIFT-*}
CP{$f8}{CBM-Z}C {$f6}{$fb}6{SHIFT-POUND} R~ . {$fe}6 ){$fa}6{$ee}{CBM-Z} {$fc}6{SHIFT-POUND}aW{SHIFT-POUND} X{$7d}{CBM-G}D {$fc}6YZ{CBM-G}C {$fc}6{$7b}{$7c}{SHIFT-POUND}FlZ{$f5}6l{SHIFT-POUND}{$f5}6 N{$f9}6{CBM-S}3{SHIFT--}
{$f0}
HH{$ee}{$f0}{$e8}l{$e8}{$f8}6{$ee}3{CBM-S}
)){CBM-N}  {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}<~6/{CBM-O}{$7c}~60{SHIFT-POUND}
 0./*P{$f6}I? R~JP{$ea}l{$ee}{$fb}6N1 @{$fb}6{CBM-A} 4{$fc}6P
N1{CBM-Z}P{$f0}
I {$f0}I,{$f0}HHl{SHIFT-POUND}{$f5}68${CBM-Z}{$60}{SHIFT-POUND}
ABhh 7{$fc}6{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}O~6{$f0}J{$f8}{$e8}N1{CBM-C}{$f4}~6{CBM-X}{$f8}~6
 7{$fc}6{$f0}C8{$e9}0^I
{$e9}I{CBM-A}tLj{$f0}h{$ee}{SHIFT-*}
P
{CBM-I}{CBM-J}AJ{$f8}{CBM-S}
A&B{CBM-A}.JP{$f7}{SHIFT-*}
P.{CBM-A}{CBM-Z}EAA{CBM-Z}EB
{$fc}6 {$fb}6{CBM-A}{CBM-G}A{CBM-G}B z{$fc}6{CBM-G}A/{CBM-G}B0$8{$60} {$fb}6 {$fc}6{SHIFT-POUND}$ R~{CBM-G}A{CBM-+}B {$e5}{$fb}6 {$fc}6{SHIFT-POUND}+ R~ '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6 {$fc}6{SHIFT-POUND}& R~{SHIFT-POUND}
{CBM-I}  p{$fd}6 {$fc}6{SHIFT-POUND}% R~{SHIFT-POUND}
{CBM-I}
 p{$fd}6lZ{$f5}6 q{$fc}6{SHIFT-POUND}
{CBM-I}
J{$fa} X{$f8}C&D{CBM-I}{CBM-X}
{$7d}

J{$f4}P{$eb}({$60}h{CBM-G}A{CBM-G}B{SHIFT-POUND}

H
{CBM-D}
{SHIFT-POUND}
..
*{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}A x  {CBM-A}tA{SHIFT-POUND}
{CBM-Y}P{$f3}{$60}{CBM-O}{CBM-Q}{$fe}6){$7f} {$f2}{$fb}6H({$f3}{$60}
   pc  sr ac xr yr sp   v1.2{CBM-B}..sys : erroRa    @eP@0"e3P@@e3P@@e{CBM-W}P@
"d3Pd
"d3Pd"d3P@"d3P@BX{SHIFT-POUND}
!

ymj,),#($y
x$$
#]{CBM-K}#{CBM-K}
){CBM-S}I{CBM-POUND}#$s#$s{CBM-K}
[[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z})
{$7c}
M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}
{CBM-H}T{CBM-H}(NT{$f4}

 supermon+ instr
#
 10000
i
 "supermon+ is a new version of
R(
"'supermon'  the reason for the new
2
"version is to provide identical
{SHIFT-*}7
"commands to those of the built-in
{$e4}<
"monitor of the commodore 128.
a
"  the most visible


" &20000
!
" %10000000000000
'{CBM-N}

p{CBM-H}
"     in the above example the user
{$7c}{CBM-V}
"has asked for the numeric equivalents
{CBM-POUND}H
"to hexadecimal 2000.  the reply shows
TR
"the value in hex ($), in decimal (+),
{$fb}{CBM--}
"in octal (&), and in binary (%)t"and conversion will be done for you.
0^"example:
bH"   m +4096
JR" ...  will cause a memory display
{$7c}"from decimal address 4096.  in the
{CBM-B}"display, the hex address ($1000) will
{SHIFT-+}"be shown.  similarly,
{$fc}"   a +2048 lda #%102 03 04 05
-
&"     displays the register values saved
y
0"when supermon+ was entered.  values

:"may be changed by typing over the
{CBM-P}
d"display followed by a return character.
M
n"  pc - program counter
{$ea}
x"  sr - status register
B"
 display is in lines of 8
4"so addresses $200 to $20f are shown.
^"  if one address only is given then
"12 lines (96 locations) will be shown.
{CBM-U} "if no address is given display will go
U*"from the last address.

4" equivalent ascii {$f0}IlP{SHIFT-@}{SHIFT-POUND}
 U~{CBM-G}){$f0}{$e7}{CBM-Z}2{$f0}{CBM-N} ( {$fe}6lZ{$f5}6{CBM-+}C{CBM-@}D{SHIFT-POUND}
{CBM-O}{$f0}S {CBM-J}{$fc}6{CBM-A}y {$fb}6{CBM-A}t 7{$fc}6Po
{CBM-G}AC {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$ef}lZ{$f5}6{CBM-A}7 q{$fc}6{CBM-I}
 7{$fc}6P
{$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN
P{$f6}{$f0}{$e9}l{SHIFT-POUND}{$f5}6{CBM-I}{CBM-Z}P- @{$fb}6{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$
{$e8} {CBM-Z}
IL{$f0}{CBM-G}BP {SHIFT-POUND}0
{$e8}P{$f9}N1 7{$fc}6{$f0}I {$f0}E
{$e8}
{CBM-X}{CBM-A}{CBM-L}/{CBM-I}
{CBM-I}
3{CBM-Z} {CBM-M}{$fa}6{CBM-S}
0{CBM-N}{CBM-X}{$7c}~6 N{$60}{CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6 {$fe}6 {$e1}~{$f0} !{$fa}6{$ee}{CBM-Z} {$fc}6{CBM-Z} J{$fc}6{CBM-A}{$e4}lZ{$f5}6l{SHIFT-POUND}{$f5}6{SHIFT-POUND}. R~ {$ee}{$fb}6 {$e1}{$fb}6 {$ee}{$fb}6
{CBM-E}C {CBM-M}{$fa}6h{CBM-S}{$e8}J2 0 {$fe}6{CBM-D}2lq{$fa}6{CBM-E}C {$eb}{$fb}6H{SHIFT-*}{$e5}H{CBM-I} {$ef}{$fa}6{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{CBM-E}C({CBM-A} {$fc}6P{$ef}
{CBM-X}/~6 R~{CBM-X}5~6{$f0} R~JPP{$60} {$fa}6IP{$e8}l{$e5}{$fb}6{CBM-+}D{CBM-POUND}JEC{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{$de}{$fe}6{CBM-A}jjjj)P {SHIFT-POUND}
{CBM-N}{CBM-X}"~6B{CBM-A}{CBM-Z}EAAEBB8$
H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}C{CBM-+}Dh {$fc}6H {$fc}6{SHIFT-POUND} PI
P{SHIFT-POUND}
$ R~{SHIFT-POUND}
lR~ {$f6}{$fb}6{SHIFT-POUND}  R~l{$fe}6 {$fc}6 R~{CBM-S}lR~h ){$fc}6{CBM-N}Hjjjj)I
II0{$60}N1{CBM-S}1{CBM-X}
{$f0}I:{$f0}I?{$ee}1{CBM-S}({$60}{CBM-G}AC{CBM-G}BD{$60}8{CBM-G}A{$e5}CA{CBM-G}B{$e5}DB{$60}{SHIFT-POUND}8{CBM-G}A{$ed}A{CBM-G}B{$e9}
B{$60}8{CBM-Z}/{$e9}/{CBM-Z}0{$e9}
0{$60}{SHIFT-POUND}ECC{$e6}D{$60}8{CBM-G}C{$e9}C{CBM-G}D{$e9}
D{$60}{CBM-A}
{CBM-G}A{CBM-@}B)({$60}{CBM-A}# q 7{$fc}6{$f0}$N1I${$f0}c{CBM-G}A {CBM-E}~{SHIFT-POUND}O ~{CBM-S}1{$ee}1{CBM-X}
{$f0} {CBM-POUND}~{$f0} {CBM-S}~ {$f6}{$fb}6{CBM-G}A {CBM-H}~{SHIFT-POUND}O ~ {CBM-G}~ R~I
{$f0}{CBM-G}){CBM-B}{$f0}{$f0} {CBM-Q}~lZ{$f5}6l{SHIFT-POUND}{$f5}6{CBM-G}A {CBM-E}~{SHIFT-POUND}{$f0} ~{CBM-S}1{CBM-X}
{$f0} {CBM-POUND}~{$e8}P{$f5} {CBM-S}~ {$f6}{$fb}6{CBM-G}Ah {CBM-H}~{SHIFT-POUND}{$60} ~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6{SHIFT-POUND}  R~ {CBM-G}~{$f0}
{CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND}  ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND}  R~{SHIFT-POUND} R~
{$7c}LjR{$f2}{CBM-@}
{CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R}
"
&&RRHDJ&hdd{CBM-I}H
   acdfghjmrtx@.>;$+&%lsv\{$f8}6{CBM-H}{$f6}6{$e9}{$f9}67{$f8}6?{$f6}68{$f7}6]{$f6}6R{$f5}6w{$f5}6{CBM-Y}{$f6}6O{$f5}6{$fd}6\{$f8}6{$f6}6{$f6}6
i{$f5}6{$f5}6~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6{SHIFT-POUND}  R~ {CBM-G}~{$f0}
{CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND}  ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND}  R~{SHIFT-POUND} R~ changes from
3f
"earlier versions of supermon are:
^k
"  --decimal or binary input allowed;
p
"  --disk status and commands (@);
{CBM-POUND}u
"  --looser (easier) syntax.
{CBM-W}D
 9000
QN
" number conversion "
{$e2}X
"   $2000
{$ef}
" $2000
{$fc}
" +8192.
&{$e6}
"  the user could ask for a number to
q{$f0}
"be converted from any of these bases
Y{$fa}
"by giving the appropriate prefix.
,9000
 6" important note -- "
K@" at any time in the following text,
{$f6}j"you may enter any number in any base
!000000
&{CBM-@}" ... will be converted to assemble:
a{CBM-S}"   a $0400 lda #$80
J{CBM-U}"   if you don't give a prefix, the
B"monitor will assume hexadecimal.
{$f4}9000
{CBM-U}{$fe}" register display "
E"   r
{$e2}"   pc  sr ac xr yr sp
{$fe}"; 0000 01 0 ac, xr, yr - a, x, and  y registers
1L"  sp - stack pointer
;{CBM-C}9000
tP"   m 200 209
Z">0200 4d 20 32 30 30 20 32 30:m 200 20"
{CBM-W}{$e4}">0208 39 00 00 04 00 04 00 04:9......."
{CBM-*}{$ee}"     display memory from 0200 hex to
{$f8}"0209 hex.
characters are shown
!
>"in reverse at the right.
m
h"values are changed by typing over the
{$7b}
r"display followed by a return character.

9000

" exit to basic "
{CBM-Z}
"   x
W
{CBM-I}"     return to basic ready mode.
{CBM-D}"when you wish"started assembly at 2000 hex.  the
:8"first instruction was load a register
Hb"with immediate 18 decimal. in following
l"lines the user need not type the
{SHIFT-@}v"a and address.  the simple assembler
{$e8}{$60}"prompts with the next address.  to exit{$e2}"     disassembles instructions from
;{$ec}"2000 to 2004 hex.  if one address is
G{$f6}"given, 20 bytes will be disassembled.

"if no address, start from the last
{CBM-@}
"used address.
N"  code may be reassembled by moving
{$f8}"the cursor back
    go to address 1000 hex and begin
"running code.
f"  if no address is given, the address
L"from the <pc> register is used.
"" jump (subroutine)"
,"   j 1000
H6"     call address 1000 hex and begin
{$f4}@"running code.  reacters may be used.
T"   h c000 d000 20 d2 ff
i{$de}"     hunt memory from c000 hex to d000
V{$e8}"hex for the sequence of bytes 20 d2 ff
{CBM-@}{$f2}"and print the address.  a maximum of 32
{CBM-X}{$fc}"bytes may be used.
Gv9000
W{$60}" load "
{$e5}Am
{$f3}{$7e}"named ram test.
"this command leaves basic pointers
."unchanged.
8{SHIFT-@}9000
i
" save"

"   s ";G(34);"program name";G(34);",01,0800,0c80"
{CBM-E}
"     save to cassette #1 memory from
{SHIFT--}{CBM-N}
"0800 hex up to but not including transfer memory "

{$fa}
"   t 1000 1100 5000
8"     transfer memory in the range 1000
F"hex to 1100 hex and start storing it at
{$7e}"address 5000 hex.
j9000
{CBM-G}t" compare memory "
G^"   c 1000 1100 5000
{$f4}H"     @,$0
{$fa}{$f4}"     get drive 0 directory
{$fe}"   @,s0:temp
:"     scratch file 'temp' from disk
d9000
A" output to printer"
&"call supermon+ from basic with:
{SHIFT-POUND}0"  open 4,4:cmd 4:sys 8"
R:"all commands will go the printed from tape or disk
{$fa}J
"m memory display
T
"r register display
4{$de}
"s save to tape or disk
l{$e8}
"x exit to basic
G"a simple assembler
{$7e}"d disassembler
$"f fill memory
{CBM-N}."h hunt memory
Dl"t transfer memory
{SHIFT--}q"
modore.  it

{$f0}"may be used to reconnect the monitor
,{$fa}"if it is accidentally disconnected by
u"use of the run-stop/restore keys."
_9000
H@ 30
{CBM-Q}(#" hit any key to continue ";
{CBM-X}2#i{CBM-R}1{CBM-@}10:{CBM-K}a$:
Q<#{CBM-K}a$:a to return to supermon+,
{CBM-L}"command sys 8.
%{$e8}9000
b{$f2}" simple assembler "
C{$fc}"   a 2000 lda #+18
{$7b}"  (changes  to:)"
"a 2000 a9 12    lda #$12
{CBM-F}"a 2002 ..next instruction
{$e5}$"     in the above example the user
.
J"the assembler type a return after the
.T"the address prompt.
w{$7e}"  previous lines may be changed by
{$7e}"typing over the right hand part.
{CBM-A}9000
{CBM-@}D"   d 2000 2004
CN". 2000 a9 12    lda #$12
{$e5}X". 2002 9d 00 80 sta $8000,x
 and typing over the
("right hand part.
X9000
2" fill memory "
s"   f 1000 1100 ff
"     fills the memory from 1000 hex to
{CBM-+} "1100 hex with the byte ff hex.
{CBM-A}{CBM--}9000
E{$e6}" go (run)"
Y{$f0}"   g 1000
{$fa}" turn to the monitor.
{$fe}{CBM-@}9000
" hunt memory "
:{CBM-I}"   h c000 d000 'read
H{CBM-D}"     hunt thru memory from c000 hex to
{CBM-L}"d000 hex for the ascii string read and
E{SHIFT-*}"print the address where it is found.  a
{$f1}J"maximum of 32 char"   l
B"   load any program from cassette #1.
;C"    l ";G(34);"ram test";G(34)
GD"   load from cassette #1 the program
{$7f}E"named ram test.
{CBM-Z}J"   l ";G(34);"ram test";G(34);",08
{SHIFT-+}T" load from disk (device 8) the progra 0c80
{CBM-H}
"hex and name it program name.
a{CBM-V}
"   s ";G(34);"0:program name";G(34);",08,1200,1f50"
NH
"    save to disk drive #0 memory from
R
"1200 hex up to but not including 1f50
{SHIFT-*}{CBM--}
"hex and name it program name.
J{$e6}
9000
{$e8}{$f0}
"compare memory in the range 1000
R"hex to 1100 hex with memory starting
:{$7c}"at address 5000 hex.
d{CBM-S}9000
[{CBM-U}" check disk "
IB"   @
L"     get disk status message
V"   @9
G "     get disk unit 9 status message
X{$ea}"   r.
{$f9}d"  when complete, return to basic
n"with x and command:
1x"  print#4:close 4"
;B9000
H{CBM-D}
"        summary                     "
{CBM-E}
"$,+,&,% number conversion
{CBM-T}{CBM-L}
"g go (run)
{SHIFT-*}{CBM-F}
"j jump  (subroutine)
{$e1}{SHIFT-*}
"l loac compare memory
{$fb}v"@ disk status/command
 9000
1{CBM-N}"supermon will load itself into the
^{CBM-H}"top of memory .. wherever that happens
{$7b}{CBM-V}"to be on your machine.
{CBM-POUND}{CBM--}"be sure to note the sys command which
U{$e6}"links supermon to the com
I${CBM-R}""{CBM-M}9020
{$fb}'"         s u p e r m o n   +   "
' '"commands - user input in  reverse "
- 8'


{CBM-H}"top of memory .. wherever that happens
{$7b}{CBM-V}"to be on your machine.
{CBM-POUND}{CBM--}"be sure to note the sys command which
U{$e6}"links supermon to the comp
51,84:52,9
7z
"file type  s";t$:"file";x$
kD
1,8,2,x$:2223
BI
st{CBM-W}{CBM-E}64{CBM-M}"no go":
X
 1:"other disk ready";a$
{CBM-Q}
C(a$){CBM-M} 1,8,2,x${CBM-N}","{CBM-N}t${CBM-N}",w":2267: 1




 {CBM-I} F~ {$e4}~
{$fb}{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}IP{$f0}{CBM-G}{$f0}{$e9}{CBM-G}{$fb}@{CBM-G}{$fc}alL~ {CBM-I} I~
{CBM-E}{$fb} R~{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fb}M@{CBM-G}{$fc}{$ed}a{$e7}{SHIFT-POUND}-D
"  disk copy-all      jim butterfield"
FN
a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
PX
p${CBM-R}""

 l2(232),l1%(232),n$(232),t%(232),t$(4)
{CBM-Y}
 xxx,seq,prg,usr,rel
L
j{CBM-R}0{CBM-@}4:t$(j):j
{$e5}
"from unit  8";f
{$ee}{CBM-N}
830
{$f8}{CBM-H}
f${CBM-R}d$
{CBM-V}

"
" 1,f,3,"$"{CBM-N}f$
#,860:e{CBM-M}:230
-63132
=@r{CBM-R}255: 340
gj3221
Ktj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j
{$7c}^n${CBM-R}J(a$,4,j)
Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470
{CBM-A}Rl1%{CBM-R}F(J(a$,22))
S{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
{$ee}J(a$,4,16);" ";t$(t9)
{$fd}p{CBM-R}B(151rams *": 800
{$ea}j{CBM-R}1{CBM-@}n
0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670
={$fe}q{CBM-R}0550
y"*** output disk full"
Y"do you have a new one";z$
F(z$){CBM-W}{CBM-E}89{CBM-M}
C& 15:15,t,15:"want to new the output disk  n";z$
V0F(z$){CBM-W}{CBM-E}89600
{$f0}:"disk name,id";x$,y$

d       ",21);
$
{CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
p
{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780

Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730
{CBM-Q}
P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
P
Zl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780
{$e5}
{$e4}t%{CBM-R}4{CBM-M}3438:760
{$ef}
{$ee}3419
#1,x$

{CBM-K}#1,x$
{CBM-K}#1,x$
x{CBM-R}F(x${CBM-N}G(0))
4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0))
:{CBM-D}


 {CBM-E}*{CBM-X}{CBM-E}*{CBM-C}{CBM-E}*f {CBM-E}*{CBM-F}{CBM-E}*{SHIFT-@}{SHIFT-POUND}d {CBM-G}
{CBM-E}{SHIFT-@}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E}{SHIFT-@} {CBM-E}{CBM-C}I*{$f0}
I?{$f0}Q{SHIFT-@}PH{SHIFT-*}P{$ed}{$60}
{SHIFT-@}{CBM-G}P{$f6} {CBM-G}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~
 {$e4}~{SHIFT-@}HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 D
 save"0:cua  (change)",8
iN
 ** jim butterfield - september 1981
X
 ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
{CBM-Y}
 "old device number   8";:  do
P
 do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130
{$f8}
 "new device number   9";:  dn


p0
'
{CBM--}
15,"m-w"G(a)G(0)G(2)G(dn{CBM-N}32)G(dn{CBM-N}64)
/
{$e6}
 15
h
{$f0}
  12,  50, 119,   0


 ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
{CBM-Y}
 "old device number   8";:  do
P
 do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130
{$f8}
 "new device number   9";:  dn




2571: rick m{CBM-A}ris


del seq prg usr rel{SHIFT-POUND}
 {CBM-X}~{SHIFT-POUND}{CBM-I}  {SHIFT-@}~ {SHIFT-*}~{$60}{CBM-I} I~{SHIFT-POUND}i R~{SHIFT-POUND}0 R~{SHIFT-POUND}
 R~ L~{CBM-G}{CBM-H}Iu{$f0}{SHIFT-POUND}u{CBM-H}{CBM-I}/{CBM-X}U]L
UJ{$f4}{$60}hhh{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}r R~H R~H R~H L~{CBM-I} F~ O~h L~H{$60}
{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}w R~{CBM-G}{$fd} R~{CBM-G}{$fe} R~{SHIFT-POUND}  R~{CBM-I}
{CBM-E}{$fb} R~HP L~{$60}{$e8}  P{$ef} L~{SHIFT-POUND} E{$fd}{$fd}{$e6}{$fe}l{CBM-G}hhh{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}w R~H R~H R~{SHIFT-POUND} R~H R~ L~{$60}H{$f9}H{$fa}
{$e6}{$f9}P{$e6}{$fa}
{CBM-E}{$f9}{$f0} R~P{$ef}{$e6}{$f9}P{$e6}{$fa}{CBM-+}{CBM-@}L{$f9}
{SHIFT-POUND}0{$fe}{SHIFT-POUND}
{$fd}{CBM-POUND}{SHIFT-POUND}
{$fd}HP{$fb}{$e6}{$fe}{CBM-G}{$fe}IP{$f1}{$60}I
{$f0}
hHh R~FP{$f7}H{$60}
{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}r R~{CBM-G}{$fb} R~{CBM-G}{$fc} R~{SHIFT-POUND}~ R~ L~{CBM-I}
 F~ O~{$fd}HP{$f8} L~{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}r R~{SHIFT-POUND}~ R~{CBM-G}{$fc} R~{SHIFT-POUND} R~ L~{CBM-I} ~ F~ O~{$fd} L~{$60}hhh{SHIFT-POUND} I~H{CBM-I}
 {$ec}H{CBM-I}
 {$ec}H{CBM-I}
7lL~{SHIFT-POUND}6{SHIFT-POUND}{$fc}{SHIFT-POUND}t{$fb}{$60}











supermon+ inst











unassembler 4.0











copy-all64













copy-all64 glink









































































































"to unit  9";t
H
830
"R
t${CBM-R}d$
4{CBM--}
f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M}
x{$e6}
n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$
N{$f0}
860: e {CBM-M} :230
{$fa}
z{CBM-R}90:"pattern  *";p$
{CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
{SHIFT--}"hold down 'y' or 'n' key to select"
{$fd}"programs to be copied...){CBM-P}r
{CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}255450
<{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450
s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450
\{CBM-U}410
Bz{CBM-W}80{CBM-M}"                     ":470
{CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1%
JVst{CBM-R}0{CBM-P}n{CBM-W}232330
{$e3}  1: 15:" * * * * *"
{$e5}n{CBM-R}0{CBM-M}"* no prog15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$
 n860:e{CBM-M}:550
fx15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&"
yB860:e{CBM-M}:550
ML890:890:q{CBM-R}q{CBM-N}1
V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630
890
{CBM-R}l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )"
B 1: 15:500
X14,f,15:15,t,15

{CBM-POUND}H(n$(j){CBM-N}"             {$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780
 ""
2 4: 3: 15: 14
9j
C x{CBM-R}{CBM-U}(0):"another input disk ready";z$
U*F(z$){CBM-R}89230
{$7b}4
>"drive  0";d
 hd{CBM-D}d{CBM-W}{CBM-E}d830
{CBM-E}rd${CBM-R}G(d{CBM-N}48):
D\15,e,e$,e1,e2
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}
SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}{SHIFT-@}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~{CBM-I} I~
{CBM-I}
{CBM-E}{SHIFT-@}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
@abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-N} L~ 0P K{CBM-G}{$f0}{CBM-V}{$60}
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K} dn{CBM-W}8 {CBM-A} dn{CBM-E}15 {CBM-M} 150
3{CBM-N}
 15,do,15:  command channel
K{CBM-H}
a${CBM-R}G(do{CBM-N}32): b${CBM-R}G(do{CBM-N}64):  talk and listen current
{CBM-V}
 a:  a{CBM-R}0 {CBM-M}  "disk not recognized!";:  230
LH
15,"m-r"G(a)G(0): {CBM-K}#15,x$:  x${CBM-W}{CBM-E}a$ {CBM-M} 190
{$fd}R
15,"m-r"G(a{CBM-N}1)G(0): {CBM-K}#15,x$:  x${CBM-W}{CBM-E}b$ {CBM-M} 19

 {$ec}{SHIFT-POUND}
{CBM-N}{CBM-POUND} P0{$f7}{$60}{SHIFT-POUND}
!P{SHIFT-POUND} P{SHIFT-POUND}              yellow pages
         directory organizer

            by rick morris

         subroutine help from
             jeno horvath
       want directions? y/any key

 {$e4}~{$f0}{$fb}IyP        insert disk
HHH{CBM-E}{$fd}P{SHIFT-POUND} lI{SHIFT-*}P{SHIFT-POUND}@l){$7f}I@I{$60}{CBM-A}i@{CBM-A}H{SHIFT-*}P{SHIFT-+} {CBM-K}
{CBM-E}{CBM-G} AHHH{CBM-E}{CBM-G}P{SHIFT-POUND} lgI{SHIFT-*}P{SHIFT-POUND}@lg){$7f}I@I{$60}{CBM-A}i@{CBM-A}H{SHIFT-*}P{SHIFT-+} JPH{CBM-+}H{CBM-G}H{$fe}H{$fd}{$60}h{CBM-G}{CBM-E}IT{CBM-E}H{$f0})@{$f0}{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND} {CBM-A}H{SHIFT-*}P{$f9}{CBM-G}{CBM-E}8{$e9}T{CBM-E}
{$60}{CBM-G}{$fd}I {$fd}{$e6}{$fe}{CBM-G}{CBM-G}I {CBM-G}{$e6}{CBM-+}{CBM-G}{CBM-A}I{CBM-A}{$e6}{CBM-E}{$60} {$e4}~{$f0}{$fb}{CBM-I}
{CBM-C}U{SHIFT-*}
{$f0}{$f2}{SHIFT--}U{$f0}{$e8}{$e8}{$e8}l{CBM-H}{$e8}{CBM-C}U{$e8}{CBM-C}UL
Calzbl]{$ee}C/{CBM-X}{$7d}/-]/4eBT_AIcP{$f0}  l{CBM-Z} {CBM-E}{$fd}{SHIFT-POUND}{$f9}{CBM-G}{$fd}{CBM-N}{CBM-G}{$fe}{CBM-POUND}{SHIFT-POUND}B {CBM-G}{SHIFT-POUND}I {SHIFT-POUND}{$e6}{CBM-N}{$60}h{CBM-E}{$fc}{$fb}I {CBM-A}{$e6}{CBM-E}
{CBM-E}{CBM-A}{$fb}HP{$f9}{$e6}{CBM-E}{$e6}{$fc}HhE{CBM-E}P{$ef}H{$60} {CBM-E}{CBM-G}Pl{CBM-Z}{CBM-G}{CBM-N}ICP{CBM-G}{SHIFT-POUND}IPl{CBM-Z}{SHIFT-POUND}A{CBM-+}{$fe}{CBM-@}{$fd} {$e8} {CBM-E}{CBM-G}{$fd}{$f9}{CBM-G}{CBM-G}{CBM-N}{CBM-G}{CBM-+}{CBM-POUND}{SHIFT-POUND}U {CBM-G}{SHIFT-POUND}8{$e9} {SHIFT-POUND}{CBM-A}F{CBM-N} =
l{CBM-Z} {CBM-Z} {CBM-O}{CBM-K}{SHIFT-POUND}{$f8}{CBM-G}{SHIFT-POUND}I {SHIFT-POUND}{$e6}{CBM-N}l
{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}












 {CBM-Z} {CBM-E}{$fd}Pl{CBM-Z}{SHIFT-POUND}U{CBM-+}{CBM-+}{CBM-@}{CBM-G} {$e8} {CBM-E}{$fd}{CBM-G}{$f9}  =
l{CBM-Z}{$fc}{CBM-E}{CBM-G}{SHIFT-POUND}B{CBM-+}{CBM-I}
H{CBM-X}D{CBM-G}{$e6}{CBM-+}{$e8}{CBM-G}{CBM-+}E{CBM-N}P{$f2}{SHIFT-POUND}~{CBM-G}{SHIFT-POUND}B{CBM-+}{SHIFT-POUND}p{$fe}{SHIFT-POUND}
{CBM-G}{$fd}
{CBM-E}{$fd}{CBM-G}HP{$f9} .{SHIFT-POUND}
{$fb}{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND}B{$fc} {CBM-T}{CBM-I}
{SHIFT-POUND} {CBM-*}{$e6}{$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{$fe} {CBM-T}{CBM-I} F{$fc}{CBM-E}{$fb}{CBM-POUND}{$e6}{$fc}{SHIFT-POUND} {CBM-*}IP
{CBM-E}{$fb}PYlb

        write error. try again y/n

 {$e4}~{$f0}{$fb}IyP
 ok

 @lInP{$e6}        disk has been corrupted
{$60}
umn is the one you make

  'return' moves an entry left to right
    'insert' moves the top left entry
     to the top of the right column
         'delete' moves it back

    'r' restores the left column back
               to original

     cursor l/r, writes the new directory to disk

       'run/stop' returns to basic

          red files are locked
       yellow files are scratched

        all of the above commands
       work on the top right entry

     the line above the directory is

?rick morris
4179 william st.
burnaby b.c.
canada
v5c 3j5


{$60}o basic

          red files are locked
       yellow files are scratched

        all of the above commands
       work on the top right entry

     the line above the directory is
      0
 ****************************************
_
 * convert cbm assembler source file to *
(
 *  file to pal assembler source file   *
{CBM-X}2
 *         k.j.h. hildon 03/83          *
{$ec}<
 *   =======  palvert64 1.0 =========   *
f
 *       worffer
a
X
mc{CBM-R}896                              :  mach code start addr
Z

 *** string input routine -- by jim butterfield ***
E

 160,   2, 177,  45, 153, 137,   0, 200, 192,   6, 208, 246, 162,   1

  32, 198, 255,  32, 228, 255, 201,  13, 240,   and press any key

 {$e4}~{$f0}{$fb} reading directory...
{SHIFT-POUND}{CBM-A} {$e7}~ . d @{SHIFT-POUND}
{$fb}{$fd}{SHIFT-POUND}0{$fe}{CBM-I}
{SHIFT-POUND} {CBM-*}{SHIFT-POUND}{$fc} O
{CBM-E}{$fd}{$f0}C{CBM-N}H{CBM-E}{$fd}{CBM-POUND}{SHIFT-POUND} {CBM-*}I{$f0}F{CBM-A}{CBM-G}{CBM-A}P{$e6}l{$e6}{$fe}{SHIFT-POUND}{$fc} O{SHIFT-POUND}* R~lt L~
error reading track
{CBM-E}{$fd}{CBM-N}{SHIFT-POUND}
 M{CBM-X}  sector
 {CBM-E}{$fd}{CBM-N}{SHIFT-POUND}
 M{CBM-X}{$60}{SHIFT-POUND}
{$fd}{CBM-G}{SHIFT-POUND}0{$fe}{SHIFT-POUND}p{CBM-+}
{CBM-E}{$fd}{CBM-G}HP{$f9}{$e6}{CBM-+}{$e6}{$fe}{CBM-G}{$fe}IoP{$ef} {$e4}l{CBM-Z}{SHIFT-POUND} R~{SHIFT-POUND}
{CBM-POUND}{CBM-N}{$fb}{$fd}{SHIFT-POUND}{$fc}
      disk name
{CBM-I}
{CBM-X}p R~{$e8} P{$f5}{SHIFT-POUND}  R~{$e8}{$e8}{CBM-X}p R~{$e8} P{$f5}{SHIFT-POUND}q{$fe}{CBM-POUND}{SHIFT-POUND}C{CBM-+}{CBM-N}{SHIFT-POUND}{$fd}{CBM-G}{CBM-M}{SHIFT-POUND}   {CBM-E}{$fd}{$f0}<

{CBM-E}{$fd})

{CBM-N} {CBM-X} R~{$e8}P{$f6}
 {CBM-E}{$fd}{CBM-N}{SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}  R~ R~

 {CBM-E}{CBM-G}{$f0}-
{CBM-E}{CBM-G})

{CBM-N} {CBM-X} R~{$e8}P{$f6}
 {CBM-E}{CBM-G}{CBM-N}{SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}  R~ R~{CBM-G}{$fd}h{CBM-G}{$fe}h{CBM-G}{CBM-G}h{CBM-G}{CBM-+}h{SHIFT-POUND}G{CBM-A}{SHIFT-POUND}{CBM-E}{CBM-I}
{CBM-E}{$fd} Ayk1y]w{$60}\z{CBM-Y}1C13


{CBM-G}{$fe}IqP{CBM-G}{$fd}IPl{CBM-Z}{CBM-G}{$fd}8{$e9} {$fd}{CBM-A}F{$fe} =
l{CBM-Z} {CBM-E}{$fd}Pl{CBM-Z}{CBM-G}{$fd}I {$fd}{$e6}{$fe} =
l{CBM-Z}{$60} {CBM-E}{CBM-G}Pl{CBM-Z}{CBM-G}{CBM-G}I {CBM-G}{$e6}{CBM-+} =
l{CBM-Z}{CBM-G}{CBM-+}ICP{CBM-G}{CBM-G}IPl{CBM-Z}{CBM-G}{CBM-G}8{$e9} {CBM-G}{CBM-A}F{CBM-+} =
l{CBM-Z} {CBM-Z} {CBM-E}{$fd}Pl{CBM-Z} {$f9}{CBM-G}{SHIFT-POUND}8{$e9}@{CBM-G}{CBM-G}{CBM-N}{$e9}{CBM-+}{CBM-G}{CBM-+}IC{CBM-A}{SHIFT-POUND}C{CBM-+}{SHIFT-POUND}{CBM-G} =
l{CBM-Z}{CBM-G}{CBM-N}IU{$f0}{$60}  directory full restore or continue
 {$e4}~{$f0}{$fb}IrPl{CBM-X}{$fb}I {CBM-A}{$e6}{CBM-E}
{CBM-E}{$fb}{CBM-A}P{$f8}F{$fc}F{CBM-E}E{CBM-E}{$ed}{$f0}{$eb}{$60}
{CBM-E}{CBM-G}@{CBM-G} =
l{CBM-Z}
{CBM-E}{CBM-G}){CBM-B}{CBM-G}l{SHIFT-POUND}
{CBM-POUND}{CBM-G}l            prg seq usr del or rel
 {$e4}~{$f0}{$fb}Ip{$f0}Is{$f0}Iu{$f0}Ir{$f0}IdP{$e7}{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}
{CBM-G}   =
l{CBM-Z}      write directory. continue y/n
 {$e4}~{$f0}{$fb}Iy{$f0}   =
l{CBM-Z}{SHIFT-POUND}
{CBM-G}{SHIFT-POUND}B{CBM-+}
{SHIFT-POUND}{CBM-G}{$e6}{CBM-+}{CBM-G}{CBM-+}E{CBM-N}P{$f4}{SHIFT-POUND}

{$60}          new name (return when done)
{SHIFT-POUND}{$fb} {$e4}~{$f0}{$fb}I{$f0}I
{$f0}({CBM-@}{$fb}{CBM-G} W
{$e6}{$fb}{CBM-G}{$fb}I{$e4}F{$fb}lb{CBM-G}{$fb}I{$f0}YF{$fb}{CBM-@}{$fb}{SHIFT-POUND} {CBM-G} W
lb{CBM-@}{$fb}{SHIFT-*}{CBM-A}{SHIFT-POUND} {CBM-G}H{SHIFT-*}{$f7}   =
l{CBM-Z}               yellow pages

    the left column is the original
  the right colu/d move old and new
         directories up and down


              press any key
 {$e4}~{$f0}{$fb}    'l/shift l' lock and unlock a file
    's/shift s' scratch and unscratch

'space' puts a separator at bottom right      'c' will change the file name

  'w'  the file type and length

  use the dos 'v' command when finished
              press any key

 {$e4}~{$f0}{$fb}           this program is free

       give it to all your friends
  and send me a postcard if you like it
    and especially if you find a bug

                    :  start addr c64
zR
sl{CBM-R}100                              :  starting line #
{CBM--}
ic{CBM-R}10                               :  increment
{$e6}
 270
L{$f0}
 :  "append to existing pal file (y/n)";yn$
 {$fa}
 yn${CBM-R}"y" {CBM-M} 900
{$fa} 360 :  450 : ks on c64 with disk         *
jp
 * absolutely no copyright restrictions *
Yz
 ****************************************
{CBM-X}D
i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" :  i$ must be 1st var used


N
i${CBM-R}i${CBM-N}i${CBM-N}i$                         :  establish input bu15, 164, 142, 145, 140
[
 200, 132, 142, 196, 139, 240,   4, 165, 144, 240, 234,  76, 204, 255
{CBM-N}
 :  j{CBM-R}mc {CBM-@} mc{CBM-N}41 :  x :  j, x : t{CBM-R}t{CBM-N}x :
{CBM-E}{CBM-H}
 t{CBM-W}{CBM-E}6120 {CBM-M} "typo in data" :
{$e3}{CBM-V}
z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0 :  G(14)
H
sa{CBM-R}2049                       yellow pages
         directory re-organizer



  UCCCCCCCCCCCCCCCCI  UCCCCCCCCCCCCCCCCI

  B                B<>B                B

{CBM-I}  B                B  B                B

JPQ  JCCCCCCCCCCCCCCCCK  JCCCCCCCCCCCCCCCCK


pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) :  1080
-{$f2} {CBM-T}20)cn""
l{$fc} "  destination drive";pn
\ {CBM-T}20)pd""
{$7b} "destination device#";pd
pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{SHIFT-*}$ 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
{$ec}. e{CBM-W}{CBM-E}62  {CBM-M}  " file exists" :e link
Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
e{$7e}{CBM-K}#1, b$, c$                           :  get line number
Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
{CBM-D} mc{CBM-N}21, 0                           :  input delim now $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            :
k           :  alter next line num
{$f6} 1, cd, 8, cn${CBM-N}",s,r"
#
 550


        :  get line number
Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
{CBM-D} mc{CBM-N}21, 0                           :  input delim now $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            :
8

 the transactor volume 5 issue 06         page 12
A

* data loader for "verifizer 4.0" *
J
cs{CBM-R}0

 i{CBM-R}634 {CBM-@} 754: a: i,a
(
cs{CBM-R}cs{CBM-N}a: i
2
:
K<
 cs{CBM-W}{CBM-E}15580 {CBM-M} "***** data error *****":
Yf
 sys 634
{CBM-*}p

{$e5}D
:
{$e8}  76, 138,   2, 1205, 167, 208,  58, 173
c$ 254,   1, 133, 251, 162,   0, 134, 253, 189
U.   0,   2, 168, 201,  32, 240,  15, 230, 253
{CBM-M}8 165, 253,  41,   3, 133, 254,  32, 236,   2
Yb 198, 254,  16, 249, 232, 152, 208, 229, 165
l 251,  41,  15,  24, 105, 1 520

 :  "cbm source filename";cn$
.
 {CBM-T}20)cn""
m
" "       source drive";cn
]
, {CBM-T}20)cd""
{$7c}
6 "     source device#";cd

@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$
A
j 1, cd, 8, cn$ : ed{CBM-R}cd :  700 :   1
{SHIFT--}
t e {CBM-M}  ee$ :  :  270
{$e3}
^
H :  "   ne0)sl""
L "    starting line #";sl
hV sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a :  450
x  {CBM-T}20)ic""
W{$ea} "     line increment";ic
{$f4} :
{SHIFT-POUND}{$fe} ** open input and output files **
{CBM-X} 1, cd, 8, cn$
X 2, pd, 6, pn${CBM-N}",p,w"
a{CBM-R}sa :  660     :  660     :  output line #    - hex lo, hex hi
sxsl;a$    :  ===== remove for better speed ======
Bsl{CBM-R}sl{CBM-N}ic             :  increment line number
{CBM-J}L2, a$z$;       :  output line, chr$ zero
FV sx{CBM-R}0 {CBM-M} 550
{CBM--}  2 :   1 :  760
{$f9}{CBM-D}{CBM-D} output 2
"Append another file n";yn$
% yn${CBM-R}"y" {CBM-M} 840
> 2, pd, 6, pn${CBM-N}",a"
{$7b} 2, z$z$;             :  add end file marker ($00, $00)
*  2 :   15
{CBM-X}4 "load";G(34);pn$;G(34);","J(D(pd),2)""
C>
{$f8}h 270                  :  for n
op$
{$f9} {CBM-T}20)cn""
 "              drive";op
({CBM-I} {CBM-T}20)od""
g{CBM-D} "            device#";od
Q{CBM-L} 1, od, 8, op$ : ed{CBM-R}od :  700 :   1
{SHIFT-*} e {CBM-M}  ee$ :  :  900
{CBM-G}J :  {CBM-T}21)"@"op$""
ET "   new pal filename";pn$
 {$de} H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010
{$e8}  :  970
#8 : "creating new file from ";op$;"  stand by..."
>b 1, od, 8, op${CBM-N}",p,r"
yl 2, pd, 6, pn${CBM-N}",p,w"
v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));   :  file start address
{CBM-S}{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));
{$e6}J{CBM-K}#1, b$, c$ :  st{CBM-R}64  {CBM-M} 1230     :  get lin +z$ to add lost mkr
{$fd}{CBM-A}2,a$;
={SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$)                           :  update start addr
hD 1130
pN  1
X mc{CBM-N}21, 13                          :  input delim back to cr
{CBM-V}{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic
{$fe}{$ec} 450                    0

 the transactor volume 7 issue 01 page 11
w{$e8} * data loader for "verifizer +4"
X{$f2} * commodore plus/4 version
{$fc}{$de} 1: {$e8}: {$de} 0:  make room for code
{CBM-M}cs{CBM-R}0
S j{CBM-R}4096 {CBM-@} 4216:  x:  j,x: ch{CBM-R}ch{CBM-N}x:
{$fb} ch{CBM-W}{CBM-E}13146 {CBM-M}  "checksum error":
, 173, 163,   2, 133, 144
i{$f2} 173, 164,   2, 133, 145,  88,  96, 120, 165
{$7b}{$fc} 145, 201,   2, 240,  16, 141, 164,   2, 165
{CBM-Z} 144, 141, 163,   2, 169, 165, 133, 144, 169
{CBM-*}   2, 133, 145,  88,  96,  85, 228, 165, 217
 201,  13, 208,  62, 16
93, 141,   0, 128
=v 165, 251,  74,  74,  74,  74,  24, 105, 193
O{$60} 141,   1, 128, 108, 163,   2, 152,  24, 101
J 251, 133, 251,  96


,   2, 169, 165, 133, 144, 169
{CBM-*}   2, 133, 145,  88,  96,  85, 228, 165, 217
 201,  13, 208,  62, 16w pal filename";pn$
R {CBM-T}20)cn""
6{$7c} "  destination drive";pn
f {CBM-T}20)pd""
E "destination device#";pd
pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{CBM-N}{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
T{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M}  "file exists" :  :  360
{$de}{CBM-U} :
{$f9}Ba{CBM-R}sl :  :  {CBM-T}2 output file start addr ($0801)
k& mc : sx{CBM-R}st       :  input line from cbm source file
_0a${CBM-R}H(i$,B(142))
{CBM-+}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5      :  start addr + line len + 5 for link,line,mkr
{$e1}da{CBM-R}sa :  660     :  output line link - hex lo, hex hi
na{CBM-R}sl :  hex bytes {CBM-D}{CBM-D}

2, G(a {CBM-P} 255);
"2, G({CBM-J}(a{CBM-Z}256));
({CBM-POUND}
9{CBM-R}{CBM-D}{CBM-D} err{CBM-A}  {CBM-D}{CBM-D}
j{CBM-C} 15, ed, 15
AF15, e, e$, et, es
Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es)
Z  15
{$e4}
A{$ee} ** add more cbm source modules **
G{$f8}
{$ea} "(DO NOT exit with <RETURN>)ew cbm file name
9r 450                  :  alter next line number, increment
m\ 1, cd, 8, cn$
FF 2, pd, 6, pn${CBM-N}",a"
P 550                   :  go add file
EZ ** append cbm source to existing pal file **
{$e9} :  "   old pal filename";
0

 the transactor volume 7 issue 01 page 11
y{$e8} * data loader for "verifizer c128"
X{$f2} * commodore c128 version
{$fc} * use in 40 column mode only!
{CBM-G}cs{CBM-R}0
Q j{CBM-R}3072 {CBM-@} 3214:  x:  j,x: ch{CBM-R}ch{CBM-N}x:
{$f9} ch{CBM-W}{CBM-E}17860 {CBM-M}  "checksum error":
$ 169,  12, 141,   3,   3,  96, 165,  22
rT 133, 250, 162,   0, 160,   0, 189,   0
{$7f}{$7e}   2, 201,  48, 144,   7, 201,  58, 176
{CBM-D}   3, 232, 208, 242, 189,   0,   2, 240
Y  22, 201,  32, 240,  15, 133, 252, 200
 152,  41,   3, 133, 251,
U255, 169, 146,  32, 210, 255
a {$e2}  24,  32, 240, 255, 108, 253,   0, 165
I {$ec} 252,  24, 101, 250, 133, 250,  96


, 201,  58, 176
{CBM-D}   3, 232, 208, 242, 189,   0,   2, 240
Y  22, 201,  32, 240,  15, 133, 252, 200
 152,  41,   3, 133, 251,
$ "sys 4096: rem to enable"
<. "sys 4099: rem to disable"
b8
Ob  76,  14,  16, 165, 211, 141,   2,   3
l 165, 212, 141,   3,   3,  96, 173,   3
Iv   3, 201,  16, 240,  17, 133, 212, 173
{$f6}{$60}   2,   3, 133, 211, 169,  39, 141,   2
#J
{$f9},  32, 113
1{CBM-+}  16, 198, 209,  16, 249, 232, 208, 229
^{CBM-A} 165, 208,  41,  15,  24, 105, 193, 141
{SHIFT-@}   0,  12, 165, 208,  74,  74,  74,  74
{CBM-U}D  24, 105, 193, 141,   1,  12, 108, 211
{$e5}N   0, 165, 210,  24, 101, 208, 133, 208
{$ef}X  96



#JD
 save"0:RUN ME!",8
pI
 ** transactor subscription form print program **
ON
 "";: dv{CBM-R}4:  15,8,15
{CBM-I}S
 8,8,8,"RUN ME TEXT,s,r": 15,e:  e {CBM-M}   8:
KX
 x{CBM-R}0 {CBM-@} 1: 8,d$:  d$: x{CBM-R}st: :   8
{$fa}{$7d}
 "your choice (y/n) ";yn$:  yn${CBM-W}{CBM-E}"y" {CBM-M}
2**      The Transactor Magazine      **
.
The programs contained on this diskette
are just a brief glimmering of what can
be expected from each issue of our
magazine.  If you have not already
decided to subscribe  let us help you
on your way.
{$f7}he Transactor
can be found on the newsstands or
because you do not know who we are then
it's time to learn.  Allow your printer
to produce our form; fill it in then
mail it to us. It will be a decision
that you will never regret.
.
our way.**                the transactor magazine - subscription form                **
.
**   please send me 6 consecutive transactors starting with the next issue   **
.
canada $19 ...  usa $15 us ...  foreign $21 us ... air mail overseas $40 us ...
.
... renewal (please include your sub. number from mailing lable) ..............
.
... new subscription (y/n) ?
.
name and address  please include your postal/zip code        (new address? ...)
.
................................................................... "sys 3072,1: rem to enable"
>. "sys 3072,0: rem to disable"
d8
Qb 208,  11, 165, 253, 141,   2,   3, 165
l 254, 141,   3,   3,  96, 173,   3,   3
Kv 201,  12, 240,  17, 133, 254, 173,   2
{$f8}{$60}   3, 133, 253, 169,  38, 141,   2,   3
%J32, 135,  12
3{CBM-+} 198, 251,  16, 249, 232, 208, 229,  56
{$60}{CBM-A}  32, 240, 255, 169,  19,  32, 210, 255
{SHIFT-@} 169,  18,  32, 210, 255, 165, 250,  41
{SHIFT-@}D  15,  24, 105, 193,  32, 210, 255, 165
{$e7}N 250,  74,  74,  74,  74,  24, 105, 193
 X  32, 210, ............
.
...............................................................................
.
...............................................................................
-----------------------------------------------------------------------------   3, 169,  16, 141,   3,   3,  96, 165
pT  20, 133, 208, 162,   0, 160,   0, 189
{$7d}{$7e}   0,   2, 201,  48, 144,   7, 201,  58
{CBM-N} 176,   3, 232, 208, 242, 189,   0,   2
W 240,  22, 201,  32, 240,  15, 133, 210
 200, 152,  41,   3, 133, 209--
the transactor diskettes (1541/4040/msd/indus format)
... send me 6 consecutive disks to correspond with my magazine sub.
$45.00 US., $55.00* Cdn.
-------------------------------------------------------------------------------
please send me the follo
J
 4,(dv): 8,8,8,"RUN ME FORM,s,r":15,e: e {CBM-M}  8:
D
 x{CBM-R}0 {CBM-@} 1: 8,d$: x{CBM-R}st: 4,d$: :   4:   8:























































































































































  By allowing this program
to complete its predetermined course
you will find yourself with one freshly
printed subscription form.
.
Unless you already have a subscription
why would you not subscribe?  If you
abstain merely because Twing diskettes at $8.95 US., $9.95* Cdn. each
.
... disk 1  all programs from volume 4
... disk 2  programs from volume 5 issues 1-3
... disk 3  volume 5 issue 04 (business and education)
... disk 4  volume 5 issue 05 (hardware and peripherals)
... disk
ing the sciences)
... disk10  volume 6 issue 05 (hardware and software interfacing)
... disk11  volume 6 issue 06 (real life applications)
... disk12  volume 7 issue 01 (rom routines  kernel routines)
... disk13  volume 7 issue 02 (games from the inside sk19  volume 8 issue 02 (operating systems)
... disk20  volume 8 issue 03 (feature: surge protection)
... disk21  volume 8 issue 04 (feature: amiga transactor announced)
-------------------------------------------------------------------------------
tran... volume 5 issue 06 (programming aids and utilities)
... volume 6 issue 01 (more aids and utilities)
... volume 6 issue 02 (networking and communications)
... volume 6 issue 03 (languages)
... volume 6 issue 04 (implementing the sciences)
... volume 6
 issue 04 (gadgets & gizmos)
... volume 7 issue 05 (more languages)
... volume 7 issue 06 (simulations & modelling)
... volume 8 issue 01 (math)
... volume 8 issue 02 (operating systems)
... volume 8 issue 03 (feature: surge protection)
... volume 8 issu./.../...  amount ..........
.
... visa  ... mastercard  acct. # ............................  expires .../...
-------------------------------------------------------------------------------
* ontario residents - please add 7% provincial sales tax on dis)

 transbasic kernel (sept 29/84)  :
/
:
o
 2 statements, 0 functions
u
:
R
 keyword characters:  8
X
:

 keyword     routine  line   ser #
G
 s/else      elsrtn   2514    001
{$ee}
 s/exit      ext      2542    002
{$f4}
:


 uti start

]
jmp ext

^
;
7
_
xtra .byte 2,0   ; stmts,funcs
=
{$60}
;
i
A
.byte 0
o
B
;
z
C
skw {CBM-R}{CBM-D}
L
D
.F "elsEexiT"
R
v;
{$7d}
wfkw {CBM-R}{CBM-D}

h;

i.byte 0

j;

ks {CBM-R}{CBM-D}
{CBM-H}
l.w{CBM-A}d $a93a,ext{CBM-Q}1
{SHIFT-@}
>;
E
?{CBM-G}cs {CBM-R}{CBM-D}
K
3;
{CBM--}
4start ldx #7
{$f0}
6stt1 lda $304,x
~
8sta t{$fd}z;
\nuvecs .w{CBM-A}d {CBM-@}k,lis,exc,fun
"^;
0{$60}{CBM-@}k ldx #0
;Bldy #0
nDtk1 lda $200,x
[Fcmp #$22
GHbeq tk9
UJjsr cchr
Lbcc tk4
Nsty $71
Pstx t3
{CBM-T}Rldy #0
{CBM-P}Tsty $0b
{CBM-Y}Vdey
{CBM-B}Xdex
KZtk2 iny
S{$7c}inx
{$e6}{$7e}tk3 lda $200,x
{$ee}sec
{$fc}sbc
5  volume 5 issue 06 (programming aids and utilities)
... disk 6  volume 6 issue 01 (more aids and utilities)
... disk 7  volume 6 issue 02 (networking and communications)
... disk 8  volume 6 issue 03 (languages)
... disk 9  volume 6 issue 04 (implement
e
{CBM-D}beq tk6

{CBM-S}tk7 iny
{CBM-A}lda skw{CBM-Q}1,y
){CBM-R}bpl tk7
7{CBM-H}lda skw,y
c{CBM-L}bne tk3
o{CBM-U}ldy $71
^{SHIFT-@}lda $200,x
J{CBM-C}bpl tk4
P{CBM-V};
{SHIFT-*}tk8 lda $200,x
Bbeq tk4
Dcmp #$22
{CBM-POUND}Fbeq tk4
{CBM-F}Htk9 sta $200,y
CJiny
KLinx
WNbne tk8
{SHIFT--}P;
{$ee}Rlis cmp #$5f
{$f9}Tout)
... disk14  volume 7 issue 03 (programming the chips)
... disk15  volume 7 issue 04 (gadgets & gizmos)
... disk16  volume 7 issue 05 (more languages)
... disk17  volume 7 issue 06 (simulations & modelling)
... disk18  volume 8 issue 01 (math)
... disactor magazine back-issues  $4.50* each
... volume 4 issue 01
... volume 4 issue 02
... volume 4 issue 03
... volume 5 issue 01 (sound and graphics)
... volume 5 issue 02 (the transition to machine code)
... volume 5 issue 05 (hardware and peripherals)
issue 05 (hardware and software interfacing)
... volume 6 issue 06 (real life applications)
... volume 7 issue 01 (rom routines  kernel routines)
... volume 7 issue 02 (games from the inside out)
... volume 7 issue 03 (programming the chips)
... volume 7e 04 (feature: amiga transactor announced)
-------------------------------------------------------------------------------
** note ** prepayment required. purchase orders accepted with prepayment only
.
... cheque/m.o. enclosed  cheque # ....... dated ..
{CBM-D}kettes and
** the transactor  85 west wilmot st. #10  richmond hill ont. canada l4b 1k7 **
-------------------------------------------------------------------------------
accepted with prepayment only
.
... cheque/m.o. enclosed  cheque # ....... dated ..lity: cifchr (2560/003)

:
?
 kernel also includes modified
E

 'if' statement (ifrtn/2474/000)
K
:

 B(773){CBM-W}192  29

:

_a

:

 700
{CBM-Q}
{CBM-D}{CBM-R} $c000
{CBM-E}
;
{CBM-C}!
t2 {CBM-R} 2
G"
t3 {CBM-R} 3
R#
t4 {CBM-R} 4
{SHIFT--}$
t5 {CBM-R} 5
{$e8}%
t6 {CBM-R} 6
{$ee}&
;
{$f4}[
;

\
jmpvec,x
:lda nuvecs,x
<sta $304,x
'>dex
4@bpl stt1
ablda xtra
idclc
xfadc xtra{CBM-N}1
Ghsta xtra{CBM-N}2
Tjlda #$60
lsta start
mjsr m{CBM-A}vec
nrts
p;
{CBM-M}q.pad
{CBM-F}rtvec .w{CBM-A}d $a57c
Otlvec .w{CBM-A}d $a71a
{$e3}vevec .w{CBM-A}d $a7e4
{$f7}xfvec .w{CBM-A}d $ae86
 skw,y

beq tk2

cmp #$80
!
bne tk5
.
lda #$5f
:
ldy $71
i
sta $200,y
q
iny
]
lda $0b
J
adc #$3f
V
tk4 inx

sta $200,y

iny

lda $200,y
{CBM-POUND}
bne tk1
{CBM-Y}
 jmp (tvec)
{CBM-X}
{CBM-I};
L
{CBM-@}tk5 ldx t3
{CBM--}
{CBM-+}tk6 inc $0b
{$e8}
{CBM-POUND}lda $0b
{$f5}
{CBM-N}cmp #$1
bne l2
Viny
Xlda ($5f),y
Zsbc #$40
+{CBM--}cmp #$1e
6{$de}bcc l1
a sbc #1
s{$e2}l1 cmp xtra{CBM-N}2
^{$e4}bcc l3
F{$e6}dey
V{$e8}lda ($5f),y
{$ea}l2 tax
{$ec}jmp (lvec)
{$ee};
{CBM-@}{$f0}l3 sty t3
{CBM-P}{$f2}ldy #0
{CBM-Y}{$f4}tax
B{$f6}beq l5
S{$f8}l4 lda skw,y
{SHIFT-+}{$fa}php
{$e3}{$fc}iny
{$eb}{$fe}plp
{$f6}
;
{$fc}.ex2 sec
0sbc #$40
2cmp #$1e
"4bcc ex3
-6sbc #1
>8ex3 cmp xtra
j:bcs ex7
r<asl
z>tay
I@lda s{CBM-N}1,y
Qbpha
{$7e}dlda s,y
fpha
hjmp $73
j;
{CBM-POUND}lex5 lda $7a
{CBM-H}nbne ex6
{SHIFT-*}pdec $7b
Prex6 dec $7a
{CBM-*}tjmp (evec)
{$e5}v;
{$f7}xex
{$f6}sta $0d
jsr $73

sec
sbc #$40
$cmp #$1e
0bcc fu3
;sbc #1
gfu3 sec
tsbc xtra
{$60}bcc ex7
Ocmp xtra{CBM-N}1
{$7b}bcs ex7
asl
tay
lda {CBM-G}cs{CBM-N}1,y
{CBM-T} pha
{CBM-E}{CBM-I}lda {CBM-G}cs,y
{CBM-O}{CBM-@}pha
E{CBM-+}jmp $73
K{CBM-POUND};
{$de}{CBM-N}rtn jsr $ad9e
{$ea}{CBM-D}jsr $
{$de}cmp #$5f
~ bne elsrtn
{$e2}jsr $73
{$e4}cmp #$40
'{$e6}bne elsrtn
3{$e8}jsr $73
>{$ea}jmp 2
d{$ec};
s{$ee}ext ldx #7
G{$f0}ext1 lda tvec,x
V{$f2}sta $304,x
{$7e}{$f4}dex
{$f6}bpl ext1
{$f8}lda #$a2
{CBM-+}{$fa}sta start
{CBM-J}{$fb}jsr kilvec
C{$fc}jmp pdown
I{$fe};
{CBM--}

cchr cmp #$5b
{$e9}
bcc)

 move & fill (june 18/85)        :
/
:
o
 2 statements, 0 functions
u
:
Q
 keyword characters: 8
W
:

 keyword     routine  line   ser #
F
 move        mov      8174    118
{$ed}
 fill        stuf     8504    119
{$f3}
:


 u/mv7


 pha


 tya

 pha
#
 jsr $aefd
1
 jsr $ad8a
b

 sta mvdest{CBM-N}1
q
 sty mvdest
y
 pla
A
 tay
I
 pla
Q
 tax
Y
 pla

 cmp #";"

 beq mvc1
{CBM-K}
 stx mv{CBM-N}1
{CBM-Z}
 sty mv
{SHIFT-@}
  cmp #","
G
" beq mvm2
U
$ jmp $af08
{$e2}
& mvc1 clc
{$ea}
( tya
{$f9}
* adc mvstrt
5
r bne mvm3
t lda mv
!v cmp mvstrt
.x bcc mvm5
dz mvm3 lda mvdest{CBM-N}1
u\ cmp mvstrt{CBM-N}1
D^ bcc dmvmem
S{$60} bne umvmem
{$7f}B lda $24
D cmp $22
F beq mvm5
{CBM-M}H bcc dmvmem
{SHIFT-@}J umvmem lda mv
BL sec
QN sbc mvstrt
YP tay
{$e7}R lda mv{CBM-N}1
{$f8}T sbc mvstrts

 dmvmem lda mvstrt{CBM-N}1
  sta $23
*{CBM-I} lda mvdest{CBM-N}1
6{CBM-@} sta $25
b{CBM-+} lda mv
j{CBM-POUND} sec
y{CBM-N} sbc mvstrt
D{CBM-D} sta t2
O{CBM-S} inc t2
{$7d}{CBM-A} lda mv{CBM-N}1
{CBM-R} sbc mvstrt{CBM-N}1
{CBM-H} ldy #0
{CBM-K}{CBM-L} tax
{CBM-S}{CBM-U} beq mvm7
C{SHIFT-@} mvm6 lda ($22),y
S{CBM-C} sta ($24),y
{SHIFT-+}{CBM-V} iny
{$e8}{SHIFT-*} bne mvm6
{$f4}B inc $
{$ec} memf2 lda $14

{$ee} sbc t3
{$f0} sta $14
%{$f2} lda $15
0{$f4} sbc t4
<{$f6} sta $15
j{$f8} bcc memf7
v{$fa} inc $14
D{$fc} bne memf3
P{$fe} inc $15

!memf3 lda $14
!clc
!adc t3
!tay
{SHIFT-POUND}!lda $15
{CBM-H}
!adc t4
B!bcc memf4
P!bne memf8
X!tya
{$e6}!bne memf8
{$f4}!mem
f4 txa
~!ldy #0
!ldx $15
!beq memf6
.!memf5 sta (t3),y
6!iny
d !bne memf5
o"!inc t4
w$!dex
E&!bne memf5
W(!memf6 cpy $14
*!beq memf7
,!sta (t3),y
.!iny
{CBM-N}0!bne memf6
{CBM-U}2!memf7 rts
L4!memf8 jmp $b248
R6!;
{$e5}8!stuf jsr $ad8a
{$f3}:!jsbpl l4
{$fe}dex
bne l4
;
 l5 lda skw,y
(
php
3{CBM-P} #$7f
ajsr $ab47
iiny
qplp
\bpl l5
Gldy t3
Xl6 jmp $a700
{$7e};
exc jsr $73
ex1 cmp #$8b
{CBM-Q} beq ex8
{CBM-U}"cmp #$5f
D$bne ex5
P&jsr $73
{CBM--}(jsr ex2
{$ea}*jmp $a7ae
{$f0},7 jmp $af08
{$fd}z;

\ex8 jsr ex9
^jmp $a7ae
!{$60};
6Bex9 lda #{CBM-E}rtn{CBM-Q}1
>Dpha
oFlda #{CBM-W}rtn{CBM-Q}1
wHpha
CJjmp $73
IL;
YNfun jsr $73
Pcmp #$5f
Rbeq fu2
Tlda $7a
{CBM-N}Vbne fu1
{CBM-L}Xdec $7b
FZfu1 dec $7a
U{$7c}jmp (fvec)
{SHIFT-+}{$7e};
{$ea}fu2 lda #079
{$f7}{CBM-S}cmp #$89
{CBM-A}beq 1
{CBM-R}lda #$a7
{CBM-H}jsr $aeff
,{CBM-L}1 jsr $79
8{CBM-U}ldx $61
g{SHIFT-@}beq elsrtn
r{CBM-C}bcs 2
{$60}{CBM-V}jmp $a8a0
K{SHIFT-*}2 pla
SBpla
{$7f}Djsr $79
Fjmp ex1
P;
{CBM-+}Relsrtn jsr $a8f8
{CBM-R}Tjsr $79
{CBM-X}Vcmp #0
JXbne els1
RZrts
{$e3}{CBM--}els1 jsr $73
{$f0}
 cic1
{$f1}
clc
{$fe}
bcc cic2

cic1 cmp #$41


cic2 rts
#
;
1Fpdown rts
7H;
eJ#m{CBM-A}vec {CBM-R} {CBM-D}
mZ#rts
\{$de}#kilvec {CBM-R} {CBM-D}
D{$ee}#rts
J{$f0}#;


la
{$7f}Djsr $79
Fjmp ex1
P;
{CBM-+}Relsrtn jsr $a8f8
{CBM-R}Tjsr $79
{CBM-X}Vcmp #0
JXbne els1
RZrts
{$e3}{CBM--}els1 jsr $73
{$f0}mem (8250/120)
&
 u/memfil (8416/121)
,
:
s

 ================================
y
:
K
.F "movEfilL"
M.w{CBM-A}d mov{CBM-Q}1,stuf{CBM-Q}1
{$ee}mov jsr $ad8a
{CBM-K}{$f0}jsr $b7f7
{CBM-R}{$f2}sta mvstrt{CBM-N}1
A{$f4}sty mvstrt
M{$f6}jsr $79
U{$f8}pha
{$e1}{$fa}jsr $73
{$ef}{$fc}jsr $ad8a
{$fd}{$fe}jsr $b7f, sta mv

. txa
0 adc mvstrt{CBM-N}1
,2 sta mv{CBM-N}1
:4 bcc mvmem
h6 jmp $b248
n8 ;
{$60}: mvmem lda mv
M< bne mvm1
{$7b}> dec mv{CBM-N}1
@ mvm1 dec mv
b ;
{CBM-+}d mvm2 lda mvstrt
{CBM-R}f sta $22
Ah lda mvdest
Mj sta $24
{SHIFT-+}l lda mv{CBM-N}1
{$ec}n cmp mvstrt{CBM-N}1
{$f9}p bcc mvm{CBM-N}1


V pha

X clc

Z adc mvstrt{CBM-N}1
%
{$7c} sta $23
-
{$7e} pla
5
 clc
f
 adc mvdest{CBM-N}1
r
 sta $25
G
 mvm4 lda ($22),y
W
 sta ($24),y
{$7f}
 dey

 cpy #$ff

 bne mvm4
{CBM-G}
 lda $23
{CBM-L}
 cmp mvstrt{CBM-N}1
C
 beq mvm5
O
 dec $23
{SHIFT-+}
 dec $25
{$e8}
 jmp mvm4
{$f5}
 mvm5 rt23

D inc $25
F dex
H bne mvm6
*J mvm7 lda ($22),y
:L sta ($24),y
bN iny
mP cpy t2
zR bne mvm7
BT rts
HV ;
ZX mvstrt .w{CBM-A}d 0
Z mvdest .w{CBM-A}d 0
{CBM--} mv .w{CBM-A}d 0
{CBM-K}{$de} ;
{CBM-A}  memfil clc
{CBM-V}{$e2} .byte $24
L{$e4} memf1 sec
W{$e6} sty t3
{$e2}{$e8} sta t4
{$f0}{$ea} bcc memf3
r $b7f7
{$fb}<!pha
>!tya
@!pha
b!jsr $79
d!pha
+f!jsr $73
9h!jsr $ad8a
gj!jsr $b7f7
sl!jsr $79
An!beq stuf1
Op!jsr $aefd
{$7d}r!jsr $b79e
t!.byte $2c
v!stuf1 ldx #0
{CBM-@}x!pla
{CBM-D}z!tay
{CBM-H}\!pla
{CBM-B}^!sta t3
G{$60}!pla
RB!sta t4
{CBM-*}D!cpy #","
{$ed}F!beq me)

 line calc (7/85)                :
/
:
o
 2 statements,  1 function
u
:
R
 keyword characters: 13
X
:

 keyword   routine   line   ser #
E
 s/jump    jum       8846    130
{$eb}
 s/call    cal       8870    131

 f/line(   li
h
jmp $bc49

j
;
!
"jum jsr $b08b
-
"bit $0e
9
"bpl jm1
d
"ldy #0
t
"lda ($47),y
{$60}
"sta $60
H
"iny
X
"lda ($47),y

"sec

 "jmp $a8c7

{CBM-I}"jm1 jmp $ad99
{CBM-+}
{CBM-@}";
{CBM-J}
{CBM-+}"cal lda #3
C
{CBM-POUND}"jsr $a3fb
O
{CBM-N}"lda $7b
W
{CBM-D}"pha
{$e3}
{CBM-S}"lda $7a
{$eb}
{CBM-A}"pha
{$f7}
{CBM-R}"lda $3a
~

Y$ad8a
{$e2}"jsr $b7f7
{$e4}"lda #0
"{$e6}"sta $61
0{$e8}"jsr $a613
>{$ea}"bcc line2
j{$ec}"ldy $5f
v{$ee}"lda $60
I{$f0}"line2 jsr usfp
Q{$f2}"pla
{$7d}{$f4}"sta $60
{$f6}"pla
{$f8}"sta $5f
{$fa}"pla
{CBM-G}{$fc}"sta $15
{CBM-Z}{$fe}"pla
{CBM-O}
#sta $14
G#jmp $aef7
M#;


pha
{$e3}
{CBM-S}"lda $7a
{$eb}
{CBM-A}"pha
{$f7}
{CBM-R}"lda $3a
~
)

 beep (sept 1/85)                :
/
:
o
  1 statement, 0 functions
u
:
Q
 keyword characters: 4
W
:

 keyword     routine  line   ser #
F
 s/beep      bee      8966    133
L
:
{$f4}
 =================================
{$fa}

:

{$f9}*#stx $d413

,#stx $d417
"
.#lda #$f0
0
0#sta $d414
=
2#lda #$0f
k
4#sta $d418
x
6#lda #$21
F
8#sta $d412
N
:#pla
V
<#sec

>#bp3 ldy #8

@#bp4 dex

b#bne bp4
{CBM-G}
d#dey
{CBM-E}
f#bne bp4
{CBM-C}
h#sbc #1
H
j#bne bp3
U
l#lda #$20
{$e3}
n#sta $d412
{$eb}
p#rts
{$f1}
r#;



:
D
 stripper
+F
 remove comments from
aH
 pal source code
gJ
:
zL
 i{CBM-R}900 {CBM-@} i{CBM-N}20
IN
 a:  i,a
OP

UR
:
T
u${CBM-R}"' ' ' ' ' ' ' ' ]": q${CBM-R}G(34)
 V
:
DX
 "keycH(149),";q$;"s/' ;*]//";
TZ
 q$;":clr"
Z{$7c}
:
{$ec}{$7e}
 i{CBM-R}150 {CBM-@} 153
{$f4}
:

v${CBM-R}J(
b36,153,119,  2
(

 138,202,136,153,119,  2
:
{CBM-I}
  16,242, 96



gJ
:
zL
 i{CBM-R}900 {CBM-@} i{CBM-N}20
IN
 a:  i,a
OP

UR
:
T
u${CBM-R}"' ' ' ' ' ' ' ' ]": q${CBM-R}G(34)
 V
:
DX
 "keycH(149),";q$;"s/' ;*]//";
TZ
 q$;":clr"
Z{$7c}
:
{$ec}{$7e}
 i{CBM-R}150 {CBM-@} 153
{$f4}
:

v${CBM-R}J(
#

 "'BITS' programs start here
d
 "note: this file is only a
C
 "directory placemarker -
(
 "scratch it if you wish.


 ' ' ' ' ]": q${CBM-R}G(34)
 V
:
DX
 "keycH(149),";q$;"s/' ;*]//";
TZ
 q$;":clr"
Z{$7c}
:
{$ec}{$7e}
 i{CBM-R}150 {CBM-@} 153
{$f4}
:

v${CBM-R}J(
"

* data loader for "quake" *
>
  save"@0:quake.bas",8
g
cs{CBM-R}0
G
 i{CBM-R}49152 {CBM-@} 49342: a: i,a
W(
cs{CBM-R}cs{CBM-N}a: i
{$7d}2
:
{CBM-I}<
 cs{CBM-W}{CBM-E}16666 {CBM-M} "!data error!":
{CBM-S}f
 49152
Fp
 sys 49155 to stop
Lz

RD
:
~{$e8}  76,  49, 192,  76, 112, 192,   0,
6mf2
{$fa}H!cpy #";"
J!beq memf3
L!jmp $af08
N!;


 sta (t3),y
6!iny
d !bne memf5
o"!inc t4
w$!dex
E&!bne memf5
W(!memf6 cpy $14
*!beq memf7
,!sta (t3),y
.!iny
{CBM-N}0!bne memf6
{CBM-U}2!memf7 rts
L4!memf8 jmp $b248
R6!;
{$e5}8!stuf jsr $ad8a
{$f3}:!jsne      8902    132


:
/
 u/usfp (2620/006)
5
:
\

 ================================
B
:
T
.F "jumPcalL"
M.F "line": .byte $a8
{CBM-I}P.w{CBM-A}d jum{CBM-Q}1,cal{CBM-Q}1
{CBM-R}u.w{CBM-A}d line{CBM-Q}1
B<
usfp ldx #0
N>
stx $0d
Z@
sta $62
{$e6}b
sty $63
{$f3}d
ldx #$90
{$fb}f
sec
{CBM-H}"pha
{CBM-L}"lda $39
{CBM-U}"pha
 {SHIFT-@}"lda #$8d
({CBM-C}"pha
4{CBM-V}"jsr $79
@{SHIFT-*}"jsr jum
nB"jmp $a7ae
tD";
FF"line cmp #$89
TH"bne line1
J"jsr $73
L"line1 lda #2
N"jsr $a3fb
{CBM-Q}P"lda $14
{CBM-W}R"pha
{CBM-B}T"lda $15
GV"pha
SX"lda $5f
{SHIFT-+}Z"pha
{$e7}{CBM--}"lda $60
{$ef}{$de}"pha
{$fd} "jsr 0
,{$f2}   1,   2,   3,   4,   5,   6,   7,   7
y{$fc}   7,   7,   7,   6,   5,   4,   3,   2
   1,   0,   0,   0,   4,   5,   6,   7
{CBM-W}   7,   7,   7,   6,   5,   4,   3,   2
    1,   0,   0,   0,   0,   1,   2,   3


$   4, 120, 169,  88, 1
.F "beeP"
Q.w{CBM-A}d bee{CBM-Q}1
'#bee beq bp1
5#jsr $b79e
=
#inx
k#.byte $2c
z#bp1 ldx #1
B#txa
J#pha
W#ldx #$21
#ldy #$87
#jsr $79
#beq bp2
{CBM-N}#jsr $aefd
{CBM-U}#jsr $ad8a
F #jsr $b7f7
N"#tax
 $#bp2 sty $d40e
{$ee}&#stx $d40f
{$f9}(#ldx #0

41,  20,   3, 169
:
. 192, 141,  21,   3, 169,   1, 141,  26
G
8 208, 169,   0, 141,  18, 208, 173,  17

b 208,  41, 119, 141,  17, 208, 173,  22
A
l 208,  41, 247, 141,  22, 208,  88,  96
{$ee}
v 173,  25, 208,  41,   1, 240,  11, 169
{$60}   1, D(i),2)

 "keycH(";v$;"),";q$;
>
 "s/";I(u$,2{CBM-S}(154{CBM-Q}i){CBM-N}1);
s
 "//";q$;":clr"
[
 i
A
:
Y
 "use sys 900"
{$7f}
:

 i{CBM-R}1 {CBM-@} 19:  "";:
{CBM-L}
 i{CBM-R}631 {CBM-@} 635:  i,13:
B
 198,5
H

N
:
{$ec}
 160, 10,162,153,132,198



 169, 13,1141,  25, 208,  32, 150, 192,  76
hJ  49, 234, 104, 168, 104, 170, 104,  64
UT 120, 169, 128, 141,  26, 208, 169,  49
{CBM-I}{$7e} 141,  20,   3, 169, 234, 141,  21,   3
O 173,  22, 208,  41, 240,   9,   8, 141
{$fc}  22, 208, 173,  17, 208,  41, 240,
,   6, 192,  96


, 150, 192,  76
hJ  49, 234, 104, 168, 104, 170, 104,  64
UT 120, 169, 128, 141,  26, 208, 169,  49
{CBM-I}{$7e} 141,  20,   3, 169, 234, 141,  21,   3
O 173,  22, 208,  41, 240,   9,   8, 141
{$fc}  22, 208, 173,  17, 208,  41, 240,D
 save"0:lottery",8
aI
 ** an evers co-production 1985 **
HN
 win%(49,10), out$(10): c${CBM-R}G(147)
S
 c$"select option"
X
 "1) lottario 6/39"
{CBM-R}{$7d}
 "2) lotto    6/49"
T
 x$:  x${CBM-W}"1" {CBM-A} x${CBM-E}"2" {CBM-M} 130
{$f2}
lot{CBM-R}39:  x${CBM-R}"2" {CBM-M} lot{CBM-R}49
2
 "outp{CBM-@} 6
>
{CBM-N}
v%{CBM-R}{CBM-F}(0){CBM-D}lot{CBM-N}1:  win%(v%,try) {CBM-M} 170:  loop till un-used #
A
{CBM-P}
win%(v%,try){CBM-R}1:  flag as used
P
{CBM-H}
 pik, try

{CBM-O}
 ** got the numbers - build the strings **
A
{CBM-V}
 pik{CBM-R}1 {CBM-@} max:  asn{CBM-R}1 {CBM-@} lot
{$fd}
C
 win%(asn,pik) {CBM-M} out$(pik){CBM-R}out$(pik){CBM-N}I("   "{CBM-N}D(asn)
{CBM-A}

 evil swords of doom
9
a${CBM-R}"MMMMM "
l
b${CBM-R}"     "
x(
G(142)
J2
""{CBM-T}{CBM-F}(1){CBM-D}41)
{$7b}<
i{CBM-R}1{CBM-@}19:a$;
f
 delay here if desired
{CBM-D}p
 i:  b$;:  50














gauss elim











lottery










,

 "Article related programs start here
m
 "note: this file is only a
L
 "directory placemarker -
(
 "scratch it if you wish.


f desired
{CBM-D}p
 i:  b$;:  50














gauss elim











lottery










{$f6}D
    two-pass algorithm
)N
t{CBM-R}0:s{CBM-R}0
<X
    find mean
j
 i{CBM-R}1 {CBM-@} 3
r
 x
\
t{CBM-R}t{CBM-N}x
D
 i
N{CBM-N}
m{CBM-R}t{CBM-Z}3
T{CBM-H}

{CBM-V}
   find sum of squares
H
 i{CBM-R}1 {CBM-@} 3
{CBM-+}R
 x
{SHIFT-@}{CBM--}
s{CBM-R}s{CBM-N}(x{CBM-Q}m){CBM-D}(x{CBM-Q}m)
B{$e6}
 i
S{$f0}
 "mean =",m
{$e6}{$fa}
 "sum sq =",s
{$f2}{$f4} 0,1,2











{SHIFT-@}D
   calculator algorithm
+N
x2{CBM-R}0:t{CBM-R}0
9X
 i{CBM-R}1 {CBM-@} 3
a
 x
o
x2{CBM-R}x2{CBM-N}x{CBM-D}x
y
t{CBM-R}t{CBM-N}x
A
 i
L{CBM-N}
t2{CBM-R}t{CBM-D}t
{$7c}{CBM-H}
s{CBM-R}x2{CBM-Q}(t2{CBM-Z}3)
{CBM-V}
m{CBM-R}t{CBM-Z}3
H
 "mean =",m
{CBM-N}R
 "sum sq =",s
{CBM-L}{$f4} 0,1,2


)
B{$e6}
 i
S{$f0}
 "mean =",m
{$e6}{$fa}
 "sum sq =",s
{$f2}{$f4} 0,1,2











{CBM-C}D
   updating algorithm
.N
n{CBM-R}0: m{CBM-R}0: s{CBM-R}0
<X
 i{CBM-R}1 {CBM-@} 3
d
 x
n
n{CBM-R}n{CBM-N}1
P
s{CBM-R}s{CBM-N}(x{CBM-Q}m){CBM-D}(x{CBM-Q}m){CBM-Q}(x{CBM-Q}m){CBM-D}(x{CBM-Q}m){CBM-Z}n

m{CBM-R}m{CBM-N}(x{CBM-Q}m){CBM-Z}n
{CBM-N}
 i
{CBM-H}
 "mean =",m
{CBM-D}{CBM-V}
 "sum sq =",s
{CBM-U}{$f4} 0,1,2


B{$e6}
 i
S{$f0}
 "mean =",m
{$e6}{$fa}
 "sum sq =",s
{$f2}{$f4} 0,1,2











   9
)  11, 141,  17, 208,  88,  96, 174,   6
v{CBM-+} 192, 173,  22, 208,  41, 248,  29,   7
{CBM-A} 192, 141,  22, 208, 173,  17, 208,  41
{CBM-A}{SHIFT-@} 248,  29,  28, 192, 141,  17, 208, 238
{SHIFT--}D   6, 192, 173,   6, 192, 201,  21, 144

N   5, 169,   0, 141
+D
 the projector - perspective plotter
mN
 by  ian adam  vancouver, bc
TX
 requires hires plotting routines

 from the transactor vol 5 iss 06
{CBM-I}
:
{CBM-S}
 setup
O
hi{CBM-R}49152: co{CBM-R}49173: dr{CBM-R}49155
{$fa}{CBM-N}
mo{CBM-R}49161: pr{CBM-R}49182: dm{CBM-R}49167: te{CBM-R}49179
{CBM-H}

cd${CBM-R}G(17)
{CBM-V}
:
&H
 B(hi{CBM-N}1){CBM-R}194 {CBM-M} 240
7R
"hires",8,1
>{CBM--}
:
o{$e6}
 parameters
G{$f0}
m{CBM-R}20:  x-dimension
{$7f}{$fa}
n{CBM-R}16:  y-dimension
 z(m,n),r(m,n)
{CBM-Q} xh(m),yh(n),yv(n)
{CBM-R}:
E" data to plot
{SHIFT-+}, "creating data"
{$e9}6 x{CBM-R}0 {CBM-@} m
{$f7}@ y{CBM-R}0 {CBM-@} n

jut (3) screen  (4) printer ";dv:  dv{CBM-W}3 {CBM-A} dv{CBM-E}4 {CBM-M} 140
?
 1,(dv)
{$7b}
 "required # sets (1-10)=";max:  max{CBM-W}1 {CBM-A} max{CBM-E}10 {CBM-M} 150
{CBM-S}
1,"your 6/"J(D(lot),2)" numbers are:": 1: 1

 ** assign the random values to the array **
~{CBM-G}
 try{CBM-R}1 {CBM-@} max:  pik{CBM-R}1
,4)
H
 asn, pik
2M
 ** all ready - time to print **
vR
 spt{CBM-R}1 {CBM-@} 24 {SHIFT-POUND} 4:  prt{CBM-R}1 {CBM-@} max
QW
1,J(out$(prt),spt,4);
{CBM--}
 prt: 1:  spt
{$e1}
1:   1:


bers are:": 1: 1

 ** assign the random values to the array **
~{CBM-G}
 try{CBM-R}1 {CBM-@} max:  pik{CBM-R}1 z(x,y){CBM-R}12{CBM-D}x{CBM-N}10{CBM-D}y{CBM-Q}1.25{CBM-D}x{CBM-D}y
'
t y:  x:  x
.
^:
v
Ha${CBM-R}"hyperbolic paraboloid":  title
]
R:

{$7c} insert other expressions in 330, and change title in 360
J
 z(x,y)=x*x-x*x*x/22+75*y-12*y*y+y*y*y/2
{$de}
 a$="contours"

 z(x,y)=560-exp(sqr(abs((x-10)*(y-8)/2)))
#{CBM-@} a$="shell roof"
t{CBM-S} tm=sqr(x*x+1.5*y*y): z(x,y)=10+sin(tm)+y/4
M{CBM-U} a$="gravity waves"
{CBM-E}B tm=sqr((x-10)^2+(y-8)^2): z(x,y)=150-tm*55+tm*tm*8-tm*tm*tm/3
CL a$="splash"
V a=20-abs(x-10): b=18-abs(y-8): z(x,y)=a: ifb>athenz(x,y)=b
  a$="house"
l{$ea} z(x,y)=y+(8-y)*((x>4)and(x<16))*((y>3)and(y<13))
_{$f4} a$="plateau"
{$fe} or read empirical results from data
:
{CBM-K} projection
{CBM-B}theta{CBM-R}60:  default angle
{$ee}& cd$"enter viewing angle, or press return

0 "for 60 degrees:

: th
(
dth{CBM-R}th{CBM-D}3.14159265{CBM-Z}180
:
ntmp{CBM-R}120{CBM-D}{CBM-V}(th)
r
xxgrid{CBM-R}{CBM-J}((309{CBM-Q}tm){CBM-Z}m)
J
Bygrid{CBM-R}{CBM-J}(96{CBM-D}{CBM-B}(th){CBM-Z}n)
{$7b}
Lystp{CBM-R}{CBM-J}(tm{CBM-Z}n)

V:

 calculate offsets
{CBM-POUND}
 x{CBM-R}0 {CBM-@} m
{CBM-X}
xhriz(x){CBM-R}10{CBM-N}x{CBM-D}xg
C

Q
{CBM-POUND} y{CBM-R}0 {CBM-@} n
{$e3}
{CBM-R}yhriz(y){CBM-R}y{CBM-D}ys
{$f8}
{CBM-C}yvert(y){CBM-R}10{CBM-N}y{CBM-D}yg
{$fe}
F
P:
Z vertical scaling
0{$e4} "scaling data
@{$ee}vscalar{CBM-R}9e9
n{$f8} y{CBM-R}0 {CBM-@} n
Aa{CBM-R}0:  x{CBM-R}0 {CBM-@} m
{$7b} z(x,y){CBM-E}a {CBM-M} a{CBM-R}z(x,y)
:  find highest point on line
{CBM-F}  a {CBM-M} tmp{CBM-R}(199{CBM-Q}yv(y)){CBM-Z}a
R*  vs{CBM-E}tm  {CBM-M}  vs{CBM-R}tm
{$f6}4:  select best feasible s
o,tm{CBM-N}10,r(0,y)
{$e8} x{CBM-R}1 {CBM-@} m
%{$f2} dr,tm{CBM-N}xh(x),r(x,y)
/{$fc} x,y
6:
p plot vertical lines
^ x{CBM-R}0 {CBM-@} m
K$tm{CBM-R}xh(x)
{$7e}. mo,tm,r(x,0)
8 y{CBM-R}1 {CBM-@} n
{CBM-G}b dr,tm{CBM-N}yh(y),r(x,y)
{CBM-P}l y,x
{CBM-L}v:
E{$60} draw box
XJ mo,10,r(0,0)
{$e7}T dr,10,10
{$f9}{$7e}
tgle

 "press any other key to end
# 198,1: {CBM-K} b$
6 b${CBM-R}"r" {CBM-M} 540
<(


ertical lines
^ x{CBM-R}0 {CBM-@} m
K$tm{CBM-R}xh(x)
{$7e}. mo,tm,r(x,0)
8 y{CBM-R}1 {CBM-@} n
{CBM-G}b dr,tm{CBM-N}yh(y),r(x,y)
{CBM-P}l y,x
{CBM-L}v:
E{$60} draw box
XJ mo,10,r(0,0)
{$e7}T dr,10,10
{$f9}{$7e} D
 save"0:timer64.bas",8
yN
 microsecond to 70 minute timer by z.szepesi (c) 1985.
X
 55,255:  56,158: :  set top of basic below ml.
{CBM-L}
 310:  move code into position
{CBM--}
n{CBM-R}1:  adjust this value for demo

 "timing started  at "ti$" (
 G(17)"**execution time="G(145)
q{$f0}
m1{CBM-R}t{CBM-Z}(6e{CBM-N}7): i1{CBM-R}{CBM-J}(m1):  i1{CBM-E}0 {CBM-M}  {CBM-+}17)i1" minute"
{$fa}
m2{CBM-R}(m1{CBM-Q}i1){CBM-D}60: i2{CBM-R}{CBM-J}(m2):  i2{CBM-E}0 {CBM-M}  {CBM-+}17)i2" second"
Hm3{CBM-R}(m2{CBM-Q}i2){CBM-D}1000: i3{CBM-R}{CBM-J}(m3):  i3{CBM-E}0 {CBM-M}  {CBM-+}17)i3" millisecond"
m4{CBM-R}(m3{CBM-Q}i3){CBM-D}1000: i4{CBM-R}{CBM-J}(m4):  i4{CBM-E}0 {CBM-M}  {CBM-+}17) {CBM-J}(221, 169,  65
2R 141,  15, 221, 169,   1, 141,  14, 221
_{$7c}  96, 234, 234, 234, 234, 234, 234, 234
 169,   0, 141,  14, 221, 141,  15, 221
{CBM-O} 173,   4, 221, 141,  65, 159, 173,   5
{$e6} 221, 141,  66, 159, 173,   6, 221, 141
{CBM-@}  67, 159,D
 save"0:timer64.pal",8
:N
 time measurements from
\X
 1 microsecond to 70 minutes
T
 by zoltan szepesi

 2611 saybrook drive
{CBM-POUND}
 pittsburgh,pa 15235
{CBM-S}
:
J{CBM-N}
 4,8,1,"0:timer64.obj"
U{CBM-H}
(700)
{$e1}{CBM-V}
.opt o4
{$ed}H
*=$9f00
{$f3}R
;
{CBM--}
talo

^sta tblo

Hsta tblo{CBM-N}1
%
Rlda #$41
2
{$7c}sta tcrb
=
lda #1
j
sta tcra
r
rts
x
{CBM-@};
O
{CBM-S}.byt $ea, $ea, $ea

{CBM-U}.byt $ea, $ea, $ea, $ea

B;

L {CBM-R} {CBM-D}
{CBM-+}
Vlda #0
{CBM-W}
 sta tcra
{SHIFT-*}
{$ea}sta tcrb
M
{$f4}lda talo
{SHIFT-+}
{$fe}sta time1
{$ea}
lda talo{CBM-N}1
{$f8}
sta time2
z
 9000
1D
 ****     bouncing ball    ****
[N
fv{CBM-R}2 : uv{CBM-R}55 : y1{CBM-R}1 : g{CBM-R}{CBM-Q}32.2 : dc{CBM-R}.9
SS
 try fv=15 : uv=45
X
 j{CBM-R}0 {CBM-@} (ln{CBM-D}2{CBM-Q}1){CBM-Z}fv

x{CBM-R}fv{CBM-D}j
{CBM-O}
y {CBM-R} y1 {CBM-N} uv {CBM-D} t {CBM-N} .5{CBM-D}g {CBM-D} (t{CBM-S}2)
{CBM--}
 y{CBM-W}y1 {CBM-M} y{CBM-R}y1 : t{CBM-R}0 : uv{CBM-R}uv{CBM-D}dc
{$f8}
 8000 :  plot a point
{CBM-N}
t
cale
{$fc}>:
h calculate rise
*r "...still scaling!
8\ y{CBM-R}0 {CBM-@} n
eFtm{CBM-R}yv(y)
sP x{CBM-R}0 {CBM-@} m
KZr(x,y){CBM-R}z(x,y){CBM-D}vs{CBM-N}tm
U x,y
{$7c}:
 set up screen
{CBM-I} hi,0,0,8
{CBM-N}{CBM-D} dm,1
{CBM-E}{CBM-L}:
M{SHIFT-*} plot horizontal lines
{SHIFT-+}J y{CBM-R}0 {CBM-@} n
{$e8}Ttm{CBM-R}yh(y)
{$fe}{$de} m
{$ed}f# i{CBM-R}0 {CBM-@} 15 :  c(i) : i(c(i)){CBM-R}i :
rp# i{CBM-R}0{CBM-@}1 :  j{CBM-R}0{CBM-@}1 : am(j,i){CBM-R}(j{CBM-N}1){CBM-D}4{CBM-S}i : j,i
z#ln{CBM-R}80 : bs{CBM-R}32768{CBM-N}24{CBM-D}ln : dv{CBM-R}2 : am{CBM-R}1 : ir{CBM-R}.5
ND#  32, 123, 108,  98, 126,  97, 127, 252, 124, 255, 225, 254, 226, 236
{CBM-*}N#   251, 160
{$e5}X#


plot a point
{CBM-N}
tdr,xh(m),10
 dr,xh(m),r(m,0)
! mo,xh(m),10
< dr,xh(m){CBM-N}yh(n),yv(n)
x{CBM-+} dr,xh(m){CBM-N}yh(n),r(m,n)
^{CBM-A}:
J{SHIFT-@} title
D co,13:  pr,1,24,a$
N:
X wait for human
{CBM-E}{$e2} 198,1: {CBM-K} b$
{SHIFT-@}{$ec} te
{SHIFT-*}{$f6}:
{$ef}
 cd$"press r to review from another an#D
* bouncing ball simulation *
)N
:
@X
ymax{CBM-R}237: xmax{CBM-R}327
_
fv{CBM-R}1.4 : forward velocity

uv{CBM-R}100 : initial upward velocity
{CBM-@}
y1{CBM-R}0   : y start position
C
x{CBM-R}10   : x start position
{$e5}{CBM-N}
g{CBM-R}{CBM-Q}32.2: gravity in feet/s/s
{CBM-H}
dc{CBM-R}.9  : elasticityhhmmss)": 40704

 i{CBM-R}1 {CBM-@} n:
q{CBM-N}
40736:  "timing finished at "ti$" (hhmmss)"
{CBM-H}
a1{CBM-R}.97777517: a2{CBM-R}256{CBM-D}a1: a3{CBM-R}256{CBM-D}a2: a4{CBM-R}256{CBM-D}a3
{CBM-V}
t1{CBM-R}(255{CBM-Q}B(40769)){CBM-D}a1
{CBM-J}H
t2{CBM-R}(255{CBM-Q}B(40770)){CBM-D}a2
NR
t3{CBM-R}(255{CBM-Q}B(40771)){CBM-D}a3
{$e7}{CBM--}
t4{CBM-R}(255{CBM-Q}B(40772)){CBM-D}a4
{$e6}
t{CBM-R}t1{CBM-N}t2{CBM-N}t3{CBM-N}t4: m4{CBM-D}100{CBM-N}.5){CBM-Z}100;
! " microsecond":
'":
i, ** timer64 code at $9f00 **
X6 j{CBM-R}40704 {CBM-@} 40768:  x:  j,x : ch{CBM-R}ch{CBM-N}x:
@ ch{CBM-W}{CBM-E}8867 {CBM-M}  "checksum error":
{CBM-G}j
{CBM-Q}t:
X^ 169, 255, 141,   4, 221, 141,   5, 221
H 141,   6, 221, 141,   7,
+ 173,   7, 221, 141,  68, 159
{CBM-S}  96


":
i, ** timer64 code at $9f00 **
X6 j{CBM-R}40704 {CBM-@} 40768:  x:  j,x : ch{CBM-R}ch{CBM-N}x:
@ ch{CBM-W}{CBM-E}8867 {CBM-M}  "checksum error":
{CBM-G}j
{CBM-Q}t:
X^ 169, 255, 141,   4, 221, 141,   5, 221
H 141,   6, 221, 141,   7, {CBM-R}$dd04    ; timer a
/{$e6}
tblo  {CBM-R}$dd06    ; timer b
u{$f0}
tcra  {CBM-R}$dd0e    ; rol register a
{$7b}{$fa}
tcrb  {CBM-R}$dd0f    ; rol register b
time1 {CBM-R}{CBM-D}{CBM-N}$41
time2 {CBM-R}{CBM-D}{CBM-N}$42
{CBM-S}time3 {CBM-R}{CBM-D}{CBM-N}$43
{CBM-B}"time4 {CBM-R}{CBM-D}{CBM-N}$44
E,;
S6start {CBM-R} {CBM-D}
 @lda #$ff
{$ed}jsta talo
{$fc}tsta talo{CBM-N}1
olda tblo
&sta time3
"0lda tblo{CBM-N}1
0:sta time4
8drts
>n;
ex.


egister a
{$7b}{$fa}
tcrb  {CBM-R}$dd0f    ; rol register b
time1 {CBM-R}{CBM-D}{CBM-N}$41
time2 {CBM-R}{CBM-D}{CBM-N}$42
{CBM-S}time3 {CBM-R}{CBM-D}{CBM-N}$43
{CBM-B}"time4 {CBM-R}{CBM-D}{CBM-N}$44
E,;
S6start {CBM-R} {CBM-D}
 @lda #$ff
{$ed}jsta talo
{$fc}tsta talo{CBM-N}1{CBM-R}t{CBM-N}.2
{CBM-H}

{CBM-V}

9@ **********   plot x, y   **********
Ljtx{CBM-R}{CBM-J}(x{CBM-N}ir):ty{CBM-R}{CBM-J}(y{CBM-N}ir) :sq{CBM-R}am(tx {CBM-P} am, ty {CBM-P} am)
tp{CBM-R}tx{CBM-Z}dv{CBM-Q}{CBM-J}(ty{CBM-Z}dv){CBM-D}ln : bs{CBM-N}p,c(i(B(p{CBM-N}bs)){CBM-A}sq):
I(# **********     setup     **********
{CBM--}2# ""G(142);
{$f9}<# c(15), i(255), am(1,1)
!

{SHIFT-*}l
{SHIFT-*}l({SHIFT-*}


 {$f3}{SHIFT-*} {$e4}~ ~{SHIFT-*} R~ {$f3}{SHIFT-*} {$e4}~ ~{SHIFT-*} R~ h{SHIFT-*}l:{SHIFT-*} {$f3}{SHIFT-*} {$e4}~{$fb} {$e4}~{$fc}
 H{SHIFT-*} L~{SHIFT-POUND} C~{SHIFT-POUND} C~{$60} {$f3}{SHIFT-*} {$e4}~{SHIFT-*} ]{SHIFT-*}{CBM-Z}{SHIFT-*}{$f0}{$f8} {CBM-S}{SHIFT-*}{$60} {$f3}{SHIFT-*} {$e4}~h {CBM-Y}~{SHIFT-*}H{SHIFT-*}M{SHIFT-*}P{$ee}{SHIFT-*}PN{SHIFT-*} {CBM-S}{SHIFT-*}l{CBM-M}{SHIFT-*}{CBM-Z}{SHIFT-*}I{CBM-A}{CBM-N}{CBM-Z}{SHIFT-*}I{$fe}{$f0} ~{SHIFT-*}{CBM-Z}{SHIFT-*} R~JP{$fa}{SHIFT-POUND}{SHIFT-*}l{CBM-M}{SHIFT-*} {CBM-S}{SHIFT-*}{CBM-Z}{SHIFT-*}{SHIFT-*}{$60} ~{SHIFT-*}{SHIFT-POUND}{$fe} R~{CBM-Z}{SHIFT-*} R~{CBM-Z}{SHIFT-*} R~{SHIFT-POUND}{SHIFT-*}{$60} {$e4}~I{$fe}{$f0} {$ea}{SHIFT-*}l{$e4}{SHIFT-*} {$e4}~h {$e4}~{CBM-N}H {$ea}{SHIFT-*}JP{$fa} {CBM-Y}~{$f0}{CBM-*}{$60}{$fb}{$e6}{$fb}P{$e6}{$fc}{$60}hh{CBM-I} F~H
{SHIFT-*}l{SHIFT-*}l{SHIFT-*}






{SHIFT-POUND}{SHIFT-*} P{SHIFT-POUND}
{SHIFT-*} {CBM-G}{SHIFT-*}{SHIFT-POUND}{CBM-N} {SHIFT-@}~ {$fd}{CBM-S} {CBM-Z} {CBM-Z}
{CBM-E}DhH{CBM-E}D{CBM-N}H{CBM-E}D{CBM-POUND}H {CBM-X}~ {SHIFT-*}~{CBM-I}
{CBM-Z}{SHIFT-*}{$f0} I~{CBM-Z}{SHIFT-*} R~{CBM-Z}{SHIFT-*} R~ {$7e}{SHIFT-*}lU{SHIFT-*} F~ {$e4}~{$fb} {$e4}~{$fc} *A L~{SHIFT-POUND} C~{$60}{CBM-Z}{SHIFT-*}{$fb}I@
{SHIFT-*}{CBM-Z}{SHIFT-*}{$fc}I{SHIFT-*} A
{SHIFT-*}  {CBM-W}{SHIFT-*}{CBM-G}{$fc}M{SHIFT-*}P{CBM-G}{$fb}M
{SHIFT-*}{$ef}{$60}{$ec} A{$60} A{SHIFT-*}M
{SHIFT-*}P{$ee}{SHIFT-*}PN{SHIFT-*} A{SHIFT-POUND}{SHIFT-*}l{$f9}{SHIFT-*}{CBM-Z}{SHIFT-*}I{CBM-A}{CBM-N}{CBM-Z}
{SHIFT-*}I{$fe}{$f0}{CBM-Z}
{SHIFT-*} R~JP{$f7}{SHIFT-POUND}{SHIFT-*}l{$f9}{SHIFT-*} A{SHIFT-POUND}{SHIFT-*}{CBM-Z}{SHIFT-*}D
* "koala split"
:N
* split a koalapainter picture
{$60}X
* file into 3 loadable prg files
F
:
{$7d}
z${CBM-R}G(0):  15,8,15
{CBM-R}
"start of hi-res picture   e000 ";h$
P
 1000:  er {CBM-M} "";:150
{CBM-*}{CBM-N}
pl{CBM-R}l: ph{CBM-R}h
{CBM-H}
"start of colour map
 of "ball"
'{CBM-V}
t{CBM-R}0    : time starts at 0
-H
:
lR
 410 'create sprite shape
r{CBM--}
:
V{$e6}
vic{CBM-R}53248     : vic video chip
{$f0}
 vic{CBM-N}21,1 : enable sprite 0
{CBM-Y}{$fa}
 2040,14  : sprite shape
Xsx{CBM-R}vic: sy{CBM-R}vic{CBM-N}1: xhi{CBM-R}vic{CBM-N}16
{$de}:
{$e4}:
{$f9}"-- main loop --

or

2,G(pl)G(ph);
7
i{CBM-R}1{CBM-@}8000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
>
" 2
]
,2,8,11,"@0:"{CBM-N}f${CBM-N}".c1,p,w"
P
62,G(cl)G(ch);

@ 2000:  check for disk error
{CBM-O}
ji{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{SHIFT-*}
t 2
{CBM-*}
^2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
H2,G(0)G(216);:  colo
{CBM-S} 24,126,126,24
{CBM-U}


ime starts at 0
-H
:
lR
 410 'create sprite shape
r{CBM--}
:
V{$e6}
vic{CBM-R}53248     : vic video chip
{$f0}
 vic{CBM-N}21,1 : enable sprite 0
{CBM-Y}{$fa}
 2040,14  : sprite shape
Xsx{CBM-R}vic: sy{CBM-R}vic{CBM-N}1: xhi{CBM-R}vic{CBM-N}16
{$de}:
{$e4}:
{$f9}"-- main loop --


{CBM-B}4:h{CBM-R}F(J(h$,i)){CBM-Q}48:d{CBM-R}d{CBM-D}16{CBM-N}h{CBM-N}7{CBM-D}(h{CBM-E}9):
6h{CBM-R}{CBM-J}(d){CBM-Z}256: l{CBM-R}d{CBM-Q}h{CBM-D}256
<
b:
FP* get disk status subroutine *
ZZ15,a$,b$,c$,d$
{CBM-Z}{$e4} E(a$){CBM-M} "disk error: "a$","b$","c$","d$:
{CBM-W}{$ee}


{SHIFT-*}
t 2
{CBM-*}
^2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
H2,G(0)G(216);:  colo$D
* "anim split"              *
gN
* converts a picture file   *
JX
* created by the animation  *

* station into 3 loadable   *
{CBM-A}
* prg files.                *
{CBM-L}
:
M
z${CBM-R}G(0):  15,8,15
{CBM-N}
"start of hi-res picture   e000 ";h$
 {CBM-H}
 1000:  er {CBM-M} "";:170
/{CBM-V}
pl{CBM-R}l: ph{CBM-R}h
{$60}H
"start of colour map       cc00 ";h$
{$7e}R
 1000:  er {CBM-M} "";:170
{CBM--}
cl{CBM-R}l: ch{CBM-R}h
{CBM-F}{$e6}
"filename of animation station file";f$
Y{$f0}
1,8,12,"0:pi."{CBM-N}f${CBM-N}",p,r"
{$fc}{$fa}
 2000:  check for disk error


{CBM-K}#1,a$,b$
*
2,8,11,"@0:"{CBM-N}f${CBM-N}".pic,p,w"
=
2,G(pl)G(ph);
{$60}
" 2000:  check for disk error

,i{CBM-R}1{CBM-@}8000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{CBM-Y}
6i{CBM-R}1{CBM-@}192:{CBM-K}#1,a$::  get extra useless bytes
{CBM-V}
@ 2
{SHIFT--}
j2,8,11,"@0:"{CBM-N}f${CBM-N}".c1,p,w"
{$f0}
t2,G(cl)G(ch);
^i{CBM-R}1{CBM-@}
{CBM-N}H{$60}hh{CBM-I} I~H{CBM-N}H{$60}f{CBM-Q}file
{$f7}{$60}rts
{$fe}J.


rep indica{CBM-@}r
rbeq {CBM-K}rep
<\;n{CBM-A}mal byte, just s{CBM-@}re it
oFsta (picptr),y
KPinc picptr   ; address
WZbne gr0
inc picptr{CBM-N}1
gr0 {CBM-R}{CBM-D}
{CBM-K}jmp gpfin
{CBM-M}{CBM-I};
{CBM-W}{CBM-D}{CBM-K}rep {CBM-R}{CBM-D}
Q{CBM-L}jsr {CBM-K}in    ;byte {CBM-@} repeat
Y{SHIFT-*}pha
{$f9}
[
{SHIFT-*}{$e6}{$fb}P{$e6}{$fc}{$60}{SHIFT-POUND}{$fe} R~{CBM-Z}
{SHIFT-*} R~{CBM-Z}{SHIFT-*} R~{$60}X{CBM-G}){$fc}{CBM-E}{$fb}h{CBM-Z}{SHIFT-*}xH{$60} {$e4}~I{$fe}{$f0}{$fb}{$e6}{$fb}P{$e6}{$fc}lpA {$e4}~h {$e4}~{CBM-N}H{$fb}{$e6}{$fb}P{$e6}{$fc}JP{$f5} {CBM-Y}~{$f0}U{$60}e it
oFsta (picptr),y
KPinc picptr   ; address
WZbne gr0
inc picptr{CBM-N}1
gr0 {CBM-R}{CBM-D}
{CBM-K}jmp gpfin
{CBM-M}{CBM-I};
{CBM-W}{CBM-D}{CBM-K}rep {CBM-R}{CBM-D}
Q{CBM-L}jsr {CBM-K}in    ;byte {CBM-@} repeat
Y{SHIFT-*}pha
{$f9}  cc00 ";h$
.{CBM-V}
 1000:  er {CBM-M} "";:150
=H
cl{CBM-R}l: ch{CBM-R}h
_R
"filename of koala file";f$
{CBM--}
1,8,12,H(G(129){CBM-N}f${CBM-N}"            ",15)
{CBM-Z}{$e6}
 2000:  check for disk error
{CBM-F}{$f0}
{CBM-K}#1,a$,b$
{SHIFT-+}{$fa}
2,8,11,"@0:"{CBM-N}f${CBM-N}".pic,p,w"
{$fe} 2000:  check for disk err,x{CBM-R}x{CBM-N}fv

6y{CBM-R}y1 {CBM-N} uv{CBM-D}t {CBM-N}.5{CBM-D}g{CBM-D}(t{CBM-D}t)
?
@ y{CBM-W}y1 {CBM-M} y{CBM-R}y1:t{CBM-R}0:uv{CBM-R}uv{CBM-D}dc
_
j sx,x {CBM-P} 255: xhi,{CBM-Q}(x{CBM-E}256)
O
t sy,ymax{CBM-Q}y
Z
^t{CBM-R}t{CBM-N}.2

H x{CBM-W}{CBM-R}xmax {CBM-M} 300

R

{$7c}:

:
F
** create sprite shape at 896 **
{CBM--}
i{CBM-R}896{CBM-@}959:i,0:
{$f7}
{CBM-@}i{CBM-R}925{CBM-@}935{SHIFT-POUND}3:a:i,a:
ur nybbles
'R 2000:  check for disk error
m{$7c}i{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
t 2
X"The background colour is:";
{CBM-K}#1,a$: F(a${CBM-N}z$)
{CBM-@} 1:  15
 {CBM-S}
{CBM-+}{CBM-U}:
J{$e8}* convert hex f$ to dec h,l  *
S{$ed}er{CBM-R}0
{$ea}{$f2} C(h$){CBM-W}{CBM-E}4{CBM-M} er{CBM-R}1:
{$fc}d{CBM-R}0:i{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
+Hi{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
2R 2
q{$7c}2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
V2,G(0)G(216);:  colour nybbles
i{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{CBM-E}i{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
{CBM-U}{CBM-@} 2
{SHIFT-+}{CBM-S}"The background colour is:"
{$f1}{CBM-U}{CBM-K}#1,a$: F(a${CBM-N}z$)
{$fd}B 1 :  15
L
V:
){$e8} convert hex f$ to dec h,l
2{$ed}er{CBM-R}0
i{$f2} C(h$){CBM-W}{CBM-E}4{CBM-M} er{CBM-R}1:
{$7b}{$fc}d{CBM-R}0:i{CBM-R}1{CBM-@}4:h{CBM-R}F(J(h$,i)){CBM-Q}48:d{CBM-R}d{CBM-D}16{CBM-N}h{CBM-N}7{CBM-D}(h{CBM-E}9):
h{CBM-R}{CBM-J}(d){CBM-Z}256: l{CBM-R}d{CBM-Q}h{CBM-D}256

{CBM-K}:
EP* get disk status subroutine *
YZ15,a$,b$,c$,d$

{$e4} E(a$){CBM-M} "disk error:


 2064



{SHIFT-POUND}x{SHIFT-POUND}F
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}7{CBM-E}{$fb}{$fb}{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}I{SHIFT-*}P{$f0}{SHIFT-POUND},{$fb}{SHIFT-POUND} {$fc}{$fd}{SHIFT-POUND}{$fe}{CBM-E}{$fd}{$fb}{$e6}{$fb}P{$e6}{$fc}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}I{CBM-K}P{$ea}{CBM-G}{$fb}IP{$e4}{$fb}{SHIFT-POUND}{SHIFT-*}{$fc}{$fd}{SHIFT-POUND}{$fe}{CBM-E}{$fd}{$fb}{$e6}{$fb}P{$e6}{$fc}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}IFP{$ea}{CBM-G}{$fb}IAP{$e4}{$60}




















































































































T{SHIFT-*}T{$60}{CBM-Z}{$fe}I P{CBM-G}ZPF{$7b}FZ{SHIFT-POUND}{CBM-P}
Z{$e6}ZP{$e6}{$7b}l{$fd}{CBM-S}{CBM-I}{CBM-G}ZPF{$7b}FZJP{$f5}{SHIFT-POUND}
Z{CBM-I}{$e6}ZP{$e6}{$7b}JP{$f7}l{CBM-Z}


{CBM-I}{CBM-G}ZPF{$7b}FZJP{$f5}{SHIFT-POUND}K
Z{CBM-I}{$e6}ZP{$e6}{$7b}JP{$f7}l{CBM-Z}

{SHIFT-POUND}6l{CBM-@}
{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}AlE {$f7}{CBM-Y}{CBM-@}{CBM-G}{$60} {CBM-E}Z){$7f}ZlA{SHIFT-*}










 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}~8{$e5}-{SHIFT-*}{SHIFT-*}T{$60}
 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlUD{CBM-POUND}{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60}



 ab{CBM-POUND}tOfNspc{CBM-POUND}theNnoTsteP{CBM-Q}{CBM-Z}{CBM-N}{CBM-P}{$de}anDoR{CBM-V}{CBM-X}{CBM-C}sgNinTabSusRfrEpoSsqRrnDloGexPcoSsiNtaNatNpeeKleNstr{CBM-@}vaLasCchr{CBM-@}left{CBM-@}right{CBM-@}mid{CBM-@}gO











































































































































$D
* "anim split"              *
gN
* converts a picture file   *
JX
* created by the animation  *

* station into 3 loadable   *
{CBM-A}
* prg files.                *
{CBM-L}
:
M
z${CBM-R}G(0):  15,8,15
{CBM-N}
"start of hi-res picture   e000  {SHIFT-*}{$f0}-{$e8}lL{SHIFT-*}{$e8}l{$f5}{SHIFT-*}H{$e6}ZP{$e6}{$7b}P{$f7}{SHIFT-POUND}%A{SHIFT-POUND}{SHIFT-*}&A{CBM-S}{$fe}{$f0}{$ee}%AJlAL{SHIFT-*}l{$60}D{SHIFT-POUND}
{CBM-POUND}
{SHIFT-*}
TH{SHIFT-*}P{$f5}{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{SHIFT-*}{$f9}{$fc}{CBM-Z}{SHIFT-*}){$f0}
{$fc}{SHIFT-*}T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlPA{$fc} {$fd}{CBM-S}{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{$60}A A{SHIFT-*}{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}A{$ee}{$fe}{$ee}{$fe}{CBM-Z}{$fe}jIP{SHIFT-POUND}l{CBM-J}AIP{SHIFT-POUND}



{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*})
{$fc}
{SHIFT-*}
T{$60}

 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}
{$f0}Il{$e5}A{$fc} {$fd}{CBM-S}


{CBM-K}#1,a$,b$
*
2,8,11,"@0:"{CBM-N}f${CBM-N}".pic,p,w"
=
2,G(pl)G(ph);
{$60}
" 2000:  check for disk error

,i{CBM-R}1{CBM-@}8000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{CBM-Y}
6i{CBM-R}1{CBM-@}192:{CBM-K}#1,a$::  get extra useless bytes
{CBM-V}
@ 2
{SHIFT--}
j2,8,11,"@0:"{CBM-N}f${CBM-N}".c1,p,w"
{$f0}
t2,G(cl)G(ch);
^i{CBM-R}1{CBM-@} l{$ee}B{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X{CBM-D}{$fc}



{$fc}{CBM-O}
{SHIFT-*})
{$fc}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il9C{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*}){$f0}
{$fc}
T
{SHIFT-*}{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlC{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}I0IW{SHIFT-*}
PS{CBM-N}{CBM-D}{$fc}
{SHIFT-*}
TH
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{$ea}{$ea}{$ea}{$ea}{SHIFT-*}PH
 {$fd}{CBM-S}{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{$60}A XD{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}
{CBM-B}4:h{CBM-R}F(J(h$,i)){CBM-Q}48:d{CBM-R}d{CBM-D}16{CBM-N}h{CBM-N}7{CBM-D}(h{CBM-E}9):
6h{CBM-R}{CBM-J}(d){CBM-Z}256: l{CBM-R}d{CBM-Q}h{CBM-D}256
<
b:
FP* get disk status subroutine *
ZZ15,a$,b$,c$,d$
{CBM-Z}{$e4} E(a$){CBM-M} "disk error: "a$","b$","c$","d$:
{CBM-W}{$ee}


{SHIFT-*}
t 2
{CBM-*}
^2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
H2,G(0)G(216);:  colo
  "a$","b$","c$","d$:

{$ee}


Hi{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
2R 2
q{$7c}2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
V2,G(0)G(216);:  colour nybbles
i{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{CBM-E}i{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
{CBM-U}{CBM-@} 2
{SHIFT-+}{CBM-S}"The background colour is:"
{$f1}{CBM-U}{CBM-K}#1,a$: F(a${CBM-N}z$)
{$fd}B 1
 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlE{CBM-POUND}{SHIFT-POUND}~8{$e9}9
{SHIFT-*}
{SHIFT-*}
T{$60} {CBM-E}ZIKP{SHIFT-POUND}kZlA{SHIFT-*}lE {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IleE{CBM-POUND}{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60}




 5F {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlUE{CBM-POUND}{SHIFT-POUND}~8{$e9}9
{SHIFT-*}
{SHIFT-*}
T{$60} {CBM-E}ZIP
{SHIFT-POUND}ZlA{SHIFT-*}l{CBM-P}l{CBM-P}












 F {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{SHIFT-*}{$f9}



{$fc}{CBM-Z}{SHIFT-*})
{$fc}{SHIFT-*}T{$60}








{CBM-Z}{SHIFT-*}0l{$ec}E
j


{SHIFT-*}{SHIFT-*}j{SHIFT-POUND},{CBM-U}G{$e1}u{$e1}D{$e1}{CBM-R}{CBM-W}#{CBM-U}{$7f}{CBM-N}{CBM-N}v{CBM-POUND}{CBM-+}]{CBM-+}{CBM-N}){$e1}{CBM-X}{$e1}F{$e1}Z{CBM-Q}a{CBM-+}9{CBM-C}L{CBM-C}x{CBM-C}{$7d}{CBM-W}{CBM-W}Q{CBM-B} {$ea}{CBM-O}{$ed}{CBM-B}D{$e2}K{$e2}{CBM-H}{$e2}{$e3}
{CBM-U}{$7c}{CBM-Y}E{CBM-H}{CBM-Z}{CBM-Y}{CBM-Y}{$ec}{CBM-L}
{CBM-Y},{CBM-Y}7{CBM-Y}YI{CBM-U}Yr{CBM-U}{$7b}*{SHIFT-@}{$7b}{CBM-F}{$7f}Z{CBM-B}p{$e8}{CBM-P}f{$e5}{CBM-P}{$7d}{CBM-W}{CBM-B}zS{CBM-S}D{CBM-A}enDfoRnexTdatAinput{CBM-T}inpuTdiMreaDleTgotOruNiFrestorEgosuBreturNreM{CBM-*}oNwaiTloaDsavEverifYdeFpokEprint{CBM-T}prinTconTlisTclRcmDsySopeNclosEgeTneWt
[
{SHIFT-*}{$e6}{$fb}P{$e6}{$fc}{$60}{SHIFT-POUND}{$fe} R~{CBM-Z}
{SHIFT-*} R~{CBM-Z}{SHIFT-*} R~{$60}X{CBM-G}){$fc}{CBM-E}{$fb}h{CBM-Z}{SHIFT-*}xH{$60} {$e4}~I{$fe}{$f0}{$fb}{$e6}{$fb}P{$e6}{$fc}lpA {$e4}~h {$e4}~{CBM-N}H{$fb}{$e6}{$fb}P{$e6}{$fc}JP{$f5} {CBM-Y}~{$f0}U{$60}e it
oFsta (picptr),y
KPinc picptr   ; address
WZbne gr0
inc picptr{CBM-N}1
gr0 {CBM-R}{CBM-D}
{CBM-K}jmp gpfin
{CBM-M}{CBM-I};
{CBM-W}{CBM-D}{CBM-K}rep {CBM-R}{CBM-D}
Q{CBM-L}jsr {CBM-K}in    ;byte {CBM-@} repeat
Y{SHIFT-*}pha
{$f9}































cleaRvolumEwavEpulsEattacKdecaYsustaiNreleasEplaYofFfilterofFfilteRsyncofFsynCrinkfFrinGresancEkilL


trIsaWpulsEnoisE
loWb{CBM-P}higH

*A9A[AKCgBBYB$CPABD{CBM-J}C{$f0}D{SHIFT-*}D{$60}E0E{CBM-A}E E{$60}{SHIFT-POUND}
{$fd}{CBM-N} ~{$fe}{CBM-X}{SHIFT-*}h{SHIFT-POUND}{$fd}H){$7f}H{$e8}QZP{CBM-Z}{$fd}{$f0}{$e7}lA{SHIFT-POUND}
{$fd}{$ee}{$fe}{$ee}{$fe} ~{CBM-X} ";h$
 {CBM-H}
 1000:  er {CBM-M} "";:170
/{CBM-V}
pl{CBM-R}l: ph{CBM-R}h
{$60}H
"start of colour map       cc00 ";h$
{$7e}R
 1000:  er {CBM-M} "";:170
{CBM--}
cl{CBM-R}l: ch{CBM-R}h
{CBM-F}{$e6}
"filename of animation station file";f$
Y{$f0}
1,8,12,"0:pi."{CBM-N}f${CBM-N}",p,r"
{$fc}{$fa}
 2000:  check for disk error {CBM-Z} PDh{CBM-D}{$fc}
{SHIFT-*}
THH
{SHIFT-*}
THHH{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il1B{CBM-POUND}{CBM-O}
{SHIFT-*}){$fe}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il\B{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X



{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*})
{$fc}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il{CBM-M}B{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*}){$f0}
{$fc}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}I 1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
+Hi{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
2R 2
q{$7c}2,8,11,"@0:"{CBM-N}f${CBM-N}".c2,p,w"
V2,G(0)G(216);:  colour nybbles
i{CBM-R}1{CBM-@}1000:{CBM-K}#1,a$:2,H(a${CBM-N}z$,1);:
{CBM-E}i{CBM-R}1{CBM-@}24:{CBM-K}#1,a$:
{CBM-U}{CBM-@} 2
{SHIFT-+}{CBM-S}"The background colour is:"
{$f1}{CBM-U}{CBM-K}#1,a$: F(a${CBM-N}z$)
{$fd}B 1 A{$ee}{$fe}{$ee}{$fe}{CBM-Z}{$fe}jIPI



{$fe} {$f3}E {CBM-Z} {CBM-N}{CBM-E}I 0I!{CBM-K}{SHIFT-*}
P{CBM-N}){SHIFT-*}Tjjj{$fc}





{$fc}{SHIFT-*}T{$ea}{$ea}{$ea}{$ea}{CBM-Z}{SHIFT-*}

{SHIFT-*}T{CBM-Z}{$fe}
{SHIFT-*}{SHIFT-*}T{$60}

{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}AlE {$f7}{CBM-Y}{CBM-@}{CBM-G}{$60} {CBM-E}Z){$7f}ZlA{SHIFT-*}










 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}~8{$e5}-{SHIFT-*}{SHIFT-*}T{$60}
 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlUD{CBM-POUND}{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60}



!


 2064



{SHIFT-POUND}x{SHIFT-POUND}F
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}7{CBM-E}{$fb}{$fb}{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}I{SHIFT-*}P{$f0}{SHIFT-POUND},{$fb}{SHIFT-POUND} {$fc}{$fd}{SHIFT-POUND}{$fe}{CBM-E}{$fd}{$fb}{$e6}{$fb}P{$e6}{$fc}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}I{CBM-K}P{$ea}{CBM-G}{$fb}IP{$e4}{$fb}{SHIFT-POUND}{SHIFT-*}{$fc}{$fd}{SHIFT-POUND}{$fe}{CBM-E}{$fd}{$fb}{$e6}{$fb}P{$e6}{$fc}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}IFP{$ea}{CBM-G}{$fb}IAP{$e4}{$60}




















































































































T{SHIFT-*}T{$60}{CBM-Z}{$fe}I P{CBM-G}ZPF{$7b}FZ{SHIFT-POUND}{CBM-P}
Z{$e6}ZP{$e6}{$7b}l{$fd}{CBM-S}{CBM-I}{CBM-G}ZPF{$7b}FZJP{$f5}{SHIFT-POUND}
Z{CBM-I}{$e6}ZP{$e6}{$7b}JP{$f7}l{CBM-Z}


{CBM-I}{CBM-G}ZPF{$7b}FZJP{$f5}{SHIFT-POUND}K
Z{CBM-I}{$e6}ZP{$e6}{$7b}JP{$f7}l{CBM-Z}

{SHIFT-POUND}6l{CBM-@}
{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}AlE {$f7}{CBM-Y}{CBM-@}{CBM-G}{$60} {CBM-E}Z){$7f}ZlA{SHIFT-*}










 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}~8{$e5}-{SHIFT-*}{SHIFT-*}T{$60}
 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlUD{CBM-POUND}{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60}



!ab{CBM-POUND}tOfNspc{CBM-POUND}theNnoTsteP{CBM-Q}{CBM-Z}{CBM-N}{CBM-P}{$de}anDoR{CBM-V}{CBM-X}{CBM-C}sgNinTabSusRfrEpoSsqRrnDloGexPcoSsiNtaNatNpeeKleNstr{CBM-@}vaLasCchr{CBM-@}left{CBM-@}right{CBM-@}mid{CBM-@}gO










































































































































!
 jsr,  7,  32, and, 11,  33, bit,  4,  36
&${$e6}
 and,  4,  37, rol,  4,  38, plp,  1,  40, and,  2,  41
C${$f0}
 rol, 13,  42, bit,  7,  44, and,  7,  45, rol,  7,  46
 ${$fa}
 bmi,  3,  48, and, 12,  49, and,  5,  53, rol,  5,  54
{SHIFT--}$ sec,  1,  56, and,  9, !{SHIFT-*}{$f0}-{$e8}lL{SHIFT-*}{$e8}l{$f5}{SHIFT-*}H{$e6}ZP{$e6}{$7b}P{$f7}{SHIFT-POUND}%A{SHIFT-POUND}{SHIFT-*}&A{CBM-S}{$fe}{$f0}{$ee}%AJlAL{SHIFT-*}l{$60}D{SHIFT-POUND}
{CBM-POUND}
{SHIFT-*}
TH{SHIFT-*}P{$f5}{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{SHIFT-*}{$f9}{$fc}{CBM-Z}{SHIFT-*}){$f0}
{$fc}{SHIFT-*}T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlPA{$fc} {$fd}{CBM-S}{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{$60}A A{SHIFT-*}{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}A{$ee}{$fe}{$ee}{$fe}{CBM-Z}{$fe}jIP{SHIFT-POUND}l{CBM-J}AIP{SHIFT-POUND}



{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*})
{$fc}
{SHIFT-*}
T{$60}

 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}
{$f0}Il{$e5}A{$fc} {$fd}{CBM-S} ! 1,  88, eor,  9,  89
&6 eor,  8,  93, lsr,  8,  94, rts,  1,  96, adc, 11,  97
k&@ adc,  4, 101, ror,  4, 102, pla,  1, 104, adc,  2, 105
&j ror, 13, 106, jmp, 10, 108, adc,  7, 109, ror,  7, 110
E&t bvs,  3, 112, adc, 12, 113, adc,  5, 117, r!l{$ee}B{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X{CBM-D}{$fc}



{$fc}{CBM-O}
{SHIFT-*})
{$fc}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il9C{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*}){$f0}
{$fc}
T
{SHIFT-*}{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlC{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}I0IW{SHIFT-*}
PS{CBM-N}{CBM-D}{$fc}
{SHIFT-*}
TH
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{$ea}{$ea}{$ea}{$ea}{SHIFT-*}PH
 {$fd}{CBM-S}{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{$60}A XD{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}!
8
{$f6}' sta,  5, 149, stx,  6, 150, tya,  1, 152, sta,  9, 153
3( txs,  1, 154, sta,  8, 157, ldy,  2, 160, lda, 11, 161
P( ldx,  2, 162, ldy,  4, 164, lda,  4, 165, ldx,  4, 166
{CBM-Z}({CBM-@} tay,  1, 168, lda,  2, 169, tax,  1, 170, ldy,  7, 172
{$ea}({CBM-S} ld!
 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlE{CBM-POUND}{SHIFT-POUND}~8{$e9}9
{SHIFT-*}
{SHIFT-*}
T{$60} {CBM-E}ZIKP{SHIFT-POUND}kZlA{SHIFT-*}lE {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IleE{CBM-POUND}{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60}




 5F {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlUE{CBM-POUND}{SHIFT-POUND}~8{$e9}9
{SHIFT-*}
{SHIFT-*}
T{$60} {CBM-E}ZIP
{SHIFT-POUND}ZlA{SHIFT-*}l{CBM-P}l{CBM-P}












 F {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{SHIFT-*}{$f9}



{$fc}{CBM-Z}{SHIFT-*})
{$fc}{SHIFT-*}T{$60}








{CBM-Z}{SHIFT-*}0l{$ec}E
j































































































































































































































































!


{SHIFT-*}{SHIFT-*}j{SHIFT-POUND},{CBM-U}G{$e1}u{$e1}D{$e1}{CBM-R}{CBM-W}#{CBM-U}{$7f}{CBM-N}{CBM-N}v{CBM-POUND}{CBM-+}]{CBM-+}{CBM-N}){$e1}{CBM-X}{$e1}F{$e1}Z{CBM-Q}a{CBM-+}9{CBM-C}L{CBM-C}x{CBM-C}{$7d}{CBM-W}{CBM-W}Q{CBM-B} {$ea}{CBM-O}{$ed}{CBM-B}D{$e2}K{$e2}{CBM-H}{$e2}{$e3}
{CBM-U}{$7c}{CBM-Y}E{CBM-H}{CBM-Z}{CBM-Y}{CBM-Y}{$ec}{CBM-L}
{CBM-Y},{CBM-Y}7{CBM-Y}YI{CBM-U}Yr{CBM-U}{$7b}*{SHIFT-@}{$7b}{CBM-F}{$7f}Z{CBM-B}p{$e8}{CBM-P}f{$e5}{CBM-P}{$7d}{CBM-W}{CBM-B}zS{CBM-S}D{CBM-A}enDfoRnexTdatAinput{CBM-T}inpuTdiMreaDleTgotOruNiFrestorEgosuBreturNreM{CBM-*}oNwaiTloaDsavEverifYdeFpokEprint{CBM-T}prinTconTlisTclRcmDsySopeNclosEgeTneWt!,  1,   0, ora, 11,   1, ora,  4,   5, asl,  4,   6
2#{CBM-V}
 php,  1,   8, ora,  2,   9, asl, 13,  10, ora,  7,  13
O#H
 asl,  7,  14, bpl,  3,  16, ora, 12,  17, ora,  5,  21
{CBM-D}#R
 asl,  5,  22, clc,  1,  24, ora,  9,  25, ora,  8,  29
{$e9}#{CBM--}
 asl,  8,  30,!































cleaRvolumEwavEpulsEattacKdecaYsustaiNreleasEplaYofFfilterofFfilteRsyncofFsynCrinkfFrinGresancEkilL


trIsaWpulsEnoisE
loWb{CBM-P}higH

*A9A[AKCgBBYB$CPABD{CBM-J}C{$f0}D{SHIFT-*}D{$60}E0E{CBM-A}E E{$60}{SHIFT-POUND}
{$fd}{CBM-N} ~{$fe}{CBM-X}{SHIFT-*}h{SHIFT-POUND}{$fd}H){$7f}H{$e8}QZP{CBM-Z}{$fd}{$f0}{$e7}lA{SHIFT-POUND}
{$fd}{$ee}{$fe}{$ee}{$fe} ~{CBM-X}! 57, and,  8,  61, rol,  8,  62
% rti,  1,  64, eor, 11,  65, eor,  4,  69, lsr,  4,  70
w% pha,  1,  72, eor,  2,  73, lsr, 13,  74, jmp,  7,  76
%" eor,  7,  77, lsr,  7,  78, bvc,  3,  80, eor, 12,  81
Q%, eor,  5,  85, lsr,  5,  86, cli, !{CBM-Z} PDh{CBM-D}{$fc}
{SHIFT-*}
THH
{SHIFT-*}
THHH{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il1B{CBM-POUND}{CBM-O}
{SHIFT-*}){$fe}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il\B{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X



{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*})
{$fc}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}Il{CBM-M}B{$fc} {$fd}{CBM-S} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}P{CBM--}{SHIFT-*}X{CBM-D}{$fc}{$fc}{CBM-O}
{SHIFT-*}){$f0}
{$fc}
{SHIFT-*}
T{$60} {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}I!or,  5, 118
'^ sei,  1, 120, adc,  9, 121, adc,  8, 125, ror,  8, 126
?'H sta, 11, 129, sty,  4, 132, sta,  4, 133, stx,  4, 134
{$7c}'R dey,  1, 136, txa,  1, 138, sty,  7, 140, sta,  7, 141
{CBM-O}'{$7c} stx,  7, 142, bcc,  3, 144, sta, 12, 145, sty,  5, 14!A{$ee}{$fe}{$ee}{$fe}{CBM-Z}{$fe}jIPI



{$fe} {$f3}E {CBM-Z} {CBM-N}{CBM-E}I 0I!{CBM-K}{SHIFT-*}
P{CBM-N}){SHIFT-*}Tjjj{$fc}





{$fc}{SHIFT-*}T{$ea}{$ea}{$ea}{$ea}{CBM-Z}{SHIFT-*}

{SHIFT-*}T{CBM-Z}{$fe}
{SHIFT-*}{SHIFT-*}T{$60}

{SHIFT-POUND}M{SHIFT-*}{$f6}{SHIFT-*}{SHIFT-POUND}{SHIFT-POUND}AlE {$f7}{CBM-Y}{CBM-@}{CBM-G}{$60} {CBM-E}Z){$7f}ZlA{SHIFT-*}










 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}~8{$e5}-{SHIFT-*}{SHIFT-*}T{$60}
 {CBM-Z} {CBM-N}{CBM-E}{CBM-N}{$f0}lh{CBM-R}{$f0}{$fa}{SHIFT-*}{$f6}{SHIFT-POUND}{$f0}IlUD{CBM-POUND}{CBM-O}
{SHIFT-*}
{SHIFT-*}
T{$60}