Home » CEEFAX disks » telesoftware6.adl » 15-04-88/MODONE

15-04-88/MODONE

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 » telesoftware6.adl
Filename: 15-04-88/MODONE
Read OK:
File size: 0A9A bytes
Load address: 0800
Exec address: 8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM: MODONE
   20MODE7
   30HIMEM=&3C00
   40diff=&8000-HIMEM
   50H%=HIMEM
   60address=&70
   70romnumber=&F4
   80phrom=&F5
   90rompoint=&F6
  100stack=&103
  110osasci=&FFE3
  120osnewl=&FFE7
  130osbyte=&FFF4
  140oscli=&FFF7
  150FOR pass = 0 TO 2 STEP 2
  160P%=HIMEM
  170[OPT pass
  180BRK
  190BRK
  200BRK
  210JMP service+diff
  220OPT FNequb(&82)
  230OPT FNequb((copyright+diff) MOD 256)
  240BRK
  250OPT FNequs("MODULAR ROM DESIGN")
  260.copyright
  270BRK
  280OPT FNequs("(C) Gordon Horsington 1987")
  290BRK
  300.service
  310PHA
  320CMP #13
  330BNE fourteen
  340TYA
  350EOR #&F
  360CMP romnumber
  370BCC out
  380.A%
  390LDA #0 \ replace with LSB of RFS data
  400STA rompoint
  410.B%
  420LDA #0 \ replace with MSB of RFS data
  430STA rompoint+1
  440LDA romnumber
  450EOR #&F
  460STA phrom
  470.exit
  480PLA
  490LDA #0
  500RTS
  510.fourteen
  520CMP #14
  530BNE trythree
  540LDA phrom
  550EOR #&F
  560CMP romnumber
  570BNE out
  580LDY #0
  590LDA (rompoint),Y
  600TAY
  610INC rompoint
  620BNE exit
  630INC rompoint+1
  640JMP exit+diff
  650.out
  660PLA
  670RTS
  680.trythree
  690TXA
  700PHA
  710TYA
  720PHA
  730TSX
  740LDA stack,X
  750CMP #3
  760BEQ three
  770JMP lastbyte+diff \ continue in MODULE2
  780.three
  790LDA #&7A
  800JSR osbyte
  810CPX #&33 \ Is it R Break?
  820BEQ rbreak
  830PLA
  840TAY
  850PLA
  860TAX
  870PLA
  880RTS
  890.rbreak
  900LDA #&C9
  910LDX #1
  920LDY #0
  930JSR osbyte \ Disable keyboard
  940LDA #&0F
  950LDX #0
  960JSR osbyte \ Flush all buffers
  970LDA address
  980PHA
  990LDA address+1
 1000PHA
 1010LDX #(rfs+diff) MOD 256
 1020LDY #(rfs+diff) DIV 256
 1030JSR print+diff
 1040LDX #(cat+diff) MOD 256
 1050LDY #(cat+diff) DIV 256
 1060JSR print+diff
 1070LDA #&8D
 1080JSR osbyte \ Select RFS
 1090LDA #&8B
 1100LDX #1
 1110LDY #2
 1120JSR osbyte \ *OPT1,2
 1130LDX #(dot+diff) MOD 256
 1140LDY #(dot+diff) DIV 256
 1150JSR oscli \ Catalogue RFS
 1160LDA #&8B
 1170LDX #0
 1180LDY #0
 1190JSR osbyte \ *OPT 1,0
 1200JSR osnewl
 1210LDX #(rfs+diff) MOD 256
 1220LDY #(rfs+diff) DIV 256
 1230JSR print+diff
 1240LDX #(act+diff) MOD 256
 1250LDY #(act+diff) DIV 256
 1260JSR print+diff
 1270PLA
 1280STA address+1
 1290PLA
 1300STA address
 1310LDA #&C9
 1320LDX #0
 1330LDY #0
 1340JSR osbyte \ Enable keyboard
 1350PLA
 1360PLA
 1370PLA
 1380LDA #0
 1390RTS
 1400.print
 1410.C%
 1420STX address
 1430STY address+1
 1440LDY #&FF
 1450.printloop
 1460INY
 1470LDA (address),Y
 1480BEQ endprint
 1490JSR osasci
 1500JMP printloop+diff
 1510.endprint
 1520RTS
 1530.dot
 1540OPT FNequs("CAT")
 1550OPT FNequb(&0D)
 1560.rfs
 1570OPT FNequs("ROM Filing System ")
 1580BRK
 1590.cat
 1600OPT FNequs("Catalogue")
 1610OPT FNequb(&0D)
 1620BRK
 1630.act
 1640OPT FNequs("active")
 1650OPT FNequw(&0D0D)
 1660BRK
 1670.lastbyte
 1680]
 1690NEXT
 1700O%=lastbyte
 1710CHAIN"MODTWO"
 1720DEFFNequb(byte)
 1730?P%=byte
 1740P%=P%+1
 1750=pass
 1760DEFFNequw(word)
 1770?P%=word MOD 256
 1780P%?1=word DIV 256
 1790P%=P%+2
 1800=pass
 1810DEFFNequd(double)
 1820!P%=double
 1830P%=P%+4
 1840=pass
 1850DEFFNequs(string$)
 1860$P%=string$
 1870P%=P%+LEN(string$)
 1880=pass


�: MODONE
�7
�=&3C00
(diff=&8000-�
2H%=�
<address=&70
Fromnumber=&F4
P
phrom=&F5
Zrompoint=&F6
dstack=&103
nosasci=&FFE3
xosnewl=&FFE7
�osbyte=&FFF4
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�#OPT �equs("MODULAR ROM DESIGN")
.copyright
BRK
+OPT �equs("(C) Gordon Horsington 1987")
"BRK
,.service
6PHA
@CMP #13
JBNE fourteen
TTYA
^	� #&F
hCMP romnumber
rBCC out
|.A%
�)LDA #0 \ replace with LSB of RFS data
�STA rompoint
�.B%
�)LDA #0 \ replace with MSB of RFS data
�STA rompoint+1
�LDA romnumber
�	� #&F
�
STA phrom
�	.exit
�PLA
�
LDA #0
�RTS
�
.fourteen
CMP #14
BNE trythree

LDA phrom
&	� #&F
0CMP romnumber
:BNE out
D
LDY #0
NLDA (rompoint),Y
XTAY
bINC rompoint
lBNE exit
vINC rompoint+1
�JMP exit+diff
�.out
�PLA
�RTS
�
.trythree
�TXA
�PHA
�TYA
�PHA
�TSX
�LDA stack,X
�
CMP #3
�
BEQ three
)JMP lastbyte+diff \ continue in �ULE2

.three
LDA #&7A
 JSR osbyte
*CPX #&33 \ Is it R Break?
4BEQ rbreak
>PLA
HTAY
RPLA
\TAX
fPLA
pRTS
z.rbreak
�LDA #&C9
�
LDX #1
�
LDY #0
�!JSR osbyte \ Disable keyboard
�LDA #&0F
�
LDX #0
�"JSR osbyte \ Flush all buffers
�LDA address
�PHA
�LDA address+1
�PHA
�LDX #(rfs+diff) � 256
�LDY #(rfs+diff) � 256
JSR print+diff
LDX #(cat+diff) � 256
LDY #(cat+diff) � 256
$JSR print+diff
.LDA #&8D
8JSR osbyte \ Select RFS
BLDA #&8B
L
LDX #1
V
LDY #2
`JSR osbyte \ *OPT1,2
jLDX #(dot+diff) � 256
tLDY #(dot+diff) � 256
~JSR oscli \ Catalogue RFS
�LDA #&8B
�
LDX #0
�
LDY #0
�JSR osbyte \ *OPT 1,0
�JSR osnewl
�LDX #(rfs+diff) � 256
�LDY #(rfs+diff) � 256
�JSR print+diff
�LDX #(act+diff) � 256
�LDY #(act+diff) � 256
�JSR print+diff
�PLA
STA address+1

PLA
STA address
LDA #&C9
(
LDX #0
2
LDY #0
< JSR osbyte \ Enable keyboard
FPLA
PPLA
ZPLA
d
LDA #0
nRTS
x
.print
�.C%
�STX address
�STY address+1
�LDY #&FF
�.printloop
�INY
�LDA (address),Y
�BEQ endprint
�JSR osasci
�JMP printloop+diff
�
.endprint
�RTS
�.dot
OPT �equs("CAT")
OPT �equb(&0D)
.rfs
"#OPT �equs("ROM Filing System ")
,BRK
6.cat
@OPT �equs("Catalogue")
JOPT �equb(&0D)
TBRK
^.act
hOPT �equs("active")
rOPT �equw(&0D0D)
|BRK
�
.lastbyte
�]
��
�O%=lastbyte
�
�"MODTWO"
�ݤequb(byte)
�?P%=byte
�P%=P%+1
�	=pass
�ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
	=pass
ݤequd(double)
!P%=double
&P%=P%+4
0	=pass
:ݤequs(string$)
D$P%=string$
NP%=P%+�(string$)
X	=pass
�
00000000  0d 00 0a 0d f4 3a 20 4d  4f 44 4f 4e 45 0d 00 14  |.....: MODONE...|
00000010  06 eb 37 0d 00 1e 0b d3  3d 26 33 43 30 30 0d 00  |..7.....=&3C00..|
00000020  28 10 64 69 66 66 3d 26  38 30 30 30 2d 93 0d 00  |(.diff=&8000-...|
00000030  32 08 48 25 3d 93 0d 00  3c 0f 61 64 64 72 65 73  |2.H%=...<.addres|
00000040  73 3d 26 37 30 0d 00 46  11 72 6f 6d 6e 75 6d 62  |s=&70..F.romnumb|
00000050  65 72 3d 26 46 34 0d 00  50 0d 70 68 72 6f 6d 3d  |er=&F4..P.phrom=|
00000060  26 46 35 0d 00 5a 10 72  6f 6d 70 6f 69 6e 74 3d  |&F5..Z.rompoint=|
00000070  26 46 36 0d 00 64 0e 73  74 61 63 6b 3d 26 31 30  |&F6..d.stack=&10|
00000080  33 0d 00 6e 10 6f 73 61  73 63 69 3d 26 46 46 45  |3..n.osasci=&FFE|
00000090  33 0d 00 78 10 6f 73 6e  65 77 6c 3d 26 46 46 45  |3..x.osnewl=&FFE|
000000a0  37 0d 00 82 10 6f 73 62  79 74 65 3d 26 46 46 46  |7....osbyte=&FFF|
000000b0  34 0d 00 8c 0f 6f 73 63  6c 69 3d 26 46 46 46 37  |4....oscli=&FFF7|
000000c0  0d 00 96 16 e3 20 70 61  73 73 20 3d 20 30 20 b8  |..... pass = 0 .|
000000d0  20 32 20 88 20 32 0d 00  a0 08 50 25 3d 93 0d 00  | 2 . 2....P%=...|
000000e0  aa 0d 5b 4f 50 54 20 70  61 73 73 0d 00 b4 07 42  |..[OPT pass....B|
000000f0  52 4b 0d 00 be 07 42 52  4b 0d 00 c8 07 42 52 4b  |RK....BRK....BRK|
00000100  0d 00 d2 14 4a 4d 50 20  73 65 72 76 69 63 65 2b  |....JMP service+|
00000110  64 69 66 66 0d 00 dc 12  4f 50 54 20 a4 65 71 75  |diff....OPT .equ|
00000120  62 28 26 38 32 29 0d 00  e6 25 4f 50 54 20 a4 65  |b(&82)...%OPT .e|
00000130  71 75 62 28 28 63 6f 70  79 72 69 67 68 74 2b 64  |qub((copyright+d|
00000140  69 66 66 29 20 83 20 32  35 36 29 0d 00 f0 07 42  |iff) . 256)....B|
00000150  52 4b 0d 00 fa 23 4f 50  54 20 a4 65 71 75 73 28  |RK...#OPT .equs(|
00000160  22 4d 4f 44 55 4c 41 52  20 52 4f 4d 20 44 45 53  |"MODULAR ROM DES|
00000170  49 47 4e 22 29 0d 01 04  0e 2e 63 6f 70 79 72 69  |IGN").....copyri|
00000180  67 68 74 0d 01 0e 07 42  52 4b 0d 01 18 2b 4f 50  |ght....BRK...+OP|
00000190  54 20 a4 65 71 75 73 28  22 28 43 29 20 47 6f 72  |T .equs("(C) Gor|
000001a0  64 6f 6e 20 48 6f 72 73  69 6e 67 74 6f 6e 20 31  |don Horsington 1|
000001b0  39 38 37 22 29 0d 01 22  07 42 52 4b 0d 01 2c 0c  |987")..".BRK..,.|
000001c0  2e 73 65 72 76 69 63 65  0d 01 36 07 50 48 41 0d  |.service..6.PHA.|
000001d0  01 40 0b 43 4d 50 20 23  31 33 0d 01 4a 10 42 4e  |.@.CMP #13..J.BN|
000001e0  45 20 66 6f 75 72 74 65  65 6e 0d 01 54 07 54 59  |E fourteen..T.TY|
000001f0  41 0d 01 5e 09 82 20 23  26 46 0d 01 68 11 43 4d  |A..^.. #&F..h.CM|
00000200  50 20 72 6f 6d 6e 75 6d  62 65 72 0d 01 72 0b 42  |P romnumber..r.B|
00000210  43 43 20 6f 75 74 0d 01  7c 07 2e 41 25 0d 01 86  |CC out..|..A%...|
00000220  29 4c 44 41 20 23 30 20  5c 20 72 65 70 6c 61 63  |)LDA #0 \ replac|
00000230  65 20 77 69 74 68 20 4c  53 42 20 6f 66 20 52 46  |e with LSB of RF|
00000240  53 20 64 61 74 61 0d 01  90 10 53 54 41 20 72 6f  |S data....STA ro|
00000250  6d 70 6f 69 6e 74 0d 01  9a 07 2e 42 25 0d 01 a4  |mpoint.....B%...|
00000260  29 4c 44 41 20 23 30 20  5c 20 72 65 70 6c 61 63  |)LDA #0 \ replac|
00000270  65 20 77 69 74 68 20 4d  53 42 20 6f 66 20 52 46  |e with MSB of RF|
00000280  53 20 64 61 74 61 0d 01  ae 12 53 54 41 20 72 6f  |S data....STA ro|
00000290  6d 70 6f 69 6e 74 2b 31  0d 01 b8 11 4c 44 41 20  |mpoint+1....LDA |
000002a0  72 6f 6d 6e 75 6d 62 65  72 0d 01 c2 09 82 20 23  |romnumber..... #|
000002b0  26 46 0d 01 cc 0d 53 54  41 20 70 68 72 6f 6d 0d  |&F....STA phrom.|
000002c0  01 d6 09 2e 65 78 69 74  0d 01 e0 07 50 4c 41 0d  |....exit....PLA.|
000002d0  01 ea 0a 4c 44 41 20 23  30 0d 01 f4 07 52 54 53  |...LDA #0....RTS|
000002e0  0d 01 fe 0d 2e 66 6f 75  72 74 65 65 6e 0d 02 08  |.....fourteen...|
000002f0  0b 43 4d 50 20 23 31 34  0d 02 12 10 42 4e 45 20  |.CMP #14....BNE |
00000300  74 72 79 74 68 72 65 65  0d 02 1c 0d 4c 44 41 20  |trythree....LDA |
00000310  70 68 72 6f 6d 0d 02 26  09 82 20 23 26 46 0d 02  |phrom..&.. #&F..|
00000320  30 11 43 4d 50 20 72 6f  6d 6e 75 6d 62 65 72 0d  |0.CMP romnumber.|
00000330  02 3a 0b 42 4e 45 20 6f  75 74 0d 02 44 0a 4c 44  |.:.BNE out..D.LD|
00000340  59 20 23 30 0d 02 4e 14  4c 44 41 20 28 72 6f 6d  |Y #0..N.LDA (rom|
00000350  70 6f 69 6e 74 29 2c 59  0d 02 58 07 54 41 59 0d  |point),Y..X.TAY.|
00000360  02 62 10 49 4e 43 20 72  6f 6d 70 6f 69 6e 74 0d  |.b.INC rompoint.|
00000370  02 6c 0c 42 4e 45 20 65  78 69 74 0d 02 76 12 49  |.l.BNE exit..v.I|
00000380  4e 43 20 72 6f 6d 70 6f  69 6e 74 2b 31 0d 02 80  |NC rompoint+1...|
00000390  11 4a 4d 50 20 65 78 69  74 2b 64 69 66 66 0d 02  |.JMP exit+diff..|
000003a0  8a 08 2e 6f 75 74 0d 02  94 07 50 4c 41 0d 02 9e  |...out....PLA...|
000003b0  07 52 54 53 0d 02 a8 0d  2e 74 72 79 74 68 72 65  |.RTS.....trythre|
000003c0  65 0d 02 b2 07 54 58 41  0d 02 bc 07 50 48 41 0d  |e....TXA....PHA.|
000003d0  02 c6 07 54 59 41 0d 02  d0 07 50 48 41 0d 02 da  |...TYA....PHA...|
000003e0  07 54 53 58 0d 02 e4 0f  4c 44 41 20 73 74 61 63  |.TSX....LDA stac|
000003f0  6b 2c 58 0d 02 ee 0a 43  4d 50 20 23 33 0d 02 f8  |k,X....CMP #3...|
00000400  0d 42 45 51 20 74 68 72  65 65 0d 03 02 29 4a 4d  |.BEQ three...)JM|
00000410  50 20 6c 61 73 74 62 79  74 65 2b 64 69 66 66 20  |P lastbyte+diff |
00000420  5c 20 63 6f 6e 74 69 6e  75 65 20 69 6e 20 83 55  |\ continue in .U|
00000430  4c 45 32 0d 03 0c 0a 2e  74 68 72 65 65 0d 03 16  |LE2.....three...|
00000440  0c 4c 44 41 20 23 26 37  41 0d 03 20 0e 4a 53 52  |.LDA #&7A.. .JSR|
00000450  20 6f 73 62 79 74 65 0d  03 2a 1d 43 50 58 20 23  | osbyte..*.CPX #|
00000460  26 33 33 20 5c 20 49 73  20 69 74 20 52 20 42 72  |&33 \ Is it R Br|
00000470  65 61 6b 3f 0d 03 34 0e  42 45 51 20 72 62 72 65  |eak?..4.BEQ rbre|
00000480  61 6b 0d 03 3e 07 50 4c  41 0d 03 48 07 54 41 59  |ak..>.PLA..H.TAY|
00000490  0d 03 52 07 50 4c 41 0d  03 5c 07 54 41 58 0d 03  |..R.PLA..\.TAX..|
000004a0  66 07 50 4c 41 0d 03 70  07 52 54 53 0d 03 7a 0b  |f.PLA..p.RTS..z.|
000004b0  2e 72 62 72 65 61 6b 0d  03 84 0c 4c 44 41 20 23  |.rbreak....LDA #|
000004c0  26 43 39 0d 03 8e 0a 4c  44 58 20 23 31 0d 03 98  |&C9....LDX #1...|
000004d0  0a 4c 44 59 20 23 30 0d  03 a2 21 4a 53 52 20 6f  |.LDY #0...!JSR o|
000004e0  73 62 79 74 65 20 5c 20  44 69 73 61 62 6c 65 20  |sbyte \ Disable |
000004f0  6b 65 79 62 6f 61 72 64  0d 03 ac 0c 4c 44 41 20  |keyboard....LDA |
00000500  23 26 30 46 0d 03 b6 0a  4c 44 58 20 23 30 0d 03  |#&0F....LDX #0..|
00000510  c0 22 4a 53 52 20 6f 73  62 79 74 65 20 5c 20 46  |."JSR osbyte \ F|
00000520  6c 75 73 68 20 61 6c 6c  20 62 75 66 66 65 72 73  |lush all buffers|
00000530  0d 03 ca 0f 4c 44 41 20  61 64 64 72 65 73 73 0d  |....LDA address.|
00000540  03 d4 07 50 48 41 0d 03  de 11 4c 44 41 20 61 64  |...PHA....LDA ad|
00000550  64 72 65 73 73 2b 31 0d  03 e8 07 50 48 41 0d 03  |dress+1....PHA..|
00000560  f2 19 4c 44 58 20 23 28  72 66 73 2b 64 69 66 66  |..LDX #(rfs+diff|
00000570  29 20 83 20 32 35 36 0d  03 fc 19 4c 44 59 20 23  |) . 256....LDY #|
00000580  28 72 66 73 2b 64 69 66  66 29 20 81 20 32 35 36  |(rfs+diff) . 256|
00000590  0d 04 06 12 4a 53 52 20  70 72 69 6e 74 2b 64 69  |....JSR print+di|
000005a0  66 66 0d 04 10 19 4c 44  58 20 23 28 63 61 74 2b  |ff....LDX #(cat+|
000005b0  64 69 66 66 29 20 83 20  32 35 36 0d 04 1a 19 4c  |diff) . 256....L|
000005c0  44 59 20 23 28 63 61 74  2b 64 69 66 66 29 20 81  |DY #(cat+diff) .|
000005d0  20 32 35 36 0d 04 24 12  4a 53 52 20 70 72 69 6e  | 256..$.JSR prin|
000005e0  74 2b 64 69 66 66 0d 04  2e 0c 4c 44 41 20 23 26  |t+diff....LDA #&|
000005f0  38 44 0d 04 38 1b 4a 53  52 20 6f 73 62 79 74 65  |8D..8.JSR osbyte|
00000600  20 5c 20 53 65 6c 65 63  74 20 52 46 53 0d 04 42  | \ Select RFS..B|
00000610  0c 4c 44 41 20 23 26 38  42 0d 04 4c 0a 4c 44 58  |.LDA #&8B..L.LDX|
00000620  20 23 31 0d 04 56 0a 4c  44 59 20 23 32 0d 04 60  | #1..V.LDY #2..`|
00000630  18 4a 53 52 20 6f 73 62  79 74 65 20 5c 20 2a 4f  |.JSR osbyte \ *O|
00000640  50 54 31 2c 32 0d 04 6a  19 4c 44 58 20 23 28 64  |PT1,2..j.LDX #(d|
00000650  6f 74 2b 64 69 66 66 29  20 83 20 32 35 36 0d 04  |ot+diff) . 256..|
00000660  74 19 4c 44 59 20 23 28  64 6f 74 2b 64 69 66 66  |t.LDY #(dot+diff|
00000670  29 20 81 20 32 35 36 0d  04 7e 1d 4a 53 52 20 6f  |) . 256..~.JSR o|
00000680  73 63 6c 69 20 5c 20 43  61 74 61 6c 6f 67 75 65  |scli \ Catalogue|
00000690  20 52 46 53 0d 04 88 0c  4c 44 41 20 23 26 38 42  | RFS....LDA #&8B|
000006a0  0d 04 92 0a 4c 44 58 20  23 30 0d 04 9c 0a 4c 44  |....LDX #0....LD|
000006b0  59 20 23 30 0d 04 a6 19  4a 53 52 20 6f 73 62 79  |Y #0....JSR osby|
000006c0  74 65 20 5c 20 2a 4f 50  54 20 31 2c 30 0d 04 b0  |te \ *OPT 1,0...|
000006d0  0e 4a 53 52 20 6f 73 6e  65 77 6c 0d 04 ba 19 4c  |.JSR osnewl....L|
000006e0  44 58 20 23 28 72 66 73  2b 64 69 66 66 29 20 83  |DX #(rfs+diff) .|
000006f0  20 32 35 36 0d 04 c4 19  4c 44 59 20 23 28 72 66  | 256....LDY #(rf|
00000700  73 2b 64 69 66 66 29 20  81 20 32 35 36 0d 04 ce  |s+diff) . 256...|
00000710  12 4a 53 52 20 70 72 69  6e 74 2b 64 69 66 66 0d  |.JSR print+diff.|
00000720  04 d8 19 4c 44 58 20 23  28 61 63 74 2b 64 69 66  |...LDX #(act+dif|
00000730  66 29 20 83 20 32 35 36  0d 04 e2 19 4c 44 59 20  |f) . 256....LDY |
00000740  23 28 61 63 74 2b 64 69  66 66 29 20 81 20 32 35  |#(act+diff) . 25|
00000750  36 0d 04 ec 12 4a 53 52  20 70 72 69 6e 74 2b 64  |6....JSR print+d|
00000760  69 66 66 0d 04 f6 07 50  4c 41 0d 05 00 11 53 54  |iff....PLA....ST|
00000770  41 20 61 64 64 72 65 73  73 2b 31 0d 05 0a 07 50  |A address+1....P|
00000780  4c 41 0d 05 14 0f 53 54  41 20 61 64 64 72 65 73  |LA....STA addres|
00000790  73 0d 05 1e 0c 4c 44 41  20 23 26 43 39 0d 05 28  |s....LDA #&C9..(|
000007a0  0a 4c 44 58 20 23 30 0d  05 32 0a 4c 44 59 20 23  |.LDX #0..2.LDY #|
000007b0  30 0d 05 3c 20 4a 53 52  20 6f 73 62 79 74 65 20  |0..< JSR osbyte |
000007c0  5c 20 45 6e 61 62 6c 65  20 6b 65 79 62 6f 61 72  |\ Enable keyboar|
000007d0  64 0d 05 46 07 50 4c 41  0d 05 50 07 50 4c 41 0d  |d..F.PLA..P.PLA.|
000007e0  05 5a 07 50 4c 41 0d 05  64 0a 4c 44 41 20 23 30  |.Z.PLA..d.LDA #0|
000007f0  0d 05 6e 07 52 54 53 0d  05 78 0a 2e 70 72 69 6e  |..n.RTS..x..prin|
00000800  74 0d 05 82 07 2e 43 25  0d 05 8c 0f 53 54 58 20  |t.....C%....STX |
00000810  61 64 64 72 65 73 73 0d  05 96 11 53 54 59 20 61  |address....STY a|
00000820  64 64 72 65 73 73 2b 31  0d 05 a0 0c 4c 44 59 20  |ddress+1....LDY |
00000830  23 26 46 46 0d 05 aa 0e  2e 70 72 69 6e 74 6c 6f  |#&FF.....printlo|
00000840  6f 70 0d 05 b4 07 49 4e  59 0d 05 be 13 4c 44 41  |op....INY....LDA|
00000850  20 28 61 64 64 72 65 73  73 29 2c 59 0d 05 c8 10  | (address),Y....|
00000860  42 45 51 20 65 6e 64 70  72 69 6e 74 0d 05 d2 0e  |BEQ endprint....|
00000870  4a 53 52 20 6f 73 61 73  63 69 0d 05 dc 16 4a 4d  |JSR osasci....JM|
00000880  50 20 70 72 69 6e 74 6c  6f 6f 70 2b 64 69 66 66  |P printloop+diff|
00000890  0d 05 e6 0d 2e 65 6e 64  70 72 69 6e 74 0d 05 f0  |.....endprint...|
000008a0  07 52 54 53 0d 05 fa 08  2e 64 6f 74 0d 06 04 14  |.RTS.....dot....|
000008b0  4f 50 54 20 a4 65 71 75  73 28 22 43 41 54 22 29  |OPT .equs("CAT")|
000008c0  0d 06 0e 12 4f 50 54 20  a4 65 71 75 62 28 26 30  |....OPT .equb(&0|
000008d0  44 29 0d 06 18 08 2e 72  66 73 0d 06 22 23 4f 50  |D).....rfs.."#OP|
000008e0  54 20 a4 65 71 75 73 28  22 52 4f 4d 20 46 69 6c  |T .equs("ROM Fil|
000008f0  69 6e 67 20 53 79 73 74  65 6d 20 22 29 0d 06 2c  |ing System ")..,|
00000900  07 42 52 4b 0d 06 36 08  2e 63 61 74 0d 06 40 1a  |.BRK..6..cat..@.|
00000910  4f 50 54 20 a4 65 71 75  73 28 22 43 61 74 61 6c  |OPT .equs("Catal|
00000920  6f 67 75 65 22 29 0d 06  4a 12 4f 50 54 20 a4 65  |ogue")..J.OPT .e|
00000930  71 75 62 28 26 30 44 29  0d 06 54 07 42 52 4b 0d  |qub(&0D)..T.BRK.|
00000940  06 5e 08 2e 61 63 74 0d  06 68 17 4f 50 54 20 a4  |.^..act..h.OPT .|
00000950  65 71 75 73 28 22 61 63  74 69 76 65 22 29 0d 06  |equs("active")..|
00000960  72 14 4f 50 54 20 a4 65  71 75 77 28 26 30 44 30  |r.OPT .equw(&0D0|
00000970  44 29 0d 06 7c 07 42 52  4b 0d 06 86 0d 2e 6c 61  |D)..|.BRK.....la|
00000980  73 74 62 79 74 65 0d 06  90 05 5d 0d 06 9a 05 ed  |stbyte....].....|
00000990  0d 06 a4 0f 4f 25 3d 6c  61 73 74 62 79 74 65 0d  |....O%=lastbyte.|
000009a0  06 ae 0d d7 22 4d 4f 44  54 57 4f 22 0d 06 b8 10  |...."MODTWO"....|
000009b0  dd a4 65 71 75 62 28 62  79 74 65 29 0d 06 c2 0c  |..equb(byte)....|
000009c0  3f 50 25 3d 62 79 74 65  0d 06 cc 0b 50 25 3d 50  |?P%=byte....P%=P|
000009d0  25 2b 31 0d 06 d6 09 3d  70 61 73 73 0d 06 e0 10  |%+1....=pass....|
000009e0  dd a4 65 71 75 77 28 77  6f 72 64 29 0d 06 ea 12  |..equw(word)....|
000009f0  3f 50 25 3d 77 6f 72 64  20 83 20 32 35 36 0d 06  |?P%=word . 256..|
00000a00  f4 13 50 25 3f 31 3d 77  6f 72 64 20 81 20 32 35  |..P%?1=word . 25|
00000a10  36 0d 06 fe 0b 50 25 3d  50 25 2b 32 0d 07 08 09  |6....P%=P%+2....|
00000a20  3d 70 61 73 73 0d 07 12  12 dd a4 65 71 75 64 28  |=pass......equd(|
00000a30  64 6f 75 62 6c 65 29 0d  07 1c 0e 21 50 25 3d 64  |double)....!P%=d|
00000a40  6f 75 62 6c 65 0d 07 26  0b 50 25 3d 50 25 2b 34  |ouble..&.P%=P%+4|
00000a50  0d 07 30 09 3d 70 61 73  73 0d 07 3a 13 dd a4 65  |..0.=pass..:...e|
00000a60  71 75 73 28 73 74 72 69  6e 67 24 29 0d 07 44 0f  |qus(string$)..D.|
00000a70  24 50 25 3d 73 74 72 69  6e 67 24 0d 07 4e 14 50  |$P%=string$..N.P|
00000a80  25 3d 50 25 2b a9 28 73  74 72 69 6e 67 24 29 0d  |%=P%+.(string$).|
00000a90  07 58 09 3d 70 61 73 73  0d ff                    |.X.=pass..|
00000a9a
15-04-88/MODONE.m0
15-04-88/MODONE.m1
15-04-88/MODONE.m2
15-04-88/MODONE.m4
15-04-88/MODONE.m5