CLOCK V1.1
FILE INFORMATION
FILENAME(S): CLOCK V1.1
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-10-20 00:40:15
APPEARS ON: 1 disk(s)
FILE HASH
27f77bcc2fb2c9db60f96d4cc87fa18b7f77a132e0bec704519a65dddc0fc26f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GEOSBUCHNA | CLOCK V1.1 | PRG | Treasure Chest - Joker79 | 15 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 20 20 20 20 20 20 3B 20 20 20 43 4C 4F 43 4B |. ; CLOCK| 00000010: 20 56 31 2E 31 0D 20 20 20 20 20 20 3B 20 55 50 | V1.1. ; UP| 00000020: 44 41 54 45 3A 20 32 33 2E 30 33 2E 38 37 0D 0D |DATE: 23.03.87..| 00000030: 20 20 20 20 20 20 2A 20 20 20 20 20 3D 20 24 35 | * = $5| 00000040: 30 30 30 20 20 20 3B 53 54 41 52 54 41 44 52 45 |000 ;STARTADRE| 00000050: 53 53 45 0D 0D 20 20 20 20 20 20 2E 4F 46 46 53 |SSE.. .OFFS| 00000060: 20 24 43 30 30 30 2D 2A 0D 0D 20 20 20 20 20 20 | $C000-*.. | 00000070: 46 45 4E 53 54 20 20 20 3D 20 24 43 32 35 36 20 |FENST = $C256 | 00000080: 20 20 3B 46 45 4E 53 54 45 52 52 4F 55 54 49 4E | ;FENSTERROUTIN| 00000090: 45 0D 20 20 20 20 20 20 54 41 42 43 4F 50 59 20 |E. TABCOPY | 000000A0: 3D 20 24 43 31 38 31 20 20 20 3B 4B 4F 50 49 45 |= $C181 ;KOPIE| 000000B0: 52 52 4F 55 54 49 4E 45 0D 0D 20 20 20 20 20 20 |RROUTINE.. | 000000C0: 3B 41 43 48 54 55 4E 47 3A 20 41 4E 5A 31 20 4D |;ACHTUNG: ANZ1 M| 000000D0: 55 53 53 20 24 C1 C5 20 53 45 49 4E 20 21 0D 20 |USS $.. SEIN !. | 000000E0: 20 20 20 20 20 3B 28 3D 20 4C 41 45 4E 47 45 20 | ;(= LAENGE | 000000F0: 4F 52 49 47 49 4E 41 4C 2D 50 41 54 43 48 29 0D |ORIGINAL-PATCH).| 00000100: 0D 20 20 20 20 20 20 3B 2A 2A 2A 20 20 20 46 45 |. ;*** FE| 00000110: 4E 53 54 45 52 20 41 55 53 47 45 42 45 4E 20 20 |NSTER AUSGEBEN | 00000120: 20 20 2A 2A 2A 0D 0D 47 4F 20 20 20 20 53 45 49 | ***..GO SEI| 00000130: 0D 0D 20 20 20 20 20 20 4C 44 41 20 23 24 38 30 |.. LDA #$80| 00000140: 0D 20 20 20 20 20 20 53 54 41 20 24 43 46 38 43 |. STA $CF8C| 00000150: 20 20 20 20 3B 35 30 20 48 5A 0D 0D 20 20 20 20 | ;50 HZ.. | 00000160: 20 20 4C 44 58 20 23 3C 50 41 52 31 20 20 20 3B | LDX #<PAR1 ;| 00000170: 41 44 52 45 53 53 45 20 44 45 52 20 50 41 52 41 |ADRESSE DER PARA| 00000180: 2D 0D 20 20 20 20 20 20 4C 44 59 20 23 3E 50 41 |-. LDY #>PA| 00000190: 52 31 20 20 20 3B 4D 45 54 45 52 54 41 42 45 4C |R1 ;METERTABEL| 000001A0: 4C 45 20 55 45 42 45 52 2D 0D 20 20 20 20 20 20 |LE UEBER-. | 000001B0: 53 54 58 20 24 30 32 20 20 20 20 20 20 3B 47 45 |STX $02 ;GE| 000001C0: 42 45 4E 0D 20 20 20 20 20 20 53 54 59 20 24 30 |BEN. STY $0| 000001D0: 33 0D 0D 20 20 20 20 20 20 4A 53 52 20 46 45 4E |3.. JSR FEN| 000001E0: 53 54 20 20 20 20 3B 46 45 4E 53 54 45 52 20 41 |ST ;FENSTER A| 000001F0: 55 53 47 45 42 45 4E 0D 0D 20 20 20 20 20 20 4C |USGEBEN.. L| 00000200: 44 41 20 24 30 32 0D 20 20 20 20 20 20 43 4D 50 |DA $02. CMP| 00000210: 20 23 24 30 34 20 20 20 20 20 3B 4E 4F 2D 46 45 | #$04 ;NO-FE| 00000220: 4C 44 20 3F 0D 20 20 20 20 20 20 42 45 51 20 4E |LD ?. BEQ N| 00000230: 4F 43 4C 20 20 20 20 20 3B 44 41 4E 4E 20 41 4C |OCL ;DANN AL| 00000240: 54 45 20 4A 4F 42 53 43 48 4C 2E 0D 0D 20 20 20 |TE JOBSCHL... | 00000250: 20 20 20 4C 44 58 20 23 3C 50 41 54 31 0D 20 20 | LDX #<PAT1. | 00000260: 20 20 20 20 4C 44 59 20 23 3E 50 41 54 31 0D 20 | LDY #>PAT1. | 00000270: 20 20 20 20 20 42 4E 45 20 43 4F 4E 54 31 0D 0D | BNE CONT1..| 00000280: 4E 4F 43 4C 20 20 4C 44 58 20 23 3C 50 41 54 33 |NOCL LDX #<PAT3| 00000290: 0D 20 20 20 20 20 20 4C 44 59 20 23 3E 50 41 54 |. LDY #>PAT| 000002A0: 33 0D 0D 43 4F 4E 54 31 20 53 54 58 20 24 30 32 |3..CONT1 STX $02| 000002B0: 20 20 20 20 20 20 3B 51 55 45 4C 4C 42 4C 4F 43 | ;QUELLBLOC| 000002C0: 4B 0D 20 20 20 20 20 20 53 54 59 20 24 30 33 0D |K. STY $03.| 000002D0: 0D 20 20 20 20 20 20 4A 53 52 20 54 41 42 43 4F |. JSR TABCO| 000002E0: 50 59 20 20 3B 4B 4F 50 49 45 52 45 4E 0D 0D 20 |PY ;KOPIEREN.. | 000002F0: 20 20 20 20 20 3B C1 4C 41 52 4D 20 C1 45 4E 44 | ;.LARM .END| 00000300: 45 52 55 4E 47 0D 0D 20 20 20 20 20 20 4C 44 58 |ERUNG.. LDX| 00000310: 20 23 3C 50 41 54 32 0D 20 20 20 20 20 20 4C 44 | #<PAT2. LD| 00000320: 59 20 23 3E 50 41 54 32 0D 0D 20 20 20 20 20 20 |Y #>PAT2.. | 00000330: 53 54 58 20 24 30 32 0D 20 20 20 20 20 20 53 54 |STX $02. ST| 00000340: 59 20 24 30 33 0D 0D 20 20 20 20 20 20 4A 53 52 |Y $03.. JSR| 00000350: 20 54 41 42 43 4F 50 59 0D 0D 20 20 20 20 20 20 | TABCOPY.. | 00000360: 4A 4D 50 20 24 43 32 32 43 20 20 20 20 3B 42 41 |JMP $C22C ;BA| 00000370: 43 4B 20 54 4F 20 44 45 53 4B D4 4F 50 0D 0D 0D |CK TO DESK.OP...| 00000380: 50 41 52 31 20 20 3B 2A 2A 20 50 41 52 41 4D 45 |PAR1 ;** PARAME| 00000390: 54 45 52 20 46 45 4E 53 54 45 52 20 2A 2A 0D 0D |TER FENSTER **..| 000003A0: 2E 42 59 54 45 20 24 38 31 2C 24 30 42 2C 24 32 |.BYTE $81,$0B,$2| 000003B0: 35 2C 24 31 41 2C 3C 54 41 2C 3E 54 41 20 20 3B |5,$1A,<TA,>TA ;| 000003C0: 54 45 58 54 20 41 0D 2E 42 59 54 45 20 20 20 20 |TEXT A..BYTE | 000003D0: 20 24 30 42 2C 24 32 35 2C 24 32 33 2C 3C 54 42 | $0B,$25,$23,<TB| 000003E0: 2C 3E 54 42 20 20 3B 54 45 58 54 20 42 0D 2E 42 |,>TB ;TEXT B..B| 000003F0: 59 54 45 20 20 20 20 20 24 30 33 2C 24 30 34 2C |YTE $03,$04,| 00000400: 24 34 30 20 20 20 20 20 20 20 20 20 20 3B D9 C5 |$40 ;..| 00000410: D3 0D 2E 42 59 54 45 20 20 20 20 20 24 30 34 2C |...BYTE $04,| 00000420: 24 30 45 2C 24 34 30 20 20 20 20 20 20 20 20 20 |$0E,$40 | 00000430: 20 3B CE CF 0D 2E 42 59 54 45 20 20 20 20 20 24 | ;....BYTE $| 00000440: 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |00 | 00000450: 20 20 20 20 3B 45 4E 44 45 0D 0D 54 41 20 20 20 | ;ENDE..TA | 00000460: 20 2E 54 45 58 54 20 27 53 4F 4C 4C 20 44 49 45 | .TEXT 'SOLL DIE| 00000470: 20 55 48 52 5A 45 49 54 20 27 0D 20 20 20 20 20 | UHRZEIT '. | 00000480: 20 2E 42 59 54 45 20 24 31 38 0D 20 20 20 20 20 | .BYTE $18. | 00000490: 20 2E 54 45 58 54 20 27 44 41 55 45 52 4E 44 20 | .TEXT 'DAUERND | 000004A0: 27 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 |'. .BYTE $0| 000004B0: 30 0D 0D 54 42 20 20 20 20 2E 42 59 54 45 20 24 |0..TB .BYTE $| 000004C0: 31 42 0D 20 20 20 20 20 20 2E 54 45 58 54 20 27 |1B. .TEXT '| 000004D0: 41 4E 47 45 5A 45 49 47 54 20 57 45 52 44 45 4E |ANGEZEIGT WERDEN| 000004E0: 20 3F 27 0D 20 20 20 20 20 20 2E 42 59 54 45 20 | ?'. .BYTE | 000004F0: 24 30 30 0D 0D 0D 50 41 54 33 20 20 3B 2A 20 41 |$00...PAT3 ;* A| 00000500: 4C 54 45 20 C4 41 54 55 4D 53 42 45 52 45 43 48 |LTE .ATUMSBERECH| 00000510: 4E 55 4E 47 20 2A 0D 0D 2E 42 59 54 45 20 24 33 |NUNG *...BYTE $3| 00000520: 38 2C 24 46 39 20 20 20 20 20 20 3B 5A 49 45 4C |8,$F9 ;ZIEL| 00000530: 41 44 52 45 53 53 45 0D 2E 42 59 54 45 20 3C 41 |ADRESSE..BYTE <A| 00000540: 4E 5A 31 20 20 20 20 20 20 20 20 3B 41 4E 5A 41 |NZ1 ;ANZA| 00000550: 48 4C 20 44 41 54 45 4E 0D 0D 2E 42 59 54 45 20 |HL DATEN...BYTE | 00000560: 24 41 44 2C 24 30 46 2C 24 44 43 2C 24 32 39 2C |$AD,$0F,$DC,$29,| 00000570: 24 37 46 2C 24 38 44 2C 24 30 46 2C 24 44 43 0D |$7F,$8D,$0F,$DC.| 00000580: 2E 42 59 54 45 20 24 41 44 2C 24 31 39 2C 24 38 |.BYTE $AD,$19,$8| 00000590: 35 2C 24 43 39 2C 24 30 43 2C 24 33 30 2C 24 30 |5,$C9,$0C,$30,$0| 000005A0: 38 2C 24 32 43 0D 2E 42 59 54 45 20 24 30 42 2C |8,$2C..BYTE $0B,| 000005B0: 24 44 43 2C 24 33 30 2C 24 30 33 2C 24 32 30 2C |$DC,$30,$03,$20,| 000005C0: 24 38 34 2C 24 46 39 2C 24 41 44 0D 2E 42 59 54 |$84,$F9,$AD..BYT| 000005D0: 45 20 24 30 42 2C 24 44 43 2C 24 32 39 2C 24 31 |E $0B,$DC,$29,$1| 000005E0: 46 2C 24 43 39 2C 24 31 32 2C 24 44 30 2C 24 30 |F,$C9,$12,$D0,$0| 000005F0: 32 0D 2E 42 59 54 45 20 24 41 39 2C 24 30 30 2C |2..BYTE $A9,$00,| 00000600: 24 32 43 2C 24 30 42 2C 24 44 43 2C 24 31 30 2C |$2C,$0B,$DC,$10,| 00000610: 24 30 35 2C 24 46 38 0D 2E 42 59 54 45 20 24 31 |$05,$F8..BYTE $1| 00000620: 38 2C 24 36 39 2C 24 31 32 2C 24 44 38 2C 24 32 |8,$69,$12,$D8,$2| 00000630: 30 2C 24 44 39 2C 24 46 39 2C 24 38 44 0D 2E 42 |0,$D9,$F9,$8D..B| 00000640: 59 54 45 20 24 31 39 2C 24 38 35 2C 24 41 44 2C |YTE $19,$85,$AD,| 00000650: 24 30 41 2C 24 44 43 2C 24 32 30 2C 24 44 39 2C |$0A,$DC,$20,$D9,| 00000660: 24 46 39 0D 2E 42 59 54 45 20 24 38 44 2C 24 31 |$F9..BYTE $8D,$1| 00000670: 41 2C 24 38 35 2C 24 41 44 2C 24 30 39 2C 24 44 |A,$85,$AD,$09,$D| 00000680: 43 2C 24 32 30 2C 24 44 39 0D 2E 42 59 54 45 20 |C,$20,$D9..BYTE | 00000690: 24 46 39 2C 24 38 44 2C 24 31 42 2C 24 38 35 2C |$F9,$8D,$1B,$85,| 000006A0: 24 41 44 2C 24 30 38 2C 24 44 43 2C 24 36 38 0D |$AD,$08,$DC,$68.| 000006B0: 2E 42 59 54 45 20 24 38 35 2C 24 30 31 2C 24 35 |.BYTE $85,$01,$5| 000006C0: 38 2C 24 36 30 2C 24 32 30 2C 24 42 34 2C 24 46 |8,$60,$20,$B4,$F| 000006D0: 39 2C 24 43 44 0D 2E 42 59 54 45 20 24 31 38 2C |9,$CD..BYTE $18,| 000006E0: 24 38 35 2C 24 46 30 2C 24 30 34 2C 24 45 45 2C |$85,$F0,$04,$EE,| 000006F0: 24 31 38 2C 24 38 35 2C 24 36 30 0D 2E 42 59 54 |$18,$85,$60..BYT| 00000700: 45 20 24 41 39 2C 24 30 31 2C 24 38 44 2C 24 31 |E $A9,$01,$8D,$1| 00000710: 38 2C 24 38 35 2C 24 45 45 2C 24 31 37 2C 24 38 |8,$85,$EE,$17,$8| 00000720: 35 0D 2E 42 59 54 45 20 24 41 44 2C 24 31 37 2C |5..BYTE $AD,$17,| 00000730: 24 38 35 2C 24 43 39 2C 24 30 44 2C 24 44 30 2C |$85,$C9,$0D,$D0,| 00000740: 24 31 34 2C 24 41 39 0D 2E 42 59 54 45 20 24 30 |$14,$A9..BYTE $0| 00000750: 31 2C 24 38 44 2C 24 31 37 2C 24 38 35 2C 24 45 |1,$8D,$17,$85,$E| 00000760: 45 2C 24 31 36 2C 24 38 35 2C 24 41 44 0D 2E 42 |E,$16,$85,$AD..B| 00000770: 59 54 45 20 24 31 36 2C 24 38 35 2C 24 43 39 2C |YTE $16,$85,$C9,| 00000780: 24 36 34 2C 24 44 30 2C 24 30 35 2C 24 41 39 2C |$64,$D0,$05,$A9,| 00000790: 24 30 30 0D 2E 42 59 54 45 20 24 38 44 2C 24 31 |$00..BYTE $8D,$1| 000007A0: 36 2C 24 38 35 2C 24 36 30 2C 24 41 43 2C 24 31 |6,$85,$60,$AC,$1| 000007B0: 37 2C 24 38 35 2C 24 38 38 0D 2E 42 59 54 45 20 |7,$85,$88..BYTE | 000007C0: 24 42 39 2C 24 43 44 2C 24 46 39 2C 24 34 38 2C |$B9,$CD,$F9,$48,| 000007D0: 24 43 30 2C 24 30 31 2C 24 44 30 2C 24 30 42 0D |$C0,$01,$D0,$0B.| 000007E0: 2E 42 59 54 45 20 24 41 44 2C 24 31 36 2C 24 38 |.BYTE $AD,$16,$8| 000007F0: 35 2C 24 32 39 2C 24 30 33 2C 24 44 30 2C 24 30 |5,$29,$03,$D0,$0| 00000800: 34 2C 24 36 38 0D 2E 42 59 54 45 20 24 41 39 2C |4,$68..BYTE $A9,| 00000810: 24 31 44 2C 24 36 30 2C 24 36 38 2C 24 36 30 2C |$1D,$60,$68,$60,| 00000820: 24 31 46 2C 24 31 43 2C 24 31 46 0D 2E 42 59 54 |$1F,$1C,$1F..BYT| 00000830: 45 20 24 31 45 2C 24 31 46 2C 24 31 45 2C 24 31 |E $1E,$1F,$1E,$1| 00000840: 46 2C 24 31 46 2C 24 31 46 2C 24 31 46 2C 24 31 |F,$1F,$1F,$1F,$1| 00000850: 45 0D 2E 42 59 54 45 20 24 31 46 2C 24 34 38 2C |E..BYTE $1F,$48,| 00000860: 24 32 39 2C 24 46 30 2C 24 34 41 2C 24 34 41 2C |$29,$F0,$4A,$4A,| 00000870: 24 34 41 2C 24 34 41 0D 2E 42 59 54 45 20 24 42 |$4A,$4A..BYTE $B| 00000880: 41 2C 24 36 38 2C 24 32 39 2C 24 30 46 2C 24 31 |A,$68,$29,$0F,$1| 00000890: 38 2C 24 43 41 0D 0D 2E 42 59 54 45 20 30 2C 30 |8,$CA...BYTE 0,0| 000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 42 53 | ;ABS| 000008B0: 43 48 4C 55 53 53 2D 42 59 54 45 53 0D 0D 0D 50 |CHLUSS-BYTES...P| 000008C0: 41 54 32 20 20 2E 42 59 54 45 20 24 45 44 2C 24 |AT2 .BYTE $ED,$| 000008D0: 46 39 20 20 3B 5A 49 45 4C 41 44 52 45 53 53 45 |F9 ;ZIELADRESSE| 000008E0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 3C 41 4E |. .BYTE <AN| 000008F0: 5A 32 20 20 20 20 3B 41 4E 5A 41 48 4C 0D 0D 41 |Z2 ;ANZAHL..A| 00000900: 4C 41 52 4D 20 4C 44 59 20 24 30 31 0D 0D 20 20 |LARM LDY $01.. | 00000910: 20 20 20 20 4C 44 41 20 23 24 33 35 0D 20 20 20 | LDA #$35. | 00000920: 20 20 20 53 54 41 20 24 30 31 0D 0D 20 20 20 20 | STA $01.. | 00000930: 20 20 4C 44 41 20 24 38 35 31 43 0D 20 20 20 20 | LDA $851C. | 00000940: 20 20 42 50 4C 20 4C 42 4C 31 0D 0D 20 20 20 20 | BPL LBL1.. | 00000950: 20 20 4C 44 41 20 24 44 43 30 44 0D 20 20 20 20 | LDA $DC0D. | 00000960: 20 20 41 4E 44 20 23 24 30 34 0D 20 20 20 20 20 | AND #$04. | 00000970: 20 42 45 51 20 4C 42 4C 32 0D 0D 20 20 20 20 20 | BEQ LBL2.. | 00000980: 20 4C 44 41 20 24 44 30 32 30 0D 20 20 20 20 20 | LDA $D020. | 00000990: 20 53 54 41 20 24 46 41 35 42 0D 20 20 20 20 20 | STA $FA5B. | 000009A0: 20 4C 44 41 20 23 24 34 41 0D 20 20 20 20 20 20 | LDA #$4A. | 000009B0: 53 54 41 20 24 38 35 31 43 0D 4C 42 4C 31 20 20 |STA $851C.LBL1 | 000009C0: 43 4D 50 20 23 24 34 30 0D 20 20 20 20 20 20 42 |CMP #$40. B| 000009D0: 4E 45 20 4C 42 4C 33 0D 20 20 20 20 20 20 4C 44 |NE LBL3. LD| 000009E0: 58 20 24 46 41 35 42 0D 20 20 20 20 20 20 44 45 |X $FA5B. DE| 000009F0: 58 0D 20 20 20 20 20 20 53 54 58 20 24 44 30 32 |X. STX $D02| 00000A00: 30 0D 4C 42 4C 33 20 20 42 49 54 20 24 38 35 31 |0.LBL3 BIT $851| 00000A10: 43 0D 20 20 20 20 20 20 42 56 43 20 4C 42 4C 32 |C. BVC LBL2| 00000A20: 0D 20 20 20 20 20 20 49 4E 43 20 24 44 30 32 30 |. INC $D020| 00000A30: 0D 20 20 20 20 20 20 4A 53 52 20 24 46 41 32 34 |. JSR $FA24| 00000A40: 0D 0D 4C 42 4C 32 20 20 53 54 59 20 24 30 31 0D |..LBL2 STY $01.| 00000A50: 20 20 20 20 20 20 52 54 53 0D 0D 45 4E 44 32 20 | RTS..END2 | 00000A60: 20 2E 42 59 54 45 20 30 2C 30 20 20 20 20 3B 41 | .BYTE 0,0 ;A| 00000A70: 42 53 43 48 4C 55 53 53 2D 42 59 54 45 53 0D 0D |BSCHLUSS-BYTES..| 00000A80: 0D 50 41 54 31 20 20 3B 2A 20 4E 45 55 45 52 20 |.PAT1 ;* NEUER | 00000A90: CB 45 52 4E 41 4C 2D D0 41 54 43 48 20 2A 0D 0D |.ERNAL-.ATCH *..| 00000AA0: 2E 42 59 54 45 20 24 33 38 2C 24 46 39 20 20 20 |.BYTE $38,$F9 | 00000AB0: 20 20 20 3B 5A 49 45 4C 41 44 52 45 53 53 45 0D | ;ZIELADRESSE.| 00000AC0: 2E 42 59 54 45 20 3C 41 4E 5A 31 20 20 20 20 20 |.BYTE <ANZ1 | 00000AD0: 20 20 20 3B 41 4E 5A 41 48 4C 20 44 41 54 45 4E | ;ANZAHL DATEN| 00000AE0: 0D 0D 20 20 20 20 20 20 2A 20 20 20 3D 20 24 46 |.. * = $F| 00000AF0: 39 33 38 0D 20 20 20 20 20 20 2E 4F 46 46 53 20 |938. .OFFS | 00000B00: 24 43 30 30 30 2B 50 41 54 31 2D 47 4F 2D 2A 2B |$C000+PAT1-GO-*+| 00000B10: 33 0D 0D 20 20 20 20 20 20 3B D5 48 52 5A 45 49 |3.. ;.HRZEI| 00000B20: 54 20 41 42 20 24 30 36 20 49 4E 20 44 45 52 20 |T AB $06 IN DER | 00000B30: 30 2D 50 41 47 45 0D 0D 43 4C 4F 43 4B 20 44 45 |0-PAGE..CLOCK DE| 00000B40: 43 20 43 4F 55 4E 54 0D 20 20 20 20 20 20 42 45 |C COUNT. BE| 00000B50: 51 20 54 49 4F 55 54 0D 0D 20 20 20 20 20 20 50 |Q TIOUT.. P| 00000B60: 4C 41 0D 20 20 20 20 20 20 53 54 41 20 24 30 31 |LA. STA $01| 00000B70: 0D 20 20 20 20 20 20 43 4C 49 0D 20 20 20 20 20 |. CLI. | 00000B80: 20 52 54 53 0D 0D 54 49 4F 55 54 20 4C 44 58 20 | RTS..TIOUT LDX | 00000B90: 23 24 30 30 20 20 20 20 20 3B 24 30 32 20 2D 20 |#$00 ;$02 - | 00000BA0: 24 30 44 20 41 55 46 20 D3 54 41 43 4B 0D 52 45 |$0D AUF .TACK.RE| 00000BB0: 54 54 45 20 4C 44 41 20 24 30 32 2C 58 20 20 20 |TTE LDA $02,X | 00000BC0: 20 3B 52 45 54 54 45 4E 0D 20 20 20 20 20 20 50 | ;RETTEN. P| 00000BD0: 48 41 0D 20 20 20 20 20 20 49 4E 58 0D 20 20 20 |HA. INX. | 00000BE0: 20 20 20 43 50 58 20 23 24 30 43 0D 20 20 20 20 | CPX #$0C. | 00000BF0: 20 20 42 4E 45 20 52 45 54 54 45 0D 0D 20 20 20 | BNE RETTE.. | 00000C00: 20 20 20 4C 44 41 20 23 35 38 20 20 20 20 20 20 | LDA #58 | 00000C10: 3B C4 4F 50 50 45 4C 50 55 4E 4B 54 0D 20 20 20 |;.OPPELPUNKT. | 00000C20: 20 20 20 53 54 41 20 24 30 38 0D 20 20 20 20 20 | STA $08. | 00000C30: 20 53 54 41 20 24 30 42 0D 0D 20 20 20 20 20 20 | STA $0B.. | 00000C40: 4C 44 41 20 24 44 43 30 42 20 20 20 20 3B 53 54 |LDA $DC0B ;ST| 00000C50: 55 4E 44 45 4E 0D 20 20 20 20 20 20 41 4E 44 20 |UNDEN. AND | 00000C60: 23 24 31 46 0D 20 20 20 20 20 20 43 4D 50 20 23 |#$1F. CMP #| 00000C70: 24 31 32 0D 20 20 20 20 20 20 42 4E 45 20 43 4E |$12. BNE CN| 00000C80: 54 0D 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 |T. LDA #$00| 00000C90: 20 20 20 20 20 3B 41 55 46 20 CE 55 4C 4C 20 D5 | ;AUF .ULL .| 00000CA0: 48 52 20 53 45 54 5A 45 4E 0D 43 4E 54 20 20 20 |HR SETZEN.CNT | 00000CB0: 42 49 54 20 24 44 43 30 42 20 20 20 20 3B 50 4D |BIT $DC0B ;PM| 00000CC0: 3F 0D 20 20 20 20 20 20 42 50 4C 20 43 4E 54 32 |?. BPL CNT2| 00000CD0: 20 20 20 20 20 3B 4E 45 49 4E 0D 20 20 20 20 20 | ;NEIN. | 00000CE0: 20 53 45 44 0D 20 20 20 20 20 20 43 4C 43 0D 20 | SED. CLC. | 00000CF0: 20 20 20 20 20 41 44 43 20 23 24 31 32 20 20 20 | ADC #$12 | 00000D00: 20 20 3B 53 4F 4E 53 54 20 2B 31 32 20 D3 54 55 | ;SONST +12 .TU| 00000D10: 4E 44 45 4E 0D 20 20 20 20 20 20 43 4C 44 0D 0D |NDEN. CLD..| 00000D20: 43 4E 54 32 20 20 4A 53 52 20 43 4F 4E 56 0D 20 |CNT2 JSR CONV. | 00000D30: 20 20 20 20 20 53 54 58 20 24 30 36 0D 20 20 20 | STX $06. | 00000D40: 20 20 20 53 54 41 20 24 30 37 0D 0D 20 20 20 20 | STA $07.. | 00000D50: 20 20 4C 44 41 20 24 44 43 30 41 20 20 20 20 3B | LDA $DC0A ;| 00000D60: 4D 49 4E 55 54 45 4E 0D 20 20 20 20 20 20 4A 53 |MINUTEN. JS| 00000D70: 52 20 43 4F 4E 56 0D 20 20 20 20 20 20 53 54 58 |R CONV. STX| 00000D80: 20 24 30 39 0D 20 20 20 20 20 20 53 54 41 20 24 | $09. STA $| 00000D90: 30 41 0D 0D 20 20 20 20 20 20 4C 44 41 20 24 44 |0A.. LDA $D| 00000DA0: 43 30 39 20 20 20 20 3B 53 45 4B 55 4E 44 45 4E |C09 ;SEKUNDEN| 00000DB0: 0D 20 20 20 20 20 20 4A 53 52 20 43 4F 4E 56 0D |. JSR CONV.| 00000DC0: 20 20 20 20 20 20 53 54 58 20 24 30 43 0D 20 20 | STX $0C. | 00000DD0: 20 20 20 20 53 54 41 20 24 30 44 0D 0D 20 20 20 | STA $0D.. | 00000DE0: 20 20 20 4C 44 41 20 24 44 43 30 38 20 20 20 20 | LDA $DC08 | 00000DF0: 3B 45 4E 54 52 49 45 47 45 4C 4E 0D 0D 0D 20 20 |;ENTRIEGELN... | 00000E00: 20 20 20 20 3B 2A 20 5A 45 49 43 48 45 4E 41 55 | ;* ZEICHENAU| 00000E10: 53 47 41 42 45 20 2A 0D 0D 20 20 20 20 20 20 4C |SGABE *.. L| 00000E20: 44 41 20 23 24 33 31 20 20 20 20 20 3B 43 48 41 |DA #$31 ;CHA| 00000E30: 52 41 43 54 45 52 2D 47 45 4E 45 52 41 54 4F 52 |RACTER-GENERATOR| 00000E40: 0D 20 20 20 20 20 20 53 54 41 20 24 30 31 20 20 |. STA $01 | 00000E50: 20 20 20 20 3B 45 49 4E 42 4C 45 4E 44 45 4E 0D | ;EINBLENDEN.| 00000E60: 0D 20 20 20 20 20 20 4C 44 58 20 23 24 33 38 0D |. LDX #$38.| 00000E70: 20 20 20 20 20 20 4C 44 59 20 23 24 41 31 0D 20 | LDY #$A1. | 00000E80: 20 20 20 20 20 53 54 58 20 24 30 34 0D 20 20 20 | STX $04. | 00000E90: 20 20 20 53 54 59 20 24 30 35 0D 0D 20 20 20 20 | STY $05.. | 00000EA0: 20 20 4C 44 58 20 23 37 20 20 20 20 20 20 20 3B | LDX #7 ;| 00000EB0: 5A 45 49 43 48 45 4E 5A 41 45 48 4C 45 52 0D 0D |ZEICHENZAEHLER..| 00000EC0: 4E 45 58 54 32 20 4C 44 41 20 23 30 20 20 20 20 |NEXT2 LDA #0 | 00000ED0: 20 20 20 3B 43 4C 52 20 48 49 0D 20 20 20 20 20 | ;CLR HI. | 00000EE0: 20 53 54 41 20 24 30 33 20 20 20 20 20 20 3B 28 | STA $03 ;(| 00000EF0: 41 44 52 45 53 53 45 20 49 4D 20 43 41 52 20 52 |ADRESSE IM CAR R| 00000F00: 4F 4D 29 0D 0D 20 20 20 20 20 20 4C 44 41 20 24 |OM).. LDA $| 00000F10: 30 36 2C 58 20 20 20 20 3B 42 2D 43 4F 44 45 0D |06,X ;B-CODE.| 00000F20: 0D 20 20 20 20 20 20 41 53 4C 20 41 20 20 20 20 |. ASL A | 00000F30: 20 20 20 20 3B 4D 41 4C 20 38 0D 20 20 20 20 20 | ;MAL 8. | 00000F40: 20 52 4F 4C 20 24 30 33 0D 20 20 20 20 20 20 41 | ROL $03. A| 00000F50: 53 4C 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 24 |SL A. ROL $| 00000F60: 30 33 0D 20 20 20 20 20 20 41 53 4C 20 41 0D 20 |03. ASL A. | 00000F70: 20 20 20 20 20 52 4F 4C 20 24 30 33 0D 0D 20 20 | ROL $03.. | 00000F80: 20 20 20 20 53 54 41 20 24 30 32 20 20 20 20 20 | STA $02 | 00000F90: 20 3B 4C 4F 0D 0D 20 20 20 20 20 20 4C 44 41 20 | ;LO.. LDA | 00000FA0: 23 24 44 30 20 20 20 20 20 3B 48 49 0D 20 20 20 |#$D0 ;HI. | 00000FB0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 41 44 43 | CLC. ADC| 00000FC0: 20 24 30 33 0D 20 20 20 20 20 20 53 54 41 20 24 | $03. STA $| 00000FD0: 30 33 0D 0D 20 20 20 20 20 20 4C 44 59 20 23 37 |03.. LDY #7| 00000FE0: 0D 4E 45 58 54 31 20 4C 44 41 20 28 24 30 32 29 |.NEXT1 LDA ($02)| 00000FF0: 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 24 30 |,Y. STA ($0| 00001000: 34 29 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 |4),Y. DEY. | 00001010: 20 20 20 20 20 42 50 4C 20 4E 45 58 54 31 0D 0D | BPL NEXT1..| 00001020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001030: 20 20 20 3B 4E 41 45 43 48 53 54 45 53 20 5A 45 | ;NAECHSTES ZE| 00001040: 49 43 48 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 |ICHEN. LDA | 00001050: 24 30 34 0D 20 20 20 20 20 20 53 45 43 0D 20 20 |$04. SEC. | 00001060: 20 20 20 20 53 42 43 20 23 38 0D 20 20 20 20 20 | SBC #8. | 00001070: 20 53 54 41 20 24 30 34 0D 20 20 20 20 20 20 4C | STA $04. L| 00001080: 44 41 20 24 30 35 0D 20 20 20 20 20 20 53 42 43 |DA $05. SBC| 00001090: 20 23 30 0D 20 20 20 20 20 20 53 54 41 20 24 30 | #0. STA $0| 000010A0: 35 0D 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 |5.. DEX | 000010B0: 20 20 20 20 20 20 3B 41 4C 4C 45 20 5A 45 49 43 | ;ALLE ZEIC| 000010C0: 48 45 4E 20 3F 0D 20 20 20 20 20 20 42 50 4C 20 |HEN ?. BPL | 000010D0: 4E 45 58 54 32 0D 0D 20 20 20 20 20 20 4C 44 58 |NEXT2.. LDX| 000010E0: 20 23 24 30 43 20 20 20 20 20 3B 24 30 44 20 2D | #$0C ;$0D -| 000010F0: 20 24 30 31 20 56 4F 4D 20 D3 54 41 43 4B 0D 48 | $01 VOM .TACK.H| 00001100: 4F 4C 45 20 20 50 4C 41 20 20 20 20 20 20 20 20 |OLE PLA | 00001110: 20 20 3B 48 4F 4C 45 4E 0D 20 20 20 20 20 20 53 | ;HOLEN. S| 00001120: 54 41 20 24 30 31 2C 58 0D 20 20 20 20 20 20 44 |TA $01,X. D| 00001130: 45 58 0D 20 20 20 20 20 20 42 50 4C 20 48 4F 4C |EX. BPL HOL| 00001140: 45 0D 0D 20 20 20 20 20 20 4C 44 41 20 23 24 31 |E.. LDA #$1| 00001150: 30 20 20 20 20 20 3B 4E 45 55 45 52 20 53 54 41 |0 ;NEUER STA| 00001160: 52 54 57 45 52 54 0D 20 20 20 20 20 20 53 54 41 |RTWERT. STA| 00001170: 20 43 4F 55 4E 54 0D 0D 52 54 4E 20 20 20 43 4C | COUNT..RTN CL| 00001180: 49 0D 0D 20 20 20 20 20 20 52 54 53 0D 0D 0D 20 |I.. RTS... | 00001190: 20 20 20 20 20 3B 2A 20 C2 C3 C4 20 2D 3E 20 32 | ;* ... -> 2| 000011A0: 20 D0 4F 4B 45 57 45 52 54 45 20 55 4D 57 41 4E | .OKEWERTE UMWAN| 000011B0: 44 45 4C 4E 20 2A 0D 0D 20 43 4F 4E 56 20 50 48 |DELN *.. CONV PH| 000011C0: 41 20 20 20 20 20 20 20 20 20 20 3B 52 45 54 54 |A ;RETT| 000011D0: 45 4E 0D 20 20 20 20 20 20 41 4E 44 20 23 24 46 |EN. AND #$F| 000011E0: 30 0D 20 20 20 20 20 20 4C 53 52 20 41 20 20 20 |0. LSR A | 000011F0: 20 20 20 20 20 3B 4C 49 4E 4B 45 20 C8 41 45 4C | ;LINKE .AEL| 00001200: 46 54 45 0D 20 20 20 20 20 20 4C 53 52 20 41 0D |FTE. LSR A.| 00001210: 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 | LSR A. | 00001220: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 43 4C | LSR A. CL| 00001230: 43 0D 20 20 20 20 20 20 41 44 43 20 23 34 38 20 |C. ADC #48 | 00001240: 20 20 20 20 20 3B 4F 46 46 53 45 54 20 5A 55 4D | ;OFFSET ZUM| 00001250: 20 D0 4F 4B 45 57 45 52 54 0D 20 20 20 20 20 20 | .OKEWERT. | 00001260: 54 41 58 0D 0D 20 20 20 20 20 20 50 4C 41 20 20 |TAX.. PLA | 00001270: 20 20 20 20 20 20 20 20 3B 52 45 43 48 54 45 20 | ;RECHTE | 00001280: C8 41 45 4C 46 54 45 0D 20 20 20 20 20 20 41 4E |.AELFTE. AN| 00001290: 44 20 23 24 30 46 0D 20 20 20 20 20 20 43 4C 43 |D #$0F. CLC| 000012A0: 0D 20 20 20 20 20 20 41 44 43 20 23 34 38 0D 0D |. ADC #48..| 000012B0: 20 20 20 20 20 20 52 54 53 0D 0D 43 4F 55 4E 54 | RTS..COUNT| 000012C0: 20 2A 20 3D 20 2A 20 2B 20 31 0D 0D 45 4E 44 31 | * = * + 1..END1| 000012D0: 20 20 2E 42 59 54 45 20 30 2C 30 20 20 20 20 3B | .BYTE 0,0 ;| 000012E0: C1 42 53 43 48 4C 55 53 53 42 59 54 45 53 0D 0D |.BSCHLUSSBYTES..| 000012F0: 41 4E 5A 31 20 20 3D 20 45 4E 44 31 20 2D 20 43 |ANZ1 = END1 - C| 00001300: 4C 4F 43 4B 0D 41 4E 5A 32 20 20 3D 20 45 4E 44 |LOCK.ANZ2 = END| 00001310: 32 20 2D 20 41 4C 41 52 4D 0D 0D 2E 45 4E 44 0D |2 - ALARM...END.| 00001320: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |.......... |
. ; CLOCK V1.1. ; UPDATE: 23
.03.87.. * = $5000 ;STARTADRE
SSE.. .OFFS $C000-*.. FENST
= $C256 ;FENSTERROUTINE. TABCOPY
= $C181 ;KOPIERROUTINE.. ;ACHTUNG
: ANZ1 MUSS $AE SEIN !. ;(= LAENGE
ORIGINAL-PATCH).. ;*** FENSTER AU
SGEBEN ***..GO SEI.. LDA #$80
. STA $CF8C ;50 HZ.. LDX #<
PAR1 ;ADRESSE DER PARA-. LDY #>PA
R1 ;METERTABELLE UEBER-. STX $02
;GEBEN. STY $03.. JSR FEN
ST ;FENSTER AUSGEBEN.. LDA $02.
CMP #$04 ;NO-FELD ?. BEQ N
OCL ;DANN ALTE JOBSCHL... LDX #
<PAT1. LDY #>PAT1. BNE CONT1..
NOCL LDX #<PAT3. LDY #>PAT3..CONT1
STX $02 ;QUELLBLOCK. STY $03.
. JSR TABCOPY ;KOPIEREN.. ;AL
ARM AENDERUNG.. LDX #<PAT2. LD
Y #>PAT2.. STX $02. STY $03..
JSR TABCOPY.. JMP $C22C ;BA
CK TO DESKTOP...PAR1 ;** PARAMETER FENS
TER **...BYTE $81,$0B,$25,$1A,<TA,>TA ;
TEXT A..BYTE $0B,$25,$23,<TB,>TB ;T
EXT B..BYTE $03,$04,$40 ;YE
S..BYTE $04,$0E,$40 ;NO..BY
TE $00 ;ENDE..TA
.TEXT 'SOLL DIE UHRZEIT '. .BYTE $
18. .TEXT 'DAUERND '. .BYTE $0
0..TB .BYTE $1B. .TEXT 'ANGEZEIG
T WERDEN ?'. .BYTE $00...PAT3 ;* A
LTE DATUMSBERECHNUNG *...BYTE $38,$F9
;ZIELADRESSE..BYTE <ANZ1 ;ANZA
HL DATEN...BYTE $AD,$0F,$DC,$29,$7F,$8D,
$0F,$DC..BYTE $AD,$19,$85,$C9,$0C,$30,$0
8,$2C..BYTE $0B,$DC,$30,$03,$20,$84,$F9,
$AD..BYTE $0B,$DC,$29,$1F,$C9,$12,$D0,$0
2..BYTE $A9,$00,$2C,$0B,$DC,$10,$05,$F8.
.BYTE $18,$69,$12,$D8,$20,$D9,$F9,$8D..B
YTE $19,$85,$AD,$0A,$DC,$20,$D9,$F9..BYT
E $8D,$1A,$85,$AD,$09,$DC,$20,$D9..BYTE
$F9,$8D,$1B,$85,$AD,$08,$DC,$68..BYTE $8
5,$01,$58,$60,$20,$B4,$F9,$CD..BYTE $18,
$85,$F0,$04,$EE,$18,$85,$60..BYTE $A9,$0
1,$8D,$18,$85,$EE,$17,$85..BYTE $AD,$17,
$85,$C9,$0D,$D0,$14,$A9..BYTE $01,$8D,$1
7,$85,$EE,$16,$85,$AD..BYTE $16,$85,$C9,
$64,$D0,$05,$A9,$00..BYTE $8D,$16,$85,$6
0,$AC,$17,$85,$88..BYTE $B9,$CD,$F9,$48,
$C0,$01,$D0,$0B..BYTE $AD,$16,$85,$29,$0
3,$D0,$04,$68..BYTE $A9,$1D,$60,$68,$60,
$1F,$1C,$1F..BYTE $1E,$1F,$1E,$1F,$1F,$1
F,$1F,$1E..BYTE $1F,$48,$29,$F0,$4A,$4A,
$4A,$4A..BYTE $BA,$68,$29,$0F,$18,$CA...
BYTE 0,0 ;ABSCHLUSS-BYTES...P
AT2 .BYTE $ED,$F9 ;ZIELADRESSE. .
BYTE <ANZ2 ;ANZAHL..ALARM LDY $01..
LDA #$35. STA $01.. LDA $8
51C. BPL LBL1.. LDA $DC0D.
AND #$04. BEQ LBL2.. LDA $D0
20. STA $FA5B. LDA #$4A.
STA $851C.LBL1 CMP #$40. BNE LBL3.
LDX $FA5B. DEX. STX $D02
0.LBL3 BIT $851C. BVC LBL2. I
NC $D020. JSR $FA24..LBL2 STY $01.
RTS..END2 .BYTE 0,0 ;ABSCHLUSS
-BYTES...PAT1 ;* NEUER KERNAL-PATCH *..
.BYTE $38,$F9 ;ZIELADRESSE..BYTE <A
NZ1 ;ANZAHL DATEN.. * = $F
938. .OFFS $C000+PAT1-GO-*+3..
;UHRZEIT AB $06 IN DER 0-PAGE..CLOCK DE
C COUNT. BEQ TIOUT.. PLA.
STA $01. CLI. RTS..TIOUT LDX
#$00 ;$02 - $0D AUF STACK.RETTE LDA
$02,X ;RETTEN. PHA. INX.
CPX #$0C. BNE RETTE.. LDA #
58 ;DOPPELPUNKT. STA $08.
STA $0B.. LDA $DC0B ;STUNDEN.
AND #$1F. CMP #$12. BNE CN
T. LDA #$00 ;AUF NULL UHR SETZE
N.CNT BIT $DC0B ;PM?. BPL CNT2
;NEIN. SED. CLC. ADC
#$12 ;SONST +12 STUNDEN. CLD..
CNT2 JSR CONV. STX $06. STA $
07.. LDA $DC0A ;MINUTEN. JS
R CONV. STX $09. STA $0A..
LDA $DC09 ;SEKUNDEN. JSR CONV.
STX $0C. STA $0D.. LDA $
DC08 ;ENTRIEGELN... ;* ZEICHENAU
SGABE *.. LDA #$31 ;CHARACTER-G
ENERATOR. STA $01 ;EINBLENDEN.
. LDX #$38. LDY #$A1. STX
$04. STY $05.. LDX #7 ;
ZEICHENZAEHLER..NEXT2 LDA #0 ;CLR
HI. STA $03 ;(ADRESSE IM CAR R
OM).. LDA $06,X ;B-CODE.. A
SL A ;MAL 8. ROL $03. A
SL A. ROL $03. ASL A. ROL
$03.. STA $02 ;LO.. LDA
#$D0 ;HI. CLC. ADC $03.
STA $03.. LDY #7.NEXT1 LDA ($02)
,Y. STA ($04),Y. DEY. BPL
NEXT1.. ;NAECHSTES ZE
ICHEN. LDA $04. SEC. SBC
#8. STA $04. LDA $05. SBC
#0. STA $05.. DEX ;A
LLE ZEICHEN ?. BPL NEXT2.. LDX
#$0C ;$0D - $01 VOM STACK.HOLE PLA
;HOLEN. STA $01,X. D
EX. BPL HOLE.. LDA #$10 ;N
EUER STARTWERT. STA COUNT..RTN CL
I.. RTS... ;* BCD -> 2 POKEWER
TE UMWANDELN *.. CONV PHA ;RETT
EN. AND #$F0. LSR A ;LI
NKE HAELFTE. LSR A. LSR A.
LSR A. CLC. ADC #48 ;OF
FSET ZUM POKEWERT. TAX.. PLA
;RECHTE HAELFTE. AND #$0F.
CLC. ADC #48.. RTS..COUNT
* = * + 1..END1 .BYTE 0,0 ;ABSCHLUS
SBYTES..ANZ1 = END1 - CLOCK.ANZ2 = END
2 - ALARM...END...........
> CLICK IMAGE PREVIEW FOR FULL MODAL