Home » CEEFAX disks » telesoftware12.adl » 04-02-89/SPinter
04-02-89/SPinter
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 » CEEFAX disks » telesoftware12.adl |
| Filename: | 04-02-89/SPinter |
| Read OK: | ✔ |
| File size: | 1B5F bytes |
| Load address: | 0800 |
| Exec address: | 8023 |
File contents
10REM> SPINTER
20osword=&FFF1
30osbyte=&FFF4
40A%=&EA
50X%=0
60Y%=&FF
70IF (USR(osbyte)AND&FF00)DIV&100=0 host=TRUE ELSE host=FALSE
80IF host IF PAGE>&1100 THEN PAGE=&1100:CHAIN"SPINTER"
90DIM param 4
100DIM mcode &100
110xcoord=&70
120ycoord=&71
130PROCmcode
140ONERROR OSCLI("CODE"):VDU23,1,1;0;0;0;:END
150mode=0
160paper=6
170ink=4
180MODE mode
190PROCnewmode
200REPEAT
210IF INKEY(-58) PROCup:MODE mode:PROCnewmode
220IF INKEY(-42) PROCdown:MODE mode:PROCnewmode
230IF INKEY(-56) PROCpaper
240IF INKEY(-38) PROCink
250IF INKEY(-26) PROCleft
260IF INKEY(-122) PROCright
270IF INKEY(-74) PROCscroll:PROCdelay
280PRINTTAB(13,1);FNread(xcoord);" "
290PRINTTAB(13,2);FNread(ycoord);" "
300IF FNswitch VDU31,FNread(xcoord),FNread(ycoord),42
310UNTIL FALSE
320:
330DEFPROCscroll
340IF (mode>5) OR (mode=3) PRINTTAB(0,24):ENDPROC
350PRINTTAB(0,31)
360ENDPROC
370:
380DEFPROCup
390mode=mode+1
400IF mode>7 mode=7
410ENDPROC
420:
430DEFPROCdown
440mode=mode-1
450IF mode<0 mode=0
460ENDPROC
470:
480DEFPROCleft
490offset=FNread(offsetlow+mode)
500IF offset=12 ENDPROC
510PROCwrite(offset+1,offsetlow+mode)
520PROCdelay
530ENDPROC
540:
550DEFPROCright
560offset=FNread(offsetlow+mode)
570IF offset=0 ENDPROC
580PROCwrite(offset-1,offsetlow+mode)
590PROCdelay
600ENDPROC
610:
620DEFPROCnewmode
630VDU23,1,0;0;0;0;
640IF mode=7 PROCseven:ENDPROC
650VDU19,0,paper;0;
660VDU19,1,ink;0;
670COLOUR1
680PROCdelay
690ENDPROC
700:
710DEFPROCdelay
720PRINTTAB(3,0)"Mode ";mode;SPC(8)
730PRINTTAB(3,1)"X coord = ";FNread(xcoord);SPC(3)
740PRINTTAB(3,2)"Y coord = ";FNread(ycoord);SPC(3)
750PRINTTAB(3,3)"offsetlow = ";FNread(offsetlow+mode)
760time=TIME+20
770REPEAT UNTIL time<TIME
780ENDPROC
790:
800DEFPROCink
810ink=ink+1
820IF ink=paper ink=ink+1
830IF ink>7 ink=0
840VDU19,1,ink;0;
850IF mode=7 PROCseven
860PROCdelay
870ENDPROC
880:
890DEFPROCpaper
900paper=paper+1
910IF paper=ink paper=paper+1
920IF paper>7 paper=1
930VDU19,0,paper;0;
940IF mode=7 PROCseven
950PROCdelay
960ENDPROC
970:
980DEFPROCseven
990IF ink=0 ink=1
1000FOR line=0 TO 24
1010IF paper=0 VDU31,0,line,128+ink,32,32 ELSE VDU31,0,line,128+paper,157,128+ink
1020NEXT
1030PROCdelay
1040ENDPROC
1050:
1060DEFPROCwrite(data,addr)
1070IF host ?addr=data:ENDPROC
1080!param=addr OR &FFFF0000
1090param?4=data
1100A%=6
1110X%=param MOD 256
1120Y%=param DIV 256
1130CALL osword
1140ENDPROC
1150:
1160DEFFNread(addr)
1170IF host =?addr
1180!param=addr OR &FFFF0000
1190A%=5
1200X%=param MOD 256
1210Y%=param DIV 256
1220CALL osword
1230=param?4
1240:
1250DEFPROCmcode
1260fire=&72 :REM: fire button status
1270userv=&200 :REM: user vector
1280irq2v=&206 :REM: secondary interrupt vector
1290start=&350 :REM: screen start address
1300screen=&355 :REM: screen mode OS 1.2
1310ioaddr=&A00 :REM: assemble for &A00
1320sheila=&FE00
1330drb=&FE40 :REM: system 6522 input/output register B
1340ifr=&FE4D :REM: system 6522 interrupt flag register
1350ier=&FE4E :REM: system 6522 interrupt enable register
1360FOR pass=4 TO 6 STEP 2
1370O%=mcode
1380P%=ioaddr
1390[OPT pass
1400CMP #&00 \ is this *CODE?
1410BEQ starcode
1420RTS \ return if *LINE
1430.starcode
1440LDX irq2v \ secondary interrupt vector, low byte
1450LDY irq2v+1 \ secondary interrupt vector, high byte
1460CPY #interrupt DIV 256 \ has the high byte been altered?
1470BEQ disable \ restore original vector if altered
1480STX oldirq2v \ store original vector, low byte
1490STY oldirq2v+1 \ store original vector, high byte
1500LDX #interrupt MOD 256 \ new interrupt code, low byte
1510LDY #interrupt DIV 256 \ new interrupt code, high byte
1520SEI \ set interrupt disable flag
1530STX irq2v \ alter vector, low byte
1540STY irq2v+1 \ alter vector, high byte
1550CLI \ clear interrupt disable flag
1560LDA #&88 \ %10001000
1570STA ier \ enable light pen interrupts
1580RTS
1590.disable
1600LDA #&08 \ %00001000 ready to disable light pen interrupts
1610LDX oldirq2v \ original irq2 vector, low byte
1620LDY oldirq2v+1 \ original irq2 vector, high byte
1630SEI \ set interrupt disable flag
1640STA ier \ disable light pen interrupt
1650STX irq2v \ restore original vector, low byte
1660STY irq2v+1 \ restore original vector, high byte
1670CLI \ clear interrupt disable flag
1680RTS
1690.exit
1700PLA \ pull interrupt accumulator save register
1710STA &FC \ restore interrupt accumulator save register
1720JMP (oldirq2v) \ exit via original vector
1730.interrupt
1740LDA &FC \ load interrupt accumulator save register
1750PHA \ and push it on the stack
1760LDA ifr \ load system VIA interrupt status
1770BPL exit \ exit if bit 7 clear
1780AND #&08 \ AND with %00001000
1790BEQ exit \ exit if not light pen interrupt
1800TXA
1810PHA
1820TYA
1830PHA
1840LDA drb \ clear interrupt
1850PHA \ push data register B
1860CLD \ clear decimal flag
1870LDY screen \ screen mode into Y register
1880LDA start \ screen start address, low byte
1890STA ycoord
1900LDA start+1 \ screen start address, high byte
1910STA ycoord+1
1920CPY #&07 \ is this mode 7?
1930BEQ mode7
1940LSR ycoord+1
1950ROR ycoord \ start address DIV 2
1960LSR ycoord+1
1970ROR ycoord \ start address DIV 4
1980LSR ycoord+1
1990ROR ycoord \ start address DIV 8
2000JMP continue \ skip mode 7 calculation
2010.mode7
2020SEC \ prepare for subtraction
2030LDA ycoord+1
2040SBC #&54
2050STA ycoord+1 \ subtract &5400 from start address
2060.continue
2070LDA offsetlow,Y
2080CLC \ prepare for addition
2090ADC ycoord \ add trim to offset
2100STA ycoord
2110LDA #&00
2120ADC ycoord+1
2130STA ycoord+1
2140SEC \ prepare to subtract offset from lp register
2150LDX #&11 \ light pen register, low byte
2160STX sheila \ 6845 address register
2170LDA sheila+1 \ 6845 data register
2180SBC ycoord \ subtract offset, low byte
2190STA ycoord \ low byte - offset
2200DEX \ X = &10, light pen register, high byte
2210STX sheila \ 6845 address register
2220LDA sheila+1 \ 6845 data register
2230SBC ycoord+1 \ subtract offset, high byte
2240STA ycoord+1 \ high byte - offset
2250LDA #&00 \ prepare for 16 bit division
2260STA xcoord \ clear low partial dividend
2270.next
2280ASL ycoord \ shift dividend/quotient left
2290ROL ycoord+1 \ shift dividend/quotient left
2300ROL xcoord \ shift bits into partial dividend
2310LDA xcoord \ load partial dividend
2320SEC \ prepare for subtraction
2330SBC width,Y \ subtract divisor
2340BCC done \ branch if dividend < divisor
2350INC ycoord \ increment quotient
2360STA xcoord \ save new partial dividend
2370.done
2380DEX \ decrement bit counter
2390BNE next \ branch for 16 bits
2400LDA scale,Y \ screen mode scale
2410BEQ pullout \ branch if modes 0, 3, 4, 6 or 7
2420TAX \ in mode1 and mode5 X=1, in mode2 X=2
2430LDA xcoord
2440.reduce
2450LSR A \ horizontal position / 2
2460DEX
2470BNE reduce
2480STA xcoord
2490.pullout
2500PLA \ pull data register B
2510AND #&20 \ %00100000
2520STA fire \ store fire button status
2530PLA
2540TAY
2550PLA
2560TAX
2570PLA
2580STA &FC
2590RTI \ return from interrupt
2600.oldirq2v
2610EQUW &00 \ original irq2 vector
2620.offsetlow
2630EQUB &04 \ mode0, untrimmed = &06
2640EQUB &04 \ mode1, untrimmed = &06
2650EQUB &04 \ mode2, untrimmed = &06
2660EQUB &04 \ mode3, untrimmed = &06
2670EQUB &03 \ mode4, untrimmed = &04
2680EQUB &03 \ mode5, untrimmed = &04
2690EQUB &03 \ mode6, untrimmed = &04
2700EQUB &06 \ mode7, untrimmed = &08
2710.scale
2720EQUD &00020100 \ modes 3-0
2730EQUD &00000100 \ modes 7-4
2740.width
2750EQUD &50505050 \ modes 3-0
2760EQUD &28282828 \ modes 7-4
2770.lastbyte
2780]
2790NEXT
2800end=mcode+(lastbyte-ioaddr)
2810addr=ioaddr
2820FOR byte=mcode TO end
2830PROCwrite(?byte,addr)
2840addr=addr+1
2850NEXT
2860PROCwrite((ioaddr MOD 256),userv)
2870PROCwrite((ioaddr DIV 256),userv+1)
2880PROCwrite(0,xcoord)
2890PROCwrite(0,ycoord)
2900*CODE
2910ENDPROC
2920:
2930DEFFNswitch
2940IF (ADVAL(0)AND3)=0 =TRUE ELSE =FALSE
�> SPINTER
osword=&FFF1
osbyte=&FFF4
(
A%=&EA
2X%=0
<
Y%=&FF
F.� (�(osbyte)�&FF00)�&100=0 host=� � host=�
P)� host � �>&1100 � �=&1100:�"SPINTER"
Z
� param 4
d� mcode &100
nxcoord=&70
xycoord=&71
�
�mcode
�!� �("CODE"):�23,1,1;0;0;0;:�
�
mode=0
� paper=6
� ink=4
�
� mode
� �newmode
��
� � �(-58) �up:� mode:�newmode
�"� �(-42) �down:� mode:�newmode
�� �(-56) �paper
�� �(-38) �ink
�� �(-26) �left
� �(-122) �right
� �(-74) �scroll:�delay
�13,1);�read(xcoord);" "
" �13,2);�read(ycoord);" "
,0� �switch �31,�read(xcoord),�read(ycoord),42
6� �
@:
J ��scroll
T#� (mode>5) � (mode=3) �0,24):�
^ �0,31)
h�
r:
|��up
�mode=mode+1
�� mode>7 mode=7
��
�:
�
��down
�mode=mode-1
�� mode<0 mode=0
��
�:
�
��left
� offset=�read(offsetlow+mode)
�� offset=12 �
�#�write(offset+1,offsetlow+mode)
�delay
�
:
& ��right
0 offset=�read(offsetlow+mode)
:� offset=0 �
D#�write(offset-1,offsetlow+mode)
N
�delay
X�
b:
l
��newmode
v�23,1,0;0;0;0;
�� mode=7 �seven:�
��19,0,paper;0;
��19,1,ink;0;
��1
�
�delay
��
�:
� ��delay
��3,0)"Mode ";mode;�(8)
�)�3,1)"X coord = ";�read(xcoord);�(3)
�)�3,2)"Y coord = ";�read(ycoord);�(3)
�.�3,3)"offsetlow = ";�read(offsetlow+mode)
�
time=�+20
� � time<�
�
:
��ink
*
ink=ink+1
4� ink=paper ink=ink+1
>� ink>7 ink=0
H�19,1,ink;0;
R� mode=7 �seven
\
�delay
f�
p:
z ��paper
�paper=paper+1
� � paper=ink paper=paper+1
�� paper>7 paper=1
��19,0,paper;0;
�� mode=7 �seven
�
�delay
��
�:
� ��seven
�� ink=0 ink=1
�� line=0 � 24
�I� paper=0 �31,0,line,128+ink,32,32 � �31,0,line,128+paper,157,128+ink
��
�delay
�
:
$��write(data,addr)
.� host ?addr=data:�
8!param=addr � &FFFF0000
Bparam?4=data
LA%=6
VX%=param � 256
`Y%=param � 256
j � osword
t�
~:
�ݤread(addr)
�� host =?addr
�!param=addr � &FFFF0000
�A%=5
�X%=param � 256
�Y%=param � 256
� � osword
� =param?4
�:
� ��mcode
�#fire=&72 :�: fire button status
� userv=&200 :�: user vector
-irq2v=&206 :�: secondary interrupt vector
'start=&350 :�: screen start address
&screen=&355 :�: screen mode OS 1.2
%ioaddr=&A00 :�: assemble for &A00
(sheila=&FE00
25drb=&FE40 :�: system 6522 input/output register B
<5ifr=&FE4D :�: system 6522 interrupt flag register
F7ier=&FE4E :�: system 6522 interrupt enable register
P� pass=4 � 6 � 2
Z O%=mcode
d
P%=ioaddr
n
[OPT pass
x CMP #&00 \ is this *CODE?
�BEQ starcode
�RTS \ return if *�
�
.starcode
�4LDX irq2v \ secondary interrupt vector, low byte
�7LDY irq2v+1 \ secondary interrupt vector, high byte
�:CPY #interrupt � 256 \ has the high byte been altered?
�4BEQ disable \ restore original vector if altered
�2STX oldirq2v \ store original vector, low byte
�5STY oldirq2v+1 \ store original vector, high byte
�7LDX #interrupt � 256 \ new interrupt code, low byte
�8LDY #interrupt � 256 \ new interrupt code, high byte
�$SEI \ set interrupt disable flag
�&STX irq2v \ alter vector, low byte
)STY irq2v+1 \ alter vector, high byte
&CLI \ clear interrupt disable flag
LDA #&88 \ %10001000
")STA ier \ enable light pen interrupts
,RTS
6 .disable
@>LDA #&08 \ %00001000 ready to disable light pen interrupts
J1LDX oldirq2v \ original irq2 vector, low byte
T4LDY oldirq2v+1 \ original irq2 vector, high byte
^$SEI \ set interrupt disable flag
h)STA ier \ disable light pen interrupt
r1STX irq2v \ restore original vector, low byte
|4STY irq2v+1 \ restore original vector, high byte
�&CLI \ clear interrupt disable flag
�RTS
� .exit
�2PLA \ pull interrupt accumulator save register
�9STA &FC \ restore interrupt accumulator save register
�-JMP (oldirq2v) \ exit via original vector
�.interrupt
�6LDA &FC \ load interrupt accumulator save register
�"PHA \ and push it on the stack
�.LDA ifr \ load system VIA interrupt status
�"BPL exit \ exit if bit 7 clear
� � #&08 \ � with %00001000
�.BEQ exit \ exit if not light pen interrupt
TXA
PHA
TYA
&PHA
0 LDA drb \ clear interrupt
: PHA \ push data register B
D CLD \ clear decimal flag
N,LDY screen \ screen mode into Y register
X.LDA start \ screen start address, low byte
bSTA ycoord
l1LDA start+1 \ screen start address, high byte
vSTA ycoord+1
� CPY #&07 \ is this mode 7?
�
BEQ mode7
�LSR ycoord+1
�"ROR ycoord \ start address � 2
�LSR ycoord+1
�"ROR ycoord \ start address � 4
�LSR ycoord+1
�"ROR ycoord \ start address � 8
�*JMP continue \ skip mode 7 calculation
�
.mode7
�!SEC \ prepare for subtraction
�LDA ycoord+1
� SBC #&54
4STA ycoord+1 \ subtract &5400 from start address
.continue
LDA offsetlow,Y
CLC \ prepare for addition
*#ADC ycoord \ add trim to offset
4STA ycoord
> LDA #&00
HADC ycoord+1
RSTA ycoord+1
\5SEC \ prepare to subtract offset from lp register
f+LDX #&11 \ light pen register, low byte
p&STX sheila \ 6845 address register
z%LDA sheila+1 \ 6845 data register
�*SBC ycoord \ subtract offset, low byte
�"STA ycoord \ low byte - offset
�0DEX \ X = &10, light pen register, high byte
�&STX sheila \ 6845 address register
�%LDA sheila+1 \ 6845 data register
�-SBC ycoord+1 \ subtract offset, high byte
�%STA ycoord+1 \ high byte - offset
�*LDA #&00 \ prepare for 16 bit division
�+STA xcoord \ clear low partial dividend
� .next
�-ASL ycoord \ shift dividend/quotient left
�/ROL ycoord+1 \ shift dividend/quotient left
�1ROL xcoord \ shift bits into partial dividend
&LDA xcoord \ load partial dividend
!SEC \ prepare for subtraction
"SBC width,Y \ subtract divisor
$+BCC done \ branch if dividend < divisor
.#INC ycoord \ increment quotient
8*STA xcoord \ save new partial dividend
B .done
L DEX \ decrement bit counter
V!BNE next \ branch for 16 bits
`#LDA scale,Y \ screen mode scale
j1BEQ pullout \ branch if modes 0, 3, 4, 6 or 7
t.TAX \ in mode1 and mode5 X=1, in mode2 X=2
~LDA xcoord
� .reduce
�#LSR A \ horizontal position / 2
�DEX
�BNE reduce
�STA xcoord
� .pullout
� PLA \ pull data register B
�� #&20 \ %00100000
�'STA fire \ store fire button status
�PLA
�TAY
�PLA
TAX
PLA
STA &FC
RTI \ return from interrupt
(
.oldirq2v
2#EQUW &00 \ original irq2 vector
<.offsetlow
F%EQUB &04 \ mode0, untrimmed = &06
P%EQUB &04 \ mode1, untrimmed = &06
Z%EQUB &04 \ mode2, untrimmed = &06
d%EQUB &04 \ mode3, untrimmed = &06
n%EQUB &03 \ mode4, untrimmed = &04
x%EQUB &03 \ mode5, untrimmed = &04
�%EQUB &03 \ mode6, untrimmed = &04
�%EQUB &06 \ mode7, untrimmed = &08
�
.scale
� EQUD &00020100 \ modes 3-0
� EQUD &00000100 \ modes 7-4
�
.width
� EQUD &50505050 \ modes 3-0
� EQUD &28282828 \ modes 7-4
�
.lastbyte
�]
��
� end=mcode+(lastbyte-ioaddr)
�addr=ioaddr
� byte=mcode � end
�write(?byte,addr)
addr=addr+1
"�
, �write((ioaddr � 256),userv)
6"�write((ioaddr � 256),userv+1)
@�write(0,xcoord)
J�write(0,ycoord)
T *CODE
^�
h:
r ݤswitch
|� (�(0)�3)=0 =� � =�
� 00000000 0d 00 0a 0e f4 3e 20 53 50 49 4e 54 45 52 0d 00 |.....> SPINTER..|
00000010 14 10 6f 73 77 6f 72 64 3d 26 46 46 46 31 0d 00 |..osword=&FFF1..|
00000020 1e 10 6f 73 62 79 74 65 3d 26 46 46 46 34 0d 00 |..osbyte=&FFF4..|
00000030 28 0a 41 25 3d 26 45 41 0d 00 32 08 58 25 3d 30 |(.A%=&EA..2.X%=0|
00000040 0d 00 3c 0a 59 25 3d 26 46 46 0d 00 46 2e e7 20 |..<.Y%=&FF..F.. |
00000050 28 ba 28 6f 73 62 79 74 65 29 80 26 46 46 30 30 |(.(osbyte).&FF00|
00000060 29 81 26 31 30 30 3d 30 20 68 6f 73 74 3d b9 20 |).&100=0 host=. |
00000070 8b 20 68 6f 73 74 3d a3 0d 00 50 29 e7 20 68 6f |. host=...P). ho|
00000080 73 74 20 e7 20 90 3e 26 31 31 30 30 20 8c 20 d0 |st . .>&1100 . .|
00000090 3d 26 31 31 30 30 3a d7 22 53 50 49 4e 54 45 52 |=&1100:."SPINTER|
000000a0 22 0d 00 5a 0d de 20 70 61 72 61 6d 20 34 0d 00 |"..Z.. param 4..|
000000b0 64 10 de 20 6d 63 6f 64 65 20 26 31 30 30 0d 00 |d.. mcode &100..|
000000c0 6e 0e 78 63 6f 6f 72 64 3d 26 37 30 0d 00 78 0e |n.xcoord=&70..x.|
000000d0 79 63 6f 6f 72 64 3d 26 37 31 0d 00 82 0a f2 6d |ycoord=&71.....m|
000000e0 63 6f 64 65 0d 00 8c 21 ee 85 20 ff 28 22 43 4f |code...!.. .("CO|
000000f0 44 45 22 29 3a ef 32 33 2c 31 2c 31 3b 30 3b 30 |DE"):.23,1,1;0;0|
00000100 3b 30 3b 3a e0 0d 00 96 0a 6d 6f 64 65 3d 30 0d |;0;:.....mode=0.|
00000110 00 a0 0b 70 61 70 65 72 3d 36 0d 00 aa 09 69 6e |...paper=6....in|
00000120 6b 3d 34 0d 00 b4 0a eb 20 6d 6f 64 65 0d 00 be |k=4..... mode...|
00000130 0c f2 6e 65 77 6d 6f 64 65 0d 00 c8 05 f5 0d 00 |..newmode.......|
00000140 d2 20 e7 20 a6 28 2d 35 38 29 20 f2 75 70 3a eb |. . .(-58) .up:.|
00000150 20 6d 6f 64 65 3a f2 6e 65 77 6d 6f 64 65 0d 00 | mode:.newmode..|
00000160 dc 22 e7 20 a6 28 2d 34 32 29 20 f2 64 6f 77 6e |.". .(-42) .down|
00000170 3a eb 20 6d 6f 64 65 3a f2 6e 65 77 6d 6f 64 65 |:. mode:.newmode|
00000180 0d 00 e6 13 e7 20 a6 28 2d 35 36 29 20 f2 70 61 |..... .(-56) .pa|
00000190 70 65 72 0d 00 f0 11 e7 20 a6 28 2d 33 38 29 20 |per..... .(-38) |
000001a0 f2 69 6e 6b 0d 00 fa 12 e7 20 a6 28 2d 32 36 29 |.ink..... .(-26)|
000001b0 20 f2 6c 65 66 74 0d 01 04 14 e7 20 a6 28 2d 31 | .left..... .(-1|
000001c0 32 32 29 20 f2 72 69 67 68 74 0d 01 0e 1b e7 20 |22) .right..... |
000001d0 a6 28 2d 37 34 29 20 f2 73 63 72 6f 6c 6c 3a f2 |.(-74) .scroll:.|
000001e0 64 65 6c 61 79 0d 01 18 1d f1 8a 31 33 2c 31 29 |delay......13,1)|
000001f0 3b a4 72 65 61 64 28 78 63 6f 6f 72 64 29 3b 22 |;.read(xcoord);"|
00000200 20 22 0d 01 22 1d f1 8a 31 33 2c 32 29 3b a4 72 | ".."...13,2);.r|
00000210 65 61 64 28 79 63 6f 6f 72 64 29 3b 22 20 22 0d |ead(ycoord);" ".|
00000220 01 2c 30 e7 20 a4 73 77 69 74 63 68 20 ef 33 31 |.,0. .switch .31|
00000230 2c a4 72 65 61 64 28 78 63 6f 6f 72 64 29 2c a4 |,.read(xcoord),.|
00000240 72 65 61 64 28 79 63 6f 6f 72 64 29 2c 34 32 0d |read(ycoord),42.|
00000250 01 36 07 fd 20 a3 0d 01 40 05 3a 0d 01 4a 0c dd |.6.. ...@.:..J..|
00000260 f2 73 63 72 6f 6c 6c 0d 01 54 23 e7 20 28 6d 6f |.scroll..T#. (mo|
00000270 64 65 3e 35 29 20 84 20 28 6d 6f 64 65 3d 33 29 |de>5) . (mode=3)|
00000280 20 f1 8a 30 2c 32 34 29 3a e1 0d 01 5e 0b f1 8a | ..0,24):...^...|
00000290 30 2c 33 31 29 0d 01 68 05 e1 0d 01 72 05 3a 0d |0,31)..h....r.:.|
000002a0 01 7c 08 dd f2 75 70 0d 01 86 0f 6d 6f 64 65 3d |.|...up....mode=|
000002b0 6d 6f 64 65 2b 31 0d 01 90 13 e7 20 6d 6f 64 65 |mode+1..... mode|
000002c0 3e 37 20 6d 6f 64 65 3d 37 0d 01 9a 05 e1 0d 01 |>7 mode=7.......|
000002d0 a4 05 3a 0d 01 ae 0a dd f2 64 6f 77 6e 0d 01 b8 |..:......down...|
000002e0 0f 6d 6f 64 65 3d 6d 6f 64 65 2d 31 0d 01 c2 13 |.mode=mode-1....|
000002f0 e7 20 6d 6f 64 65 3c 30 20 6d 6f 64 65 3d 30 0d |. mode<0 mode=0.|
00000300 01 cc 05 e1 0d 01 d6 05 3a 0d 01 e0 0a dd f2 6c |........:......l|
00000310 65 66 74 0d 01 ea 20 6f 66 66 73 65 74 3d a4 72 |eft... offset=.r|
00000320 65 61 64 28 6f 66 66 73 65 74 6c 6f 77 2b 6d 6f |ead(offsetlow+mo|
00000330 64 65 29 0d 01 f4 11 e7 20 6f 66 66 73 65 74 3d |de)..... offset=|
00000340 31 32 20 e1 0d 01 fe 23 f2 77 72 69 74 65 28 6f |12 ....#.write(o|
00000350 66 66 73 65 74 2b 31 2c 6f 66 66 73 65 74 6c 6f |ffset+1,offsetlo|
00000360 77 2b 6d 6f 64 65 29 0d 02 08 0a f2 64 65 6c 61 |w+mode).....dela|
00000370 79 0d 02 12 05 e1 0d 02 1c 05 3a 0d 02 26 0b dd |y.........:..&..|
00000380 f2 72 69 67 68 74 0d 02 30 20 6f 66 66 73 65 74 |.right..0 offset|
00000390 3d a4 72 65 61 64 28 6f 66 66 73 65 74 6c 6f 77 |=.read(offsetlow|
000003a0 2b 6d 6f 64 65 29 0d 02 3a 10 e7 20 6f 66 66 73 |+mode)..:.. offs|
000003b0 65 74 3d 30 20 e1 0d 02 44 23 f2 77 72 69 74 65 |et=0 ...D#.write|
000003c0 28 6f 66 66 73 65 74 2d 31 2c 6f 66 66 73 65 74 |(offset-1,offset|
000003d0 6c 6f 77 2b 6d 6f 64 65 29 0d 02 4e 0a f2 64 65 |low+mode)..N..de|
000003e0 6c 61 79 0d 02 58 05 e1 0d 02 62 05 3a 0d 02 6c |lay..X....b.:..l|
000003f0 0d dd f2 6e 65 77 6d 6f 64 65 0d 02 76 12 ef 32 |...newmode..v..2|
00000400 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 02 80 15 |3,1,0;0;0;0;....|
00000410 e7 20 6d 6f 64 65 3d 37 20 f2 73 65 76 65 6e 3a |. mode=7 .seven:|
00000420 e1 0d 02 8a 12 ef 31 39 2c 30 2c 70 61 70 65 72 |......19,0,paper|
00000430 3b 30 3b 0d 02 94 10 ef 31 39 2c 31 2c 69 6e 6b |;0;.....19,1,ink|
00000440 3b 30 3b 0d 02 9e 06 fb 31 0d 02 a8 0a f2 64 65 |;0;.....1.....de|
00000450 6c 61 79 0d 02 b2 05 e1 0d 02 bc 05 3a 0d 02 c6 |lay.........:...|
00000460 0b dd f2 64 65 6c 61 79 0d 02 d0 1b f1 8a 33 2c |...delay......3,|
00000470 30 29 22 4d 6f 64 65 20 22 3b 6d 6f 64 65 3b 89 |0)"Mode ";mode;.|
00000480 28 38 29 0d 02 da 29 f1 8a 33 2c 31 29 22 58 20 |(8)...)..3,1)"X |
00000490 63 6f 6f 72 64 20 3d 20 22 3b a4 72 65 61 64 28 |coord = ";.read(|
000004a0 78 63 6f 6f 72 64 29 3b 89 28 33 29 0d 02 e4 29 |xcoord);.(3)...)|
000004b0 f1 8a 33 2c 32 29 22 59 20 63 6f 6f 72 64 20 3d |..3,2)"Y coord =|
000004c0 20 22 3b a4 72 65 61 64 28 79 63 6f 6f 72 64 29 | ";.read(ycoord)|
000004d0 3b 89 28 33 29 0d 02 ee 2e f1 8a 33 2c 33 29 22 |;.(3)......3,3)"|
000004e0 6f 66 66 73 65 74 6c 6f 77 20 3d 20 22 3b a4 72 |offsetlow = ";.r|
000004f0 65 61 64 28 6f 66 66 73 65 74 6c 6f 77 2b 6d 6f |ead(offsetlow+mo|
00000500 64 65 29 0d 02 f8 0d 74 69 6d 65 3d 91 2b 32 30 |de)....time=.+20|
00000510 0d 03 02 0e f5 20 fd 20 74 69 6d 65 3c 91 0d 03 |..... . time<...|
00000520 0c 05 e1 0d 03 16 05 3a 0d 03 20 09 dd f2 69 6e |.......:.. ...in|
00000530 6b 0d 03 2a 0d 69 6e 6b 3d 69 6e 6b 2b 31 0d 03 |k..*.ink=ink+1..|
00000540 34 19 e7 20 69 6e 6b 3d 70 61 70 65 72 20 69 6e |4.. ink=paper in|
00000550 6b 3d 69 6e 6b 2b 31 0d 03 3e 11 e7 20 69 6e 6b |k=ink+1..>.. ink|
00000560 3e 37 20 69 6e 6b 3d 30 0d 03 48 10 ef 31 39 2c |>7 ink=0..H..19,|
00000570 31 2c 69 6e 6b 3b 30 3b 0d 03 52 13 e7 20 6d 6f |1,ink;0;..R.. mo|
00000580 64 65 3d 37 20 f2 73 65 76 65 6e 0d 03 5c 0a f2 |de=7 .seven..\..|
00000590 64 65 6c 61 79 0d 03 66 05 e1 0d 03 70 05 3a 0d |delay..f....p.:.|
000005a0 03 7a 0b dd f2 70 61 70 65 72 0d 03 84 11 70 61 |.z...paper....pa|
000005b0 70 65 72 3d 70 61 70 65 72 2b 31 0d 03 8e 1d e7 |per=paper+1.....|
000005c0 20 70 61 70 65 72 3d 69 6e 6b 20 70 61 70 65 72 | paper=ink paper|
000005d0 3d 70 61 70 65 72 2b 31 0d 03 98 15 e7 20 70 61 |=paper+1..... pa|
000005e0 70 65 72 3e 37 20 70 61 70 65 72 3d 31 0d 03 a2 |per>7 paper=1...|
000005f0 12 ef 31 39 2c 30 2c 70 61 70 65 72 3b 30 3b 0d |..19,0,paper;0;.|
00000600 03 ac 13 e7 20 6d 6f 64 65 3d 37 20 f2 73 65 76 |.... mode=7 .sev|
00000610 65 6e 0d 03 b6 0a f2 64 65 6c 61 79 0d 03 c0 05 |en.....delay....|
00000620 e1 0d 03 ca 05 3a 0d 03 d4 0b dd f2 73 65 76 65 |.....:......seve|
00000630 6e 0d 03 de 11 e7 20 69 6e 6b 3d 30 20 69 6e 6b |n..... ink=0 ink|
00000640 3d 31 0d 03 e8 11 e3 20 6c 69 6e 65 3d 30 20 b8 |=1..... line=0 .|
00000650 20 32 34 0d 03 f2 49 e7 20 70 61 70 65 72 3d 30 | 24...I. paper=0|
00000660 20 ef 33 31 2c 30 2c 6c 69 6e 65 2c 31 32 38 2b | .31,0,line,128+|
00000670 69 6e 6b 2c 33 32 2c 33 32 20 8b 20 ef 33 31 2c |ink,32,32 . .31,|
00000680 30 2c 6c 69 6e 65 2c 31 32 38 2b 70 61 70 65 72 |0,line,128+paper|
00000690 2c 31 35 37 2c 31 32 38 2b 69 6e 6b 0d 03 fc 05 |,157,128+ink....|
000006a0 ed 0d 04 06 0a f2 64 65 6c 61 79 0d 04 10 05 e1 |......delay.....|
000006b0 0d 04 1a 05 3a 0d 04 24 16 dd f2 77 72 69 74 65 |....:..$...write|
000006c0 28 64 61 74 61 2c 61 64 64 72 29 0d 04 2e 17 e7 |(data,addr).....|
000006d0 20 68 6f 73 74 20 3f 61 64 64 72 3d 64 61 74 61 | host ?addr=data|
000006e0 3a e1 0d 04 38 1b 21 70 61 72 61 6d 3d 61 64 64 |:...8.!param=add|
000006f0 72 20 84 20 26 46 46 46 46 30 30 30 30 0d 04 42 |r . &FFFF0000..B|
00000700 10 70 61 72 61 6d 3f 34 3d 64 61 74 61 0d 04 4c |.param?4=data..L|
00000710 08 41 25 3d 36 0d 04 56 12 58 25 3d 70 61 72 61 |.A%=6..V.X%=para|
00000720 6d 20 83 20 32 35 36 0d 04 60 12 59 25 3d 70 61 |m . 256..`.Y%=pa|
00000730 72 61 6d 20 81 20 32 35 36 0d 04 6a 0c d6 20 6f |ram . 256..j.. o|
00000740 73 77 6f 72 64 0d 04 74 05 e1 0d 04 7e 05 3a 0d |sword..t....~.:.|
00000750 04 88 10 dd a4 72 65 61 64 28 61 64 64 72 29 0d |.....read(addr).|
00000760 04 92 11 e7 20 68 6f 73 74 20 3d 3f 61 64 64 72 |.... host =?addr|
00000770 0d 04 9c 1b 21 70 61 72 61 6d 3d 61 64 64 72 20 |....!param=addr |
00000780 84 20 26 46 46 46 46 30 30 30 30 0d 04 a6 08 41 |. &FFFF0000....A|
00000790 25 3d 35 0d 04 b0 12 58 25 3d 70 61 72 61 6d 20 |%=5....X%=param |
000007a0 83 20 32 35 36 0d 04 ba 12 59 25 3d 70 61 72 61 |. 256....Y%=para|
000007b0 6d 20 81 20 32 35 36 0d 04 c4 0c d6 20 6f 73 77 |m . 256..... osw|
000007c0 6f 72 64 0d 04 ce 0c 3d 70 61 72 61 6d 3f 34 0d |ord....=param?4.|
000007d0 04 d8 05 3a 0d 04 e2 0b dd f2 6d 63 6f 64 65 0d |...:......mcode.|
000007e0 04 ec 23 66 69 72 65 3d 26 37 32 20 3a f4 3a 20 |..#fire=&72 :.: |
000007f0 66 69 72 65 20 62 75 74 74 6f 6e 20 73 74 61 74 |fire button stat|
00000800 75 73 0d 04 f6 1e 75 73 65 72 76 3d 26 32 30 30 |us....userv=&200|
00000810 20 3a f4 3a 20 75 73 65 72 20 76 65 63 74 6f 72 | :.: user vector|
00000820 0d 05 00 2d 69 72 71 32 76 3d 26 32 30 36 20 3a |...-irq2v=&206 :|
00000830 f4 3a 20 73 65 63 6f 6e 64 61 72 79 20 69 6e 74 |.: secondary int|
00000840 65 72 72 75 70 74 20 76 65 63 74 6f 72 0d 05 0a |errupt vector...|
00000850 27 73 74 61 72 74 3d 26 33 35 30 20 3a f4 3a 20 |'start=&350 :.: |
00000860 73 63 72 65 65 6e 20 73 74 61 72 74 20 61 64 64 |screen start add|
00000870 72 65 73 73 0d 05 14 26 73 63 72 65 65 6e 3d 26 |ress...&screen=&|
00000880 33 35 35 20 3a f4 3a 20 73 63 72 65 65 6e 20 6d |355 :.: screen m|
00000890 6f 64 65 20 4f 53 20 31 2e 32 0d 05 1e 25 69 6f |ode OS 1.2...%io|
000008a0 61 64 64 72 3d 26 41 30 30 20 3a f4 3a 20 61 73 |addr=&A00 :.: as|
000008b0 73 65 6d 62 6c 65 20 66 6f 72 20 26 41 30 30 0d |semble for &A00.|
000008c0 05 28 10 73 68 65 69 6c 61 3d 26 46 45 30 30 0d |.(.sheila=&FE00.|
000008d0 05 32 35 64 72 62 3d 26 46 45 34 30 20 3a f4 3a |.25drb=&FE40 :.:|
000008e0 20 73 79 73 74 65 6d 20 36 35 32 32 20 69 6e 70 | system 6522 inp|
000008f0 75 74 2f 6f 75 74 70 75 74 20 72 65 67 69 73 74 |ut/output regist|
00000900 65 72 20 42 0d 05 3c 35 69 66 72 3d 26 46 45 34 |er B..<5ifr=&FE4|
00000910 44 20 3a f4 3a 20 73 79 73 74 65 6d 20 36 35 32 |D :.: system 652|
00000920 32 20 69 6e 74 65 72 72 75 70 74 20 66 6c 61 67 |2 interrupt flag|
00000930 20 72 65 67 69 73 74 65 72 0d 05 46 37 69 65 72 | register..F7ier|
00000940 3d 26 46 45 34 45 20 3a f4 3a 20 73 79 73 74 65 |=&FE4E :.: syste|
00000950 6d 20 36 35 32 32 20 69 6e 74 65 72 72 75 70 74 |m 6522 interrupt|
00000960 20 65 6e 61 62 6c 65 20 72 65 67 69 73 74 65 72 | enable register|
00000970 0d 05 50 14 e3 20 70 61 73 73 3d 34 20 b8 20 36 |..P.. pass=4 . 6|
00000980 20 88 20 32 0d 05 5a 0c 4f 25 3d 6d 63 6f 64 65 | . 2..Z.O%=mcode|
00000990 0d 05 64 0d 50 25 3d 69 6f 61 64 64 72 0d 05 6e |..d.P%=ioaddr..n|
000009a0 0d 5b 4f 50 54 20 70 61 73 73 0d 05 78 1d 43 4d |.[OPT pass..x.CM|
000009b0 50 20 23 26 30 30 20 5c 20 69 73 20 74 68 69 73 |P #&00 \ is this|
000009c0 20 2a 43 4f 44 45 3f 0d 05 82 10 42 45 51 20 73 | *CODE?....BEQ s|
000009d0 74 61 72 63 6f 64 65 0d 05 8c 16 52 54 53 20 5c |tarcode....RTS \|
000009e0 20 72 65 74 75 72 6e 20 69 66 20 2a 86 0d 05 96 | return if *....|
000009f0 0d 2e 73 74 61 72 63 6f 64 65 0d 05 a0 34 4c 44 |..starcode...4LD|
00000a00 58 20 69 72 71 32 76 20 5c 20 73 65 63 6f 6e 64 |X irq2v \ second|
00000a10 61 72 79 20 69 6e 74 65 72 72 75 70 74 20 76 65 |ary interrupt ve|
00000a20 63 74 6f 72 2c 20 6c 6f 77 20 62 79 74 65 0d 05 |ctor, low byte..|
00000a30 aa 37 4c 44 59 20 69 72 71 32 76 2b 31 20 5c 20 |.7LDY irq2v+1 \ |
00000a40 73 65 63 6f 6e 64 61 72 79 20 69 6e 74 65 72 72 |secondary interr|
00000a50 75 70 74 20 76 65 63 74 6f 72 2c 20 68 69 67 68 |upt vector, high|
00000a60 20 62 79 74 65 0d 05 b4 3a 43 50 59 20 23 69 6e | byte...:CPY #in|
00000a70 74 65 72 72 75 70 74 20 81 20 32 35 36 20 5c 20 |terrupt . 256 \ |
00000a80 68 61 73 20 74 68 65 20 68 69 67 68 20 62 79 74 |has the high byt|
00000a90 65 20 62 65 65 6e 20 61 6c 74 65 72 65 64 3f 0d |e been altered?.|
00000aa0 05 be 34 42 45 51 20 64 69 73 61 62 6c 65 20 5c |..4BEQ disable \|
00000ab0 20 72 65 73 74 6f 72 65 20 6f 72 69 67 69 6e 61 | restore origina|
00000ac0 6c 20 76 65 63 74 6f 72 20 69 66 20 61 6c 74 65 |l vector if alte|
00000ad0 72 65 64 0d 05 c8 32 53 54 58 20 6f 6c 64 69 72 |red...2STX oldir|
00000ae0 71 32 76 20 5c 20 73 74 6f 72 65 20 6f 72 69 67 |q2v \ store orig|
00000af0 69 6e 61 6c 20 76 65 63 74 6f 72 2c 20 6c 6f 77 |inal vector, low|
00000b00 20 62 79 74 65 0d 05 d2 35 53 54 59 20 6f 6c 64 | byte...5STY old|
00000b10 69 72 71 32 76 2b 31 20 5c 20 73 74 6f 72 65 20 |irq2v+1 \ store |
00000b20 6f 72 69 67 69 6e 61 6c 20 76 65 63 74 6f 72 2c |original vector,|
00000b30 20 68 69 67 68 20 62 79 74 65 0d 05 dc 37 4c 44 | high byte...7LD|
00000b40 58 20 23 69 6e 74 65 72 72 75 70 74 20 83 20 32 |X #interrupt . 2|
00000b50 35 36 20 5c 20 6e 65 77 20 69 6e 74 65 72 72 75 |56 \ new interru|
00000b60 70 74 20 63 6f 64 65 2c 20 6c 6f 77 20 62 79 74 |pt code, low byt|
00000b70 65 0d 05 e6 38 4c 44 59 20 23 69 6e 74 65 72 72 |e...8LDY #interr|
00000b80 75 70 74 20 81 20 32 35 36 20 5c 20 6e 65 77 20 |upt . 256 \ new |
00000b90 69 6e 74 65 72 72 75 70 74 20 63 6f 64 65 2c 20 |interrupt code, |
00000ba0 68 69 67 68 20 62 79 74 65 0d 05 f0 24 53 45 49 |high byte...$SEI|
00000bb0 20 5c 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 | \ set interrupt|
00000bc0 20 64 69 73 61 62 6c 65 20 66 6c 61 67 0d 05 fa | disable flag...|
00000bd0 26 53 54 58 20 69 72 71 32 76 20 5c 20 61 6c 74 |&STX irq2v \ alt|
00000be0 65 72 20 76 65 63 74 6f 72 2c 20 6c 6f 77 20 62 |er vector, low b|
00000bf0 79 74 65 0d 06 04 29 53 54 59 20 69 72 71 32 76 |yte...)STY irq2v|
00000c00 2b 31 20 5c 20 61 6c 74 65 72 20 76 65 63 74 6f |+1 \ alter vecto|
00000c10 72 2c 20 68 69 67 68 20 62 79 74 65 0d 06 0e 26 |r, high byte...&|
00000c20 43 4c 49 20 5c 20 63 6c 65 61 72 20 69 6e 74 65 |CLI \ clear inte|
00000c30 72 72 75 70 74 20 64 69 73 61 62 6c 65 20 66 6c |rrupt disable fl|
00000c40 61 67 0d 06 18 18 4c 44 41 20 23 26 38 38 20 5c |ag....LDA #&88 \|
00000c50 20 25 31 30 30 30 31 30 30 30 0d 06 22 29 53 54 | %10001000..")ST|
00000c60 41 20 69 65 72 20 5c 20 65 6e 61 62 6c 65 20 6c |A ier \ enable l|
00000c70 69 67 68 74 20 70 65 6e 20 69 6e 74 65 72 72 75 |ight pen interru|
00000c80 70 74 73 0d 06 2c 07 52 54 53 0d 06 36 0c 2e 64 |pts..,.RTS..6..d|
00000c90 69 73 61 62 6c 65 0d 06 40 3e 4c 44 41 20 23 26 |isable..@>LDA #&|
00000ca0 30 38 20 5c 20 25 30 30 30 30 31 30 30 30 20 72 |08 \ %00001000 r|
00000cb0 65 61 64 79 20 74 6f 20 64 69 73 61 62 6c 65 20 |eady to disable |
00000cc0 6c 69 67 68 74 20 70 65 6e 20 69 6e 74 65 72 72 |light pen interr|
00000cd0 75 70 74 73 0d 06 4a 31 4c 44 58 20 6f 6c 64 69 |upts..J1LDX oldi|
00000ce0 72 71 32 76 20 5c 20 6f 72 69 67 69 6e 61 6c 20 |rq2v \ original |
00000cf0 69 72 71 32 20 76 65 63 74 6f 72 2c 20 6c 6f 77 |irq2 vector, low|
00000d00 20 62 79 74 65 0d 06 54 34 4c 44 59 20 6f 6c 64 | byte..T4LDY old|
00000d10 69 72 71 32 76 2b 31 20 5c 20 6f 72 69 67 69 6e |irq2v+1 \ origin|
00000d20 61 6c 20 69 72 71 32 20 76 65 63 74 6f 72 2c 20 |al irq2 vector, |
00000d30 68 69 67 68 20 62 79 74 65 0d 06 5e 24 53 45 49 |high byte..^$SEI|
00000d40 20 5c 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 | \ set interrupt|
00000d50 20 64 69 73 61 62 6c 65 20 66 6c 61 67 0d 06 68 | disable flag..h|
00000d60 29 53 54 41 20 69 65 72 20 5c 20 64 69 73 61 62 |)STA ier \ disab|
00000d70 6c 65 20 6c 69 67 68 74 20 70 65 6e 20 69 6e 74 |le light pen int|
00000d80 65 72 72 75 70 74 0d 06 72 31 53 54 58 20 69 72 |errupt..r1STX ir|
00000d90 71 32 76 20 5c 20 72 65 73 74 6f 72 65 20 6f 72 |q2v \ restore or|
00000da0 69 67 69 6e 61 6c 20 76 65 63 74 6f 72 2c 20 6c |iginal vector, l|
00000db0 6f 77 20 62 79 74 65 0d 06 7c 34 53 54 59 20 69 |ow byte..|4STY i|
00000dc0 72 71 32 76 2b 31 20 5c 20 72 65 73 74 6f 72 65 |rq2v+1 \ restore|
00000dd0 20 6f 72 69 67 69 6e 61 6c 20 76 65 63 74 6f 72 | original vector|
00000de0 2c 20 68 69 67 68 20 62 79 74 65 0d 06 86 26 43 |, high byte...&C|
00000df0 4c 49 20 5c 20 63 6c 65 61 72 20 69 6e 74 65 72 |LI \ clear inter|
00000e00 72 75 70 74 20 64 69 73 61 62 6c 65 20 66 6c 61 |rupt disable fla|
00000e10 67 0d 06 90 07 52 54 53 0d 06 9a 09 2e 65 78 69 |g....RTS.....exi|
00000e20 74 0d 06 a4 32 50 4c 41 20 5c 20 70 75 6c 6c 20 |t...2PLA \ pull |
00000e30 69 6e 74 65 72 72 75 70 74 20 61 63 63 75 6d 75 |interrupt accumu|
00000e40 6c 61 74 6f 72 20 73 61 76 65 20 72 65 67 69 73 |lator save regis|
00000e50 74 65 72 0d 06 ae 39 53 54 41 20 26 46 43 20 5c |ter...9STA &FC \|
00000e60 20 72 65 73 74 6f 72 65 20 69 6e 74 65 72 72 75 | restore interru|
00000e70 70 74 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 73 |pt accumulator s|
00000e80 61 76 65 20 72 65 67 69 73 74 65 72 0d 06 b8 2d |ave register...-|
00000e90 4a 4d 50 20 28 6f 6c 64 69 72 71 32 76 29 20 5c |JMP (oldirq2v) \|
00000ea0 20 65 78 69 74 20 76 69 61 20 6f 72 69 67 69 6e | exit via origin|
00000eb0 61 6c 20 76 65 63 74 6f 72 0d 06 c2 0e 2e 69 6e |al vector.....in|
00000ec0 74 65 72 72 75 70 74 0d 06 cc 36 4c 44 41 20 26 |terrupt...6LDA &|
00000ed0 46 43 20 5c 20 6c 6f 61 64 20 69 6e 74 65 72 72 |FC \ load interr|
00000ee0 75 70 74 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 |upt accumulator |
00000ef0 73 61 76 65 20 72 65 67 69 73 74 65 72 0d 06 d6 |save register...|
00000f00 22 50 48 41 20 5c 20 61 6e 64 20 70 75 73 68 20 |"PHA \ and push |
00000f10 69 74 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 0d |it on the stack.|
00000f20 06 e0 2e 4c 44 41 20 69 66 72 20 5c 20 6c 6f 61 |...LDA ifr \ loa|
00000f30 64 20 73 79 73 74 65 6d 20 56 49 41 20 69 6e 74 |d system VIA int|
00000f40 65 72 72 75 70 74 20 73 74 61 74 75 73 0d 06 ea |errupt status...|
00000f50 22 42 50 4c 20 65 78 69 74 20 5c 20 65 78 69 74 |"BPL exit \ exit|
00000f60 20 69 66 20 62 69 74 20 37 20 63 6c 65 61 72 0d | if bit 7 clear.|
00000f70 06 f4 1d 80 20 23 26 30 38 20 5c 20 80 20 77 69 |.... #&08 \ . wi|
00000f80 74 68 20 25 30 30 30 30 31 30 30 30 0d 06 fe 2e |th %00001000....|
00000f90 42 45 51 20 65 78 69 74 20 5c 20 65 78 69 74 20 |BEQ exit \ exit |
00000fa0 69 66 20 6e 6f 74 20 6c 69 67 68 74 20 70 65 6e |if not light pen|
00000fb0 20 69 6e 74 65 72 72 75 70 74 0d 07 08 07 54 58 | interrupt....TX|
00000fc0 41 0d 07 12 07 50 48 41 0d 07 1c 07 54 59 41 0d |A....PHA....TYA.|
00000fd0 07 26 07 50 48 41 0d 07 30 1d 4c 44 41 20 64 72 |.&.PHA..0.LDA dr|
00000fe0 62 20 5c 20 63 6c 65 61 72 20 69 6e 74 65 72 72 |b \ clear interr|
00000ff0 75 70 74 0d 07 3a 1e 50 48 41 20 5c 20 70 75 73 |upt..:.PHA \ pus|
00001000 68 20 64 61 74 61 20 72 65 67 69 73 74 65 72 20 |h data register |
00001010 42 0d 07 44 1c 43 4c 44 20 5c 20 63 6c 65 61 72 |B..D.CLD \ clear|
00001020 20 64 65 63 69 6d 61 6c 20 66 6c 61 67 0d 07 4e | decimal flag..N|
00001030 2c 4c 44 59 20 73 63 72 65 65 6e 20 5c 20 73 63 |,LDY screen \ sc|
00001040 72 65 65 6e 20 6d 6f 64 65 20 69 6e 74 6f 20 59 |reen mode into Y|
00001050 20 72 65 67 69 73 74 65 72 0d 07 58 2e 4c 44 41 | register..X.LDA|
00001060 20 73 74 61 72 74 20 5c 20 73 63 72 65 65 6e 20 | start \ screen |
00001070 73 74 61 72 74 20 61 64 64 72 65 73 73 2c 20 6c |start address, l|
00001080 6f 77 20 62 79 74 65 0d 07 62 0e 53 54 41 20 79 |ow byte..b.STA y|
00001090 63 6f 6f 72 64 0d 07 6c 31 4c 44 41 20 73 74 61 |coord..l1LDA sta|
000010a0 72 74 2b 31 20 5c 20 73 63 72 65 65 6e 20 73 74 |rt+1 \ screen st|
000010b0 61 72 74 20 61 64 64 72 65 73 73 2c 20 68 69 67 |art address, hig|
000010c0 68 20 62 79 74 65 0d 07 76 10 53 54 41 20 79 63 |h byte..v.STA yc|
000010d0 6f 6f 72 64 2b 31 0d 07 80 1e 43 50 59 20 23 26 |oord+1....CPY #&|
000010e0 30 37 20 5c 20 69 73 20 74 68 69 73 20 6d 6f 64 |07 \ is this mod|
000010f0 65 20 37 3f 0d 07 8a 0d 42 45 51 20 6d 6f 64 65 |e 7?....BEQ mode|
00001100 37 0d 07 94 10 4c 53 52 20 79 63 6f 6f 72 64 2b |7....LSR ycoord+|
00001110 31 0d 07 9e 22 52 4f 52 20 79 63 6f 6f 72 64 20 |1..."ROR ycoord |
00001120 5c 20 73 74 61 72 74 20 61 64 64 72 65 73 73 20 |\ start address |
00001130 81 20 32 0d 07 a8 10 4c 53 52 20 79 63 6f 6f 72 |. 2....LSR ycoor|
00001140 64 2b 31 0d 07 b2 22 52 4f 52 20 79 63 6f 6f 72 |d+1..."ROR ycoor|
00001150 64 20 5c 20 73 74 61 72 74 20 61 64 64 72 65 73 |d \ start addres|
00001160 73 20 81 20 34 0d 07 bc 10 4c 53 52 20 79 63 6f |s . 4....LSR yco|
00001170 6f 72 64 2b 31 0d 07 c6 22 52 4f 52 20 79 63 6f |ord+1..."ROR yco|
00001180 6f 72 64 20 5c 20 73 74 61 72 74 20 61 64 64 72 |ord \ start addr|
00001190 65 73 73 20 81 20 38 0d 07 d0 2a 4a 4d 50 20 63 |ess . 8...*JMP c|
000011a0 6f 6e 74 69 6e 75 65 20 5c 20 73 6b 69 70 20 6d |ontinue \ skip m|
000011b0 6f 64 65 20 37 20 63 61 6c 63 75 6c 61 74 69 6f |ode 7 calculatio|
000011c0 6e 0d 07 da 0a 2e 6d 6f 64 65 37 0d 07 e4 21 53 |n.....mode7...!S|
000011d0 45 43 20 5c 20 70 72 65 70 61 72 65 20 66 6f 72 |EC \ prepare for|
000011e0 20 73 75 62 74 72 61 63 74 69 6f 6e 0d 07 ee 10 | subtraction....|
000011f0 4c 44 41 20 79 63 6f 6f 72 64 2b 31 0d 07 f8 0c |LDA ycoord+1....|
00001200 53 42 43 20 23 26 35 34 0d 08 02 34 53 54 41 20 |SBC #&54...4STA |
00001210 79 63 6f 6f 72 64 2b 31 20 5c 20 73 75 62 74 72 |ycoord+1 \ subtr|
00001220 61 63 74 20 26 35 34 30 30 20 66 72 6f 6d 20 73 |act &5400 from s|
00001230 74 61 72 74 20 61 64 64 72 65 73 73 0d 08 0c 0d |tart address....|
00001240 2e 63 6f 6e 74 69 6e 75 65 0d 08 16 13 4c 44 41 |.continue....LDA|
00001250 20 6f 66 66 73 65 74 6c 6f 77 2c 59 0d 08 20 1e | offsetlow,Y.. .|
00001260 43 4c 43 20 5c 20 70 72 65 70 61 72 65 20 66 6f |CLC \ prepare fo|
00001270 72 20 61 64 64 69 74 69 6f 6e 0d 08 2a 23 41 44 |r addition..*#AD|
00001280 43 20 79 63 6f 6f 72 64 20 5c 20 61 64 64 20 74 |C ycoord \ add t|
00001290 72 69 6d 20 74 6f 20 6f 66 66 73 65 74 0d 08 34 |rim to offset..4|
000012a0 0e 53 54 41 20 79 63 6f 6f 72 64 0d 08 3e 0c 4c |.STA ycoord..>.L|
000012b0 44 41 20 23 26 30 30 0d 08 48 10 41 44 43 20 79 |DA #&00..H.ADC y|
000012c0 63 6f 6f 72 64 2b 31 0d 08 52 10 53 54 41 20 79 |coord+1..R.STA y|
000012d0 63 6f 6f 72 64 2b 31 0d 08 5c 35 53 45 43 20 5c |coord+1..\5SEC \|
000012e0 20 70 72 65 70 61 72 65 20 74 6f 20 73 75 62 74 | prepare to subt|
000012f0 72 61 63 74 20 6f 66 66 73 65 74 20 66 72 6f 6d |ract offset from|
00001300 20 6c 70 20 72 65 67 69 73 74 65 72 0d 08 66 2b | lp register..f+|
00001310 4c 44 58 20 23 26 31 31 20 5c 20 6c 69 67 68 74 |LDX #&11 \ light|
00001320 20 70 65 6e 20 72 65 67 69 73 74 65 72 2c 20 6c | pen register, l|
00001330 6f 77 20 62 79 74 65 0d 08 70 26 53 54 58 20 73 |ow byte..p&STX s|
00001340 68 65 69 6c 61 20 5c 20 36 38 34 35 20 61 64 64 |heila \ 6845 add|
00001350 72 65 73 73 20 72 65 67 69 73 74 65 72 0d 08 7a |ress register..z|
00001360 25 4c 44 41 20 73 68 65 69 6c 61 2b 31 20 5c 20 |%LDA sheila+1 \ |
00001370 36 38 34 35 20 64 61 74 61 20 72 65 67 69 73 74 |6845 data regist|
00001380 65 72 0d 08 84 2a 53 42 43 20 79 63 6f 6f 72 64 |er...*SBC ycoord|
00001390 20 5c 20 73 75 62 74 72 61 63 74 20 6f 66 66 73 | \ subtract offs|
000013a0 65 74 2c 20 6c 6f 77 20 62 79 74 65 0d 08 8e 22 |et, low byte..."|
000013b0 53 54 41 20 79 63 6f 6f 72 64 20 5c 20 6c 6f 77 |STA ycoord \ low|
000013c0 20 62 79 74 65 20 2d 20 6f 66 66 73 65 74 0d 08 | byte - offset..|
000013d0 98 30 44 45 58 20 5c 20 58 20 3d 20 26 31 30 2c |.0DEX \ X = &10,|
000013e0 20 6c 69 67 68 74 20 70 65 6e 20 72 65 67 69 73 | light pen regis|
000013f0 74 65 72 2c 20 68 69 67 68 20 62 79 74 65 0d 08 |ter, high byte..|
00001400 a2 26 53 54 58 20 73 68 65 69 6c 61 20 5c 20 36 |.&STX sheila \ 6|
00001410 38 34 35 20 61 64 64 72 65 73 73 20 72 65 67 69 |845 address regi|
00001420 73 74 65 72 0d 08 ac 25 4c 44 41 20 73 68 65 69 |ster...%LDA shei|
00001430 6c 61 2b 31 20 5c 20 36 38 34 35 20 64 61 74 61 |la+1 \ 6845 data|
00001440 20 72 65 67 69 73 74 65 72 0d 08 b6 2d 53 42 43 | register...-SBC|
00001450 20 79 63 6f 6f 72 64 2b 31 20 5c 20 73 75 62 74 | ycoord+1 \ subt|
00001460 72 61 63 74 20 6f 66 66 73 65 74 2c 20 68 69 67 |ract offset, hig|
00001470 68 20 62 79 74 65 0d 08 c0 25 53 54 41 20 79 63 |h byte...%STA yc|
00001480 6f 6f 72 64 2b 31 20 5c 20 68 69 67 68 20 62 79 |oord+1 \ high by|
00001490 74 65 20 2d 20 6f 66 66 73 65 74 0d 08 ca 2a 4c |te - offset...*L|
000014a0 44 41 20 23 26 30 30 20 5c 20 70 72 65 70 61 72 |DA #&00 \ prepar|
000014b0 65 20 66 6f 72 20 31 36 20 62 69 74 20 64 69 76 |e for 16 bit div|
000014c0 69 73 69 6f 6e 0d 08 d4 2b 53 54 41 20 78 63 6f |ision...+STA xco|
000014d0 6f 72 64 20 5c 20 63 6c 65 61 72 20 6c 6f 77 20 |ord \ clear low |
000014e0 70 61 72 74 69 61 6c 20 64 69 76 69 64 65 6e 64 |partial dividend|
000014f0 0d 08 de 09 2e 6e 65 78 74 0d 08 e8 2d 41 53 4c |.....next...-ASL|
00001500 20 79 63 6f 6f 72 64 20 5c 20 73 68 69 66 74 20 | ycoord \ shift |
00001510 64 69 76 69 64 65 6e 64 2f 71 75 6f 74 69 65 6e |dividend/quotien|
00001520 74 20 6c 65 66 74 0d 08 f2 2f 52 4f 4c 20 79 63 |t left.../ROL yc|
00001530 6f 6f 72 64 2b 31 20 5c 20 73 68 69 66 74 20 64 |oord+1 \ shift d|
00001540 69 76 69 64 65 6e 64 2f 71 75 6f 74 69 65 6e 74 |ividend/quotient|
00001550 20 6c 65 66 74 0d 08 fc 31 52 4f 4c 20 78 63 6f | left...1ROL xco|
00001560 6f 72 64 20 5c 20 73 68 69 66 74 20 62 69 74 73 |ord \ shift bits|
00001570 20 69 6e 74 6f 20 70 61 72 74 69 61 6c 20 64 69 | into partial di|
00001580 76 69 64 65 6e 64 0d 09 06 26 4c 44 41 20 78 63 |vidend...&LDA xc|
00001590 6f 6f 72 64 20 5c 20 6c 6f 61 64 20 70 61 72 74 |oord \ load part|
000015a0 69 61 6c 20 64 69 76 69 64 65 6e 64 0d 09 10 21 |ial dividend...!|
000015b0 53 45 43 20 5c 20 70 72 65 70 61 72 65 20 66 6f |SEC \ prepare fo|
000015c0 72 20 73 75 62 74 72 61 63 74 69 6f 6e 0d 09 1a |r subtraction...|
000015d0 22 53 42 43 20 77 69 64 74 68 2c 59 20 5c 20 73 |"SBC width,Y \ s|
000015e0 75 62 74 72 61 63 74 20 64 69 76 69 73 6f 72 0d |ubtract divisor.|
000015f0 09 24 2b 42 43 43 20 64 6f 6e 65 20 5c 20 62 72 |.$+BCC done \ br|
00001600 61 6e 63 68 20 69 66 20 64 69 76 69 64 65 6e 64 |anch if dividend|
00001610 20 3c 20 64 69 76 69 73 6f 72 0d 09 2e 23 49 4e | < divisor...#IN|
00001620 43 20 79 63 6f 6f 72 64 20 5c 20 69 6e 63 72 65 |C ycoord \ incre|
00001630 6d 65 6e 74 20 71 75 6f 74 69 65 6e 74 0d 09 38 |ment quotient..8|
00001640 2a 53 54 41 20 78 63 6f 6f 72 64 20 5c 20 73 61 |*STA xcoord \ sa|
00001650 76 65 20 6e 65 77 20 70 61 72 74 69 61 6c 20 64 |ve new partial d|
00001660 69 76 69 64 65 6e 64 0d 09 42 09 2e 64 6f 6e 65 |ividend..B..done|
00001670 0d 09 4c 1f 44 45 58 20 5c 20 64 65 63 72 65 6d |..L.DEX \ decrem|
00001680 65 6e 74 20 62 69 74 20 63 6f 75 6e 74 65 72 0d |ent bit counter.|
00001690 09 56 21 42 4e 45 20 6e 65 78 74 20 5c 20 62 72 |.V!BNE next \ br|
000016a0 61 6e 63 68 20 66 6f 72 20 31 36 20 62 69 74 73 |anch for 16 bits|
000016b0 0d 09 60 23 4c 44 41 20 73 63 61 6c 65 2c 59 20 |..`#LDA scale,Y |
000016c0 5c 20 73 63 72 65 65 6e 20 6d 6f 64 65 20 73 63 |\ screen mode sc|
000016d0 61 6c 65 0d 09 6a 31 42 45 51 20 70 75 6c 6c 6f |ale..j1BEQ pullo|
000016e0 75 74 20 5c 20 62 72 61 6e 63 68 20 69 66 20 6d |ut \ branch if m|
000016f0 6f 64 65 73 20 30 2c 20 33 2c 20 34 2c 20 36 20 |odes 0, 3, 4, 6 |
00001700 6f 72 20 37 0d 09 74 2e 54 41 58 20 5c 20 69 6e |or 7..t.TAX \ in|
00001710 20 6d 6f 64 65 31 20 61 6e 64 20 6d 6f 64 65 35 | mode1 and mode5|
00001720 20 58 3d 31 2c 20 69 6e 20 6d 6f 64 65 32 20 58 | X=1, in mode2 X|
00001730 3d 32 0d 09 7e 0e 4c 44 41 20 78 63 6f 6f 72 64 |=2..~.LDA xcoord|
00001740 0d 09 88 0b 2e 72 65 64 75 63 65 0d 09 92 23 4c |.....reduce...#L|
00001750 53 52 20 41 20 5c 20 68 6f 72 69 7a 6f 6e 74 61 |SR A \ horizonta|
00001760 6c 20 70 6f 73 69 74 69 6f 6e 20 2f 20 32 0d 09 |l position / 2..|
00001770 9c 07 44 45 58 0d 09 a6 0e 42 4e 45 20 72 65 64 |..DEX....BNE red|
00001780 75 63 65 0d 09 b0 0e 53 54 41 20 78 63 6f 6f 72 |uce....STA xcoor|
00001790 64 0d 09 ba 0c 2e 70 75 6c 6c 6f 75 74 0d 09 c4 |d.....pullout...|
000017a0 1e 50 4c 41 20 5c 20 70 75 6c 6c 20 64 61 74 61 |.PLA \ pull data|
000017b0 20 72 65 67 69 73 74 65 72 20 42 0d 09 ce 16 80 | register B.....|
000017c0 20 23 26 32 30 20 5c 20 25 30 30 31 30 30 30 30 | #&20 \ %0010000|
000017d0 30 0d 09 d8 27 53 54 41 20 66 69 72 65 20 5c 20 |0...'STA fire \ |
000017e0 73 74 6f 72 65 20 66 69 72 65 20 62 75 74 74 6f |store fire butto|
000017f0 6e 20 73 74 61 74 75 73 0d 09 e2 07 50 4c 41 0d |n status....PLA.|
00001800 09 ec 07 54 41 59 0d 09 f6 07 50 4c 41 0d 0a 00 |...TAY....PLA...|
00001810 07 54 41 58 0d 0a 0a 07 50 4c 41 0d 0a 14 0b 53 |.TAX....PLA....S|
00001820 54 41 20 26 46 43 0d 0a 1e 1f 52 54 49 20 5c 20 |TA &FC....RTI \ |
00001830 72 65 74 75 72 6e 20 66 72 6f 6d 20 69 6e 74 65 |return from inte|
00001840 72 72 75 70 74 0d 0a 28 0d 2e 6f 6c 64 69 72 71 |rrupt..(..oldirq|
00001850 32 76 0d 0a 32 23 45 51 55 57 20 26 30 30 20 5c |2v..2#EQUW &00 \|
00001860 20 6f 72 69 67 69 6e 61 6c 20 69 72 71 32 20 76 | original irq2 v|
00001870 65 63 74 6f 72 0d 0a 3c 0e 2e 6f 66 66 73 65 74 |ector..<..offset|
00001880 6c 6f 77 0d 0a 46 25 45 51 55 42 20 26 30 34 20 |low..F%EQUB &04 |
00001890 5c 20 6d 6f 64 65 30 2c 20 75 6e 74 72 69 6d 6d |\ mode0, untrimm|
000018a0 65 64 20 3d 20 26 30 36 0d 0a 50 25 45 51 55 42 |ed = &06..P%EQUB|
000018b0 20 26 30 34 20 5c 20 6d 6f 64 65 31 2c 20 75 6e | &04 \ mode1, un|
000018c0 74 72 69 6d 6d 65 64 20 3d 20 26 30 36 0d 0a 5a |trimmed = &06..Z|
000018d0 25 45 51 55 42 20 26 30 34 20 5c 20 6d 6f 64 65 |%EQUB &04 \ mode|
000018e0 32 2c 20 75 6e 74 72 69 6d 6d 65 64 20 3d 20 26 |2, untrimmed = &|
000018f0 30 36 0d 0a 64 25 45 51 55 42 20 26 30 34 20 5c |06..d%EQUB &04 \|
00001900 20 6d 6f 64 65 33 2c 20 75 6e 74 72 69 6d 6d 65 | mode3, untrimme|
00001910 64 20 3d 20 26 30 36 0d 0a 6e 25 45 51 55 42 20 |d = &06..n%EQUB |
00001920 26 30 33 20 5c 20 6d 6f 64 65 34 2c 20 75 6e 74 |&03 \ mode4, unt|
00001930 72 69 6d 6d 65 64 20 3d 20 26 30 34 0d 0a 78 25 |rimmed = &04..x%|
00001940 45 51 55 42 20 26 30 33 20 5c 20 6d 6f 64 65 35 |EQUB &03 \ mode5|
00001950 2c 20 75 6e 74 72 69 6d 6d 65 64 20 3d 20 26 30 |, untrimmed = &0|
00001960 34 0d 0a 82 25 45 51 55 42 20 26 30 33 20 5c 20 |4...%EQUB &03 \ |
00001970 6d 6f 64 65 36 2c 20 75 6e 74 72 69 6d 6d 65 64 |mode6, untrimmed|
00001980 20 3d 20 26 30 34 0d 0a 8c 25 45 51 55 42 20 26 | = &04...%EQUB &|
00001990 30 36 20 5c 20 6d 6f 64 65 37 2c 20 75 6e 74 72 |06 \ mode7, untr|
000019a0 69 6d 6d 65 64 20 3d 20 26 30 38 0d 0a 96 0a 2e |immed = &08.....|
000019b0 73 63 61 6c 65 0d 0a a0 1e 45 51 55 44 20 26 30 |scale....EQUD &0|
000019c0 30 30 32 30 31 30 30 20 5c 20 6d 6f 64 65 73 20 |0020100 \ modes |
000019d0 33 2d 30 0d 0a aa 1e 45 51 55 44 20 26 30 30 30 |3-0....EQUD &000|
000019e0 30 30 31 30 30 20 5c 20 6d 6f 64 65 73 20 37 2d |00100 \ modes 7-|
000019f0 34 0d 0a b4 0a 2e 77 69 64 74 68 0d 0a be 1e 45 |4.....width....E|
00001a00 51 55 44 20 26 35 30 35 30 35 30 35 30 20 5c 20 |QUD &50505050 \ |
00001a10 6d 6f 64 65 73 20 33 2d 30 0d 0a c8 1e 45 51 55 |modes 3-0....EQU|
00001a20 44 20 26 32 38 32 38 32 38 32 38 20 5c 20 6d 6f |D &28282828 \ mo|
00001a30 64 65 73 20 37 2d 34 0d 0a d2 0d 2e 6c 61 73 74 |des 7-4.....last|
00001a40 62 79 74 65 0d 0a dc 05 5d 0d 0a e6 05 ed 0d 0a |byte....].......|
00001a50 f0 1f 65 6e 64 3d 6d 63 6f 64 65 2b 28 6c 61 73 |..end=mcode+(las|
00001a60 74 62 79 74 65 2d 69 6f 61 64 64 72 29 0d 0a fa |tbyte-ioaddr)...|
00001a70 0f 61 64 64 72 3d 69 6f 61 64 64 72 0d 0b 04 16 |.addr=ioaddr....|
00001a80 e3 20 62 79 74 65 3d 6d 63 6f 64 65 20 b8 20 65 |. byte=mcode . e|
00001a90 6e 64 0d 0b 0e 16 f2 77 72 69 74 65 28 3f 62 79 |nd.....write(?by|
00001aa0 74 65 2c 61 64 64 72 29 0d 0b 18 0f 61 64 64 72 |te,addr)....addr|
00001ab0 3d 61 64 64 72 2b 31 0d 0b 22 05 ed 0d 0b 2c 20 |=addr+1.."...., |
00001ac0 f2 77 72 69 74 65 28 28 69 6f 61 64 64 72 20 83 |.write((ioaddr .|
00001ad0 20 32 35 36 29 2c 75 73 65 72 76 29 0d 0b 36 22 | 256),userv)..6"|
00001ae0 f2 77 72 69 74 65 28 28 69 6f 61 64 64 72 20 81 |.write((ioaddr .|
00001af0 20 32 35 36 29 2c 75 73 65 72 76 2b 31 29 0d 0b | 256),userv+1)..|
00001b00 40 14 f2 77 72 69 74 65 28 30 2c 78 63 6f 6f 72 |@..write(0,xcoor|
00001b10 64 29 0d 0b 4a 14 f2 77 72 69 74 65 28 30 2c 79 |d)..J..write(0,y|
00001b20 63 6f 6f 72 64 29 0d 0b 54 09 2a 43 4f 44 45 0d |coord)..T.*CODE.|
00001b30 0b 5e 05 e1 0d 0b 68 05 3a 0d 0b 72 0c dd a4 73 |.^....h.:..r...s|
00001b40 77 69 74 63 68 0d 0b 7c 18 e7 20 28 96 28 30 29 |witch..|.. (.(0)|
00001b50 80 33 29 3d 30 20 3d b9 20 8b 20 3d a3 0d ff |.3)=0 =. . =...|
00001b5f 
04-02-89/SPinter.m0
04-02-89/SPinter.m1
04-02-89/SPinter.m2
04-02-89/SPinter.m4
04-02-89/SPinter.m5
.