00000000: 60 00 30 EB 33 00 10 00 20 20 20 20 20 20 20 20 |`.0.3... |
00000010: 20 20 20 2E 4F D3 20 00 20 2E 4C D3 30 00 47 45 | .O. . .L.0.GE|
00000020: 54 20 2E 44 45 20 24 46 46 45 B4 40 00 53 54 4F |T .DE $FFE.@.STO|
00000030: 50 20 20 20 20 20 20 20 2E 44 45 20 24 46 36 45 |P .DE $F6E|
00000040: C4 50 00 53 41 56 45 20 2E 44 45 20 24 46 46 44 |.P.SAVE .DE $FFD|
00000050: B8 60 00 4C 4F 41 44 20 2E 44 45 20 24 46 46 44 |.`.LOAD .DE $FFD|
00000060: B5 70 00 53 45 43 4F 4E 44 20 2E 44 45 20 24 46 |.p.SECOND .DE $F|
00000070: 46 39 B3 80 00 42 53 4F 55 54 20 2E 44 45 20 24 |F9...BSOUT .DE $|
00000080: 46 46 44 B2 90 00 42 41 53 49 4E 20 2E 44 45 20 |FFD...BASIN .DE |
00000090: 24 46 46 43 C6 00 01 43 4B 4F 55 54 20 2E 44 45 |$FFC...CKOUT .DE|
000000A0: 20 24 46 46 43 B9 10 01 43 48 4B 49 4E 20 2E 44 | $FFC...CHKIN .D|
000000B0: 45 20 24 46 46 43 B6 20 01 43 4C 4F 53 45 20 20 |E $FFC. .CLOSE |
000000C0: 20 20 20 20 2E 44 45 20 24 46 46 43 B3 30 01 4F | .DE $FFC.0.O|
000000D0: 50 45 4E 20 2E 44 45 20 24 46 46 43 B0 40 01 53 |PEN .DE $FFC.@.S|
000000E0: 45 54 4C 46 53 20 2E 44 45 20 24 46 46 42 C1 50 |ETLFS .DE $FFB.P|
000000F0: 01 53 45 54 4E 41 4D 20 2E 44 45 20 24 46 46 42 |.SETNAM .DE $FFB|
00000100: C4 60 01 53 54 41 54 55 53 20 20 20 20 20 2E 44 |.`.STATUS .D|
00000110: 45 20 24 39 B0 70 01 43 4C 53 46 49 4C 20 2E 44 |E $9.p.CLSFIL .D|
00000120: 45 20 24 46 36 34 B2 80 01 4C 49 53 54 45 4E 20 |E $F64...LISTEN |
00000130: 2E 44 45 20 24 46 46 42 B1 90 01 53 45 43 54 41 |.DE $FFB...SECTA|
00000140: 4C 4B 20 2E 44 45 20 24 46 46 39 B6 00 02 54 41 |LK .DE $FF9...TA|
00000150: 4C 4B 20 2E 44 45 20 24 46 46 42 B4 10 02 53 45 |LK .DE $FFB...SE|
00000160: 4E 44 4E 41 4D 20 20 20 20 20 2E 44 45 20 24 46 |NDNAM .DE $F|
00000170: 33 44 B5 20 02 55 4E 4C 49 53 54 45 4E 20 2E 44 |3D. .UNLISTEN .D|
00000180: 45 20 24 46 46 41 C5 30 02 49 45 43 49 4E 20 2E |E $FFA.0.IECIN .|
00000190: 44 45 20 24 46 46 41 B5 40 02 43 49 4F 55 54 20 |DE $FFA.@.CIOUT |
000001A0: 2E 44 45 20 36 35 34 34 B8 50 02 4C 4E 50 52 54 |.DE 6544.P.LNPRT|
000001B0: 20 2E 44 45 20 24 42 44 43 C4 60 02 55 4E 54 41 | .DE $BDC.`.UNTA|
000001C0: 4C 4B 20 2E 44 45 20 24 46 46 41 C2 70 02 50 52 |LK .DE $FFA.p.PR|
000001D0: 49 4E 54 20 2E 44 45 20 24 46 46 44 B2 80 02 43 |INT .DE $FFD...C|
000001E0: 48 52 47 45 54 20 2E 44 45 20 24 30 30 37 B3 90 |HRGET .DE $007..|
000001F0: 02 43 48 52 47 4F 54 20 2E 44 45 20 24 30 30 37 |.CHRGOT .DE $007|
00000200: B9 00 03 52 45 41 44 59 20 2E 44 45 20 24 45 33 |...READY .DE $E3|
00000210: 37 C2 10 03 4B 4F 4D 4D 41 20 2E 44 45 20 24 41 |7...KOMMA .DE $A|
00000220: 45 46 C4 20 03 46 52 4D 4E 55 4D 20 2E 44 45 20 |EF. .FRMNUM .DE |
00000230: 24 41 44 38 C1 30 03 46 52 4D 45 56 4C 20 2E 44 |$AD8.0.FRMEVL .D|
00000240: 45 20 24 45 32 35 B7 40 03 43 4C 52 43 48 20 2E |E $E25.@.CLRCH .|
00000250: 44 45 20 24 46 46 43 C3 50 03 55 4D 57 41 4E 44 |DE $FFC.P.UMWAND|
00000260: 20 2E 44 45 20 24 42 37 46 B7 60 03 3B 2D 2D 2D | .DE $B7F.`.;---|
00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000280: 2D 2D 2D 2D AD 62 03 3B 20 28 43 29 20 41 2E 20 |----.b.; (C) A. |
00000290: 53 43 48 55 4C 5A C5 64 03 3B 20 52 45 4C 4C 41 |SCHULZ.d.; RELLA|
000002A0: C4 66 03 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.f.;------------|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D AD 70 03 20 2E |-----------.p. .|
000002C0: 42 41 20 24 43 30 30 B0 80 03 53 54 41 52 54 20 |BA $C00...START |
000002D0: 20 20 20 20 20 4A 53 52 20 4B 4F 4D 4D C1 90 03 | JSR KOMM...|
000002E0: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 | JSR F|
000002F0: 52 4D 4E 55 CD 00 04 20 20 20 20 20 20 20 20 20 |RMNU... |
00000300: 20 20 4A 53 52 20 55 4D 57 41 4E C4 10 04 20 20 | JSR UMWAN... |
00000310: 20 20 20 20 20 20 20 20 20 4A 53 52 20 4B 4F 4D | JSR KOM|
00000320: 4D C1 20 04 20 20 20 20 20 20 20 20 20 20 20 4A |M. . J|
00000330: 53 52 20 46 52 4D 45 56 CC 30 04 20 20 20 20 20 |SR FRMEV.0. |
00000340: 20 20 20 20 20 20 4C 44 58 20 23 24 30 B8 40 04 | LDX #$0.@.|
00000350: 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 | LDY #|
00000360: 24 30 B0 50 04 20 20 20 20 20 20 20 20 20 20 20 |$0.P. |
00000370: 4A 53 52 20 53 45 54 4C 46 D3 60 04 20 20 20 20 |JSR SETLF.`. |
00000380: 20 20 20 20 20 20 20 4A 53 52 20 24 42 36 41 B3 | JSR $B6A.|
00000390: 70 04 20 4A 53 52 20 53 45 54 4E 41 CD 80 04 20 |p. JSR SETNA... |
000003A0: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 | LDA #$|
000003B0: 30 B0 90 04 20 20 20 20 20 20 20 20 20 20 20 4C |0... L|
000003C0: 44 58 20 24 31 B4 00 05 20 20 20 20 20 20 20 20 |DX $1... |
000003D0: 20 20 20 4C 44 59 20 24 31 B5 10 05 20 4A 53 52 | LDY $1... JSR|
000003E0: 20 4C 4F 41 C4 20 05 20 52 54 D3 30 05 20 2E 45 | LOA. . RT.0. .E|
000003F0: CE FF |.. |
`.0.3... .OS . .LS0.GET .DE $F
FE.@.STOP .DE $F6EDP.SAVE .DE $FFD
.`.LOAD .DE $FFD.P.SECOND .DE $FF9...BSO
UT .DE $FFD...BASIN .DE $FFCF..CKOUT .DE
$FFC...CHKIN .DE $FFC. .CLOSE .DE
$FFC.0.OPEN .DE $FFC.@.SETLFS .DE $FFBAP
.SETNAM .DE $FFBD`.STATUS .DE $9.P.C
LSFIL .DE $F64...LISTEN .DE $FFB...SECTA
LK .DE $FF9...TALK .DE $FFB...SENDNAM
.DE $F3D. .UNLISTEN .DE $FFAE0.IECIN .
DE $FFA.@.CIOUT .DE 6544.P.LNPRT .DE $BD
CD`.UNTALK .DE $FFABP.PRINT .DE $FFD...C
HRGET .DE $007...CHRGOT .DE $007...READY
.DE $E37B..KOMMA .DE $AEFD .FRMNUM .DE
$AD8A0.FRMEVL .DE $E25.@.CLRCH .DE $FFCC
P.UMWAND .DE $B7F.`.;-------------------
----.B.; (C) A. SCHULZED.; RELLADF.;----
-------------------.P. .BA $C00...START
JSR KOMMA.. JSR FRMNUM..
JSR UMWAND.. JSR KOM
MA . JSR FRMEVL0. LD
X #$0.@. LDY #$0.P.
JSR SETLFS`. JSR $B6A.P. JSR S
ETNAM.. LDA #$0... L
DX $1... LDY $1... JSR LOAD .
RTS0. .EN.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL