Home » CEEFAX disks » telesoftware11.adl » 11-12-88/T\SWR23
11-12-88/T\SWR23
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 » telesoftware11.adl |
| Filename: | 11-12-88/T\SWR23 |
| Read OK: | ✔ |
| File size: | 2DA1 bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware11.adl » 11-12-88/T\SWR23
- CEEFAX disks » telesoftware6.adl » 09-04-88/T\SWR23
File contents
Mastering Sideways ROM & RAM - Module 23 - RFS for BASIC programmers
--------------------------------------------------------------------
The RFS modules of the course have hopefully been useful to both
BASIC and Assembly language programmers. Experienced Assembly language
programmers will be able to combine the different ideas illustrated in
the course modules into one "ideal" RFS service call interpreter. This
might be more difficult for BASIC programmers who simply want to use
the RFS formatting programs without necessarily knowing how to modify
the Assembly language instructions to suit their particular needs.
This module will be of particular interest to BASIC programmers who
do not understand Assembly language. I will provide an RFS interpreter
which includes most of the relevant ideas in one program and discuss
some simple modifications which can easily be made to customise the
program.
The program ALLRFS is used with RFSGEN to create an RFS rom image
which incorporates extended help, auto-boot and running a BASIC file
stored in the RFS with a new * command. The rom image created with
this program only needs to be used in one SWR bank or in one eprom. If
more than one ram bank is used to store RFS files then all but one rom
image should be created with RFSHEAD (introduced in module 18). I will
not go over the instructions for using these formatting programs
again. If you do not know how to use the formatting programs go back
to module 18 where detailed instructions were given.
The RFS will be selected and catalogued when either R+Break or
Ctrl+R+Break is pressed on the BBC B or when Ctrl+R+Break is used on
the BBC Master.
The rom image created with ALLRFS responds to the *HELP command by
printing:
Rom Filing System
RFS
and to *HELP RFS by printing:
Rom Filing System
Select RFS with *ROM
Boot RFS with Ctrl+R+Break
Enter RFS with *RFS or *FX142,n
This response to the *HELP command can be modified in lines 1600 to
1790 of ALLRFS. The argument used to request extended help is in line
1660. If, for example, you want to request extended help with
*HELP FILES then modify line 1660 to read:
1660 OPT FNequs("FILES")
The extended help message is in lines 1700 to 1780. Each line of
text should be preceded by and followed by a carriage return character
(lines 1700, 1720, 1740, 1760, 1780) and the last character of the
message must be followed by the BRK instruction (line 1790). You can
use up to 255 characters in the extended help message. If, for
example, you want to alter the heading of the extended help from "Rom
Filing System" to "RFS BASIC programs" then change line 1710 to read:
1710 OPT FNequs("RFS BASIC programs")
If you do not want any heading to the extended help message then
delete lines 1710 and 1720.
One BASIC program stored in the RFS can be chained into user memory
with a new * command. ALLRFS uses the command *RFS to chain the
program DEMO. You can alter the string used for the new * command in
line 270 and alter the BASIC command in line 3010. If, for example,
you want to chain a menu program called STARTUP with the new command
*MENU then alter line 270 to read:
270 OPT FNequs("MENU")
alter line 1770 to read:
1770 OPT FNequs("Enter RFS with *MENU or *FX142,n")
and alter line 3010 to read:
3010 OPT FNequs("CHAIN""STARTUP""")
The program STARTUP must be stored in an active RFS rom image in the
computer but it does not have to be in the rom image created by
ALLRFS. If the rom image created with ALLRFS is stored in an eprom in
socket &0F then the menu program will always run when the computer is
switched on and when Ctrl+Break is pressed.
10 REM: ALLRFS
20 MODE7
30 HIMEM=&3C00
40 diff=&8000-HIMEM
50 H%=HIMEM
60 address=&70
70 comvec=&F2
80 romnumber=&F4
90 phrom=&F5
100 rompoint=&F6
110 breakv=&202
120 gsinit=&FFC2
130 gsread=&FFC5
140 osasci=&FFE3
150 osnewl=&FFE7
160 osbyte=&FFF4
170 oscli=&FFF7
180 FOR pass = 0 TO 2 STEP 2
190 P%=HIMEM
200 [ OPT pass
210 JMP language+diff
220 JMP service+diff
230 OPT FNequb(&C2)
240 OPT FNequb((copyright+diff) MOD 256)
250 BRK
260 .title
270 OPT FNequs("RFS")
280 .copyright
290 BRK
300 OPT FNequs("(C) Gordon Horsington 1987")
310 BRK
320 .service
330 PHA
340 CMP #4
350 BNE trythirteen
360 TXA
370 PHA
380 TYA
390 PHA
400 LDX #&FF
410 .comloop
420 INX
430 LDA title+diff,X
440 BEQ found
450 LDA (comvec),Y
460 INY
470 CMP #ASC(".")
480 BEQ found
490 AND #&DF
500 CMP title+diff,X
510 BEQ comloop
520 PLA
530 TAY
540 PLA
550 TAX
560 PLA
570 RTS
580 .found
590 LDA #&8E
600 LDX romnumber
610 JMP osbyte \ Enter this ROM
620 .trythirteen
630 CMP #13
640 BNE fourteen
650 TYA
660 EOR #&F
670 CMP romnumber
680 BCC out
690 LDA #(lastbyte+diff) MOD 256
700 STA rompoint
710 LDA #(lastbyte+diff) DIV 256
720 STA rompoint+1
730 LDA romnumber
740 EOR #&F
750 STA phrom
760 .exit
770 PLA
780 LDA #0
790 RTS
800 .fourteen
810 CMP #14
820 BNE trythree
830 LDA phrom
840 EOR #&F
850 CMP romnumber
860 BNE out
870 LDY #0
880 LDA (rompoint),Y
890 TAY
900 INC rompoint
910 BNE exit
920 INC rompoint+1
930 JMP exit+diff
940 .out
950 PLA
960 RTS
970 .trythree
980 CMP #3
990 BNE trynine
1000 JMP three+diff
1010 .trynine
1020 CMP #9
1030 BNE out
1040 TXA
1050 PHA
1060 TYA
1070 PHA
1080 LDA address
1090 PHA
1100 LDA address+1
1110 PHA
1120 SEC
1130 JSR gsinit
1140 LDX #0
1150 JSR gsread
1160 BCC tryextended
1170 LDX #(helptitle+diff) MOD 256
1180 LDY #(helptitle+diff) DIV 256
1190 JSR print+diff
1200 .exithelp
1210 PLA
1220 STA address+1
1230 PLA
1240 STA address
1250 PLA
1260 TAY
1270 PLA
1280 TAX
1290 PLA
1300 RTS
1310 .helploop
1320 INX
1330 JSR gsread
1340 .tryextended
1350 CMP #ASC(".")
1360 BEQ extension
1370 AND #&DF
1380 CMP extended+diff,X
1390 BEQ helploop
1400 LDA extended+diff,X
1410 BPL exithelp
1420 .extension
1430 LDX #(exthelp+diff) MOD 256
1440 LDY #(exthelp+diff) DIV 256
1450 JSR print+diff
1460 BEQ exithelp
1470 .print
1480 STX address
1490 STY address+1
1500 LDY #&FF
1510 .printloop
1520 INY
1530 LDA (address),Y
1540 BEQ endprint
1550 BMI printloop
1560 JSR osasci
1570 JMP printloop+diff
1580 .endprint
1590 RTS
1600 .helptitle
1610 OPT FNequb(&0D)
1620 OPT FNequs("Rom Filing System")
1630 OPT FNequb(&0D)
1640 OPT FNequw(&2020)
1650 .extended
1660 OPT FNequs("RFS")
1670 OPT FNequw(&0DFF)
1680 BRK
1690 .exthelp
1700 OPT FNequb(&0D)
1710 OPT FNequs("Rom Filing System")
1720 OPT FNequw(&0D0D)
1730 OPT FNequs("Select RFS with *ROM")
1740 OPT FNequb(&0D)
1750 OPT FNequs("Boot RFS with Ctrl+R+Break")
1760 OPT FNequb(&0D)
1770 OPT FNequs("Enter RFS with *RFS or *FX142,n")
1780 OPT FNequb(&0D)
1790 BRK
1800 .three
1810 TXA
1820 PHA
1830 TYA
1840 PHA
1850 LDA #&7A
1860 JSR osbyte
1870 CPX #&33 \ Is it Ctrl+R+Break?
1880 BEQ rbreak
1890 PLA
1900 TAY
1910 PLA
1920 TAX
1930 PLA
1940 RTS
1950 .rbreak
1960 LDA #&C9
1970 LDX #1
1980 LDY #0
1990 JSR osbyte \ Disable keyboard
2000 LDA #&0F
2010 LDX #0
2020 JSR osbyte \ Flush all buffers
2030 LDA address
2040 PHA
2050 LDA address+1
2060 PHA
2070 LDX #(rfs+diff) MOD 256
2080 LDY #(rfs+diff) DIV 256
2090 JSR print+diff
2100 LDX #(cat+diff) MOD 256
2110 LDY #(cat+diff) DIV 256
2120 JSR print+diff
2130 LDA #&8D
2140 JSR osbyte \ Select RFS
2150 LDA #&8B
2160 LDX #1
2170 LDY #2
2180 JSR osbyte \ *OPT1,2
2190 LDX #(dot+diff) MOD 256
2200 LDY #(dot+diff) DIV 256
2210 JSR oscli \ Catalogue RFS
2220 LDA #&8B
2230 LDX #0
2240 LDY #0
2250 JSR osbyte \ *OPT 1,0
2260 JSR osnewl
2270 LDX #(rfs+diff) MOD 256
2280 LDY #(rfs+diff) DIV 256
2290 JSR print+diff
2300 LDX #(act+diff) MOD 256
2310 LDY #(act+diff) DIV 256
2320 JSR print+diff
2330 PLA
2340 STA address+1
2350 PLA
2360 STA address
2370 LDA #&C9
2380 LDX #0
2390 LDY #0
2400 JSR osbyte \ Enable keyboard
2410 PLA
2420 PLA
2430 PLA
2440 LDA #0
2450 RTS
2460 .dot
2470 OPT FNequs("CAT")
2480 OPT FNequb(&0D)
2490 .rfs
2500 OPT FNequs("Rom Filing System ")
2510 BRK
2520 .cat
2530 OPT FNequs("Catalogue")
2540 OPT FNequb(&0D)
2550 BRK
2560 .act
2570 OPT FNequs("active")
2580 OPT FNequw(&0D0D)
2590 BRK
2600 .language
2610 CLI \ Enable interupt requests
2620 LDX #&FF
2630 TXS \ Reset stack
2640 LDA #(basic+diff) MOD 256
2650 STA breakv
2660 LDA #(basic+diff) DIV 256
2670 STA breakv+1
2680 LDA #&8D
2690 JSR osbyte \ *ROM
2700 LDA #&8B
2710 LDX #1
2720 LDY #0
2730 JSR osbyte \ *OPT1,0
2740 LDA #&0F
2750 LDX #0
2760 JSR osbyte \ Flush all buffers
2770 LDA #&FF
2780 PHA
2790 .keyboard
2800 PLA
2810 TAX
2820 INX
2830 TXA
2840 PHA
2850 LDY rfscomm+diff,X
2860 BEQ endkey
2870 LDA #&8A
2880 LDX #0
2890 JSR osbyte
2900 JMP keyboard+diff
2910 .endkey
2920 PLA
2930 .basic
2940 LDA #&BB
2950 LDX #0
2960 LDY #&FF
2970 JSR osbyte \ Find BASIC
2980 LDA #&8E
2990 JMP osbyte \ Enter BASIC
3000 .rfscomm
3010 OPT FNequs("CHAIN""DEMO""")
3020 OPT FNequb(&0D)
3030 BRK
3040 .lastbyte
3050 ]
3060 NEXT
3070 O%=lastbyte
3080 CHAIN"RFSGEN"
3090 DEFFNequb(byte)
3100 ?P%=byte
3110 P%=P%+1
3120 =pass
3130 DEFFNequw(word)
3140 ?P%=word MOD 256
3150 P%?1=word DIV 256
3160 P%=P%+2
3170 =pass
3180 DEFFNequd(double)
3190 !P%=double
3200 P%=P%+4
3210 =pass
3220 DEFFNequs(string$)
3230 $P%=string$
3240 P%=P%+LEN(string$)
3250 =pass
00000000 4d 61 73 74 65 72 69 6e 67 20 53 69 64 65 77 61 |Mastering Sidewa|
00000010 79 73 20 52 4f 4d 20 26 20 52 41 4d 20 2d 20 4d |ys ROM & RAM - M|
00000020 6f 64 75 6c 65 20 32 33 20 2d 20 52 46 53 20 66 |odule 23 - RFS f|
00000030 6f 72 20 42 41 53 49 43 20 70 72 6f 67 72 61 6d |or BASIC program|
00000040 6d 65 72 73 0d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |mers.-----------|
00000050 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000080 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d 20 20 54 68 65 |---------.. The|
00000090 20 52 46 53 20 6d 6f 64 75 6c 65 73 20 6f 66 20 | RFS modules of |
000000a0 74 68 65 20 63 6f 75 72 73 65 20 68 61 76 65 20 |the course have |
000000b0 68 6f 70 65 66 75 6c 6c 79 20 62 65 65 6e 20 75 |hopefully been u|
000000c0 73 65 66 75 6c 20 74 6f 20 62 6f 74 68 0d 42 41 |seful to both.BA|
000000d0 53 49 43 20 61 6e 64 20 41 73 73 65 6d 62 6c 79 |SIC and Assembly|
000000e0 20 6c 61 6e 67 75 61 67 65 20 70 72 6f 67 72 61 | language progra|
000000f0 6d 6d 65 72 73 2e 20 45 78 70 65 72 69 65 6e 63 |mmers. Experienc|
00000100 65 64 20 41 73 73 65 6d 62 6c 79 20 6c 61 6e 67 |ed Assembly lang|
00000110 75 61 67 65 0d 70 72 6f 67 72 61 6d 6d 65 72 73 |uage.programmers|
00000120 20 77 69 6c 6c 20 62 65 20 61 62 6c 65 20 74 6f | will be able to|
00000130 20 63 6f 6d 62 69 6e 65 20 74 68 65 20 64 69 66 | combine the dif|
00000140 66 65 72 65 6e 74 20 69 64 65 61 73 20 69 6c 6c |ferent ideas ill|
00000150 75 73 74 72 61 74 65 64 20 69 6e 0d 74 68 65 20 |ustrated in.the |
00000160 63 6f 75 72 73 65 20 6d 6f 64 75 6c 65 73 20 69 |course modules i|
00000170 6e 74 6f 20 6f 6e 65 20 22 69 64 65 61 6c 22 20 |nto one "ideal" |
00000180 52 46 53 20 73 65 72 76 69 63 65 20 63 61 6c 6c |RFS service call|
00000190 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 54 68 | interpreter. Th|
000001a0 69 73 0d 6d 69 67 68 74 20 62 65 20 6d 6f 72 65 |is.might be more|
000001b0 20 64 69 66 66 69 63 75 6c 74 20 66 6f 72 20 42 | difficult for B|
000001c0 41 53 49 43 20 70 72 6f 67 72 61 6d 6d 65 72 73 |ASIC programmers|
000001d0 20 77 68 6f 20 73 69 6d 70 6c 79 20 77 61 6e 74 | who simply want|
000001e0 20 74 6f 20 75 73 65 0d 74 68 65 20 52 46 53 20 | to use.the RFS |
000001f0 66 6f 72 6d 61 74 74 69 6e 67 20 70 72 6f 67 72 |formatting progr|
00000200 61 6d 73 20 77 69 74 68 6f 75 74 20 6e 65 63 65 |ams without nece|
00000210 73 73 61 72 69 6c 79 20 6b 6e 6f 77 69 6e 67 20 |ssarily knowing |
00000220 68 6f 77 20 74 6f 20 6d 6f 64 69 66 79 0d 74 68 |how to modify.th|
00000230 65 20 41 73 73 65 6d 62 6c 79 20 6c 61 6e 67 75 |e Assembly langu|
00000240 61 67 65 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 |age instructions|
00000250 20 74 6f 20 73 75 69 74 20 74 68 65 69 72 20 70 | to suit their p|
00000260 61 72 74 69 63 75 6c 61 72 20 6e 65 65 64 73 2e |articular needs.|
00000270 0d 0d 20 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 |.. This module |
00000280 77 69 6c 6c 20 62 65 20 6f 66 20 70 61 72 74 69 |will be of parti|
00000290 63 75 6c 61 72 20 69 6e 74 65 72 65 73 74 20 74 |cular interest t|
000002a0 6f 20 42 41 53 49 43 20 70 72 6f 67 72 61 6d 6d |o BASIC programm|
000002b0 65 72 73 20 77 68 6f 0d 64 6f 20 6e 6f 74 20 75 |ers who.do not u|
000002c0 6e 64 65 72 73 74 61 6e 64 20 41 73 73 65 6d 62 |nderstand Assemb|
000002d0 6c 79 20 6c 61 6e 67 75 61 67 65 2e 20 49 20 77 |ly language. I w|
000002e0 69 6c 6c 20 70 72 6f 76 69 64 65 20 61 6e 20 52 |ill provide an R|
000002f0 46 53 20 69 6e 74 65 72 70 72 65 74 65 72 0d 77 |FS interpreter.w|
00000300 68 69 63 68 20 69 6e 63 6c 75 64 65 73 20 6d 6f |hich includes mo|
00000310 73 74 20 6f 66 20 74 68 65 20 72 65 6c 65 76 61 |st of the releva|
00000320 6e 74 20 69 64 65 61 73 20 69 6e 20 6f 6e 65 20 |nt ideas in one |
00000330 70 72 6f 67 72 61 6d 20 61 6e 64 20 64 69 73 63 |program and disc|
00000340 75 73 73 0d 73 6f 6d 65 20 73 69 6d 70 6c 65 20 |uss.some simple |
00000350 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 77 68 |modifications wh|
00000360 69 63 68 20 63 61 6e 20 65 61 73 69 6c 79 20 62 |ich can easily b|
00000370 65 20 6d 61 64 65 20 74 6f 20 63 75 73 74 6f 6d |e made to custom|
00000380 69 73 65 20 74 68 65 0d 70 72 6f 67 72 61 6d 2e |ise the.program.|
00000390 0d 0d 20 20 54 68 65 20 70 72 6f 67 72 61 6d 20 |.. The program |
000003a0 41 4c 4c 52 46 53 20 69 73 20 75 73 65 64 20 77 |ALLRFS is used w|
000003b0 69 74 68 20 52 46 53 47 45 4e 20 74 6f 20 63 72 |ith RFSGEN to cr|
000003c0 65 61 74 65 20 61 6e 20 52 46 53 20 72 6f 6d 20 |eate an RFS rom |
000003d0 69 6d 61 67 65 0d 77 68 69 63 68 20 69 6e 63 6f |image.which inco|
000003e0 72 70 6f 72 61 74 65 73 20 65 78 74 65 6e 64 65 |rporates extende|
000003f0 64 20 68 65 6c 70 2c 20 61 75 74 6f 2d 62 6f 6f |d help, auto-boo|
00000400 74 20 61 6e 64 20 72 75 6e 6e 69 6e 67 20 61 20 |t and running a |
00000410 42 41 53 49 43 20 66 69 6c 65 0d 73 74 6f 72 65 |BASIC file.store|
00000420 64 20 69 6e 20 74 68 65 20 52 46 53 20 77 69 74 |d in the RFS wit|
00000430 68 20 61 20 6e 65 77 20 2a 20 63 6f 6d 6d 61 6e |h a new * comman|
00000440 64 2e 20 54 68 65 20 72 6f 6d 20 69 6d 61 67 65 |d. The rom image|
00000450 20 63 72 65 61 74 65 64 20 77 69 74 68 0d 74 68 | created with.th|
00000460 69 73 20 70 72 6f 67 72 61 6d 20 6f 6e 6c 79 20 |is program only |
00000470 6e 65 65 64 73 20 74 6f 20 62 65 20 75 73 65 64 |needs to be used|
00000480 20 69 6e 20 6f 6e 65 20 53 57 52 20 62 61 6e 6b | in one SWR bank|
00000490 20 6f 72 20 69 6e 20 6f 6e 65 20 65 70 72 6f 6d | or in one eprom|
000004a0 2e 20 49 66 0d 6d 6f 72 65 20 74 68 61 6e 20 6f |. If.more than o|
000004b0 6e 65 20 72 61 6d 20 62 61 6e 6b 20 69 73 20 75 |ne ram bank is u|
000004c0 73 65 64 20 74 6f 20 73 74 6f 72 65 20 52 46 53 |sed to store RFS|
000004d0 20 66 69 6c 65 73 20 74 68 65 6e 20 61 6c 6c 20 | files then all |
000004e0 62 75 74 20 6f 6e 65 20 72 6f 6d 0d 69 6d 61 67 |but one rom.imag|
000004f0 65 20 73 68 6f 75 6c 64 20 62 65 20 63 72 65 61 |e should be crea|
00000500 74 65 64 20 77 69 74 68 20 52 46 53 48 45 41 44 |ted with RFSHEAD|
00000510 20 28 69 6e 74 72 6f 64 75 63 65 64 20 69 6e 20 | (introduced in |
00000520 6d 6f 64 75 6c 65 20 31 38 29 2e 20 49 20 77 69 |module 18). I wi|
00000530 6c 6c 0d 6e 6f 74 20 67 6f 20 6f 76 65 72 20 74 |ll.not go over t|
00000540 68 65 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 |he instructions |
00000550 66 6f 72 20 75 73 69 6e 67 20 74 68 65 73 65 20 |for using these |
00000560 66 6f 72 6d 61 74 74 69 6e 67 20 70 72 6f 67 72 |formatting progr|
00000570 61 6d 73 0d 61 67 61 69 6e 2e 20 49 66 20 79 6f |ams.again. If yo|
00000580 75 20 64 6f 20 6e 6f 74 20 6b 6e 6f 77 20 68 6f |u do not know ho|
00000590 77 20 74 6f 20 75 73 65 20 74 68 65 20 66 6f 72 |w to use the for|
000005a0 6d 61 74 74 69 6e 67 20 70 72 6f 67 72 61 6d 73 |matting programs|
000005b0 20 67 6f 20 62 61 63 6b 0d 74 6f 20 6d 6f 64 75 | go back.to modu|
000005c0 6c 65 20 31 38 20 77 68 65 72 65 20 64 65 74 61 |le 18 where deta|
000005d0 69 6c 65 64 20 69 6e 73 74 72 75 63 74 69 6f 6e |iled instruction|
000005e0 73 20 77 65 72 65 20 67 69 76 65 6e 2e 0d 0d 20 |s were given... |
000005f0 20 54 68 65 20 52 46 53 20 77 69 6c 6c 20 62 65 | The RFS will be|
00000600 20 73 65 6c 65 63 74 65 64 20 61 6e 64 20 63 61 | selected and ca|
00000610 74 61 6c 6f 67 75 65 64 20 77 68 65 6e 20 65 69 |talogued when ei|
00000620 74 68 65 72 20 52 2b 42 72 65 61 6b 20 6f 72 0d |ther R+Break or.|
00000630 43 74 72 6c 2b 52 2b 42 72 65 61 6b 20 69 73 20 |Ctrl+R+Break is |
00000640 70 72 65 73 73 65 64 20 6f 6e 20 74 68 65 20 42 |pressed on the B|
00000650 42 43 20 42 20 6f 72 20 77 68 65 6e 20 43 74 72 |BC B or when Ctr|
00000660 6c 2b 52 2b 42 72 65 61 6b 20 69 73 20 75 73 65 |l+R+Break is use|
00000670 64 20 6f 6e 0d 74 68 65 20 42 42 43 20 4d 61 73 |d on.the BBC Mas|
00000680 74 65 72 2e 0d 0d 20 20 54 68 65 20 72 6f 6d 20 |ter... The rom |
00000690 69 6d 61 67 65 20 63 72 65 61 74 65 64 20 77 69 |image created wi|
000006a0 74 68 20 41 4c 4c 52 46 53 20 72 65 73 70 6f 6e |th ALLRFS respon|
000006b0 64 73 20 74 6f 20 74 68 65 20 2a 48 45 4c 50 20 |ds to the *HELP |
000006c0 63 6f 6d 6d 61 6e 64 20 62 79 0d 70 72 69 6e 74 |command by.print|
000006d0 69 6e 67 3a 0d 0d 20 20 20 20 20 20 20 20 20 20 |ing:.. |
000006e0 52 6f 6d 20 46 69 6c 69 6e 67 20 53 79 73 74 65 |Rom Filing Syste|
000006f0 6d 0d 20 20 20 20 20 20 20 20 20 20 20 20 52 46 |m. RF|
00000700 53 0d 0d 61 6e 64 20 74 6f 20 2a 48 45 4c 50 20 |S..and to *HELP |
00000710 52 46 53 20 62 79 20 70 72 69 6e 74 69 6e 67 3a |RFS by printing:|
00000720 0d 0d 20 20 20 20 20 20 20 20 20 20 52 6f 6d 20 |.. Rom |
00000730 46 69 6c 69 6e 67 20 53 79 73 74 65 6d 0d 0d 20 |Filing System.. |
00000740 20 20 20 20 20 20 20 20 20 53 65 6c 65 63 74 20 | Select |
00000750 52 46 53 20 77 69 74 68 20 2a 52 4f 4d 0d 20 20 |RFS with *ROM. |
00000760 20 20 20 20 20 20 20 20 42 6f 6f 74 20 52 46 53 | Boot RFS|
00000770 20 77 69 74 68 20 43 74 72 6c 2b 52 2b 42 72 65 | with Ctrl+R+Bre|
00000780 61 6b 0d 20 20 20 20 20 20 20 20 20 20 45 6e 74 |ak. Ent|
00000790 65 72 20 52 46 53 20 77 69 74 68 20 2a 52 46 53 |er RFS with *RFS|
000007a0 20 6f 72 20 2a 46 58 31 34 32 2c 6e 0d 0d 20 20 | or *FX142,n.. |
000007b0 54 68 69 73 20 72 65 73 70 6f 6e 73 65 20 74 6f |This response to|
000007c0 20 74 68 65 20 2a 48 45 4c 50 20 63 6f 6d 6d 61 | the *HELP comma|
000007d0 6e 64 20 63 61 6e 20 62 65 20 6d 6f 64 69 66 69 |nd can be modifi|
000007e0 65 64 20 69 6e 20 6c 69 6e 65 73 20 31 36 30 30 |ed in lines 1600|
000007f0 20 74 6f 0d 31 37 39 30 20 6f 66 20 41 4c 4c 52 | to.1790 of ALLR|
00000800 46 53 2e 20 54 68 65 20 61 72 67 75 6d 65 6e 74 |FS. The argument|
00000810 20 75 73 65 64 20 74 6f 20 72 65 71 75 65 73 74 | used to request|
00000820 20 65 78 74 65 6e 64 65 64 20 68 65 6c 70 20 69 | extended help i|
00000830 73 20 69 6e 20 6c 69 6e 65 0d 31 36 36 30 2e 20 |s in line.1660. |
00000840 49 66 2c 20 66 6f 72 20 65 78 61 6d 70 6c 65 2c |If, for example,|
00000850 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 72 65 71 | you want to req|
00000860 75 65 73 74 20 65 78 74 65 6e 64 65 64 20 68 65 |uest extended he|
00000870 6c 70 20 77 69 74 68 0d 2a 48 45 4c 50 20 46 49 |lp with.*HELP FI|
00000880 4c 45 53 20 74 68 65 6e 20 6d 6f 64 69 66 79 20 |LES then modify |
00000890 6c 69 6e 65 20 31 36 36 30 20 74 6f 20 72 65 61 |line 1660 to rea|
000008a0 64 3a 0d 0d 20 31 36 36 30 20 4f 50 54 20 46 4e |d:.. 1660 OPT FN|
000008b0 65 71 75 73 28 22 46 49 4c 45 53 22 29 0d 0d 20 |equs("FILES").. |
000008c0 20 54 68 65 20 65 78 74 65 6e 64 65 64 20 68 65 | The extended he|
000008d0 6c 70 20 6d 65 73 73 61 67 65 20 69 73 20 69 6e |lp message is in|
000008e0 20 6c 69 6e 65 73 20 31 37 30 30 20 74 6f 20 31 | lines 1700 to 1|
000008f0 37 38 30 2e 20 45 61 63 68 20 6c 69 6e 65 20 6f |780. Each line o|
00000900 66 0d 74 65 78 74 20 73 68 6f 75 6c 64 20 62 65 |f.text should be|
00000910 20 70 72 65 63 65 64 65 64 20 62 79 20 61 6e 64 | preceded by and|
00000920 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 63 | followed by a c|
00000930 61 72 72 69 61 67 65 20 72 65 74 75 72 6e 20 63 |arriage return c|
00000940 68 61 72 61 63 74 65 72 0d 28 6c 69 6e 65 73 20 |haracter.(lines |
00000950 31 37 30 30 2c 20 31 37 32 30 2c 20 31 37 34 30 |1700, 1720, 1740|
00000960 2c 20 31 37 36 30 2c 20 31 37 38 30 29 20 61 6e |, 1760, 1780) an|
00000970 64 20 74 68 65 20 6c 61 73 74 20 63 68 61 72 61 |d the last chara|
00000980 63 74 65 72 20 6f 66 20 74 68 65 0d 6d 65 73 73 |cter of the.mess|
00000990 61 67 65 20 6d 75 73 74 20 62 65 20 66 6f 6c 6c |age must be foll|
000009a0 6f 77 65 64 20 62 79 20 74 68 65 20 42 52 4b 20 |owed by the BRK |
000009b0 69 6e 73 74 72 75 63 74 69 6f 6e 20 28 6c 69 6e |instruction (lin|
000009c0 65 20 31 37 39 30 29 2e 20 59 6f 75 20 63 61 6e |e 1790). You can|
000009d0 0d 75 73 65 20 75 70 20 74 6f 20 32 35 35 20 63 |.use up to 255 c|
000009e0 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 |haracters in the|
000009f0 20 65 78 74 65 6e 64 65 64 20 68 65 6c 70 20 6d | extended help m|
00000a00 65 73 73 61 67 65 2e 20 49 66 2c 20 66 6f 72 0d |essage. If, for.|
00000a10 65 78 61 6d 70 6c 65 2c 20 79 6f 75 20 77 61 6e |example, you wan|
00000a20 74 20 74 6f 20 61 6c 74 65 72 20 74 68 65 20 68 |t to alter the h|
00000a30 65 61 64 69 6e 67 20 6f 66 20 74 68 65 20 65 78 |eading of the ex|
00000a40 74 65 6e 64 65 64 20 68 65 6c 70 20 66 72 6f 6d |tended help from|
00000a50 20 22 52 6f 6d 0d 46 69 6c 69 6e 67 20 53 79 73 | "Rom.Filing Sys|
00000a60 74 65 6d 22 20 74 6f 20 22 52 46 53 20 42 41 53 |tem" to "RFS BAS|
00000a70 49 43 20 70 72 6f 67 72 61 6d 73 22 20 74 68 65 |IC programs" the|
00000a80 6e 20 63 68 61 6e 67 65 20 6c 69 6e 65 20 31 37 |n change line 17|
00000a90 31 30 20 74 6f 20 72 65 61 64 3a 0d 0d 20 31 37 |10 to read:.. 17|
00000aa0 31 30 20 4f 50 54 20 46 4e 65 71 75 73 28 22 52 |10 OPT FNequs("R|
00000ab0 46 53 20 42 41 53 49 43 20 70 72 6f 67 72 61 6d |FS BASIC program|
00000ac0 73 22 29 0d 0d 20 20 49 66 20 79 6f 75 20 64 6f |s").. If you do|
00000ad0 20 6e 6f 74 20 77 61 6e 74 20 61 6e 79 20 68 65 | not want any he|
00000ae0 61 64 69 6e 67 20 74 6f 20 74 68 65 20 65 78 74 |ading to the ext|
00000af0 65 6e 64 65 64 20 68 65 6c 70 20 6d 65 73 73 61 |ended help messa|
00000b00 67 65 20 74 68 65 6e 0d 64 65 6c 65 74 65 20 6c |ge then.delete l|
00000b10 69 6e 65 73 20 31 37 31 30 20 61 6e 64 20 31 37 |ines 1710 and 17|
00000b20 32 30 2e 0d 0d 20 20 4f 6e 65 20 42 41 53 49 43 |20... One BASIC|
00000b30 20 70 72 6f 67 72 61 6d 20 73 74 6f 72 65 64 20 | program stored |
00000b40 69 6e 20 74 68 65 20 52 46 53 20 63 61 6e 20 62 |in the RFS can b|
00000b50 65 20 63 68 61 69 6e 65 64 20 69 6e 74 6f 20 75 |e chained into u|
00000b60 73 65 72 20 6d 65 6d 6f 72 79 0d 77 69 74 68 20 |ser memory.with |
00000b70 61 20 6e 65 77 20 2a 20 63 6f 6d 6d 61 6e 64 2e |a new * command.|
00000b80 20 41 4c 4c 52 46 53 20 75 73 65 73 20 74 68 65 | ALLRFS uses the|
00000b90 20 63 6f 6d 6d 61 6e 64 20 2a 52 46 53 20 74 6f | command *RFS to|
00000ba0 20 63 68 61 69 6e 20 74 68 65 0d 70 72 6f 67 72 | chain the.progr|
00000bb0 61 6d 20 44 45 4d 4f 2e 20 59 6f 75 20 63 61 6e |am DEMO. You can|
00000bc0 20 61 6c 74 65 72 20 74 68 65 20 73 74 72 69 6e | alter the strin|
00000bd0 67 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 6e |g used for the n|
00000be0 65 77 20 2a 20 63 6f 6d 6d 61 6e 64 20 69 6e 0d |ew * command in.|
00000bf0 6c 69 6e 65 20 32 37 30 20 61 6e 64 20 61 6c 74 |line 270 and alt|
00000c00 65 72 20 74 68 65 20 42 41 53 49 43 20 63 6f 6d |er the BASIC com|
00000c10 6d 61 6e 64 20 69 6e 20 6c 69 6e 65 20 33 30 31 |mand in line 301|
00000c20 30 2e 20 49 66 2c 20 66 6f 72 20 65 78 61 6d 70 |0. If, for examp|
00000c30 6c 65 2c 0d 79 6f 75 20 77 61 6e 74 20 74 6f 20 |le,.you want to |
00000c40 63 68 61 69 6e 20 61 20 6d 65 6e 75 20 70 72 6f |chain a menu pro|
00000c50 67 72 61 6d 20 63 61 6c 6c 65 64 20 53 54 41 52 |gram called STAR|
00000c60 54 55 50 20 77 69 74 68 20 74 68 65 20 6e 65 77 |TUP with the new|
00000c70 20 63 6f 6d 6d 61 6e 64 0d 2a 4d 45 4e 55 20 74 | command.*MENU t|
00000c80 68 65 6e 20 61 6c 74 65 72 20 6c 69 6e 65 20 32 |hen alter line 2|
00000c90 37 30 20 74 6f 20 72 65 61 64 3a 0d 0d 20 20 32 |70 to read:.. 2|
00000ca0 37 30 20 4f 50 54 20 46 4e 65 71 75 73 28 22 4d |70 OPT FNequs("M|
00000cb0 45 4e 55 22 29 0d 0d 61 6c 74 65 72 20 6c 69 6e |ENU")..alter lin|
00000cc0 65 20 31 37 37 30 20 74 6f 20 72 65 61 64 3a 0d |e 1770 to read:.|
00000cd0 0d 20 31 37 37 30 20 4f 50 54 20 46 4e 65 71 75 |. 1770 OPT FNequ|
00000ce0 73 28 22 45 6e 74 65 72 20 52 46 53 20 77 69 74 |s("Enter RFS wit|
00000cf0 68 20 2a 4d 45 4e 55 20 6f 72 20 2a 46 58 31 34 |h *MENU or *FX14|
00000d00 32 2c 6e 22 29 0d 0d 61 6e 64 20 61 6c 74 65 72 |2,n")..and alter|
00000d10 20 6c 69 6e 65 20 33 30 31 30 20 74 6f 20 72 65 | line 3010 to re|
00000d20 61 64 3a 0d 0d 20 33 30 31 30 20 4f 50 54 20 46 |ad:.. 3010 OPT F|
00000d30 4e 65 71 75 73 28 22 43 48 41 49 4e 22 22 53 54 |Nequs("CHAIN""ST|
00000d40 41 52 54 55 50 22 22 22 29 0d 0d 20 20 54 68 65 |ARTUP""").. The|
00000d50 20 70 72 6f 67 72 61 6d 20 53 54 41 52 54 55 50 | program STARTUP|
00000d60 20 6d 75 73 74 20 62 65 20 73 74 6f 72 65 64 20 | must be stored |
00000d70 69 6e 20 61 6e 20 61 63 74 69 76 65 20 52 46 53 |in an active RFS|
00000d80 20 72 6f 6d 20 69 6d 61 67 65 20 69 6e 20 74 68 | rom image in th|
00000d90 65 0d 63 6f 6d 70 75 74 65 72 20 62 75 74 20 69 |e.computer but i|
00000da0 74 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 |t does not have |
00000db0 74 6f 20 62 65 20 69 6e 20 74 68 65 20 72 6f 6d |to be in the rom|
00000dc0 20 69 6d 61 67 65 20 63 72 65 61 74 65 64 20 62 | image created b|
00000dd0 79 0d 41 4c 4c 52 46 53 2e 20 49 66 20 74 68 65 |y.ALLRFS. If the|
00000de0 20 72 6f 6d 20 69 6d 61 67 65 20 63 72 65 61 74 | rom image creat|
00000df0 65 64 20 77 69 74 68 20 41 4c 4c 52 46 53 20 69 |ed with ALLRFS i|
00000e00 73 20 73 74 6f 72 65 64 20 69 6e 20 61 6e 20 65 |s stored in an e|
00000e10 70 72 6f 6d 20 69 6e 0d 73 6f 63 6b 65 74 20 26 |prom in.socket &|
00000e20 30 46 20 74 68 65 6e 20 74 68 65 20 6d 65 6e 75 |0F then the menu|
00000e30 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c 20 61 6c | program will al|
00000e40 77 61 79 73 20 72 75 6e 20 77 68 65 6e 20 74 68 |ways run when th|
00000e50 65 20 63 6f 6d 70 75 74 65 72 20 69 73 0d 73 77 |e computer is.sw|
00000e60 69 74 63 68 65 64 20 6f 6e 20 61 6e 64 20 77 68 |itched on and wh|
00000e70 65 6e 20 43 74 72 6c 2b 42 72 65 61 6b 20 69 73 |en Ctrl+Break is|
00000e80 20 70 72 65 73 73 65 64 2e 0d 0d 0d 0d 0d 0d 20 | pressed....... |
00000e90 20 20 31 30 20 52 45 4d 3a 20 41 4c 4c 52 46 53 | 10 REM: ALLRFS|
00000ea0 0d 20 20 20 32 30 20 4d 4f 44 45 37 0d 20 20 20 |. 20 MODE7. |
00000eb0 33 30 20 48 49 4d 45 4d 3d 26 33 43 30 30 0d 20 |30 HIMEM=&3C00. |
00000ec0 20 20 34 30 20 64 69 66 66 3d 26 38 30 30 30 2d | 40 diff=&8000-|
00000ed0 48 49 4d 45 4d 0d 20 20 20 35 30 20 48 25 3d 48 |HIMEM. 50 H%=H|
00000ee0 49 4d 45 4d 0d 20 20 20 36 30 20 61 64 64 72 65 |IMEM. 60 addre|
00000ef0 73 73 3d 26 37 30 0d 20 20 20 37 30 20 63 6f 6d |ss=&70. 70 com|
00000f00 76 65 63 3d 26 46 32 0d 20 20 20 38 30 20 72 6f |vec=&F2. 80 ro|
00000f10 6d 6e 75 6d 62 65 72 3d 26 46 34 0d 20 20 20 39 |mnumber=&F4. 9|
00000f20 30 20 70 68 72 6f 6d 3d 26 46 35 0d 20 20 31 30 |0 phrom=&F5. 10|
00000f30 30 20 72 6f 6d 70 6f 69 6e 74 3d 26 46 36 0d 20 |0 rompoint=&F6. |
00000f40 20 31 31 30 20 62 72 65 61 6b 76 3d 26 32 30 32 | 110 breakv=&202|
00000f50 0d 20 20 31 32 30 20 67 73 69 6e 69 74 3d 26 46 |. 120 gsinit=&F|
00000f60 46 43 32 0d 20 20 31 33 30 20 67 73 72 65 61 64 |FC2. 130 gsread|
00000f70 3d 26 46 46 43 35 0d 20 20 31 34 30 20 6f 73 61 |=&FFC5. 140 osa|
00000f80 73 63 69 3d 26 46 46 45 33 0d 20 20 31 35 30 20 |sci=&FFE3. 150 |
00000f90 6f 73 6e 65 77 6c 3d 26 46 46 45 37 0d 20 20 31 |osnewl=&FFE7. 1|
00000fa0 36 30 20 6f 73 62 79 74 65 3d 26 46 46 46 34 0d |60 osbyte=&FFF4.|
00000fb0 20 20 31 37 30 20 6f 73 63 6c 69 3d 26 46 46 46 | 170 oscli=&FFF|
00000fc0 37 0d 20 20 31 38 30 20 46 4f 52 20 70 61 73 73 |7. 180 FOR pass|
00000fd0 20 3d 20 30 20 54 4f 20 32 20 53 54 45 50 20 32 | = 0 TO 2 STEP 2|
00000fe0 0d 20 20 31 39 30 20 50 25 3d 48 49 4d 45 4d 0d |. 190 P%=HIMEM.|
00000ff0 20 20 32 30 30 20 5b 20 20 20 20 20 20 20 4f 50 | 200 [ OP|
00001000 54 20 70 61 73 73 0d 20 20 32 31 30 20 20 20 20 |T pass. 210 |
00001010 20 20 20 20 20 4a 4d 50 20 6c 61 6e 67 75 61 67 | JMP languag|
00001020 65 2b 64 69 66 66 0d 20 20 32 32 30 20 20 20 20 |e+diff. 220 |
00001030 20 20 20 20 20 4a 4d 50 20 73 65 72 76 69 63 65 | JMP service|
00001040 2b 64 69 66 66 0d 20 20 32 33 30 20 20 20 20 20 |+diff. 230 |
00001050 20 20 20 20 4f 50 54 20 46 4e 65 71 75 62 28 26 | OPT FNequb(&|
00001060 43 32 29 0d 20 20 32 34 30 20 20 20 20 20 20 20 |C2). 240 |
00001070 20 20 4f 50 54 20 46 4e 65 71 75 62 28 28 63 6f | OPT FNequb((co|
00001080 70 79 72 69 67 68 74 2b 64 69 66 66 29 20 4d 4f |pyright+diff) MO|
00001090 44 20 32 35 36 29 0d 20 20 32 35 30 20 20 20 20 |D 256). 250 |
000010a0 20 20 20 20 20 42 52 4b 0d 20 20 32 36 30 20 2e | BRK. 260 .|
000010b0 74 69 74 6c 65 0d 20 20 32 37 30 20 20 20 20 20 |title. 270 |
000010c0 20 20 20 20 4f 50 54 20 46 4e 65 71 75 73 28 22 | OPT FNequs("|
000010d0 52 46 53 22 29 0d 20 20 32 38 30 20 2e 63 6f 70 |RFS"). 280 .cop|
000010e0 79 72 69 67 68 74 0d 20 20 32 39 30 20 20 20 20 |yright. 290 |
000010f0 20 20 20 20 20 42 52 4b 0d 20 20 33 30 30 20 20 | BRK. 300 |
00001100 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 | OPT FNequ|
00001110 73 28 22 28 43 29 20 47 6f 72 64 6f 6e 20 48 6f |s("(C) Gordon Ho|
00001120 72 73 69 6e 67 74 6f 6e 20 31 39 38 37 22 29 0d |rsington 1987").|
00001130 20 20 33 31 30 20 20 20 20 20 20 20 20 20 42 52 | 310 BR|
00001140 4b 0d 20 20 33 32 30 20 2e 73 65 72 76 69 63 65 |K. 320 .service|
00001150 0d 20 20 33 33 30 20 20 20 20 20 20 20 20 20 50 |. 330 P|
00001160 48 41 0d 20 20 33 34 30 20 20 20 20 20 20 20 20 |HA. 340 |
00001170 20 43 4d 50 20 23 34 0d 20 20 33 35 30 20 20 20 | CMP #4. 350 |
00001180 20 20 20 20 20 20 42 4e 45 20 74 72 79 74 68 69 | BNE trythi|
00001190 72 74 65 65 6e 0d 20 20 33 36 30 20 20 20 20 20 |rteen. 360 |
000011a0 20 20 20 20 54 58 41 0d 20 20 33 37 30 20 20 20 | TXA. 370 |
000011b0 20 20 20 20 20 20 50 48 41 0d 20 20 33 38 30 20 | PHA. 380 |
000011c0 20 20 20 20 20 20 20 20 54 59 41 0d 20 20 33 39 | TYA. 39|
000011d0 30 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 20 |0 PHA. |
000011e0 34 30 30 20 20 20 20 20 20 20 20 20 4c 44 58 20 |400 LDX |
000011f0 23 26 46 46 0d 20 20 34 31 30 20 2e 63 6f 6d 6c |#&FF. 410 .coml|
00001200 6f 6f 70 0d 20 20 34 32 30 20 20 20 20 20 20 20 |oop. 420 |
00001210 20 20 49 4e 58 0d 20 20 34 33 30 20 20 20 20 20 | INX. 430 |
00001220 20 20 20 20 4c 44 41 20 74 69 74 6c 65 2b 64 69 | LDA title+di|
00001230 66 66 2c 58 0d 20 20 34 34 30 20 20 20 20 20 20 |ff,X. 440 |
00001240 20 20 20 42 45 51 20 66 6f 75 6e 64 0d 20 20 34 | BEQ found. 4|
00001250 35 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 28 |50 LDA (|
00001260 63 6f 6d 76 65 63 29 2c 59 0d 20 20 34 36 30 20 |comvec),Y. 460 |
00001270 20 20 20 20 20 20 20 20 49 4e 59 0d 20 20 34 37 | INY. 47|
00001280 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 41 |0 CMP #A|
00001290 53 43 28 22 2e 22 29 0d 20 20 34 38 30 20 20 20 |SC("."). 480 |
000012a0 20 20 20 20 20 20 42 45 51 20 66 6f 75 6e 64 0d | BEQ found.|
000012b0 20 20 34 39 30 20 20 20 20 20 20 20 20 20 41 4e | 490 AN|
000012c0 44 20 23 26 44 46 0d 20 20 35 30 30 20 20 20 20 |D #&DF. 500 |
000012d0 20 20 20 20 20 43 4d 50 20 74 69 74 6c 65 2b 64 | CMP title+d|
000012e0 69 66 66 2c 58 0d 20 20 35 31 30 20 20 20 20 20 |iff,X. 510 |
000012f0 20 20 20 20 42 45 51 20 63 6f 6d 6c 6f 6f 70 0d | BEQ comloop.|
00001300 20 20 35 32 30 20 20 20 20 20 20 20 20 20 50 4c | 520 PL|
00001310 41 0d 20 20 35 33 30 20 20 20 20 20 20 20 20 20 |A. 530 |
00001320 54 41 59 0d 20 20 35 34 30 20 20 20 20 20 20 20 |TAY. 540 |
00001330 20 20 50 4c 41 0d 20 20 35 35 30 20 20 20 20 20 | PLA. 550 |
00001340 20 20 20 20 54 41 58 0d 20 20 35 36 30 20 20 20 | TAX. 560 |
00001350 20 20 20 20 20 20 50 4c 41 0d 20 20 35 37 30 20 | PLA. 570 |
00001360 20 20 20 20 20 20 20 20 52 54 53 0d 20 20 35 38 | RTS. 58|
00001370 30 20 2e 66 6f 75 6e 64 0d 20 20 35 39 30 20 20 |0 .found. 590 |
00001380 20 20 20 20 20 20 20 4c 44 41 20 23 26 38 45 0d | LDA #&8E.|
00001390 20 20 36 30 30 20 20 20 20 20 20 20 20 20 4c 44 | 600 LD|
000013a0 58 20 72 6f 6d 6e 75 6d 62 65 72 0d 20 20 36 31 |X romnumber. 61|
000013b0 30 20 20 20 20 20 20 20 20 20 4a 4d 50 20 6f 73 |0 JMP os|
000013c0 62 79 74 65 20 20 20 20 5c 20 45 6e 74 65 72 20 |byte \ Enter |
000013d0 74 68 69 73 20 52 4f 4d 0d 20 20 36 32 30 20 2e |this ROM. 620 .|
000013e0 74 72 79 74 68 69 72 74 65 65 6e 0d 20 20 36 33 |trythirteen. 63|
000013f0 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 31 |0 CMP #1|
00001400 33 0d 20 20 36 34 30 20 20 20 20 20 20 20 20 20 |3. 640 |
00001410 42 4e 45 20 66 6f 75 72 74 65 65 6e 0d 20 20 36 |BNE fourteen. 6|
00001420 35 30 20 20 20 20 20 20 20 20 20 54 59 41 0d 20 |50 TYA. |
00001430 20 36 36 30 20 20 20 20 20 20 20 20 20 45 4f 52 | 660 EOR|
00001440 20 23 26 46 0d 20 20 36 37 30 20 20 20 20 20 20 | #&F. 670 |
00001450 20 20 20 43 4d 50 20 72 6f 6d 6e 75 6d 62 65 72 | CMP romnumber|
00001460 0d 20 20 36 38 30 20 20 20 20 20 20 20 20 20 42 |. 680 B|
00001470 43 43 20 6f 75 74 0d 20 20 36 39 30 20 20 20 20 |CC out. 690 |
00001480 20 20 20 20 20 4c 44 41 20 23 28 6c 61 73 74 62 | LDA #(lastb|
00001490 79 74 65 2b 64 69 66 66 29 20 4d 4f 44 20 32 35 |yte+diff) MOD 25|
000014a0 36 0d 20 20 37 30 30 20 20 20 20 20 20 20 20 20 |6. 700 |
000014b0 53 54 41 20 72 6f 6d 70 6f 69 6e 74 0d 20 20 37 |STA rompoint. 7|
000014c0 31 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 |10 LDA #|
000014d0 28 6c 61 73 74 62 79 74 65 2b 64 69 66 66 29 20 |(lastbyte+diff) |
000014e0 44 49 56 20 32 35 36 0d 20 20 37 32 30 20 20 20 |DIV 256. 720 |
000014f0 20 20 20 20 20 20 53 54 41 20 72 6f 6d 70 6f 69 | STA rompoi|
00001500 6e 74 2b 31 0d 20 20 37 33 30 20 20 20 20 20 20 |nt+1. 730 |
00001510 20 20 20 4c 44 41 20 72 6f 6d 6e 75 6d 62 65 72 | LDA romnumber|
00001520 0d 20 20 37 34 30 20 20 20 20 20 20 20 20 20 45 |. 740 E|
00001530 4f 52 20 23 26 46 0d 20 20 37 35 30 20 20 20 20 |OR #&F. 750 |
00001540 20 20 20 20 20 53 54 41 20 70 68 72 6f 6d 0d 20 | STA phrom. |
00001550 20 37 36 30 20 2e 65 78 69 74 0d 20 20 37 37 30 | 760 .exit. 770|
00001560 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 20 37 | PLA. 7|
00001570 38 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 |80 LDA #|
00001580 30 0d 20 20 37 39 30 20 20 20 20 20 20 20 20 20 |0. 790 |
00001590 52 54 53 0d 20 20 38 30 30 20 2e 66 6f 75 72 74 |RTS. 800 .fourt|
000015a0 65 65 6e 0d 20 20 38 31 30 20 20 20 20 20 20 20 |een. 810 |
000015b0 20 20 43 4d 50 20 23 31 34 0d 20 20 38 32 30 20 | CMP #14. 820 |
000015c0 20 20 20 20 20 20 20 20 42 4e 45 20 74 72 79 74 | BNE tryt|
000015d0 68 72 65 65 0d 20 20 38 33 30 20 20 20 20 20 20 |hree. 830 |
000015e0 20 20 20 4c 44 41 20 70 68 72 6f 6d 0d 20 20 38 | LDA phrom. 8|
000015f0 34 30 20 20 20 20 20 20 20 20 20 45 4f 52 20 23 |40 EOR #|
00001600 26 46 0d 20 20 38 35 30 20 20 20 20 20 20 20 20 |&F. 850 |
00001610 20 43 4d 50 20 72 6f 6d 6e 75 6d 62 65 72 0d 20 | CMP romnumber. |
00001620 20 38 36 30 20 20 20 20 20 20 20 20 20 42 4e 45 | 860 BNE|
00001630 20 6f 75 74 0d 20 20 38 37 30 20 20 20 20 20 20 | out. 870 |
00001640 20 20 20 4c 44 59 20 23 30 0d 20 20 38 38 30 20 | LDY #0. 880 |
00001650 20 20 20 20 20 20 20 20 4c 44 41 20 28 72 6f 6d | LDA (rom|
00001660 70 6f 69 6e 74 29 2c 59 0d 20 20 38 39 30 20 20 |point),Y. 890 |
00001670 20 20 20 20 20 20 20 54 41 59 0d 20 20 39 30 30 | TAY. 900|
00001680 20 20 20 20 20 20 20 20 20 49 4e 43 20 72 6f 6d | INC rom|
00001690 70 6f 69 6e 74 0d 20 20 39 31 30 20 20 20 20 20 |point. 910 |
000016a0 20 20 20 20 42 4e 45 20 65 78 69 74 0d 20 20 39 | BNE exit. 9|
000016b0 32 30 20 20 20 20 20 20 20 20 20 49 4e 43 20 72 |20 INC r|
000016c0 6f 6d 70 6f 69 6e 74 2b 31 0d 20 20 39 33 30 20 |ompoint+1. 930 |
000016d0 20 20 20 20 20 20 20 20 4a 4d 50 20 65 78 69 74 | JMP exit|
000016e0 2b 64 69 66 66 0d 20 20 39 34 30 20 2e 6f 75 74 |+diff. 940 .out|
000016f0 0d 20 20 39 35 30 20 20 20 20 20 20 20 20 20 50 |. 950 P|
00001700 4c 41 0d 20 20 39 36 30 20 20 20 20 20 20 20 20 |LA. 960 |
00001710 20 52 54 53 0d 20 20 39 37 30 20 2e 74 72 79 74 | RTS. 970 .tryt|
00001720 68 72 65 65 0d 20 20 39 38 30 20 20 20 20 20 20 |hree. 980 |
00001730 20 20 20 43 4d 50 20 23 33 0d 20 20 39 39 30 20 | CMP #3. 990 |
00001740 20 20 20 20 20 20 20 20 42 4e 45 20 74 72 79 6e | BNE tryn|
00001750 69 6e 65 0d 20 31 30 30 30 20 20 20 20 20 20 20 |ine. 1000 |
00001760 20 20 4a 4d 50 20 74 68 72 65 65 2b 64 69 66 66 | JMP three+diff|
00001770 0d 20 31 30 31 30 20 2e 74 72 79 6e 69 6e 65 0d |. 1010 .trynine.|
00001780 20 31 30 32 30 20 20 20 20 20 20 20 20 20 43 4d | 1020 CM|
00001790 50 20 23 39 0d 20 31 30 33 30 20 20 20 20 20 20 |P #9. 1030 |
000017a0 20 20 20 42 4e 45 20 6f 75 74 0d 20 31 30 34 30 | BNE out. 1040|
000017b0 20 20 20 20 20 20 20 20 20 54 58 41 0d 20 31 30 | TXA. 10|
000017c0 35 30 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 |50 PHA. |
000017d0 31 30 36 30 20 20 20 20 20 20 20 20 20 54 59 41 |1060 TYA|
000017e0 0d 20 31 30 37 30 20 20 20 20 20 20 20 20 20 50 |. 1070 P|
000017f0 48 41 0d 20 31 30 38 30 20 20 20 20 20 20 20 20 |HA. 1080 |
00001800 20 4c 44 41 20 61 64 64 72 65 73 73 0d 20 31 30 | LDA address. 10|
00001810 39 30 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 |90 PHA. |
00001820 31 31 30 30 20 20 20 20 20 20 20 20 20 4c 44 41 |1100 LDA|
00001830 20 61 64 64 72 65 73 73 2b 31 0d 20 31 31 31 30 | address+1. 1110|
00001840 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 31 31 | PHA. 11|
00001850 32 30 20 20 20 20 20 20 20 20 20 53 45 43 0d 20 |20 SEC. |
00001860 31 31 33 30 20 20 20 20 20 20 20 20 20 4a 53 52 |1130 JSR|
00001870 20 67 73 69 6e 69 74 0d 20 31 31 34 30 20 20 20 | gsinit. 1140 |
00001880 20 20 20 20 20 20 4c 44 58 20 23 30 0d 20 31 31 | LDX #0. 11|
00001890 35 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 67 |50 JSR g|
000018a0 73 72 65 61 64 0d 20 31 31 36 30 20 20 20 20 20 |sread. 1160 |
000018b0 20 20 20 20 42 43 43 20 74 72 79 65 78 74 65 6e | BCC tryexten|
000018c0 64 65 64 0d 20 31 31 37 30 20 20 20 20 20 20 20 |ded. 1170 |
000018d0 20 20 4c 44 58 20 23 28 68 65 6c 70 74 69 74 6c | LDX #(helptitl|
000018e0 65 2b 64 69 66 66 29 20 4d 4f 44 20 32 35 36 0d |e+diff) MOD 256.|
000018f0 20 31 31 38 30 20 20 20 20 20 20 20 20 20 4c 44 | 1180 LD|
00001900 59 20 23 28 68 65 6c 70 74 69 74 6c 65 2b 64 69 |Y #(helptitle+di|
00001910 66 66 29 20 44 49 56 20 32 35 36 0d 20 31 31 39 |ff) DIV 256. 119|
00001920 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 70 72 |0 JSR pr|
00001930 69 6e 74 2b 64 69 66 66 0d 20 31 32 30 30 20 2e |int+diff. 1200 .|
00001940 65 78 69 74 68 65 6c 70 0d 20 31 32 31 30 20 20 |exithelp. 1210 |
00001950 20 20 20 20 20 20 20 50 4c 41 0d 20 31 32 32 30 | PLA. 1220|
00001960 20 20 20 20 20 20 20 20 20 53 54 41 20 61 64 64 | STA add|
00001970 72 65 73 73 2b 31 0d 20 31 32 33 30 20 20 20 20 |ress+1. 1230 |
00001980 20 20 20 20 20 50 4c 41 0d 20 31 32 34 30 20 20 | PLA. 1240 |
00001990 20 20 20 20 20 20 20 53 54 41 20 61 64 64 72 65 | STA addre|
000019a0 73 73 0d 20 31 32 35 30 20 20 20 20 20 20 20 20 |ss. 1250 |
000019b0 20 50 4c 41 0d 20 31 32 36 30 20 20 20 20 20 20 | PLA. 1260 |
000019c0 20 20 20 54 41 59 0d 20 31 32 37 30 20 20 20 20 | TAY. 1270 |
000019d0 20 20 20 20 20 50 4c 41 0d 20 31 32 38 30 20 20 | PLA. 1280 |
000019e0 20 20 20 20 20 20 20 54 41 58 0d 20 31 32 39 30 | TAX. 1290|
000019f0 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 31 33 | PLA. 13|
00001a00 30 30 20 20 20 20 20 20 20 20 20 52 54 53 0d 20 |00 RTS. |
00001a10 31 33 31 30 20 2e 68 65 6c 70 6c 6f 6f 70 0d 20 |1310 .helploop. |
00001a20 31 33 32 30 20 20 20 20 20 20 20 20 20 49 4e 58 |1320 INX|
00001a30 0d 20 31 33 33 30 20 20 20 20 20 20 20 20 20 4a |. 1330 J|
00001a40 53 52 20 67 73 72 65 61 64 0d 20 31 33 34 30 20 |SR gsread. 1340 |
00001a50 2e 74 72 79 65 78 74 65 6e 64 65 64 0d 20 31 33 |.tryextended. 13|
00001a60 35 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 |50 CMP #|
00001a70 41 53 43 28 22 2e 22 29 0d 20 31 33 36 30 20 20 |ASC("."). 1360 |
00001a80 20 20 20 20 20 20 20 42 45 51 20 65 78 74 65 6e | BEQ exten|
00001a90 73 69 6f 6e 0d 20 31 33 37 30 20 20 20 20 20 20 |sion. 1370 |
00001aa0 20 20 20 41 4e 44 20 23 26 44 46 0d 20 31 33 38 | AND #&DF. 138|
00001ab0 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 65 78 |0 CMP ex|
00001ac0 74 65 6e 64 65 64 2b 64 69 66 66 2c 58 0d 20 31 |tended+diff,X. 1|
00001ad0 33 39 30 20 20 20 20 20 20 20 20 20 42 45 51 20 |390 BEQ |
00001ae0 68 65 6c 70 6c 6f 6f 70 0d 20 31 34 30 30 20 20 |helploop. 1400 |
00001af0 20 20 20 20 20 20 20 4c 44 41 20 65 78 74 65 6e | LDA exten|
00001b00 64 65 64 2b 64 69 66 66 2c 58 0d 20 31 34 31 30 |ded+diff,X. 1410|
00001b10 20 20 20 20 20 20 20 20 20 42 50 4c 20 65 78 69 | BPL exi|
00001b20 74 68 65 6c 70 0d 20 31 34 32 30 20 2e 65 78 74 |thelp. 1420 .ext|
00001b30 65 6e 73 69 6f 6e 0d 20 31 34 33 30 20 20 20 20 |ension. 1430 |
00001b40 20 20 20 20 20 4c 44 58 20 23 28 65 78 74 68 65 | LDX #(exthe|
00001b50 6c 70 2b 64 69 66 66 29 20 4d 4f 44 20 32 35 36 |lp+diff) MOD 256|
00001b60 0d 20 31 34 34 30 20 20 20 20 20 20 20 20 20 4c |. 1440 L|
00001b70 44 59 20 23 28 65 78 74 68 65 6c 70 2b 64 69 66 |DY #(exthelp+dif|
00001b80 66 29 20 44 49 56 20 32 35 36 0d 20 31 34 35 30 |f) DIV 256. 1450|
00001b90 20 20 20 20 20 20 20 20 20 4a 53 52 20 70 72 69 | JSR pri|
00001ba0 6e 74 2b 64 69 66 66 0d 20 31 34 36 30 20 20 20 |nt+diff. 1460 |
00001bb0 20 20 20 20 20 20 42 45 51 20 65 78 69 74 68 65 | BEQ exithe|
00001bc0 6c 70 0d 20 31 34 37 30 20 2e 70 72 69 6e 74 0d |lp. 1470 .print.|
00001bd0 20 31 34 38 30 20 20 20 20 20 20 20 20 20 53 54 | 1480 ST|
00001be0 58 20 61 64 64 72 65 73 73 0d 20 31 34 39 30 20 |X address. 1490 |
00001bf0 20 20 20 20 20 20 20 20 53 54 59 20 61 64 64 72 | STY addr|
00001c00 65 73 73 2b 31 0d 20 31 35 30 30 20 20 20 20 20 |ess+1. 1500 |
00001c10 20 20 20 20 4c 44 59 20 23 26 46 46 0d 20 31 35 | LDY #&FF. 15|
00001c20 31 30 20 2e 70 72 69 6e 74 6c 6f 6f 70 0d 20 31 |10 .printloop. 1|
00001c30 35 32 30 20 20 20 20 20 20 20 20 20 49 4e 59 0d |520 INY.|
00001c40 20 31 35 33 30 20 20 20 20 20 20 20 20 20 4c 44 | 1530 LD|
00001c50 41 20 28 61 64 64 72 65 73 73 29 2c 59 0d 20 31 |A (address),Y. 1|
00001c60 35 34 30 20 20 20 20 20 20 20 20 20 42 45 51 20 |540 BEQ |
00001c70 65 6e 64 70 72 69 6e 74 0d 20 31 35 35 30 20 20 |endprint. 1550 |
00001c80 20 20 20 20 20 20 20 42 4d 49 20 70 72 69 6e 74 | BMI print|
00001c90 6c 6f 6f 70 0d 20 31 35 36 30 20 20 20 20 20 20 |loop. 1560 |
00001ca0 20 20 20 4a 53 52 20 6f 73 61 73 63 69 0d 20 31 | JSR osasci. 1|
00001cb0 35 37 30 20 20 20 20 20 20 20 20 20 4a 4d 50 20 |570 JMP |
00001cc0 70 72 69 6e 74 6c 6f 6f 70 2b 64 69 66 66 0d 20 |printloop+diff. |
00001cd0 31 35 38 30 20 2e 65 6e 64 70 72 69 6e 74 0d 20 |1580 .endprint. |
00001ce0 31 35 39 30 20 20 20 20 20 20 20 20 20 52 54 53 |1590 RTS|
00001cf0 0d 20 31 36 30 30 20 2e 68 65 6c 70 74 69 74 6c |. 1600 .helptitl|
00001d00 65 0d 20 31 36 31 30 20 20 20 20 20 20 20 20 20 |e. 1610 |
00001d10 4f 50 54 20 46 4e 65 71 75 62 28 26 30 44 29 0d |OPT FNequb(&0D).|
00001d20 20 31 36 32 30 20 20 20 20 20 20 20 20 20 4f 50 | 1620 OP|
00001d30 54 20 46 4e 65 71 75 73 28 22 52 6f 6d 20 46 69 |T FNequs("Rom Fi|
00001d40 6c 69 6e 67 20 53 79 73 74 65 6d 22 29 0d 20 31 |ling System"). 1|
00001d50 36 33 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 |630 OPT |
00001d60 46 4e 65 71 75 62 28 26 30 44 29 0d 20 31 36 34 |FNequb(&0D). 164|
00001d70 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 4e |0 OPT FN|
00001d80 65 71 75 77 28 26 32 30 32 30 29 0d 20 31 36 35 |equw(&2020). 165|
00001d90 30 20 2e 65 78 74 65 6e 64 65 64 0d 20 31 36 36 |0 .extended. 166|
00001da0 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 4e |0 OPT FN|
00001db0 65 71 75 73 28 22 52 46 53 22 29 0d 20 31 36 37 |equs("RFS"). 167|
00001dc0 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 4e |0 OPT FN|
00001dd0 65 71 75 77 28 26 30 44 46 46 29 0d 20 31 36 38 |equw(&0DFF). 168|
00001de0 30 20 20 20 20 20 20 20 20 20 42 52 4b 0d 20 31 |0 BRK. 1|
00001df0 36 39 30 20 2e 65 78 74 68 65 6c 70 0d 20 31 37 |690 .exthelp. 17|
00001e00 30 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 |00 OPT F|
00001e10 4e 65 71 75 62 28 26 30 44 29 0d 20 31 37 31 30 |Nequb(&0D). 1710|
00001e20 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 | OPT FNe|
00001e30 71 75 73 28 22 52 6f 6d 20 46 69 6c 69 6e 67 20 |qus("Rom Filing |
00001e40 53 79 73 74 65 6d 22 29 0d 20 31 37 32 30 20 20 |System"). 1720 |
00001e50 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 | OPT FNequ|
00001e60 77 28 26 30 44 30 44 29 0d 20 31 37 33 30 20 20 |w(&0D0D). 1730 |
00001e70 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 | OPT FNequ|
00001e80 73 28 22 53 65 6c 65 63 74 20 52 46 53 20 77 69 |s("Select RFS wi|
00001e90 74 68 20 2a 52 4f 4d 22 29 0d 20 31 37 34 30 20 |th *ROM"). 1740 |
00001ea0 20 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 | OPT FNeq|
00001eb0 75 62 28 26 30 44 29 0d 20 31 37 35 30 20 20 20 |ub(&0D). 1750 |
00001ec0 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 73 | OPT FNequs|
00001ed0 28 22 42 6f 6f 74 20 52 46 53 20 77 69 74 68 20 |("Boot RFS with |
00001ee0 43 74 72 6c 2b 52 2b 42 72 65 61 6b 22 29 0d 20 |Ctrl+R+Break"). |
00001ef0 31 37 36 30 20 20 20 20 20 20 20 20 20 4f 50 54 |1760 OPT|
00001f00 20 46 4e 65 71 75 62 28 26 30 44 29 0d 20 31 37 | FNequb(&0D). 17|
00001f10 37 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 |70 OPT F|
00001f20 4e 65 71 75 73 28 22 45 6e 74 65 72 20 52 46 53 |Nequs("Enter RFS|
00001f30 20 77 69 74 68 20 2a 52 46 53 20 6f 72 20 2a 46 | with *RFS or *F|
00001f40 58 31 34 32 2c 6e 22 29 0d 20 31 37 38 30 20 20 |X142,n"). 1780 |
00001f50 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 | OPT FNequ|
00001f60 62 28 26 30 44 29 0d 20 31 37 39 30 20 20 20 20 |b(&0D). 1790 |
00001f70 20 20 20 20 20 42 52 4b 0d 20 31 38 30 30 20 2e | BRK. 1800 .|
00001f80 74 68 72 65 65 0d 20 31 38 31 30 20 20 20 20 20 |three. 1810 |
00001f90 20 20 20 20 54 58 41 0d 20 31 38 32 30 20 20 20 | TXA. 1820 |
00001fa0 20 20 20 20 20 20 50 48 41 0d 20 31 38 33 30 20 | PHA. 1830 |
00001fb0 20 20 20 20 20 20 20 20 54 59 41 0d 20 31 38 34 | TYA. 184|
00001fc0 30 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 31 |0 PHA. 1|
00001fd0 38 35 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 |850 LDA |
00001fe0 23 26 37 41 0d 20 31 38 36 30 20 20 20 20 20 20 |#&7A. 1860 |
00001ff0 20 20 20 4a 53 52 20 6f 73 62 79 74 65 0d 20 31 | JSR osbyte. 1|
00002000 38 37 30 20 20 20 20 20 20 20 20 20 43 50 58 20 |870 CPX |
00002010 23 26 33 33 20 20 20 20 20 20 5c 20 49 73 20 69 |#&33 \ Is i|
00002020 74 20 43 74 72 6c 2b 52 2b 42 72 65 61 6b 3f 0d |t Ctrl+R+Break?.|
00002030 20 31 38 38 30 20 20 20 20 20 20 20 20 20 42 45 | 1880 BE|
00002040 51 20 72 62 72 65 61 6b 0d 20 31 38 39 30 20 20 |Q rbreak. 1890 |
00002050 20 20 20 20 20 20 20 50 4c 41 0d 20 31 39 30 30 | PLA. 1900|
00002060 20 20 20 20 20 20 20 20 20 54 41 59 0d 20 31 39 | TAY. 19|
00002070 31 30 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 |10 PLA. |
00002080 31 39 32 30 20 20 20 20 20 20 20 20 20 54 41 58 |1920 TAX|
00002090 0d 20 31 39 33 30 20 20 20 20 20 20 20 20 20 50 |. 1930 P|
000020a0 4c 41 0d 20 31 39 34 30 20 20 20 20 20 20 20 20 |LA. 1940 |
000020b0 20 52 54 53 0d 20 31 39 35 30 20 2e 72 62 72 65 | RTS. 1950 .rbre|
000020c0 61 6b 0d 20 31 39 36 30 20 20 20 20 20 20 20 20 |ak. 1960 |
000020d0 20 4c 44 41 20 23 26 43 39 0d 20 31 39 37 30 20 | LDA #&C9. 1970 |
000020e0 20 20 20 20 20 20 20 20 4c 44 58 20 23 31 0d 20 | LDX #1. |
000020f0 31 39 38 30 20 20 20 20 20 20 20 20 20 4c 44 59 |1980 LDY|
00002100 20 23 30 0d 20 31 39 39 30 20 20 20 20 20 20 20 | #0. 1990 |
00002110 20 20 4a 53 52 20 6f 73 62 79 74 65 20 20 20 20 | JSR osbyte |
00002120 5c 20 44 69 73 61 62 6c 65 20 6b 65 79 62 6f 61 |\ Disable keyboa|
00002130 72 64 0d 20 32 30 30 30 20 20 20 20 20 20 20 20 |rd. 2000 |
00002140 20 4c 44 41 20 23 26 30 46 0d 20 32 30 31 30 20 | LDA #&0F. 2010 |
00002150 20 20 20 20 20 20 20 20 4c 44 58 20 23 30 0d 20 | LDX #0. |
00002160 32 30 32 30 20 20 20 20 20 20 20 20 20 4a 53 52 |2020 JSR|
00002170 20 6f 73 62 79 74 65 20 20 20 20 5c 20 46 6c 75 | osbyte \ Flu|
00002180 73 68 20 61 6c 6c 20 62 75 66 66 65 72 73 0d 20 |sh all buffers. |
00002190 32 30 33 30 20 20 20 20 20 20 20 20 20 4c 44 41 |2030 LDA|
000021a0 20 61 64 64 72 65 73 73 0d 20 32 30 34 30 20 20 | address. 2040 |
000021b0 20 20 20 20 20 20 20 50 48 41 0d 20 32 30 35 30 | PHA. 2050|
000021c0 20 20 20 20 20 20 20 20 20 4c 44 41 20 61 64 64 | LDA add|
000021d0 72 65 73 73 2b 31 0d 20 32 30 36 30 20 20 20 20 |ress+1. 2060 |
000021e0 20 20 20 20 20 50 48 41 0d 20 32 30 37 30 20 20 | PHA. 2070 |
000021f0 20 20 20 20 20 20 20 4c 44 58 20 23 28 72 66 73 | LDX #(rfs|
00002200 2b 64 69 66 66 29 20 4d 4f 44 20 32 35 36 0d 20 |+diff) MOD 256. |
00002210 32 30 38 30 20 20 20 20 20 20 20 20 20 4c 44 59 |2080 LDY|
00002220 20 23 28 72 66 73 2b 64 69 66 66 29 20 44 49 56 | #(rfs+diff) DIV|
00002230 20 32 35 36 0d 20 32 30 39 30 20 20 20 20 20 20 | 256. 2090 |
00002240 20 20 20 4a 53 52 20 70 72 69 6e 74 2b 64 69 66 | JSR print+dif|
00002250 66 0d 20 32 31 30 30 20 20 20 20 20 20 20 20 20 |f. 2100 |
00002260 4c 44 58 20 23 28 63 61 74 2b 64 69 66 66 29 20 |LDX #(cat+diff) |
00002270 4d 4f 44 20 32 35 36 0d 20 32 31 31 30 20 20 20 |MOD 256. 2110 |
00002280 20 20 20 20 20 20 4c 44 59 20 23 28 63 61 74 2b | LDY #(cat+|
00002290 64 69 66 66 29 20 44 49 56 20 32 35 36 0d 20 32 |diff) DIV 256. 2|
000022a0 31 32 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 |120 JSR |
000022b0 70 72 69 6e 74 2b 64 69 66 66 0d 20 32 31 33 30 |print+diff. 2130|
000022c0 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 26 38 | LDA #&8|
000022d0 44 0d 20 32 31 34 30 20 20 20 20 20 20 20 20 20 |D. 2140 |
000022e0 4a 53 52 20 6f 73 62 79 74 65 20 20 20 20 5c 20 |JSR osbyte \ |
000022f0 53 65 6c 65 63 74 20 52 46 53 0d 20 32 31 35 30 |Select RFS. 2150|
00002300 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 26 38 | LDA #&8|
00002310 42 0d 20 32 31 36 30 20 20 20 20 20 20 20 20 20 |B. 2160 |
00002320 4c 44 58 20 23 31 0d 20 32 31 37 30 20 20 20 20 |LDX #1. 2170 |
00002330 20 20 20 20 20 4c 44 59 20 23 32 0d 20 32 31 38 | LDY #2. 218|
00002340 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 6f 73 |0 JSR os|
00002350 62 79 74 65 20 20 20 20 5c 20 2a 4f 50 54 31 2c |byte \ *OPT1,|
00002360 32 0d 20 32 31 39 30 20 20 20 20 20 20 20 20 20 |2. 2190 |
00002370 4c 44 58 20 23 28 64 6f 74 2b 64 69 66 66 29 20 |LDX #(dot+diff) |
00002380 4d 4f 44 20 32 35 36 0d 20 32 32 30 30 20 20 20 |MOD 256. 2200 |
00002390 20 20 20 20 20 20 4c 44 59 20 23 28 64 6f 74 2b | LDY #(dot+|
000023a0 64 69 66 66 29 20 44 49 56 20 32 35 36 0d 20 32 |diff) DIV 256. 2|
000023b0 32 31 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 |210 JSR |
000023c0 6f 73 63 6c 69 20 20 20 20 20 5c 20 43 61 74 61 |oscli \ Cata|
000023d0 6c 6f 67 75 65 20 52 46 53 0d 20 32 32 32 30 20 |logue RFS. 2220 |
000023e0 20 20 20 20 20 20 20 20 4c 44 41 20 23 26 38 42 | LDA #&8B|
000023f0 0d 20 32 32 33 30 20 20 20 20 20 20 20 20 20 4c |. 2230 L|
00002400 44 58 20 23 30 0d 20 32 32 34 30 20 20 20 20 20 |DX #0. 2240 |
00002410 20 20 20 20 4c 44 59 20 23 30 0d 20 32 32 35 30 | LDY #0. 2250|
00002420 20 20 20 20 20 20 20 20 20 4a 53 52 20 6f 73 62 | JSR osb|
00002430 79 74 65 20 20 20 20 5c 20 2a 4f 50 54 20 31 2c |yte \ *OPT 1,|
00002440 30 0d 20 32 32 36 30 20 20 20 20 20 20 20 20 20 |0. 2260 |
00002450 4a 53 52 20 6f 73 6e 65 77 6c 0d 20 32 32 37 30 |JSR osnewl. 2270|
00002460 20 20 20 20 20 20 20 20 20 4c 44 58 20 23 28 72 | LDX #(r|
00002470 66 73 2b 64 69 66 66 29 20 4d 4f 44 20 32 35 36 |fs+diff) MOD 256|
00002480 0d 20 32 32 38 30 20 20 20 20 20 20 20 20 20 4c |. 2280 L|
00002490 44 59 20 23 28 72 66 73 2b 64 69 66 66 29 20 44 |DY #(rfs+diff) D|
000024a0 49 56 20 32 35 36 0d 20 32 32 39 30 20 20 20 20 |IV 256. 2290 |
000024b0 20 20 20 20 20 4a 53 52 20 70 72 69 6e 74 2b 64 | JSR print+d|
000024c0 69 66 66 0d 20 32 33 30 30 20 20 20 20 20 20 20 |iff. 2300 |
000024d0 20 20 4c 44 58 20 23 28 61 63 74 2b 64 69 66 66 | LDX #(act+diff|
000024e0 29 20 4d 4f 44 20 32 35 36 0d 20 32 33 31 30 20 |) MOD 256. 2310 |
000024f0 20 20 20 20 20 20 20 20 4c 44 59 20 23 28 61 63 | LDY #(ac|
00002500 74 2b 64 69 66 66 29 20 44 49 56 20 32 35 36 0d |t+diff) DIV 256.|
00002510 20 32 33 32 30 20 20 20 20 20 20 20 20 20 4a 53 | 2320 JS|
00002520 52 20 70 72 69 6e 74 2b 64 69 66 66 0d 20 32 33 |R print+diff. 23|
00002530 33 30 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 |30 PLA. |
00002540 32 33 34 30 20 20 20 20 20 20 20 20 20 53 54 41 |2340 STA|
00002550 20 61 64 64 72 65 73 73 2b 31 0d 20 32 33 35 30 | address+1. 2350|
00002560 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 32 33 | PLA. 23|
00002570 36 30 20 20 20 20 20 20 20 20 20 53 54 41 20 61 |60 STA a|
00002580 64 64 72 65 73 73 0d 20 32 33 37 30 20 20 20 20 |ddress. 2370 |
00002590 20 20 20 20 20 4c 44 41 20 23 26 43 39 0d 20 32 | LDA #&C9. 2|
000025a0 33 38 30 20 20 20 20 20 20 20 20 20 4c 44 58 20 |380 LDX |
000025b0 23 30 0d 20 32 33 39 30 20 20 20 20 20 20 20 20 |#0. 2390 |
000025c0 20 4c 44 59 20 23 30 0d 20 32 34 30 30 20 20 20 | LDY #0. 2400 |
000025d0 20 20 20 20 20 20 4a 53 52 20 6f 73 62 79 74 65 | JSR osbyte|
000025e0 20 20 20 20 5c 20 45 6e 61 62 6c 65 20 6b 65 79 | \ Enable key|
000025f0 62 6f 61 72 64 0d 20 32 34 31 30 20 20 20 20 20 |board. 2410 |
00002600 20 20 20 20 50 4c 41 0d 20 32 34 32 30 20 20 20 | PLA. 2420 |
00002610 20 20 20 20 20 20 50 4c 41 0d 20 32 34 33 30 20 | PLA. 2430 |
00002620 20 20 20 20 20 20 20 20 50 4c 41 0d 20 32 34 34 | PLA. 244|
00002630 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 30 |0 LDA #0|
00002640 0d 20 32 34 35 30 20 20 20 20 20 20 20 20 20 52 |. 2450 R|
00002650 54 53 0d 20 32 34 36 30 20 2e 64 6f 74 0d 20 32 |TS. 2460 .dot. 2|
00002660 34 37 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 |470 OPT |
00002670 46 4e 65 71 75 73 28 22 43 41 54 22 29 0d 20 32 |FNequs("CAT"). 2|
00002680 34 38 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 |480 OPT |
00002690 46 4e 65 71 75 62 28 26 30 44 29 0d 20 32 34 39 |FNequb(&0D). 249|
000026a0 30 20 2e 72 66 73 0d 20 32 35 30 30 20 20 20 20 |0 .rfs. 2500 |
000026b0 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 73 28 | OPT FNequs(|
000026c0 22 52 6f 6d 20 46 69 6c 69 6e 67 20 53 79 73 74 |"Rom Filing Syst|
000026d0 65 6d 20 22 29 0d 20 32 35 31 30 20 20 20 20 20 |em "). 2510 |
000026e0 20 20 20 20 42 52 4b 0d 20 32 35 32 30 20 2e 63 | BRK. 2520 .c|
000026f0 61 74 0d 20 32 35 33 30 20 20 20 20 20 20 20 20 |at. 2530 |
00002700 20 4f 50 54 20 46 4e 65 71 75 73 28 22 43 61 74 | OPT FNequs("Cat|
00002710 61 6c 6f 67 75 65 22 29 0d 20 32 35 34 30 20 20 |alogue"). 2540 |
00002720 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 | OPT FNequ|
00002730 62 28 26 30 44 29 0d 20 32 35 35 30 20 20 20 20 |b(&0D). 2550 |
00002740 20 20 20 20 20 42 52 4b 0d 20 32 35 36 30 20 2e | BRK. 2560 .|
00002750 61 63 74 0d 20 32 35 37 30 20 20 20 20 20 20 20 |act. 2570 |
00002760 20 20 4f 50 54 20 46 4e 65 71 75 73 28 22 61 63 | OPT FNequs("ac|
00002770 74 69 76 65 22 29 0d 20 32 35 38 30 20 20 20 20 |tive"). 2580 |
00002780 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 77 28 | OPT FNequw(|
00002790 26 30 44 30 44 29 0d 20 32 35 39 30 20 20 20 20 |&0D0D). 2590 |
000027a0 20 20 20 20 20 42 52 4b 0d 20 32 36 30 30 20 2e | BRK. 2600 .|
000027b0 6c 61 6e 67 75 61 67 65 0d 20 32 36 31 30 20 20 |language. 2610 |
000027c0 20 20 20 20 20 20 20 43 4c 49 20 20 20 20 20 20 | CLI |
000027d0 20 20 20 20 20 5c 20 45 6e 61 62 6c 65 20 69 6e | \ Enable in|
000027e0 74 65 72 75 70 74 20 72 65 71 75 65 73 74 73 0d |terupt requests.|
000027f0 20 32 36 32 30 20 20 20 20 20 20 20 20 20 4c 44 | 2620 LD|
00002800 58 20 23 26 46 46 0d 20 32 36 33 30 20 20 20 20 |X #&FF. 2630 |
00002810 20 20 20 20 20 54 58 53 20 20 20 20 20 20 20 20 | TXS |
00002820 20 20 20 5c 20 52 65 73 65 74 20 73 74 61 63 6b | \ Reset stack|
00002830 0d 20 32 36 34 30 20 20 20 20 20 20 20 20 20 4c |. 2640 L|
00002840 44 41 20 23 28 62 61 73 69 63 2b 64 69 66 66 29 |DA #(basic+diff)|
00002850 20 4d 4f 44 20 32 35 36 0d 20 32 36 35 30 20 20 | MOD 256. 2650 |
00002860 20 20 20 20 20 20 20 53 54 41 20 62 72 65 61 6b | STA break|
00002870 76 0d 20 32 36 36 30 20 20 20 20 20 20 20 20 20 |v. 2660 |
00002880 4c 44 41 20 23 28 62 61 73 69 63 2b 64 69 66 66 |LDA #(basic+diff|
00002890 29 20 44 49 56 20 32 35 36 0d 20 32 36 37 30 20 |) DIV 256. 2670 |
000028a0 20 20 20 20 20 20 20 20 53 54 41 20 62 72 65 61 | STA brea|
000028b0 6b 76 2b 31 0d 20 32 36 38 30 20 20 20 20 20 20 |kv+1. 2680 |
000028c0 20 20 20 4c 44 41 20 23 26 38 44 0d 20 32 36 39 | LDA #&8D. 269|
000028d0 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 6f 73 |0 JSR os|
000028e0 62 79 74 65 20 20 20 20 5c 20 2a 52 4f 4d 0d 20 |byte \ *ROM. |
000028f0 32 37 30 30 20 20 20 20 20 20 20 20 20 4c 44 41 |2700 LDA|
00002900 20 23 26 38 42 0d 20 32 37 31 30 20 20 20 20 20 | #&8B. 2710 |
00002910 20 20 20 20 4c 44 58 20 23 31 0d 20 32 37 32 30 | LDX #1. 2720|
00002920 20 20 20 20 20 20 20 20 20 4c 44 59 20 23 30 0d | LDY #0.|
00002930 20 32 37 33 30 20 20 20 20 20 20 20 20 20 4a 53 | 2730 JS|
00002940 52 20 6f 73 62 79 74 65 20 20 20 20 5c 20 2a 4f |R osbyte \ *O|
00002950 50 54 31 2c 30 0d 20 32 37 34 30 20 20 20 20 20 |PT1,0. 2740 |
00002960 20 20 20 20 4c 44 41 20 23 26 30 46 0d 20 32 37 | LDA #&0F. 27|
00002970 35 30 20 20 20 20 20 20 20 20 20 4c 44 58 20 23 |50 LDX #|
00002980 30 0d 20 32 37 36 30 20 20 20 20 20 20 20 20 20 |0. 2760 |
00002990 4a 53 52 20 6f 73 62 79 74 65 20 20 20 20 5c 20 |JSR osbyte \ |
000029a0 46 6c 75 73 68 20 61 6c 6c 20 62 75 66 66 65 72 |Flush all buffer|
000029b0 73 0d 20 32 37 37 30 20 20 20 20 20 20 20 20 20 |s. 2770 |
000029c0 4c 44 41 20 23 26 46 46 0d 20 32 37 38 30 20 20 |LDA #&FF. 2780 |
000029d0 20 20 20 20 20 20 20 50 48 41 0d 20 32 37 39 30 | PHA. 2790|
000029e0 20 2e 6b 65 79 62 6f 61 72 64 0d 20 32 38 30 30 | .keyboard. 2800|
000029f0 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 32 38 | PLA. 28|
00002a00 31 30 20 20 20 20 20 20 20 20 20 54 41 58 0d 20 |10 TAX. |
00002a10 32 38 32 30 20 20 20 20 20 20 20 20 20 49 4e 58 |2820 INX|
00002a20 0d 20 32 38 33 30 20 20 20 20 20 20 20 20 20 54 |. 2830 T|
00002a30 58 41 0d 20 32 38 34 30 20 20 20 20 20 20 20 20 |XA. 2840 |
00002a40 20 50 48 41 0d 20 32 38 35 30 20 20 20 20 20 20 | PHA. 2850 |
00002a50 20 20 20 4c 44 59 20 72 66 73 63 6f 6d 6d 2b 64 | LDY rfscomm+d|
00002a60 69 66 66 2c 58 0d 20 32 38 36 30 20 20 20 20 20 |iff,X. 2860 |
00002a70 20 20 20 20 42 45 51 20 65 6e 64 6b 65 79 0d 20 | BEQ endkey. |
00002a80 32 38 37 30 20 20 20 20 20 20 20 20 20 4c 44 41 |2870 LDA|
00002a90 20 23 26 38 41 0d 20 32 38 38 30 20 20 20 20 20 | #&8A. 2880 |
00002aa0 20 20 20 20 4c 44 58 20 23 30 0d 20 32 38 39 30 | LDX #0. 2890|
00002ab0 20 20 20 20 20 20 20 20 20 4a 53 52 20 6f 73 62 | JSR osb|
00002ac0 79 74 65 0d 20 32 39 30 30 20 20 20 20 20 20 20 |yte. 2900 |
00002ad0 20 20 4a 4d 50 20 6b 65 79 62 6f 61 72 64 2b 64 | JMP keyboard+d|
00002ae0 69 66 66 0d 20 32 39 31 30 20 2e 65 6e 64 6b 65 |iff. 2910 .endke|
00002af0 79 0d 20 32 39 32 30 20 20 20 20 20 20 20 20 20 |y. 2920 |
00002b00 50 4c 41 0d 20 32 39 33 30 20 2e 62 61 73 69 63 |PLA. 2930 .basic|
00002b10 0d 20 32 39 34 30 20 20 20 20 20 20 20 20 20 4c |. 2940 L|
00002b20 44 41 20 23 26 42 42 0d 20 32 39 35 30 20 20 20 |DA #&BB. 2950 |
00002b30 20 20 20 20 20 20 4c 44 58 20 23 30 0d 20 32 39 | LDX #0. 29|
00002b40 36 30 20 20 20 20 20 20 20 20 20 4c 44 59 20 23 |60 LDY #|
00002b50 26 46 46 0d 20 32 39 37 30 20 20 20 20 20 20 20 |&FF. 2970 |
00002b60 20 20 4a 53 52 20 6f 73 62 79 74 65 20 20 20 20 | JSR osbyte |
00002b70 5c 20 46 69 6e 64 20 42 41 53 49 43 0d 20 32 39 |\ Find BASIC. 29|
00002b80 38 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 |80 LDA #|
00002b90 26 38 45 0d 20 32 39 39 30 20 20 20 20 20 20 20 |&8E. 2990 |
00002ba0 20 20 4a 4d 50 20 6f 73 62 79 74 65 20 20 20 20 | JMP osbyte |
00002bb0 5c 20 45 6e 74 65 72 20 42 41 53 49 43 0d 20 33 |\ Enter BASIC. 3|
00002bc0 30 30 30 20 2e 72 66 73 63 6f 6d 6d 0d 20 33 30 |000 .rfscomm. 30|
00002bd0 31 30 20 20 20 20 20 20 20 20 20 4f 50 54 20 46 |10 OPT F|
00002be0 4e 65 71 75 73 28 22 43 48 41 49 4e 22 22 44 45 |Nequs("CHAIN""DE|
00002bf0 4d 4f 22 22 22 29 0d 20 33 30 32 30 20 20 20 20 |MO"""). 3020 |
00002c00 20 20 20 20 20 4f 50 54 20 46 4e 65 71 75 62 28 | OPT FNequb(|
00002c10 26 30 44 29 0d 20 33 30 33 30 20 20 20 20 20 20 |&0D). 3030 |
00002c20 20 20 20 42 52 4b 0d 20 33 30 34 30 20 2e 6c 61 | BRK. 3040 .la|
00002c30 73 74 62 79 74 65 0d 20 33 30 35 30 20 5d 0d 20 |stbyte. 3050 ]. |
00002c40 33 30 36 30 20 4e 45 58 54 0d 20 33 30 37 30 20 |3060 NEXT. 3070 |
00002c50 4f 25 3d 6c 61 73 74 62 79 74 65 0d 20 33 30 38 |O%=lastbyte. 308|
00002c60 30 20 43 48 41 49 4e 22 52 46 53 47 45 4e 22 0d |0 CHAIN"RFSGEN".|
00002c70 20 33 30 39 30 20 44 45 46 46 4e 65 71 75 62 28 | 3090 DEFFNequb(|
00002c80 62 79 74 65 29 0d 20 33 31 30 30 20 3f 50 25 3d |byte). 3100 ?P%=|
00002c90 62 79 74 65 0d 20 33 31 31 30 20 50 25 3d 50 25 |byte. 3110 P%=P%|
00002ca0 2b 31 0d 20 33 31 32 30 20 3d 70 61 73 73 0d 20 |+1. 3120 =pass. |
00002cb0 33 31 33 30 20 44 45 46 46 4e 65 71 75 77 28 77 |3130 DEFFNequw(w|
00002cc0 6f 72 64 29 0d 20 33 31 34 30 20 3f 50 25 3d 77 |ord). 3140 ?P%=w|
00002cd0 6f 72 64 20 4d 4f 44 20 32 35 36 0d 20 33 31 35 |ord MOD 256. 315|
00002ce0 30 20 50 25 3f 31 3d 77 6f 72 64 20 44 49 56 20 |0 P%?1=word DIV |
00002cf0 32 35 36 0d 20 33 31 36 30 20 50 25 3d 50 25 2b |256. 3160 P%=P%+|
00002d00 32 0d 20 33 31 37 30 20 3d 70 61 73 73 0d 20 33 |2. 3170 =pass. 3|
00002d10 31 38 30 20 44 45 46 46 4e 65 71 75 64 28 64 6f |180 DEFFNequd(do|
00002d20 75 62 6c 65 29 0d 20 33 31 39 30 20 21 50 25 3d |uble). 3190 !P%=|
00002d30 64 6f 75 62 6c 65 0d 20 33 32 30 30 20 50 25 3d |double. 3200 P%=|
00002d40 50 25 2b 34 0d 20 33 32 31 30 20 3d 70 61 73 73 |P%+4. 3210 =pass|
00002d50 0d 20 33 32 32 30 20 44 45 46 46 4e 65 71 75 73 |. 3220 DEFFNequs|
00002d60 28 73 74 72 69 6e 67 24 29 0d 20 33 32 33 30 20 |(string$). 3230 |
00002d70 24 50 25 3d 73 74 72 69 6e 67 24 0d 20 33 32 34 |$P%=string$. 324|
00002d80 30 20 50 25 3d 50 25 2b 4c 45 4e 28 73 74 72 69 |0 P%=P%+LEN(stri|
00002d90 6e 67 24 29 0d 20 33 32 35 30 20 3d 70 61 73 73 |ng$). 3250 =pass|
00002da0 0d |.|
00002da1 
11-12-88/T\SWR23.m0
11-12-88/T\SWR23.m1
11-12-88/T\SWR23.m2
11-12-88/T\SWR23.m4
11-12-88/T\SWR23.m5
.