Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape20a_acorn_eu_1991_march.wav » PadSrce

PadSrce

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape20a_acorn_eu_1991_march.wav
Filename: PadSrce
Read OK:
File size: 0A98 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM Cumana Touch Pad Utility
   20REM By Carl Dunkley
   30REM (c) The Micro User
   40MODE4
   50VDU23,1,0;0;0;0;0;
   60PROCassemble
   70PROCdemo
   80END
   90:
  100DEFPROCdemo
  110xscale=1280/160
  120PROCreset
  130REPEAT
  140PROCdraw
  150UNTIL0 
  160ENDPROC
  170:
  180DEFPROCreset
  190CLS
  200GCOL3,1
  210PLOT69,0,0
  220draw=FALSE
  230A%=0:B%=0
  240ENDPROC
  250:
  260DEFPROCdraw
  270IFINKEY-99PROCreset
  280CALLpad
  290IFU%ORD% draw=TRUE:GCOL0,1
  300IFNOTP% draw=FALSE:GCOL3,1:ENDPROC
  310PLOT69,A%,B% 
  320Y%=1024*(999-Y%)/1000
  330X%=1280*X%/1000
  340IFABS(X%-A%)<xscale X%=A%
  350IFABS(Y%-B%)<4 Y%=B% 
  360IFdraw DRAWX%,Y% ELSEPLOT69,X%,Y%
  370A%=X%:B%=Y%
  380ENDPROC
  390:
  400DEFPROCassemble
  410osrdch=&FFE0:oswrch=&FFEE
  420osbyte=&FFF4:code=&C00
  430FOR L%=0TO2STEP2
  440P%=code:[OPT L%
  450.pad
  460\clear D%,P%,U%,X% and Y%
  470LDY #&10:JSR clear_var
  480LDY #&40:JSR clear_var
  490LDY #&54:JSR clear_var
  500LDY #&60:JSR clear_var
  510LDY #&64:JSR clear_var
  520\set RS232 input stream
  530LDA #2:LDX #1:LDY #0:JSR osbyte
  540LDA #3:LDX #7:LDY #0:JSR osbyte
  550LDA #27:JSR oswrch
  560LDA #51:JSR oswrch 
  570\read unused header bytes
  580JSR osrdch:JSR osrdch
  590\-------------------
  600\read first char
  610JSR read:TAX
  620\read second char
  630JSR read:CMP #12:BEQ set_flags
  640\combine first and second chars
  650CLC
  660.loop0
  670ADC#10:DEX:BNE loop0
  680TAX:JSR osrdch:\ read newline
  690\set P%,U% and D% flags as necessary
  700.set_flags
  710\check pen down?
  720TXA:AND #1:BEQ not_pen
  730LDY #&40:JSR set_var
  740\check for up button pressed
  750.not_pen
  760TXA:AND #8:BEQ not_up
  770LDY #&54:JSR set_var
  780.not_up
  790\check for down button pressed
  800TXA:AND #16:BEQ not_down
  810LDY #&10:JSR set_var
  820.not_down
  830\-------------------
  840\calculate X% and Y%
  850LDX #0:JSR convert
  860LDX #4:JSR convert
  870\re-set input stream
  880LDA #2:LDX #0:LDY #0:JSR osbyte
  890LDA #3:LDX #0:LDY #0:JMP osbyte
  900\-------------------
  910\subroutines
  920\-------------------
  930\convert a 3 char string read from
  940\RS232 port (ie.010,123,999) to a number
  950.convert
  960JSR read:BEQ no_100s
  970TAY:LDA #100:JSR mult
  980.no_100s
  990JSR read:BEQ no_10s
 1000TAY:LDA #10:JSR mult
 1010.no_10s
 1020JSR read:BEQ not_1s
 1030TAY:LDA #1:JSR mult
 1040.not_1s
 1050JMP osrdch:\ read newline + return
 1060\-------------------
 1070\load an integer variable
 1080.clear_var
 1090LDA #0
 1100BEQ load
 1110.set_var
 1120LDA #255
 1130.load
 1140STA&400,Y
 1150STA&401,Y
 1160STA&402,Y
 1170STA&403,Y
 1180RTS
 1190\-------------------
 1200\read RS232 port
 1210.read
 1220JSR osrdch
 1230AND #207
 1240RTS
 1250\-------------------
 1260\multiplication subroutine
 1270.mult
 1280STA&70
 1290.loop1
 1300CLC
 1310LDA &70
 1320ADC &460,X
 1330STA&460,X
 1340BCCno_carry
 1350INC&461,X
 1360.no_carry
 1370DEY:BNEloop1
 1380RTS
 1390\-------------------
 1400]:NEXT
 1410PRINT"Save code? (y/n) ";
 1420REPEAT I%=INSTR("YyNn",GET$)
 1430UNTIL I%:IF I%<3 PROCsave
 1440ENDPROC
 1450:
 1460DEFPROCsave
 1470$&700="SAVE PadCode "+STR$~code+" "+STR$~P%
 1480Y%=7:X%=0:CALL&FFF7:ENDPROC

� Cumana Touch Pad Utility
� By Carl Dunkley
� (c) The Micro User
(�4
2�23,1,0;0;0;0;0;
<
�assemble
F	�demo
P�
Z:
d
��demo
nxscale=1280/160
x
�reset
��
�	�draw
��0 
��
�:
���reset
��
��3,1
��69,0,0
�
draw=�
�
A%=0:B%=0
��
�:

��draw
�-99�reset
�pad
"�U%�D% draw=�:�0,1
,�P% draw=�:�3,1:�
6�69,A%,B% 
@Y%=1024*(999-Y%)/1000
JX%=1280*X%/1000
T�(X%-A%)<xscale X%=A%
^�(Y%-B%)<4 Y%=B% 
h�draw �X%,Y% ��69,X%,Y%
rA%=X%:B%=Y%
|�
�:
���assemble
�osrdch=&FFE0:oswrch=&FFEE
�osbyte=&FFF4:code=&C00
�� L%=0�2�2
�P%=code:[OPT L%
�.pad
�\clear D%,P%,U%,X% and Y%
�LDY #&10:JSR clear_var
�LDY #&40:JSR clear_var
�LDY #&54:JSR clear_var
�LDY #&60:JSR clear_var
�LDY #&64:JSR clear_var
\set RS232 input stream
#LDA #2:LDX #1:LDY #0:JSR osbyte
#LDA #3:LDX #7:LDY #0:JSR osbyte
&LDA #27:JSR oswrch
0LDA #51:JSR oswrch 
:\read unused header bytes
DJSR osrdch:JSR osrdch
N\-------------------
X\read first char
bJSR read:TAX
l\read second char
v"JSR read:CMP #12:BEQ set_flags
�#\combine first and second chars
�CLC
�
.loop0
�ADC#10:DEX:BNE loop0
�!TAX:JSR osrdch:\ read newline
�(\set P%,U% and D% flags as necessary
�.set_flags
�\check pen down?
�TXA:� #1:BEQ not_pen
�LDY #&40:JSR set_var
� \check for up button pressed
�.not_pen
�TXA:� #8:BEQ not_up
LDY #&54:JSR set_var
.not_up
"\check for down button pressed
 TXA:� #16:BEQ not_down
*LDY #&10:JSR set_var
4
.not_down
>\-------------------
H\calculate X% and Y%
RLDX #0:JSR convert
\LDX #4:JSR convert
f\re-set input stream
p#LDA #2:LDX #0:LDY #0:JSR osbyte
z#LDA #3:LDX #0:LDY #0:JMP osbyte
�\-------------------
�\subroutines
�\-------------------
�&\convert a 3 char string read from
�,\RS232 port (ie.010,123,999) to a number
�.convert
�JSR read:BEQ no_100s
�TAY:LDA #100:JSR mult
�.no_100s
�JSR read:BEQ no_10s
�TAY:LDA #10:JSR mult
�.no_10s
�JSR read:BEQ not_1s
TAY:LDA #1:JSR mult
.not_1s
&JMP osrdch:\ read newline + return
$\-------------------
.\load an integer variable
8.clear_var
B
LDA #0
LBEQ load
V.set_var
`LDA #255
j	.load
t
STA&400,Y
~
STA&401,Y
�
STA&402,Y
�
STA&403,Y
�RTS
�\-------------------
�\read RS232 port
�	.read
�JSR osrdch
�
� #207
�RTS
�\-------------------
�\multiplication subroutine
�	.mult

STA&70


.loop1
CLC
LDA &70
(ADC &460,X
2
STA&460,X
<BCCno_carry
F
INC&461,X
P
.no_carry
ZDEY:BNEloop1
dRTS
n\-------------------
x]:�
��"Save code? (y/n) ";
�� I%=�"YyNn",�)
�� I%:� I%<3 �save
��
�:
�
��save
�)$&700="SAVE PadCode "+�~code+" "+�~P%
�Y%=7:X%=0:�&FFF7:�
�
00000000  0d 00 0a 1e f4 20 43 75  6d 61 6e 61 20 54 6f 75  |..... Cumana Tou|
00000010  63 68 20 50 61 64 20 55  74 69 6c 69 74 79 0d 00  |ch Pad Utility..|
00000020  14 15 f4 20 42 79 20 43  61 72 6c 20 44 75 6e 6b  |... By Carl Dunk|
00000030  6c 65 79 0d 00 1e 18 f4  20 28 63 29 20 54 68 65  |ley..... (c) The|
00000040  20 4d 69 63 72 6f 20 55  73 65 72 0d 00 28 06 eb  | Micro User..(..|
00000050  34 0d 00 32 14 ef 32 33  2c 31 2c 30 3b 30 3b 30  |4..2..23,1,0;0;0|
00000060  3b 30 3b 30 3b 0d 00 3c  0d f2 61 73 73 65 6d 62  |;0;0;..<..assemb|
00000070  6c 65 0d 00 46 09 f2 64  65 6d 6f 0d 00 50 05 e0  |le..F..demo..P..|
00000080  0d 00 5a 05 3a 0d 00 64  0a dd f2 64 65 6d 6f 0d  |..Z.:..d...demo.|
00000090  00 6e 13 78 73 63 61 6c  65 3d 31 32 38 30 2f 31  |.n.xscale=1280/1|
000000a0  36 30 0d 00 78 0a f2 72  65 73 65 74 0d 00 82 05  |60..x..reset....|
000000b0  f5 0d 00 8c 09 f2 64 72  61 77 0d 00 96 07 fd 30  |......draw.....0|
000000c0  20 0d 00 a0 05 e1 0d 00  aa 05 3a 0d 00 b4 0b dd  | .........:.....|
000000d0  f2 72 65 73 65 74 0d 00  be 05 db 0d 00 c8 08 e6  |.reset..........|
000000e0  33 2c 31 0d 00 d2 0b f0  36 39 2c 30 2c 30 0d 00  |3,1.....69,0,0..|
000000f0  dc 0a 64 72 61 77 3d a3  0d 00 e6 0d 41 25 3d 30  |..draw=.....A%=0|
00000100  3a 42 25 3d 30 0d 00 f0  05 e1 0d 00 fa 05 3a 0d  |:B%=0.........:.|
00000110  01 04 0a dd f2 64 72 61  77 0d 01 0e 0f e7 a6 2d  |.....draw......-|
00000120  39 39 f2 72 65 73 65 74  0d 01 18 08 d6 70 61 64  |99.reset.....pad|
00000130  0d 01 22 16 e7 55 25 84  44 25 20 64 72 61 77 3d  |.."..U%.D% draw=|
00000140  b9 3a e6 30 2c 31 0d 01  2c 16 e7 ac 50 25 20 64  |.:.0,1..,...P% d|
00000150  72 61 77 3d a3 3a e6 33  2c 31 3a e1 0d 01 36 0e  |raw=.:.3,1:...6.|
00000160  f0 36 39 2c 41 25 2c 42  25 20 0d 01 40 19 59 25  |.69,A%,B% ..@.Y%|
00000170  3d 31 30 32 34 2a 28 39  39 39 2d 59 25 29 2f 31  |=1024*(999-Y%)/1|
00000180  30 30 30 0d 01 4a 13 58  25 3d 31 32 38 30 2a 58  |000..J.X%=1280*X|
00000190  25 2f 31 30 30 30 0d 01  54 1a e7 94 28 58 25 2d  |%/1000..T...(X%-|
000001a0  41 25 29 3c 78 73 63 61  6c 65 20 58 25 3d 41 25  |A%)<xscale X%=A%|
000001b0  0d 01 5e 16 e7 94 28 59  25 2d 42 25 29 3c 34 20  |..^...(Y%-B%)<4 |
000001c0  59 25 3d 42 25 20 0d 01  68 1b e7 64 72 61 77 20  |Y%=B% ..h..draw |
000001d0  df 58 25 2c 59 25 20 8b  f0 36 39 2c 58 25 2c 59  |.X%,Y% ..69,X%,Y|
000001e0  25 0d 01 72 0f 41 25 3d  58 25 3a 42 25 3d 59 25  |%..r.A%=X%:B%=Y%|
000001f0  0d 01 7c 05 e1 0d 01 86  05 3a 0d 01 90 0e dd f2  |..|......:......|
00000200  61 73 73 65 6d 62 6c 65  0d 01 9a 1d 6f 73 72 64  |assemble....osrd|
00000210  63 68 3d 26 46 46 45 30  3a 6f 73 77 72 63 68 3d  |ch=&FFE0:oswrch=|
00000220  26 46 46 45 45 0d 01 a4  1a 6f 73 62 79 74 65 3d  |&FFEE....osbyte=|
00000230  26 46 46 46 34 3a 63 6f  64 65 3d 26 43 30 30 0d  |&FFF4:code=&C00.|
00000240  01 ae 0e e3 20 4c 25 3d  30 b8 32 88 32 0d 01 b8  |.... L%=0.2.2...|
00000250  13 50 25 3d 63 6f 64 65  3a 5b 4f 50 54 20 4c 25  |.P%=code:[OPT L%|
00000260  0d 01 c2 08 2e 70 61 64  0d 01 cc 1d 5c 63 6c 65  |.....pad....\cle|
00000270  61 72 20 44 25 2c 50 25  2c 55 25 2c 58 25 20 61  |ar D%,P%,U%,X% a|
00000280  6e 64 20 59 25 0d 01 d6  1a 4c 44 59 20 23 26 31  |nd Y%....LDY #&1|
00000290  30 3a 4a 53 52 20 63 6c  65 61 72 5f 76 61 72 0d  |0:JSR clear_var.|
000002a0  01 e0 1a 4c 44 59 20 23  26 34 30 3a 4a 53 52 20  |...LDY #&40:JSR |
000002b0  63 6c 65 61 72 5f 76 61  72 0d 01 ea 1a 4c 44 59  |clear_var....LDY|
000002c0  20 23 26 35 34 3a 4a 53  52 20 63 6c 65 61 72 5f  | #&54:JSR clear_|
000002d0  76 61 72 0d 01 f4 1a 4c  44 59 20 23 26 36 30 3a  |var....LDY #&60:|
000002e0  4a 53 52 20 63 6c 65 61  72 5f 76 61 72 0d 01 fe  |JSR clear_var...|
000002f0  1a 4c 44 59 20 23 26 36  34 3a 4a 53 52 20 63 6c  |.LDY #&64:JSR cl|
00000300  65 61 72 5f 76 61 72 0d  02 08 1b 5c 73 65 74 20  |ear_var....\set |
00000310  52 53 32 33 32 20 69 6e  70 75 74 20 73 74 72 65  |RS232 input stre|
00000320  61 6d 0d 02 12 23 4c 44  41 20 23 32 3a 4c 44 58  |am...#LDA #2:LDX|
00000330  20 23 31 3a 4c 44 59 20  23 30 3a 4a 53 52 20 6f  | #1:LDY #0:JSR o|
00000340  73 62 79 74 65 0d 02 1c  23 4c 44 41 20 23 33 3a  |sbyte...#LDA #3:|
00000350  4c 44 58 20 23 37 3a 4c  44 59 20 23 30 3a 4a 53  |LDX #7:LDY #0:JS|
00000360  52 20 6f 73 62 79 74 65  0d 02 26 16 4c 44 41 20  |R osbyte..&.LDA |
00000370  23 32 37 3a 4a 53 52 20  6f 73 77 72 63 68 0d 02  |#27:JSR oswrch..|
00000380  30 17 4c 44 41 20 23 35  31 3a 4a 53 52 20 6f 73  |0.LDA #51:JSR os|
00000390  77 72 63 68 20 0d 02 3a  1d 5c 72 65 61 64 20 75  |wrch ..:.\read u|
000003a0  6e 75 73 65 64 20 68 65  61 64 65 72 20 62 79 74  |nused header byt|
000003b0  65 73 0d 02 44 19 4a 53  52 20 6f 73 72 64 63 68  |es..D.JSR osrdch|
000003c0  3a 4a 53 52 20 6f 73 72  64 63 68 0d 02 4e 18 5c  |:JSR osrdch..N.\|
000003d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000003e0  2d 2d 2d 0d 02 58 14 5c  72 65 61 64 20 66 69 72  |---..X.\read fir|
000003f0  73 74 20 63 68 61 72 0d  02 62 10 4a 53 52 20 72  |st char..b.JSR r|
00000400  65 61 64 3a 54 41 58 0d  02 6c 15 5c 72 65 61 64  |ead:TAX..l.\read|
00000410  20 73 65 63 6f 6e 64 20  63 68 61 72 0d 02 76 22  | second char..v"|
00000420  4a 53 52 20 72 65 61 64  3a 43 4d 50 20 23 31 32  |JSR read:CMP #12|
00000430  3a 42 45 51 20 73 65 74  5f 66 6c 61 67 73 0d 02  |:BEQ set_flags..|
00000440  80 23 5c 63 6f 6d 62 69  6e 65 20 66 69 72 73 74  |.#\combine first|
00000450  20 61 6e 64 20 73 65 63  6f 6e 64 20 63 68 61 72  | and second char|
00000460  73 0d 02 8a 07 43 4c 43  0d 02 94 0a 2e 6c 6f 6f  |s....CLC.....loo|
00000470  70 30 0d 02 9e 18 41 44  43 23 31 30 3a 44 45 58  |p0....ADC#10:DEX|
00000480  3a 42 4e 45 20 6c 6f 6f  70 30 0d 02 a8 21 54 41  |:BNE loop0...!TA|
00000490  58 3a 4a 53 52 20 6f 73  72 64 63 68 3a 5c 20 72  |X:JSR osrdch:\ r|
000004a0  65 61 64 20 6e 65 77 6c  69 6e 65 0d 02 b2 28 5c  |ead newline...(\|
000004b0  73 65 74 20 50 25 2c 55  25 20 61 6e 64 20 44 25  |set P%,U% and D%|
000004c0  20 66 6c 61 67 73 20 61  73 20 6e 65 63 65 73 73  | flags as necess|
000004d0  61 72 79 0d 02 bc 0e 2e  73 65 74 5f 66 6c 61 67  |ary.....set_flag|
000004e0  73 0d 02 c6 14 5c 63 68  65 63 6b 20 70 65 6e 20  |s....\check pen |
000004f0  64 6f 77 6e 3f 0d 02 d0  18 54 58 41 3a 80 20 23  |down?....TXA:. #|
00000500  31 3a 42 45 51 20 6e 6f  74 5f 70 65 6e 0d 02 da  |1:BEQ not_pen...|
00000510  18 4c 44 59 20 23 26 34  30 3a 4a 53 52 20 73 65  |.LDY #&40:JSR se|
00000520  74 5f 76 61 72 0d 02 e4  20 5c 63 68 65 63 6b 20  |t_var... \check |
00000530  66 6f 72 20 75 70 20 62  75 74 74 6f 6e 20 70 72  |for up button pr|
00000540  65 73 73 65 64 0d 02 ee  0c 2e 6e 6f 74 5f 70 65  |essed.....not_pe|
00000550  6e 0d 02 f8 17 54 58 41  3a 80 20 23 38 3a 42 45  |n....TXA:. #8:BE|
00000560  51 20 6e 6f 74 5f 75 70  0d 03 02 18 4c 44 59 20  |Q not_up....LDY |
00000570  23 26 35 34 3a 4a 53 52  20 73 65 74 5f 76 61 72  |#&54:JSR set_var|
00000580  0d 03 0c 0b 2e 6e 6f 74  5f 75 70 0d 03 16 22 5c  |.....not_up..."\|
00000590  63 68 65 63 6b 20 66 6f  72 20 64 6f 77 6e 20 62  |check for down b|
000005a0  75 74 74 6f 6e 20 70 72  65 73 73 65 64 0d 03 20  |utton pressed.. |
000005b0  1a 54 58 41 3a 80 20 23  31 36 3a 42 45 51 20 6e  |.TXA:. #16:BEQ n|
000005c0  6f 74 5f 64 6f 77 6e 0d  03 2a 18 4c 44 59 20 23  |ot_down..*.LDY #|
000005d0  26 31 30 3a 4a 53 52 20  73 65 74 5f 76 61 72 0d  |&10:JSR set_var.|
000005e0  03 34 0d 2e 6e 6f 74 5f  64 6f 77 6e 0d 03 3e 18  |.4..not_down..>.|
000005f0  5c 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |\---------------|
00000600  2d 2d 2d 2d 0d 03 48 18  5c 63 61 6c 63 75 6c 61  |----..H.\calcula|
00000610  74 65 20 58 25 20 61 6e  64 20 59 25 0d 03 52 16  |te X% and Y%..R.|
00000620  4c 44 58 20 23 30 3a 4a  53 52 20 63 6f 6e 76 65  |LDX #0:JSR conve|
00000630  72 74 0d 03 5c 16 4c 44  58 20 23 34 3a 4a 53 52  |rt..\.LDX #4:JSR|
00000640  20 63 6f 6e 76 65 72 74  0d 03 66 18 5c 72 65 2d  | convert..f.\re-|
00000650  73 65 74 20 69 6e 70 75  74 20 73 74 72 65 61 6d  |set input stream|
00000660  0d 03 70 23 4c 44 41 20  23 32 3a 4c 44 58 20 23  |..p#LDA #2:LDX #|
00000670  30 3a 4c 44 59 20 23 30  3a 4a 53 52 20 6f 73 62  |0:LDY #0:JSR osb|
00000680  79 74 65 0d 03 7a 23 4c  44 41 20 23 33 3a 4c 44  |yte..z#LDA #3:LD|
00000690  58 20 23 30 3a 4c 44 59  20 23 30 3a 4a 4d 50 20  |X #0:LDY #0:JMP |
000006a0  6f 73 62 79 74 65 0d 03  84 18 5c 2d 2d 2d 2d 2d  |osbyte....\-----|
000006b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 03  |--------------..|
000006c0  8e 10 5c 73 75 62 72 6f  75 74 69 6e 65 73 0d 03  |..\subroutines..|
000006d0  98 18 5c 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..\-------------|
000006e0  2d 2d 2d 2d 2d 2d 0d 03  a2 26 5c 63 6f 6e 76 65  |------...&\conve|
000006f0  72 74 20 61 20 33 20 63  68 61 72 20 73 74 72 69  |rt a 3 char stri|
00000700  6e 67 20 72 65 61 64 20  66 72 6f 6d 0d 03 ac 2c  |ng read from...,|
00000710  5c 52 53 32 33 32 20 70  6f 72 74 20 28 69 65 2e  |\RS232 port (ie.|
00000720  30 31 30 2c 31 32 33 2c  39 39 39 29 20 74 6f 20  |010,123,999) to |
00000730  61 20 6e 75 6d 62 65 72  0d 03 b6 0c 2e 63 6f 6e  |a number.....con|
00000740  76 65 72 74 0d 03 c0 18  4a 53 52 20 72 65 61 64  |vert....JSR read|
00000750  3a 42 45 51 20 6e 6f 5f  31 30 30 73 0d 03 ca 19  |:BEQ no_100s....|
00000760  54 41 59 3a 4c 44 41 20  23 31 30 30 3a 4a 53 52  |TAY:LDA #100:JSR|
00000770  20 6d 75 6c 74 0d 03 d4  0c 2e 6e 6f 5f 31 30 30  | mult.....no_100|
00000780  73 0d 03 de 17 4a 53 52  20 72 65 61 64 3a 42 45  |s....JSR read:BE|
00000790  51 20 6e 6f 5f 31 30 73  0d 03 e8 18 54 41 59 3a  |Q no_10s....TAY:|
000007a0  4c 44 41 20 23 31 30 3a  4a 53 52 20 6d 75 6c 74  |LDA #10:JSR mult|
000007b0  0d 03 f2 0b 2e 6e 6f 5f  31 30 73 0d 03 fc 17 4a  |.....no_10s....J|
000007c0  53 52 20 72 65 61 64 3a  42 45 51 20 6e 6f 74 5f  |SR read:BEQ not_|
000007d0  31 73 0d 04 06 17 54 41  59 3a 4c 44 41 20 23 31  |1s....TAY:LDA #1|
000007e0  3a 4a 53 52 20 6d 75 6c  74 0d 04 10 0b 2e 6e 6f  |:JSR mult.....no|
000007f0  74 5f 31 73 0d 04 1a 26  4a 4d 50 20 6f 73 72 64  |t_1s...&JMP osrd|
00000800  63 68 3a 5c 20 72 65 61  64 20 6e 65 77 6c 69 6e  |ch:\ read newlin|
00000810  65 20 2b 20 72 65 74 75  72 6e 0d 04 24 18 5c 2d  |e + return..$.\-|
00000820  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000830  2d 2d 0d 04 2e 1d 5c 6c  6f 61 64 20 61 6e 20 69  |--....\load an i|
00000840  6e 74 65 67 65 72 20 76  61 72 69 61 62 6c 65 0d  |nteger variable.|
00000850  04 38 0e 2e 63 6c 65 61  72 5f 76 61 72 0d 04 42  |.8..clear_var..B|
00000860  0a 4c 44 41 20 23 30 0d  04 4c 0c 42 45 51 20 6c  |.LDA #0..L.BEQ l|
00000870  6f 61 64 0d 04 56 0c 2e  73 65 74 5f 76 61 72 0d  |oad..V..set_var.|
00000880  04 60 0c 4c 44 41 20 23  32 35 35 0d 04 6a 09 2e  |.`.LDA #255..j..|
00000890  6c 6f 61 64 0d 04 74 0d  53 54 41 26 34 30 30 2c  |load..t.STA&400,|
000008a0  59 0d 04 7e 0d 53 54 41  26 34 30 31 2c 59 0d 04  |Y..~.STA&401,Y..|
000008b0  88 0d 53 54 41 26 34 30  32 2c 59 0d 04 92 0d 53  |..STA&402,Y....S|
000008c0  54 41 26 34 30 33 2c 59  0d 04 9c 07 52 54 53 0d  |TA&403,Y....RTS.|
000008d0  04 a6 18 5c 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...\------------|
000008e0  2d 2d 2d 2d 2d 2d 2d 0d  04 b0 14 5c 72 65 61 64  |-------....\read|
000008f0  20 52 53 32 33 32 20 70  6f 72 74 0d 04 ba 09 2e  | RS232 port.....|
00000900  72 65 61 64 0d 04 c4 0e  4a 53 52 20 6f 73 72 64  |read....JSR osrd|
00000910  63 68 0d 04 ce 0a 80 20  23 32 30 37 0d 04 d8 07  |ch..... #207....|
00000920  52 54 53 0d 04 e2 18 5c  2d 2d 2d 2d 2d 2d 2d 2d  |RTS....\--------|
00000930  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 04 ec 1e 5c  |-----------....\|
00000940  6d 75 6c 74 69 70 6c 69  63 61 74 69 6f 6e 20 73  |multiplication s|
00000950  75 62 72 6f 75 74 69 6e  65 0d 04 f6 09 2e 6d 75  |ubroutine.....mu|
00000960  6c 74 0d 05 00 0a 53 54  41 26 37 30 0d 05 0a 0a  |lt....STA&70....|
00000970  2e 6c 6f 6f 70 31 0d 05  14 07 43 4c 43 0d 05 1e  |.loop1....CLC...|
00000980  0b 4c 44 41 20 26 37 30  0d 05 28 0e 41 44 43 20  |.LDA &70..(.ADC |
00000990  26 34 36 30 2c 58 0d 05  32 0d 53 54 41 26 34 36  |&460,X..2.STA&46|
000009a0  30 2c 58 0d 05 3c 0f 42  43 43 6e 6f 5f 63 61 72  |0,X..<.BCCno_car|
000009b0  72 79 0d 05 46 0d 49 4e  43 26 34 36 31 2c 58 0d  |ry..F.INC&461,X.|
000009c0  05 50 0d 2e 6e 6f 5f 63  61 72 72 79 0d 05 5a 10  |.P..no_carry..Z.|
000009d0  44 45 59 3a 42 4e 45 6c  6f 6f 70 31 0d 05 64 07  |DEY:BNEloop1..d.|
000009e0  52 54 53 0d 05 6e 18 5c  2d 2d 2d 2d 2d 2d 2d 2d  |RTS..n.\--------|
000009f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 05 78 07 5d  |-----------..x.]|
00000a00  3a ed 0d 05 82 19 f1 22  53 61 76 65 20 63 6f 64  |:......"Save cod|
00000a10  65 3f 20 28 79 2f 6e 29  20 22 3b 0d 05 8c 13 f5  |e? (y/n) ";.....|
00000a20  20 49 25 3d a7 22 59 79  4e 6e 22 2c be 29 0d 05  | I%=."YyNn",.)..|
00000a30  96 15 fd 20 49 25 3a e7  20 49 25 3c 33 20 f2 73  |... I%:. I%<3 .s|
00000a40  61 76 65 0d 05 a0 05 e1  0d 05 aa 05 3a 0d 05 b4  |ave.........:...|
00000a50  0a dd f2 73 61 76 65 0d  05 be 29 24 26 37 30 30  |...save...)$&700|
00000a60  3d 22 53 41 56 45 20 50  61 64 43 6f 64 65 20 22  |="SAVE PadCode "|
00000a70  2b c3 7e 63 6f 64 65 2b  22 20 22 2b c3 7e 50 25  |+.~code+" "+.~P%|
00000a80  0d 05 c8 16 59 25 3d 37  3a 58 25 3d 30 3a d6 26  |....Y%=7:X%=0:.&|
00000a90  46 46 46 37 3a e1 0d ff                           |FFF7:...|
00000a98
PadSrce.m0
PadSrce.m1
PadSrce.m2
PadSrce.m4
PadSrce.m5