Home » Recent acquisitions » Acorn tapes » tape045b_acorn_acorn_user_1985_04_electron.wav » TINLEY1

TINLEY1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn tapes » tape045b_acorn_acorn_user_1985_04_electron.wav
Filename: TINLEY1
Read OK:
File size: 0A89 bytes
Load address: FFFF1900
Exec address: FFFF1900
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Slim characters in Mode 2
   20REM by Bob Tinley
   30REM for BBC Micro and Electron
   40REM (c) Acorn User April 1985
   50:
   60HIMEM=&2E00
   70osword =&FFF1:oswrch =&FFEE
   80osnewl =&FFE7
   90string =&70  :char   =&72
  100forecol=&7B  :gline  =&7C
  110mask   =&7D  :screen =&7E
  120top    =&81  :pix    =&83
  130flag   =&84  :oldtop =&85
  140gcell  =&D6  :userv  =&200
  150glin   =&31A :col    =&359
  160flag   =&84  :oldtop =&85
  170 
  180FOR pass=0 TO 3 STEP 3
  190P%=&2E00
  200[OPT pass
  210.line
  220CMP #1 :BEQ slim
  230RTS
  240.slim
  250LDA #5 :JSR oswrch
  260STX string :STY string+1
  270LDA #&19 :JSR oswrch
  280LDA #0 :LDY #5 
  290.sli
  300JSR oswrch
  310DEY :BNE sli 
  320JSR colour
  330LDA glin   :STA gline
  340LDA gcell  :STA oldtop 
  350LDA gcell+1:STA oldtop+1
  360STA oldtop+1
  370LDY #0  
  380.character
  390LDA (string),Y
  400CMP #&D  :BEQ slimen
  410STA char
  420TYA:PHA
  430LDX #char:LDY #0
  440LDA #&A  :JSR osword
  450JSR slimchar
  460LDX #1
  470LDA oldtop  :STA top
  480LDA oldtop+1:STA top+1
  490LDY gline
  500.charline
  510TYA:CLC:ADC top
  520STA screen
  530LDA top+1
  540STA screen+1
  550TXA:PHA:TYA:PHA
  560JSR pair 
  570PLA:TAY:PLA:TAX
  580CMP #8:BEQ nextcha
  590INX:INY
  600CPY #8:BNE charline
  610LDY #0
  620LDA top :CLC
  630ADC #&80:STA top 
  640LDA top+1
  650ADC #&2 :STA top+1
  660CMP #&80:BCC charline
  670SEC:SBC #&50 
  680STA top+1:JMP charline
  690.slimen
  700JMP slimend
  710.nextcha
  720JMP nextchar
  730.pair
  740LDY #0
  750.pair1
  760LDA (screen),Y
  770ASL char,X
  780BCC pair2
  790AND #&55
  800ORA forecol
  810.pair2
  820LSR forecol
  830ASL char,X
  840BCC pair3
  850AND #&AA
  860ORA forecol
  870.pair3
  880ASL forecol
  890STA (screen),Y
  900CPY #0:BNE pairend
  910LDY #8
  920JMP pair1
  930.pairend
  940RTS
  950.slimchar
  960LDX #8
  970LDA char
  980CMP #116:BEQ tf4 
  990CMP #102:BEQ tf4
 1000CMP #52 :BEQ tf4
 1010CMP #74 :BEQ J
 1020.slim1
 1030LDA #0:STA pix 
 1040LDA #&80:STA mask
 1050LDY #4 
 1060.slim2
 1070TYA:PHA:LDY #2:CLC
 1080LDA #0:STA flag
 1090.slim3
 1100LSR mask
 1110LDA char,X
 1120AND #&FE
 1130BIT mask:BEQ slim4
 1140LDA #1:STA flag
 1150.slim4
 1160DEY:BNE slim3 
 1170CLC 
 1180LDA flag:BEQ slim5
 1190SEC  
 1200.slim5
 1210ROL pix
 1220PLA:TAY
 1230DEY:BNE slim2
 1240LDY #4:LDA pix
 1250.slim6
 1260ASL A 
 1270DEY:BNE slim6
 1280STA char,X 
 1290DEX:BNE slim1
 1300RTS
 1310.tf4
 1320TXA:PHA:LDX #8
 1330.tf41
 1340LSR char,X 
 1350DEX:BNE tf41
 1360PLA:TAX:JMP slim1
 1370.J
 1380TXA:PHA:LDX #6
 1390.J1
 1400LDA char,X:AND &FB
 1410STA char,X
 1420LDA char+1:ORA &7E
 1430STA char+1
 1440DEX:BNE J1
 1450PLA:TAX:JMP slim1
 1460.colour
 1470LDA col
 1480AND #&AA
 1490STA forecol
 1500RTS
 1510.nextchar
 1520LDA oldtop:CLC 
 1530ADC #&10:STA oldtop
 1540LDA oldtop+1:ADC #0
 1550STA oldtop+1
 1560CMP #&80:BNE next1
 1570SEC:SBC #&50
 1580STA oldtop+1
 1590.next1
 1600PLA:TAY 
 1610INY:JMP character
 1620.slimend
 1630JMP osnewl
 1640]
 1650NEXT pass
 1660 *SAVE SLIM 2E00 2F57

� 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
TINLEY1.m0
TINLEY1.m1
TINLEY1.m2
TINLEY1.m4
TINLEY1.m5