CET

FILE INFORMATION

FILENAME(S): CET

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-11-30 21:24:06

APPEARS ON: 1 disk(s)

FILE HASH

cb6d5a2f72683fd79d4b7ce04ace23419fa6769cb606668489e152d5ba3e1f4a

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HERMAN	CET	PRG	DuncanTwain	13	15	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0B 08 0A 00 4F 55  54 20 34 00 17 08 14 00  |......OUT 4.....|
00000010: AC B2 24 43 30 30 30 00  31 08 1E 00 57 B0 20 24  |..$C000.1...W. $|
00000020: 38 30 30 39 20 21 4B 4F  55 44 45 20 53 54 41 52  |8009 !KOUDE STAR|
00000030: 54 00 4B 08 28 00 57 B0  20 24 38 30 30 39 20 21  |T.K.(.W. $8009 !|
00000040: 57 41 52 4D 45 20 53 54  41 52 54 00 57 08 32 00  |WARME START.W.2.|
00000050: 42 59 54 20 24 43 33 00  63 08 3C 00 42 59 54 20  |BYT $C3.c.<.BYT |
00000060: 24 43 32 00 6F 08 46 00  42 59 54 20 24 43 44 00  |$C2.o.F.BYT $CD.|
00000070: 7B 08 50 00 42 59 54 20  24 33 38 00 87 08 5A 00  |{.P.BYT $38...Z.|
00000080: 42 59 54 20 24 33 30 00  9B 08 64 00 53 54 58 20  |BYT $30...d.STX |
00000090: 24 44 30 31 36 20 21 49  4E 49 54 00 A9 08 6E 00  |$D016 !INIT...n.|
000000A0: 4A 53 52 20 24 46 44 41  33 00 B7 08 78 00 4A 53  |JSR $FDA3...x.JS|
000000B0: 52 20 24 46 44 35 30 00  C5 08 82 00 4A 53 52 20  |R $FD50.....JSR |
000000C0: 24 46 44 31 35 00 D3 08  8C 00 4A 53 52 20 24 46  |$FD15.....JSR $F|
000000D0: 46 35 42 00 DB 08 96 00  43 4C 49 00 E9 08 A0 00  |F5B.....CLI.....|
000000E0: 4A 53 52 20 24 45 34 35  33 00 F7 08 AA 00 4A 53  |JSR $E453.....JS|
000000F0: 52 20 24 45 33 42 46 00  05 09 B4 00 4A 53 52 20  |R $E3BF.....JSR |
00000100: 24 45 34 32 32 00 12 09  BE 00 4C 44 58 20 23 24  |$E422.....LDX #$|
00000110: 46 42 00 23 09 C8 00 54  58 53 20 21 93 20 53 54  |FB.#...TXS !. ST|
00000120: 41 43 4B 00 41 09 D2 00  4C 44 41 20 23 24 30 35  |ACK.A...LDA #$05|
00000130: 20 21 53 45 54 20 56 45  52 54 20 49 4E 20 53 45  | !SET VERT IN SE|
00000140: 43 00 62 09 DC 00 4A 53  52 20 24 43 30 38 31 20  |C.b...JSR $C081 |
00000150: 21 43 41 4C 4C 20 53 55  42 AC AC AC AC AC AC AC  |!CALL SUB.......|
00000160: AC AC 00 72 09 E6 00 54  58 54 20 22 53 54 41 52  |...r...TXT "STAR|
00000170: 54 22 00 8E 09 F0 00 4C  44 41 20 23 24 38 20 21  |T".....LDA #$8 !|
00000180: 4C 41 41 44 20 44 45 56  49 43 45 20 4E 52 00 AF  |LAAD DEVICE NR..|
00000190: 09 FA 00 4C 44 58 20 23  24 30 38 20 21 53 45 54  |...LDX #$08 !SET|
000001A0: 20 BC 49 43 41 4C 20 46  49 4C 45 20 4E 52 32 00  | .ICAL FILE NR2.|
000001B0: D0 09 04 01 4C 44 59 20  23 24 30 38 20 21 53 45  |....LDY #$08 !SE|
000001C0: 54 20 9D 20 4F 50 20 44  45 56 49 43 45 20 4E 52  |T . OP DEVICE NR|
000001D0: 00 E7 09 0E 01 4A 53 52  20 24 46 46 42 41 20 21  |.....JSR $FFBA !|
000001E0: 53 45 54 20 4C 46 53 00  0A 0A 18 01 4C 44 41 20  |SET LFS.....LDA |
000001F0: 23 24 30 35 20 21 53 45  54 20 41 41 4E 54 41 4C  |#$05 !SET AANTAL|
00000200: 20 88 54 52 53 20 4E 41  41 4D 00 2A 0A 22 01 4C  | .TRS NAAM.*.".L|
00000210: 44 58 20 23 24 32 41 20  21 AC AC AC AC AC AC AC  |DX #$2A !.......|
00000220: AC AC AC AC AC AC AC AC  AC AC 00 4B 0A 2C 01 4C  |...........K.,.L|
00000230: 44 59 20 23 24 43 30 20  21 53 45 54 20 41 44 52  |DY #$C0 !SET ADR|
00000240: 20 46 49 C3 41 4D 45 AC  AC AC AC 00 67 0A 36 01  | FI.AME.....g.6.|
00000250: 4A 53 52 20 24 46 46 42  44 20 21 43 41 4C 4C 20  |JSR $FFBD !CALL |
00000260: 53 45 54 4E 41 4D 45 00  86 0A 40 01 4C 44 41 20  |SETNAME...@.LDA |
00000270: 23 24 30 20 21 53 45 54  20 41 43 20 56 4F B0 20  |#$0 !SET AC VO. |
00000280: 93 20 44 49 53 43 00 93  0A 4A 01 4C 44 59 20 23  |. DISC...J.LDY #|
00000290: 24 46 46 00 A0 0A 54 01  4C 44 58 20 23 24 46 46  |$FF...T.LDX #$FF|
000002A0: 00 BB 0A 5E 01 4A 53 52  20 24 46 46 44 35 20 21  |...^.JSR $FFD5 !|
000002B0: 43 41 4C 4C 20 93 20 44  49 53 43 00 C8 0A 68 01  |CALL . DISC...h.|
000002C0: 42 43 43 20 4C 41 42 33  00 D8 0A 72 01 54 41 58  |BCC LAB3...r.TAX|
000002D0: 20 21 94 20 41 43 43 55  00 F2 0A 7C 01 44 45 58  | !. ACCU...|.DEX|
000002E0: 20 21 54 45 53 54 20 4F  50 20 46 49 4C 45 20 A8  | !TEST OP FILE .|
000002F0: 20 D2 00 FA 0A 86 01 44  45 58 00 02 0B 90 01 44  | ......DEX.....D|
00000300: 45 58 00 0A 0B 9A 01 44  45 58 00 26 0B A4 01 42  |EX.....DEX.&...B|
00000310: 4E 45 20 4C 41 42 34 20  21 42 49 4A 20 45 52 52  |NE LAB4 !BIJ ERR|
00000320: B0 20 41 42 B0 54 00 3B  0B AE 01 4C 44 41 20 23  |. AB.T.;...LDA #|
00000330: 24 30 38 20 21 A0 20 46  49 4C 45 00 49 0B B8 01  |$08 !. FILE.I...|
00000340: 4A 53 52 20 24 46 46 43  33 00 56 0B C2 01 4C 44  |JSR $FFC3.V...LD|
00000350: 41 20 23 24 30 35 00 76  0B CC 01 4A 53 52 20 24  |A #$05.v...JSR $|
00000360: 43 30 38 31 20 21 43 41  4C 4C 20 53 45 43 AC AC  |C081 !CALL SEC..|
00000370: AC AC AC AC AC AC 00 9B  0B D6 01 4A 53 52 20 24  |...........JSR $|
00000380: 43 30 39 31 20 21 53 45  54 20 44 49 52 20 4F 50  |C091 !SET DIR OP|
00000390: 20 53 43 48 45 52 4D AC  AC AC AC 00 AD 0B E0 01  | SCHERM.........|
000003A0: 4A 4D 50 20 4C 41 42 34  20 21 89 20 80 00 C7 0B  |JMP LAB4 !. ....|
000003B0: EA 01 4C 41 42 33 20 4C  44 41 20 23 24 30 38 20  |..LAB3 LDA #$08 |
000003C0: 21 A0 20 46 49 4C 45 00  D5 0B F4 01 4A 53 52 20  |!. FILE.....JSR |
000003D0: 24 46 46 43 33 00 F7 0B  FE 01 4C 44 41 20 23 24  |$FFC3.....LDA #$|
000003E0: 30 34 20 21 53 45 54 20  4B 45 42 4F 41 52 44 20  |04 !SET KEBOARD |
000003F0: 43 4F 55 4E 54 45 52 00  03 0C 08 02 53 54 41 20  |COUNTER.....STA |
00000400: 31 39 38 00 15 0C 12 02  4C 44 41 20 23 24 35 32  |198.....LDA #$52|
00000410: 20 21 22 52 22 00 34 0C  1C 02 53 54 41 20 36 33  | !"R".4...STA 63|
00000420: 31 20 21 93 20 4B 45 59  42 4F 41 52 44 20 42 55  |1 !. KEYBOARD BU|
00000430: 46 46 45 52 00 44 0C 26  02 4C 44 41 20 23 24 35  |FFER.D.&.LDA #$5|
00000440: 35 20 21 55 00 50 0C 30  02 53 54 41 20 36 33 32  |5 !U.P.0.STA 632|
00000450: 00 60 0C 3A 02 4C 44 41  20 23 24 34 45 20 21 4E  |.`.:.LDA #$4E !N|
00000460: 00 6C 0C 44 02 53 54 41  20 36 33 33 00 84 0C 4E  |.l.D.STA 633...N|
00000470: 02 4C 44 41 20 23 24 30  44 20 21 43 41 52 49 41  |.LDA #$0D !CARIA|
00000480: 47 45 20 8E 00 90 0C 58  02 53 54 41 20 36 33 34  |GE ....X.STA 634|
00000490: 00 9D 0C 62 02 4C 41 42  34 20 52 54 53 00 C1 0C  |...b.LAB4 RTS...|
000004A0: 6C 02 4C 44 59 20 23 24  46 46 20 21 53 54 41 52  |l.LDY #$FF !STAR|
000004B0: 54 20 56 45 52 54 52 41  47 20 53 55 42 52 AC AC  |T VERTRAG SUBR..|
000004C0: AC 00 DF 0C 76 02 4C 41  42 32 20 4C 44 58 20 23  |....v.LAB2 LDX #|
000004D0: 24 46 46 20 21 53 45 54  20 56 52 54 20 49 4E 00  |$FF !SET VRT IN.|
000004E0: F9 0C 80 02 4C 41 42 31  20 44 45 58 20 21 53 45  |....LAB1 DEX !SE|
000004F0: 43 20 49 4E 20 41 43 43  55 00 12 0D 8A 02 42 4E  |C IN ACCU.....BN|
00000500: 45 20 4C 41 42 31 20 21  A7 20 43 41 4C 4C 20 53  |E LAB1 !. CALL S|
00000510: 55 42 00 1A 0D 94 02 44  45 59 00 27 0D 9E 02 42  |UB.....DEY.'...B|
00000520: 4E 45 20 4C 41 42 32 00  2F 0D A8 02 54 41 58 00  |NE LAB2./...TAX.|
00000530: 37 0D B2 02 44 45 58 00  3F 0D BC 02 54 58 41 00  |7...DEX.?...TXA.|
00000540: 4C 0D C6 02 42 4E 45 20  4C 41 42 32 00 54 0D D0  |L...BNE LAB2.T..|
00000550: 02 52 54 53 00 73 0D DA  02 54 58 54 20 22 59 22  |.RTS.s...TXT "Y"|
00000560: 20 21 53 54 41 52 54 20  44 49 52 20 52 4F 55 54  | !START DIR ROUT|
00000570: 49 4E 45 00 8E 0D E4 02  4C 44 41 20 23 24 30 38  |INE.....LDA #$08|
00000580: 20 21 93 20 44 49 56 20  4E 55 4D 4D 45 52 00 AF  | !. DIV NUMMER..|
00000590: 0D EE 02 4C 44 58 20 23  24 30 38 20 21 53 45 54  |...LDX #$08 !SET|
000005A0: 20 BC 49 43 41 4C 20 46  49 4C 45 20 4E 52 32 00  | .ICAL FILE NR2.|
000005B0: D0 0D F8 02 4C 44 59 20  23 24 30 38 20 21 53 45  |....LDY #$08 !SE|
000005C0: 54 20 9D 20 4F 50 20 44  45 56 49 43 45 20 4E 52  |T . OP DEVICE NR|
000005D0: 00 E7 0D 02 03 4A 53 52  20 24 46 46 42 41 20 21  |.....JSR $FFBA !|
000005E0: 53 45 54 20 4C 46 53 00  0A 0E 0C 03 4C 44 41 20  |SET LFS.....LDA |
000005F0: 23 24 30 31 20 21 53 45  54 20 41 41 4E 54 41 4C  |#$01 !SET AANTAL|
00000600: 20 88 54 52 53 20 4E 41  41 4D 00 2A 0E 16 03 4C  | .TRS NAAM.*...L|
00000610: 44 58 20 23 24 39 31 20  21 AC AC AC AC AC AC AC  |DX #$91 !.......|
00000620: AC AC AC AC AC AC AC AC  AC AC 00 4B 0E 20 03 4C  |...........K. .L|
00000630: 44 59 20 23 24 43 30 20  21 53 45 54 20 41 44 52  |DY #$C0 !SET ADR|
00000640: 20 46 49 C3 41 4D 45 AC  AC AC AC 00 67 0E 2A 03  | FI.AME.....g.*.|
00000650: 4A 53 52 20 24 46 46 42  44 20 21 43 41 4C 4C 20  |JSR $FFBD !CALL |
00000660: 53 45 54 4E 41 4D 45 00  86 0E 34 03 4C 44 41 20  |SETNAME...4.LDA |
00000670: 23 24 30 20 21 53 45 54  20 41 43 20 56 4F B0 20  |#$0 !SET AC VO. |
00000680: 93 20 44 49 53 43 00 93  0E 3E 03 4C 44 59 20 23  |. DISC...>.LDY #|
00000690: 24 38 30 00 A0 0E 48 03  4C 44 58 20 23 24 30 30  |$80...H.LDX #$00|
000006A0: 00 BB 0E 52 03 4A 53 52  20 24 46 46 44 35 20 21  |...R.JSR $FFD5 !|
000006B0: 43 41 4C 4C 20 93 20 44  49 53 43 00 D0 0E 5C 03  |CALL . DISC...\.|
000006C0: 4C 44 41 20 23 24 30 38  20 21 A0 20 46 49 4C 45  |LDA #$08 !. FILE|
000006D0: 00 DE 0E 66 03 4A 53 52  20 24 46 46 43 33 00 FD  |...f.JSR $FFC3..|
000006E0: 0E 67 03 4C 44 41 20 23  24 30 38 20 21 53 45 54  |.g.LDA #$08 !SET|
000006F0: 20 42 41 53 49 43 20 50  4F B5 45 52 53 00 08 0F  | BASIC PO.ERS...|
00000700: 68 03 53 54 41 20 34 35  00 15 0F 69 03 4C 44 41  |h.STA 45...i.LDA|
00000710: 20 23 24 30 30 00 20 0F  6A 03 53 54 41 20 34 36  | #$00. .j.STA 46|
00000720: 00 43 0F 70 03 4C 44 41  20 23 24 30 35 20 21 53  |.C.p.LDA #$05 !S|
00000730: 45 54 20 4B 45 59 42 4F  41 52 44 20 43 4F 55 4E  |ET KEYBOARD COUN|
00000740: 54 45 52 00 4F 0F 7A 03  53 54 41 20 31 38 39 00  |TER.O.z.STA 189.|
00000750: 5F 0F 84 03 4C 44 41 20  23 24 34 43 20 21 4C 00  |_...LDA #$4C !L.|
00000760: 6B 0F 8E 03 53 54 41 20  36 33 31 00 7B 0F 98 03  |k...STA 631.{...|
00000770: 4C 44 41 20 23 24 34 39  20 21 49 00 87 0F A2 03  |LDA #$49 !I.....|
00000780: 53 54 41 20 36 33 32 00  97 0F AC 03 4C 44 41 20  |STA 632.....LDA |
00000790: 23 24 35 33 20 21 53 00  A3 0F B6 03 53 54 41 20  |#$53 !S.....STA |
000007A0: 36 33 33 00 B3 0F C0 03  4C 44 41 20 23 24 35 34  |633.....LDA #$54|
000007B0: 20 21 54 00 BF 0F CA 03  53 54 41 20 36 33 34 00  | !T.....STA 634.|
000007C0: D6 0F D4 03 4C 44 41 20  23 24 30 44 20 21 43 41  |....LDA #$0D !CA|
000007D0: 52 52 20 52 45 54 00 E2  0F DE 03 53 54 41 20 36  |RR RET.....STA 6|
000007E0: 33 35 00 EA 0F E8 03 52  54 53 00 F0 0F F2 03 80  |35.....RTS......|
000007F0: 00 00 00                                          |...             |

......OUT 4.......$C000.1...W. $8009 !KO
UDE START.K.(.W. $8009 !WARME START.W.2.
BYT $C3.C.<.BYT $C2.O.F.BYT $CD.{.P.BYT 
$38...Z.BYT $30...D.STX $D016 !INIT...N.
JSR $FDA3...X.JSR $FD50.E...JSR $FD15.S.
..JSR $FF5B.....CLI... .JSR $E453.....JS
R $E3BF.....JSR $E422.....LDX #$FB.#.H.T
XS !. STACK.A.R.LDA #$05 !SET VERT IN SE
C.B...JSR $C081 !CALL SUB..........R...T
XT "START".....LDA #$8 !LAAD DEVICE NR..
...LDX #$08 !SET .ICAL FILE NR2.P...LDY 
#$08 !SET . OP DEVICE NR.....JSR $FFBA !
SET LFS.....LDA #$05 !SET AANTAL .TRS NA
AM.*.".LDX #$2A !..................K.,.L
DY #$C0 !SET ADR FICAME.....G.6.JSR $FFB
D !CALL SETNAME...@.LDA #$0 !SET AC VO. 
. DISC...J.LDY #$FF. .T.LDX #$FF...^.JSR
 $FFD5 !CALL . DISC.H.H.BCC LAB3.X.R.TAX
 !. ACCU...|.DEX !TEST OP FILE . R.....D
EX.....DEX.....DEX.&...BNE LAB4 !BIJ ERR
. AB.T.;...LDA #$08 !  FILE.I...JSR $FFC
3.V.B.LDA #$05.V.L.JSR $C081 !CALL SEC..
.........V.JSR $C091 !SET DIR OP SCHERM.
........JMP LAB4 !. ..G...LAB3 LDA #$08 
!  FILE.U...JSR $FFC3.....LDA #$04 !SET 
KEBOARD COUNTER.....STA 198.....LDA #$52
 !"R".4...STA 631 !. KEYBOARD BUFFER.D.&
.LDA #$55 !U.P.0.STA 632.`.:.LDA #$4E !N
.L.D.STA 633...N.LDA #$0D !CARIAGE ....X
.STA 634...B.LAB4 RTS.A.L.LDY #$FF !STAR
T VERTRAG SUBR......V.LAB2 LDX #$FF !SET
 VRT IN.....LAB1 DEX !SEC IN ACCU.....BN
E LAB1 !. CALL SUB.....DEY.'...BNE LAB2.
/...TAX.7...DEX.?...TXA.L.F.BNE LAB2.T.P
.RTS.S.Z.TXT "Y" !START DIR ROUTINE.....
LDA #$08 !. DIV NUMMER.....LDX #$08 !SET
 .ICAL FILE NR2.P...LDY #$08 !SET . OP D
EVICE NR.....JSR $FFBA !SET LFS.....LDA 
#$01 !SET AANTAL .TRS NAAM.*...LDX #$91 
!..................K. .LDY #$C0 !SET ADR
 FICAME.....G.*.JSR $FFBD !CALL SETNAME.
..4.LDA #$0 !SET AC VO. . DISC...>.LDY #
$80. .H.LDX #$00...R.JSR $FFD5 !CALL . D
ISC.P.\.LDA #$08 !  FILE...F.JSR $FFC3..
.G.LDA #$08 !SET BASIC PO.ERS...H.STA 45
...I.LDA #$00. .J.STA 46.C.P.LDA #$05 !S
ET KEYBOARD COUNTER.O.Z.STA 189._...LDA 
#$4C !L.K...STA 631.{...LDA #$49 !I.....
STA 632.....LDA #$53 !S.....STA 633.....
LDA #$54 !T...J.STA 634.V.T.LDA #$0D !CA
RR RET.....STA 635.....RTS.........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL