� Slim characters in Mode 2
� by Bob Tinley
 � for BBC Micro and Electron
(� (c) Acorn User April 1985
2:
<�=&2E00
Fosword =&FFF1:oswrch =&FFEE
Posnewl =&FFE7
Zstring =&70  :char   =&72
dforecol=&7B  :gline  =&7C
nmask   =&7D  :screen =&7E
xtop    =&81  :pix    =&83
�flag   =&84  :oldtop =&85
�gcell  =&D6  :userv  =&200
�glin   =&31A :col    =&359
�flag   =&84  :oldtop =&85
� 
�� pass=0 � 3 � 3
�P%=&2E00
�
[OPT pass
�	.line
�CMP #1 :BEQ slim
�RTS
�	.slim
�LDA #5 :JSR oswrch

STX string :STY string+1

LDA #&19 :JSR oswrch

LDA #0 :LDY #5 

".sli

,JSR oswrch

6DEY :BNE sli 

@JSR colour

JLDA glin   :STA gline

TLDA gcell  :STA oldtop 

^LDA gcell+1:STA oldtop+1

hSTA oldtop+1

rLDY #0  

|.character

�LDA (string),Y

�CMP #&D  :BEQ slimen

�STA char

�TYA:PHA

�LDX #char:LDY #0

�LDA #&A  :JSR osword

�JSR slimchar

�
LDX #1

�LDA oldtop  :STA top

�LDA oldtop+1:STA top+1

�
LDY gline

�
.charline

�TYA:CLC:ADC top
STA screen

LDA top+1
STA screen+1
&TXA:PHA:TYA:PHA
0
JSR pair 
:PLA:TAY:PLA:TAX
DCMP #8:BEQ nextcha
NINX:INY
XCPY #8:BNE charline
b
LDY #0
lLDA top :CLC
vADC #&80:STA top 
�
LDA top+1
�ADC #&2 :STA top+1
�CMP #&80:BCC charline
�SEC:SBC #&50 
�STA top+1:JMP charline
�.slimen
�JMP slimend
�.nextcha
�JMP nextchar
�	.pair
�
LDY #0
�
.pair1
�LDA (screen),Y
ASL char,X

BCC pair2

� #&55
 �A forecol
*
.pair2
4LSR forecol
>ASL char,X
H
BCC pair3
R
� #&AA
\�A forecol
f
.pair3
pASL forecol
zSTA (screen),Y
�CPY #0:BNE pairend
�
LDY #8
�
JMP pair1
�.pairend
�RTS
�
.slimchar
�
LDX #8
�LDA char
�CMP #116:BEQ tf4 
�CMP #102:BEQ tf4
�CMP #52 :BEQ tf4
�CMP #74 :BEQ J
�
.slim1
LDA #0:STA pix 
LDA #&80:STA mask
LDY #4 
$
.slim2
.TYA:PHA:LDY #2:CLC
8LDA #0:STA flag
B
.slim3
LLSR mask
VLDA char,X
`
� #&FE
jBIT mask:BEQ slim4
tLDA #1:STA flag
~
.slim4
�DEY:BNE slim3 
�CLC 
�LDA flag:BEQ slim5
�	SEC  
�
.slim5
�ROL pix
�PLA:TAY
�DEY:BNE slim2
�LDY #4:LDA pix
�
.slim6
�
ASL A 
�DEY:BNE slim6
STA char,X 

DEX:BNE slim1
RTS
.tf4
(TXA:PHA:LDX #8
2	.tf41
<LSR char,X 
FDEX:BNE tf41
PPLA:TAX:JMP slim1
Z.J
dTXA:PHA:LDX #6
n.J1
xLDA char,X:� &FB
�STA char,X
�LDA char+1:�A &7E
�STA char+1
�DEX:BNE J1
�PLA:TAX:JMP slim1
�.colour
�LDA col
�
� #&AA
�STA forecol
�RTS
�
.nextchar
�LDA oldtop:CLC 
�ADC #&10:STA oldtop
LDA oldtop+1:ADC #0
STA oldtop+1
CMP #&80:BNE next1
"SEC:SBC #&50
,STA oldtop+1
6
.next1
@PLA:TAY 
JINY:JMP character
T.slimend
^JMP osnewl
h]
r
� pass
| *SAVE SLIM 2E00 2F57
�

00000000  0d 00 0a 1f f4 20 53 6c  69 6d 20 63 68 61 72 61  |..... Slim chara|
00000010  63 74 65 72 73 20 69 6e  20 4d 6f 64 65 20 32 0d  |cters in Mode 2.|
00000020  00 14 13 f4 20 62 79 20  42 6f 62 20 54 69 6e 6c  |.... by Bob Tinl|
00000030  65 79 0d 00 1e 20 f4 20  66 6f 72 20 42 42 43 20  |ey... . for BBC |
00000040  4d 69 63 72 6f 20 61 6e  64 20 45 6c 65 63 74 72  |Micro and Electr|
00000050  6f 6e 0d 00 28 1f f4 20  28 63 29 20 41 63 6f 72  |on..(.. (c) Acor|
00000060  6e 20 55 73 65 72 20 41  70 72 69 6c 20 31 39 38  |n User April 198|
00000070  35 0d 00 32 05 3a 0d 00  3c 0b d3 3d 26 32 45 30  |5..2.:..<..=&2E0|
00000080  30 0d 00 46 1f 6f 73 77  6f 72 64 20 3d 26 46 46  |0..F.osword =&FF|
00000090  46 31 3a 6f 73 77 72 63  68 20 3d 26 46 46 45 45  |F1:oswrch =&FFEE|
000000a0  0d 00 50 11 6f 73 6e 65  77 6c 20 3d 26 46 46 45  |..P.osnewl =&FFE|
000000b0  37 0d 00 5a 1d 73 74 72  69 6e 67 20 3d 26 37 30  |7..Z.string =&70|
000000c0  20 20 3a 63 68 61 72 20  20 20 3d 26 37 32 0d 00  |  :char   =&72..|
000000d0  64 1d 66 6f 72 65 63 6f  6c 3d 26 37 42 20 20 3a  |d.forecol=&7B  :|
000000e0  67 6c 69 6e 65 20 20 3d  26 37 43 0d 00 6e 1d 6d  |gline  =&7C..n.m|
000000f0  61 73 6b 20 20 20 3d 26  37 44 20 20 3a 73 63 72  |ask   =&7D  :scr|
00000100  65 65 6e 20 3d 26 37 45  0d 00 78 1d 74 6f 70 20  |een =&7E..x.top |
00000110  20 20 20 3d 26 38 31 20  20 3a 70 69 78 20 20 20  |   =&81  :pix   |
00000120  20 3d 26 38 33 0d 00 82  1d 66 6c 61 67 20 20 20  | =&83....flag   |
00000130  3d 26 38 34 20 20 3a 6f  6c 64 74 6f 70 20 3d 26  |=&84  :oldtop =&|
00000140  38 35 0d 00 8c 1e 67 63  65 6c 6c 20 20 3d 26 44  |85....gcell  =&D|
00000150  36 20 20 3a 75 73 65 72  76 20 20 3d 26 32 30 30  |6  :userv  =&200|
00000160  0d 00 96 1e 67 6c 69 6e  20 20 20 3d 26 33 31 41  |....glin   =&31A|
00000170  20 3a 63 6f 6c 20 20 20  20 3d 26 33 35 39 0d 00  | :col    =&359..|
00000180  a0 1d 66 6c 61 67 20 20  20 3d 26 38 34 20 20 3a  |..flag   =&84  :|
00000190  6f 6c 64 74 6f 70 20 3d  26 38 35 0d 00 aa 05 20  |oldtop =&85.... |
000001a0  0d 00 b4 14 e3 20 70 61  73 73 3d 30 20 b8 20 33  |..... pass=0 . 3|
000001b0  20 88 20 33 0d 00 be 0c  50 25 3d 26 32 45 30 30  | . 3....P%=&2E00|
000001c0  0d 00 c8 0d 5b 4f 50 54  20 70 61 73 73 0d 00 d2  |....[OPT pass...|
000001d0  09 2e 6c 69 6e 65 0d 00  dc 14 43 4d 50 20 23 31  |..line....CMP #1|
000001e0  20 3a 42 45 51 20 73 6c  69 6d 0d 00 e6 07 52 54  | :BEQ slim....RT|
000001f0  53 0d 00 f0 09 2e 73 6c  69 6d 0d 00 fa 16 4c 44  |S.....slim....LD|
00000200  41 20 23 35 20 3a 4a 53  52 20 6f 73 77 72 63 68  |A #5 :JSR oswrch|
00000210  0d 01 04 1c 53 54 58 20  73 74 72 69 6e 67 20 3a  |....STX string :|
00000220  53 54 59 20 73 74 72 69  6e 67 2b 31 0d 01 0e 18  |STY string+1....|
00000230  4c 44 41 20 23 26 31 39  20 3a 4a 53 52 20 6f 73  |LDA #&19 :JSR os|
00000240  77 72 63 68 0d 01 18 13  4c 44 41 20 23 30 20 3a  |wrch....LDA #0 :|
00000250  4c 44 59 20 23 35 20 0d  01 22 08 2e 73 6c 69 0d  |LDY #5 .."..sli.|
00000260  01 2c 0e 4a 53 52 20 6f  73 77 72 63 68 0d 01 36  |.,.JSR oswrch..6|
00000270  11 44 45 59 20 3a 42 4e  45 20 73 6c 69 20 0d 01  |.DEY :BNE sli ..|
00000280  40 0e 4a 53 52 20 63 6f  6c 6f 75 72 0d 01 4a 19  |@.JSR colour..J.|
00000290  4c 44 41 20 67 6c 69 6e  20 20 20 3a 53 54 41 20  |LDA glin   :STA |
000002a0  67 6c 69 6e 65 0d 01 54  1b 4c 44 41 20 67 63 65  |gline..T.LDA gce|
000002b0  6c 6c 20 20 3a 53 54 41  20 6f 6c 64 74 6f 70 20  |ll  :STA oldtop |
000002c0  0d 01 5e 1c 4c 44 41 20  67 63 65 6c 6c 2b 31 3a  |..^.LDA gcell+1:|
000002d0  53 54 41 20 6f 6c 64 74  6f 70 2b 31 0d 01 68 10  |STA oldtop+1..h.|
000002e0  53 54 41 20 6f 6c 64 74  6f 70 2b 31 0d 01 72 0c  |STA oldtop+1..r.|
000002f0  4c 44 59 20 23 30 20 20  0d 01 7c 0e 2e 63 68 61  |LDY #0  ..|..cha|
00000300  72 61 63 74 65 72 0d 01  86 12 4c 44 41 20 28 73  |racter....LDA (s|
00000310  74 72 69 6e 67 29 2c 59  0d 01 90 18 43 4d 50 20  |tring),Y....CMP |
00000320  23 26 44 20 20 3a 42 45  51 20 73 6c 69 6d 65 6e  |#&D  :BEQ slimen|
00000330  0d 01 9a 0c 53 54 41 20  63 68 61 72 0d 01 a4 0b  |....STA char....|
00000340  54 59 41 3a 50 48 41 0d  01 ae 14 4c 44 58 20 23  |TYA:PHA....LDX #|
00000350  63 68 61 72 3a 4c 44 59  20 23 30 0d 01 b8 18 4c  |char:LDY #0....L|
00000360  44 41 20 23 26 41 20 20  3a 4a 53 52 20 6f 73 77  |DA #&A  :JSR osw|
00000370  6f 72 64 0d 01 c2 10 4a  53 52 20 73 6c 69 6d 63  |ord....JSR slimc|
00000380  68 61 72 0d 01 cc 0a 4c  44 58 20 23 31 0d 01 d6  |har....LDX #1...|
00000390  18 4c 44 41 20 6f 6c 64  74 6f 70 20 20 3a 53 54  |.LDA oldtop  :ST|
000003a0  41 20 74 6f 70 0d 01 e0  1a 4c 44 41 20 6f 6c 64  |A top....LDA old|
000003b0  74 6f 70 2b 31 3a 53 54  41 20 74 6f 70 2b 31 0d  |top+1:STA top+1.|
000003c0  01 ea 0d 4c 44 59 20 67  6c 69 6e 65 0d 01 f4 0d  |...LDY gline....|
000003d0  2e 63 68 61 72 6c 69 6e  65 0d 01 fe 13 54 59 41  |.charline....TYA|
000003e0  3a 43 4c 43 3a 41 44 43  20 74 6f 70 0d 02 08 0e  |:CLC:ADC top....|
000003f0  53 54 41 20 73 63 72 65  65 6e 0d 02 12 0d 4c 44  |STA screen....LD|
00000400  41 20 74 6f 70 2b 31 0d  02 1c 10 53 54 41 20 73  |A top+1....STA s|
00000410  63 72 65 65 6e 2b 31 0d  02 26 13 54 58 41 3a 50  |creen+1..&.TXA:P|
00000420  48 41 3a 54 59 41 3a 50  48 41 0d 02 30 0d 4a 53  |HA:TYA:PHA..0.JS|
00000430  52 20 70 61 69 72 20 0d  02 3a 13 50 4c 41 3a 54  |R pair ..:.PLA:T|
00000440  41 59 3a 50 4c 41 3a 54  41 58 0d 02 44 16 43 4d  |AY:PLA:TAX..D.CM|
00000450  50 20 23 38 3a 42 45 51  20 6e 65 78 74 63 68 61  |P #8:BEQ nextcha|
00000460  0d 02 4e 0b 49 4e 58 3a  49 4e 59 0d 02 58 17 43  |..N.INX:INY..X.C|
00000470  50 59 20 23 38 3a 42 4e  45 20 63 68 61 72 6c 69  |PY #8:BNE charli|
00000480  6e 65 0d 02 62 0a 4c 44  59 20 23 30 0d 02 6c 10  |ne..b.LDY #0..l.|
00000490  4c 44 41 20 74 6f 70 20  3a 43 4c 43 0d 02 76 15  |LDA top :CLC..v.|
000004a0  41 44 43 20 23 26 38 30  3a 53 54 41 20 74 6f 70  |ADC #&80:STA top|
000004b0  20 0d 02 80 0d 4c 44 41  20 74 6f 70 2b 31 0d 02  | ....LDA top+1..|
000004c0  8a 16 41 44 43 20 23 26  32 20 3a 53 54 41 20 74  |..ADC #&2 :STA t|
000004d0  6f 70 2b 31 0d 02 94 19  43 4d 50 20 23 26 38 30  |op+1....CMP #&80|
000004e0  3a 42 43 43 20 63 68 61  72 6c 69 6e 65 0d 02 9e  |:BCC charline...|
000004f0  11 53 45 43 3a 53 42 43  20 23 26 35 30 20 0d 02  |.SEC:SBC #&50 ..|
00000500  a8 1a 53 54 41 20 74 6f  70 2b 31 3a 4a 4d 50 20  |..STA top+1:JMP |
00000510  63 68 61 72 6c 69 6e 65  0d 02 b2 0b 2e 73 6c 69  |charline.....sli|
00000520  6d 65 6e 0d 02 bc 0f 4a  4d 50 20 73 6c 69 6d 65  |men....JMP slime|
00000530  6e 64 0d 02 c6 0c 2e 6e  65 78 74 63 68 61 0d 02  |nd.....nextcha..|
00000540  d0 10 4a 4d 50 20 6e 65  78 74 63 68 61 72 0d 02  |..JMP nextchar..|
00000550  da 09 2e 70 61 69 72 0d  02 e4 0a 4c 44 59 20 23  |...pair....LDY #|
00000560  30 0d 02 ee 0a 2e 70 61  69 72 31 0d 02 f8 12 4c  |0.....pair1....L|
00000570  44 41 20 28 73 63 72 65  65 6e 29 2c 59 0d 03 02  |DA (screen),Y...|
00000580  0e 41 53 4c 20 63 68 61  72 2c 58 0d 03 0c 0d 42  |.ASL char,X....B|
00000590  43 43 20 70 61 69 72 32  0d 03 16 0a 80 20 23 26  |CC pair2..... #&|
000005a0  35 35 0d 03 20 0e 84 41  20 66 6f 72 65 63 6f 6c  |55.. ..A forecol|
000005b0  0d 03 2a 0a 2e 70 61 69  72 32 0d 03 34 0f 4c 53  |..*..pair2..4.LS|
000005c0  52 20 66 6f 72 65 63 6f  6c 0d 03 3e 0e 41 53 4c  |R forecol..>.ASL|
000005d0  20 63 68 61 72 2c 58 0d  03 48 0d 42 43 43 20 70  | char,X..H.BCC p|
000005e0  61 69 72 33 0d 03 52 0a  80 20 23 26 41 41 0d 03  |air3..R.. #&AA..|
000005f0  5c 0e 84 41 20 66 6f 72  65 63 6f 6c 0d 03 66 0a  |\..A forecol..f.|
00000600  2e 70 61 69 72 33 0d 03  70 0f 41 53 4c 20 66 6f  |.pair3..p.ASL fo|
00000610  72 65 63 6f 6c 0d 03 7a  12 53 54 41 20 28 73 63  |recol..z.STA (sc|
00000620  72 65 65 6e 29 2c 59 0d  03 84 16 43 50 59 20 23  |reen),Y....CPY #|
00000630  30 3a 42 4e 45 20 70 61  69 72 65 6e 64 0d 03 8e  |0:BNE pairend...|
00000640  0a 4c 44 59 20 23 38 0d  03 98 0d 4a 4d 50 20 70  |.LDY #8....JMP p|
00000650  61 69 72 31 0d 03 a2 0c  2e 70 61 69 72 65 6e 64  |air1.....pairend|
00000660  0d 03 ac 07 52 54 53 0d  03 b6 0d 2e 73 6c 69 6d  |....RTS.....slim|
00000670  63 68 61 72 0d 03 c0 0a  4c 44 58 20 23 38 0d 03  |char....LDX #8..|
00000680  ca 0c 4c 44 41 20 63 68  61 72 0d 03 d4 15 43 4d  |..LDA char....CM|
00000690  50 20 23 31 31 36 3a 42  45 51 20 74 66 34 20 0d  |P #116:BEQ tf4 .|
000006a0  03 de 14 43 4d 50 20 23  31 30 32 3a 42 45 51 20  |...CMP #102:BEQ |
000006b0  74 66 34 0d 03 e8 14 43  4d 50 20 23 35 32 20 3a  |tf4....CMP #52 :|
000006c0  42 45 51 20 74 66 34 0d  03 f2 12 43 4d 50 20 23  |BEQ tf4....CMP #|
000006d0  37 34 20 3a 42 45 51 20  4a 0d 03 fc 0a 2e 73 6c  |74 :BEQ J.....sl|
000006e0  69 6d 31 0d 04 06 13 4c  44 41 20 23 30 3a 53 54  |im1....LDA #0:ST|
000006f0  41 20 70 69 78 20 0d 04  10 15 4c 44 41 20 23 26  |A pix ....LDA #&|
00000700  38 30 3a 53 54 41 20 6d  61 73 6b 0d 04 1a 0b 4c  |80:STA mask....L|
00000710  44 59 20 23 34 20 0d 04  24 0a 2e 73 6c 69 6d 32  |DY #4 ..$..slim2|
00000720  0d 04 2e 16 54 59 41 3a  50 48 41 3a 4c 44 59 20  |....TYA:PHA:LDY |
00000730  23 32 3a 43 4c 43 0d 04  38 13 4c 44 41 20 23 30  |#2:CLC..8.LDA #0|
00000740  3a 53 54 41 20 66 6c 61  67 0d 04 42 0a 2e 73 6c  |:STA flag..B..sl|
00000750  69 6d 33 0d 04 4c 0c 4c  53 52 20 6d 61 73 6b 0d  |im3..L.LSR mask.|
00000760  04 56 0e 4c 44 41 20 63  68 61 72 2c 58 0d 04 60  |.V.LDA char,X..`|
00000770  0a 80 20 23 26 46 45 0d  04 6a 16 42 49 54 20 6d  |.. #&FE..j.BIT m|
00000780  61 73 6b 3a 42 45 51 20  73 6c 69 6d 34 0d 04 74  |ask:BEQ slim4..t|
00000790  13 4c 44 41 20 23 31 3a  53 54 41 20 66 6c 61 67  |.LDA #1:STA flag|
000007a0  0d 04 7e 0a 2e 73 6c 69  6d 34 0d 04 88 12 44 45  |..~..slim4....DE|
000007b0  59 3a 42 4e 45 20 73 6c  69 6d 33 20 0d 04 92 08  |Y:BNE slim3 ....|
000007c0  43 4c 43 20 0d 04 9c 16  4c 44 41 20 66 6c 61 67  |CLC ....LDA flag|
000007d0  3a 42 45 51 20 73 6c 69  6d 35 0d 04 a6 09 53 45  |:BEQ slim5....SE|
000007e0  43 20 20 0d 04 b0 0a 2e  73 6c 69 6d 35 0d 04 ba  |C  .....slim5...|
000007f0  0b 52 4f 4c 20 70 69 78  0d 04 c4 0b 50 4c 41 3a  |.ROL pix....PLA:|
00000800  54 41 59 0d 04 ce 11 44  45 59 3a 42 4e 45 20 73  |TAY....DEY:BNE s|
00000810  6c 69 6d 32 0d 04 d8 12  4c 44 59 20 23 34 3a 4c  |lim2....LDY #4:L|
00000820  44 41 20 70 69 78 0d 04  e2 0a 2e 73 6c 69 6d 36  |DA pix.....slim6|
00000830  0d 04 ec 0a 41 53 4c 20  41 20 0d 04 f6 11 44 45  |....ASL A ....DE|
00000840  59 3a 42 4e 45 20 73 6c  69 6d 36 0d 05 00 0f 53  |Y:BNE slim6....S|
00000850  54 41 20 63 68 61 72 2c  58 20 0d 05 0a 11 44 45  |TA char,X ....DE|
00000860  58 3a 42 4e 45 20 73 6c  69 6d 31 0d 05 14 07 52  |X:BNE slim1....R|
00000870  54 53 0d 05 1e 08 2e 74  66 34 0d 05 28 12 54 58  |TS.....tf4..(.TX|
00000880  41 3a 50 48 41 3a 4c 44  58 20 23 38 0d 05 32 09  |A:PHA:LDX #8..2.|
00000890  2e 74 66 34 31 0d 05 3c  0f 4c 53 52 20 63 68 61  |.tf41..<.LSR cha|
000008a0  72 2c 58 20 0d 05 46 10  44 45 58 3a 42 4e 45 20  |r,X ..F.DEX:BNE |
000008b0  74 66 34 31 0d 05 50 15  50 4c 41 3a 54 41 58 3a  |tf41..P.PLA:TAX:|
000008c0  4a 4d 50 20 73 6c 69 6d  31 0d 05 5a 06 2e 4a 0d  |JMP slim1..Z..J.|
000008d0  05 64 12 54 58 41 3a 50  48 41 3a 4c 44 58 20 23  |.d.TXA:PHA:LDX #|
000008e0  36 0d 05 6e 07 2e 4a 31  0d 05 78 14 4c 44 41 20  |6..n..J1..x.LDA |
000008f0  63 68 61 72 2c 58 3a 80  20 26 46 42 0d 05 82 0e  |char,X:. &FB....|
00000900  53 54 41 20 63 68 61 72  2c 58 0d 05 8c 15 4c 44  |STA char,X....LD|
00000910  41 20 63 68 61 72 2b 31  3a 84 41 20 26 37 45 0d  |A char+1:.A &7E.|
00000920  05 96 0e 53 54 41 20 63  68 61 72 2b 31 0d 05 a0  |...STA char+1...|
00000930  0e 44 45 58 3a 42 4e 45  20 4a 31 0d 05 aa 15 50  |.DEX:BNE J1....P|
00000940  4c 41 3a 54 41 58 3a 4a  4d 50 20 73 6c 69 6d 31  |LA:TAX:JMP slim1|
00000950  0d 05 b4 0b 2e 63 6f 6c  6f 75 72 0d 05 be 0b 4c  |.....colour....L|
00000960  44 41 20 63 6f 6c 0d 05  c8 0a 80 20 23 26 41 41  |DA col..... #&AA|
00000970  0d 05 d2 0f 53 54 41 20  66 6f 72 65 63 6f 6c 0d  |....STA forecol.|
00000980  05 dc 07 52 54 53 0d 05  e6 0d 2e 6e 65 78 74 63  |...RTS.....nextc|
00000990  68 61 72 0d 05 f0 13 4c  44 41 20 6f 6c 64 74 6f  |har....LDA oldto|
000009a0  70 3a 43 4c 43 20 0d 05  fa 17 41 44 43 20 23 26  |p:CLC ....ADC #&|
000009b0  31 30 3a 53 54 41 20 6f  6c 64 74 6f 70 0d 06 04  |10:STA oldtop...|
000009c0  17 4c 44 41 20 6f 6c 64  74 6f 70 2b 31 3a 41 44  |.LDA oldtop+1:AD|
000009d0  43 20 23 30 0d 06 0e 10  53 54 41 20 6f 6c 64 74  |C #0....STA oldt|
000009e0  6f 70 2b 31 0d 06 18 16  43 4d 50 20 23 26 38 30  |op+1....CMP #&80|
000009f0  3a 42 4e 45 20 6e 65 78  74 31 0d 06 22 10 53 45  |:BNE next1..".SE|
00000a00  43 3a 53 42 43 20 23 26  35 30 0d 06 2c 10 53 54  |C:SBC #&50..,.ST|
00000a10  41 20 6f 6c 64 74 6f 70  2b 31 0d 06 36 0a 2e 6e  |A oldtop+1..6..n|
00000a20  65 78 74 31 0d 06 40 0c  50 4c 41 3a 54 41 59 20  |ext1..@.PLA:TAY |
00000a30  0d 06 4a 15 49 4e 59 3a  4a 4d 50 20 63 68 61 72  |..J.INY:JMP char|
00000a40  61 63 74 65 72 0d 06 54  0c 2e 73 6c 69 6d 65 6e  |acter..T..slimen|
00000a50  64 0d 06 5e 0e 4a 4d 50  20 6f 73 6e 65 77 6c 0d  |d..^.JMP osnewl.|
00000a60  06 68 05 5d 0d 06 72 0a  ed 20 70 61 73 73 0d 06  |.h.]..r.. pass..|
00000a70  7c 19 20 2a 53 41 56 45  20 53 4c 49 4d 20 32 45  ||. *SAVE SLIM 2E|
00000a80  30 30 20 32 46 35 37 0d  ff                       |00 2F57..|
00000a89