CENT.INT.SRC
FILE INFORMATION
FILENAME(S): CENT.INT.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:13:00
APPEARS ON: 1 disk(s)
FILE HASH
1a47db8f5f5df377621a16e46f4c7bdd5f51720a2db448d2cfba5b0952f7f400
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15713 64 ER SH13 | CENT.INT.SRC | PRG | DuncanTwain | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 01 00 20 20 20 20 20 20 20 20 20 20 |..D... |
00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000020: 20 20 3B AC AC AC AC AC AC AC AC AC AC AC AC AC | ;.............|
00000030: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000040: AC AC AC AC 00 7D 08 02 00 20 20 20 20 20 20 20 |.....}... |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 3B 50 52 4F 47 52 41 4D 3A 20 38 | ;PROGRAM: 8|
00000070: 37 34 38 5F 49 45 43 45 4E 5F 32 2E 30 00 9F 08 |748_IECEN_2.0...|
00000080: 03 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 | ;.|
000000A0: D2 08 04 00 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 3B 42 55 45 43 48 45 4C 20 20 41 50 52 49 4C 20 |;BUECHEL APRIL |
000000D0: 38 34 00 15 09 05 00 20 20 20 20 20 20 20 20 20 |84..... |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 3B AC AC AC AC AC AC AC AC AC AC AC AC | ;............|
00000100: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000110: AC AC AC AC AC 00 37 09 06 00 20 20 20 20 20 20 |......7... |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 3B 00 59 09 07 00 20 20 20 20 | ;.Y... |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 3B 00 95 09 64 00 20 20 | ;...d. |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 3B 83 20 54 52 41 4E 53 | ;. TRANS|
00000180: 46 45 52 20 43 42 4D 36 34 20 20 2D 20 20 42 52 |FER CBM64 - BR|
00000190: 4F 54 48 45 52 00 CC 09 65 00 20 20 20 20 20 20 |OTHER...e. |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 3B 48 52 AB 31 35 20 43 45 4E 54 52 | ;HR.15 CENTR|
000001C0: 91 49 43 53 20 B5 45 52 46 41 43 45 00 EC 09 6D |.ICS .ERFACE...m|
000001D0: 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 3B 00 0C 0A 6E | ;...n|
000001F0: 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000200: 20 20 20 20 20 20 20 20 20 20 20 3B 00 22 0A 78 | ;.".x|
00000210: 00 20 20 20 20 20 20 20 20 B0 47 20 20 20 30 30 |. .G 00|
00000220: 30 48 00 50 0A 7A 00 20 20 20 20 20 20 20 20 20 |0H.P.z. |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 3B 50 4F 57 45 52 20 55 50 20 56 45 4B A4 52 | ;POWER UP VEK.R|
00000250: 00 82 0A 82 00 20 20 20 20 20 20 20 20 4A 4D 50 |..... JMP|
00000260: 20 20 20 4C 41 42 45 4C 30 20 20 20 20 20 20 3B | LABEL0 ;|
00000270: 4A 55 4D 50 20 A4 20 4D 41 49 4E 50 52 4F 47 52 |JUMP . MAINPROGR|
00000280: 41 4D 00 A2 0A 84 00 20 20 20 20 20 20 20 20 20 |AM..... |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 3B 00 C2 0A 86 00 20 20 20 20 20 20 20 20 20 | ;..... |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 3B 00 E2 0A 94 00 20 20 20 20 20 20 20 20 20 | ;..... |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 3B 00 F8 0A 96 00 20 20 20 20 20 20 20 20 B0 | ;..... .|
000002F0: 47 20 20 20 30 32 30 48 00 2B 0B 98 00 20 20 20 |G 020H.+... |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 3B 20 20 20 20 20 20 20 20 | ; |
00000320: AC AC AC 43 4F 4D 49 4E AC AC AC 00 5B 0B 9A 00 |...COMIN....[...|
00000330: 43 4F 4D 49 4E 20 20 3A 4A 4E 54 30 20 20 4C 41 |COMIN :JNT0 LA|
00000340: 42 45 4C 36 30 20 20 20 20 20 3B 8B 20 54 30 B2 |BEL60 ;. T0.|
00000350: 30 20 A7 20 4C 41 42 45 4C 36 30 00 86 0B A2 00 |0 . LABEL60.....|
00000360: 20 20 20 20 20 20 20 20 4A 4E 54 30 20 20 43 4F | JNT0 CO|
00000370: 4D 49 4E 20 20 20 20 20 20 20 3B 52 45 41 4C 4C |MIN ;REALL|
00000380: 59 20 54 30 B2 31 00 A0 0B A4 00 20 20 20 20 20 |Y T0.1..... |
00000390: 20 20 20 43 41 4C 4C 20 20 52 45 43 45 49 56 45 | CALL RECEIVE|
000003A0: 00 C8 0B A6 00 20 20 20 20 20 20 20 20 49 4E 20 |..... IN |
000003B0: 20 20 20 41 2C 50 32 20 20 20 20 20 20 20 20 3B | A,P2 ;|
000003C0: 87 20 53 57 49 54 43 48 00 DC 0B AA 00 20 20 20 |. SWITCH..... |
000003D0: 20 20 20 20 20 43 50 4C 20 20 20 41 00 F5 0B AE | CPL A....|
000003E0: 00 20 20 20 20 20 20 20 20 41 4E 4C 20 20 20 41 |. ANL A|
000003F0: 2C 23 30 46 48 00 26 0C B2 00 20 20 20 20 20 20 |,#0FH.&... |
00000400: 20 20 4D 4F 56 20 20 20 52 36 2C 41 20 20 20 20 | MOV R6,A |
00000410: 20 20 20 20 3B 53 A4 52 45 20 53 57 49 54 43 48 | ;S.RE SWITCH|
00000420: 20 B5 4F 20 52 36 00 56 0C B4 00 20 20 20 20 20 | .O R6.V... |
00000430: 20 20 20 B0 4C 20 20 20 41 2C 23 32 30 48 20 20 | .L A,#20H |
00000440: 20 20 20 20 3B 43 4F 44 45 B2 53 57 49 54 43 48 | ;CODE.SWITCH|
00000450: 20 B0 20 32 30 48 00 6A 0C B6 00 20 20 20 20 20 | . 20H.j... |
00000460: 20 20 20 43 50 4C 20 20 20 41 00 AA 0C BA 00 20 | CPL A..... |
00000470: 20 20 20 20 20 20 20 49 4E 43 20 20 20 41 20 20 | INC A |
00000480: 20 20 20 20 20 20 20 20 20 3B 41 43 43 55 20 B2 | ;ACCU .|
00000490: 20 54 57 4F 27 53 20 43 4F 4D 50 4C 45 4D 45 4E | TWO'S COMPLEMEN|
000004A0: 54 20 28 53 57 49 54 43 48 29 00 DC 0C BC 00 20 |T (SWITCH)..... |
000004B0: 20 20 20 20 20 20 20 41 44 44 20 20 20 41 2C 52 | ADD A,R|
000004C0: 34 20 20 20 20 20 20 20 20 3B 41 43 43 55 20 B2 |4 ;ACCU .|
000004D0: 20 43 4F 44 45 AB 53 57 49 54 43 48 00 19 0D BE | CODE.SWITCH....|
000004E0: 00 20 20 20 20 20 20 20 20 4A 4E 5A 20 20 20 4C |. JNZ L|
000004F0: 41 42 45 4C 35 37 20 20 20 20 20 3B 4A 55 4D 50 |ABEL57 ;JUMP|
00000500: 20 8B 20 43 4F 44 45 20 B3 B1 20 28 53 57 49 54 | . CODE .. (SWIT|
00000510: 43 48 20 B0 20 32 30 48 29 00 2C 0D C2 00 20 20 |CH . 20H).,... |
00000520: 20 20 20 20 20 20 9C 20 20 20 46 31 00 56 0D C6 | . F1.V..|
00000530: 00 20 20 20 20 20 20 20 20 43 50 4C 20 20 20 46 |. CPL F|
00000540: 31 20 20 20 20 20 20 20 20 20 20 3B 9B 45 4E 20 |1 ;.EN |
00000550: B2 20 54 52 55 45 00 76 0D C8 00 20 20 20 20 20 |. TRUE.v... |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 20 20 3B 00 A7 0D C9 00 4C 41 42 45 4C | ;.....LABEL|
00000580: 35 31 3A 4A 4E 54 31 20 20 4C 41 42 45 4C 35 33 |51:JNT1 LABEL53|
00000590: 20 20 20 20 20 3B 4A 55 4D 50 20 8B 20 43 4C 4F | ;JUMP . CLO|
000005A0: 43 4B B2 48 49 47 48 00 D7 0D CA 00 20 20 20 20 |CK.HIGH..... |
000005B0: 20 20 20 20 4A 4E 54 31 20 20 4C 41 42 45 4C 35 | JNT1 LABEL5|
000005C0: 31 20 20 20 20 20 3B 52 45 41 4C 4C 59 20 43 4C |1 ;REALLY CL|
000005D0: 4F 43 4B B2 4C 4F 57 00 03 0E CB 00 4C 41 42 45 |OCK.LOW.....LABE|
000005E0: 4C 35 32 3A 4A 54 30 20 20 20 4C 41 42 45 4C 35 |L52:JT0 LABEL5|
000005F0: 31 20 20 20 20 20 3B 4A 55 4D 50 20 8B 20 C1 B2 |1 ;JUMP . ..|
00000600: 4C 4F 57 00 30 0E CC 00 20 20 20 20 20 20 20 20 |LOW.0... |
00000610: 4A 54 30 20 20 20 4C 41 42 45 4C 35 32 20 20 20 |JT0 LABEL52 |
00000620: 20 20 3B 52 45 41 4C 4C 59 20 C1 B2 48 49 47 48 | ;REALLY ..HIGH|
00000630: 00 4A 0E CD 00 20 20 20 20 20 20 20 20 4A 4D 50 |.J... JMP|
00000640: 20 20 20 4C 41 42 45 4C 35 35 00 7B 0E CE 00 4C | LABEL55.{...L|
00000650: 41 42 45 4C 35 33 3A 4A 54 31 20 20 20 4C 41 42 |ABEL53:JT1 LAB|
00000660: 45 4C 35 31 20 20 20 20 20 3B 52 45 41 4C 4C 59 |EL51 ;REALLY|
00000670: 20 43 4C 4F 43 4B B2 48 49 47 48 00 A5 0E CF 00 | CLOCK.HIGH.....|
00000680: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 52 45 | CALL RE|
00000690: 43 45 49 56 45 20 20 20 20 20 3B 87 20 43 48 41 |CEIVE ;. CHA|
000006A0: 4E 4E 45 4C 23 00 D1 0E D0 00 4C 41 42 45 4C 35 |NNEL#.....LABEL5|
000006B0: 34 3A 4A 54 30 20 20 20 4C 41 42 45 4C 35 34 20 |4:JT0 LABEL54 |
000006C0: 20 20 20 20 3B 4A 55 4D 50 20 8B 20 C1 B2 4C 4F | ;JUMP . ..LO|
000006D0: 57 00 FE 0E D1 00 20 20 20 20 20 20 20 20 4A 54 |W..... JT|
000006E0: 30 20 20 20 4C 41 42 45 4C 35 34 20 20 20 20 20 |0 LABEL54 |
000006F0: 3B 52 45 41 4C 4C 59 20 C1 B2 48 49 47 48 00 18 |;REALLY ..HIGH..|
00000700: 0F D2 00 4C 41 42 45 4C 35 35 3A 4A 4D 50 20 20 |...LABEL55:JMP |
00000710: 20 4C 41 42 45 4C 36 30 00 38 0F D3 00 20 20 20 | LABEL60.8... |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000730: 20 20 20 20 20 20 20 3B 00 4F 0F DF EE EE 7E 78 | ;.O....~x|
00000740: EE 7E C6 8A 8E EE E0 ED 8E 8E 8E EE 8E E2 88 EF |.~..............|
00000750: EE E0 F8 01 E0 20 20 20 20 20 20 20 41 44 44 20 |..... ADD |
00000760: 20 20 41 21 88 9F E8 9F 7E 9E 8E 8E 8E 8E 8D 7E | A!....~......~|
00000770: 78 78 77 9E C9 8E E8 70 7E EE DC 99 71 EE FE EE |xxw....p~...q...|
00000780: F0 ED EE 8E 8E 8E 8E 8E 8E 8E 8E EC E5 ED 8E 8E |................|
00000790: 8E EE 7E 78 EE 7E 97 9E FE EF F0 E6 FE 8E 8E 8E |..~x.~..........|
000007A0: 8E 8E 8E 8E 8E E6 E2 E2 E2 3F EF 48 08 08 08 08 |.........?.H....|
000007B0: 08 08 08 08 08 05 43 6E ED EE F7 EE ED EE 6E AE |......Cn......n.|
000007C0: EE EE F0 6F 1E EE EE AE 6D EE EE BE EE 3E F6 EE |...o....m....>..|
000007D0: BE FE FE EE FE 7E BE EE FE 7E FE FE FE FE FE FE |.....~...~......|
000007E0: 6E EE EE DE E3 EE AE ED 2E EE ED ED 5E EE 2D 2D |n...........^.--|
000007F0: 48 00 22 10 E2 00 4C 41 42 45 4C 35 39 3A 4A 54 |H."...LABEL59:JT|
00000800: 30 20 20 20 4C 41 42 45 4C 35 39 20 20 20 20 20 |0 LABEL59 |
00000810: 3B 8B 20 C1 B2 4C 4F 57 20 A7 20 4C 41 42 45 4C |;. ..LOW . LABEL|
00000820: 35 39 00 4F 10 E4 00 20 20 20 20 20 20 20 20 4A |59.O... J|
00000830: 54 30 20 20 20 4C 41 42 45 4C 35 39 20 20 20 20 |T0 LABEL59 |
00000840: 20 3B 52 45 41 4C 4C 59 20 C1 B2 48 49 47 48 00 | ;REALLY ..HIGH.|
00000850: 70 10 E6 00 4C 41 42 45 4C 36 30 3A 52 45 54 20 |p...LABEL60:RET |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 8E | ;.|
00000870: 00 90 10 02 01 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;|
00000890: 00 B0 10 04 01 20 20 20 20 20 20 20 20 20 20 20 |..... |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;|
000008B0: 00 D0 10 06 01 20 20 20 20 20 20 20 20 20 20 20 |..... |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;|
000008D0: 00 E6 10 0E 01 20 20 20 20 20 20 20 20 B0 47 20 |..... .G |
000008E0: 20 20 30 38 30 48 00 06 11 10 01 20 20 20 20 20 | 080H..... |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 3B 00 3A 11 12 01 20 20 20 20 20 | ;.:... |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000920: 20 20 20 20 20 3B 20 20 20 20 20 20 20 AC AC AC | ; ...|
00000930: 52 45 43 45 49 56 45 AC AC AC 00 6A 11 15 01 52 |RECEIVE....j...R|
00000940: 45 43 45 49 56 45 3A 41 4E 4C 20 20 20 50 31 2C |ECEIVE:ANL P1,|
00000950: 23 30 46 45 48 20 20 20 20 3B 53 45 54 20 83 4C |#0FEH ;SET .L|
00000960: 45 49 54 55 4E 47 20 4C 4F 57 00 99 11 16 01 20 |EITUNG LOW..... |
00000970: 20 20 20 20 20 20 20 4D 4F 56 20 20 20 41 2C 23 | MOV A,#|
00000980: 30 46 44 48 20 20 20 20 20 3B 53 45 54 20 54 49 |0FDH ;SET TI|
00000990: 4D 45 52 20 32 30 30 55 53 00 AF 11 17 01 20 20 |MER 200US..... |
000009A0: 20 20 20 20 20 20 4D 4F 56 20 20 20 54 2C 41 00 | MOV T,A.|
000009B0: DA 11 18 01 20 20 20 20 20 20 20 20 53 54 52 54 |.... STRT|
000009C0: 20 20 54 20 20 20 20 20 20 20 20 20 20 20 3B 53 | T ;S|
000009D0: 54 41 52 54 20 54 49 4D 45 52 00 F4 11 19 01 4C |TART TIMER.....L|
000009E0: 41 42 45 4C 32 31 3A 4A 54 46 20 20 20 4C 41 42 |ABEL21:JTF LAB|
000009F0: 45 4C 32 32 00 1B 12 1A 01 20 20 20 20 20 20 20 |EL22..... |
00000A00: 20 4A 4D 50 20 20 20 4C 41 42 45 4C 32 31 20 20 | JMP LABEL21 |
00000A10: 20 20 20 3B 92 20 32 30 30 55 53 00 3F 12 1B 01 | ;. 200US.?...|
00000A20: 4C 41 42 45 4C 32 32 3A 90 20 20 54 43 4E 54 20 |LABEL22:. TCNT |
00000A30: 20 20 20 20 20 20 20 3B 90 20 54 49 4D 45 52 00 | ;. TIMER.|
00000A40: 6F 12 1C 01 4C 41 42 45 4C 32 33 3A 4A 54 31 20 |o...LABEL23:JT1 |
00000A50: 20 20 4C 41 42 45 4C 32 33 20 20 20 20 20 3B 8B | LABEL23 ;.|
00000A60: 20 54 31 B2 31 20 A7 20 4C 41 42 45 4C 32 33 00 | T1.1 . LABEL23.|
00000A70: 9A 12 1D 01 20 20 20 20 20 20 20 20 4A 54 31 20 |.... JT1 |
00000A80: 20 20 4C 41 42 45 4C 32 33 20 20 20 20 20 3B 52 | LABEL23 ;R|
00000A90: 45 41 4C 4C 59 20 54 31 B2 30 00 BA 12 1E 01 20 |EALLY T1.0..... |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AB0: 20 20 20 20 20 20 20 20 20 3B 00 EA 12 1F 01 20 | ;..... |
00000AC0: 20 20 20 20 20 20 20 B0 4C 20 20 20 50 31 2C 23 | .L P1,#|
00000AD0: 30 31 20 20 20 20 20 20 3B 53 45 54 20 83 4C 45 |01 ;SET .LE|
00000AE0: 49 54 55 4E 47 20 48 49 47 48 00 19 13 20 01 20 |ITUNG HIGH... . |
00000AF0: 20 20 20 20 20 20 20 4D 4F 56 20 20 20 41 2C 23 | MOV A,#|
00000B00: 30 46 44 48 20 20 20 20 20 3B 53 45 54 20 54 49 |0FDH ;SET TI|
00000B10: 4D 45 52 20 32 30 30 55 53 00 2F 13 21 01 20 20 |MER 200US./.!. |
00000B20: 20 20 20 20 20 20 4D 4F 56 20 20 20 54 2C 41 00 | MOV T,A.|
00000B30: 5A 13 22 01 20 20 20 20 20 20 20 20 53 54 52 54 |Z.". STRT|
00000B40: 20 20 54 20 20 20 20 20 20 20 20 20 20 20 3B 53 | T ;S|
00000B50: 54 41 52 54 20 54 49 4D 45 52 00 7A 13 23 01 20 |TART TIMER.z.#. |
00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B70: 20 20 20 20 20 20 20 20 20 3B 00 A7 13 24 01 4C | ;...$.L|
00000B80: 41 42 45 4C 32 34 3A 9C 20 20 20 46 30 20 20 20 |ABEL24:. F0 |
00000B90: 20 20 20 20 20 20 20 3B 43 4C 45 41 52 20 4C 4F | ;CLEAR LO|
00000BA0: 4F 50 AB 46 4C 41 47 00 D7 13 25 01 20 20 20 20 |OP.FLAG...%. |
00000BB0: 20 20 20 20 4A 54 46 20 20 20 4C 41 42 45 4C 32 | JTF LABEL2|
00000BC0: 36 20 20 20 20 20 3B 4A 55 4D 50 20 8B 20 54 49 |6 ;JUMP . TI|
00000BD0: 4D 45 B2 54 52 55 45 00 08 14 26 01 20 20 20 20 |ME.TRUE...&. |
00000BE0: 20 20 20 20 4A 4D 50 20 20 20 4C 41 42 45 4C 32 | JMP LABEL2|
00000BF0: 38 20 20 20 20 20 3B 4A 55 4D 50 20 8B 20 54 49 |8 ;JUMP . TI|
00000C00: 4D 45 B2 46 41 4C 53 45 00 3A 14 27 01 4C 41 42 |ME.FALSE.:.'.LAB|
00000C10: 45 4C 32 36 3A 43 50 4C 20 20 20 46 30 20 20 20 |EL26:CPL F0 |
00000C20: 20 20 20 20 20 20 20 3B 53 45 54 20 46 30 20 8B | ;SET F0 .|
00000C30: 20 54 49 4D 45 B2 54 52 55 45 00 6F 14 28 01 20 | TIME.TRUE.o.(. |
00000C40: 20 20 20 20 20 20 20 9C 20 20 20 41 20 20 20 20 | . A |
00000C50: 20 20 20 20 20 20 20 3B 49 4E 44 49 43 41 54 45 | ;INDICATE|
00000C60: 20 54 49 4D 45 52 20 4F 56 45 52 46 4C 4F 57 00 | TIMER OVERFLOW.|
00000C70: 89 14 29 01 20 20 20 20 20 20 20 20 4A 4D 50 20 |..). JMP |
00000C80: 20 20 4C 41 42 45 4C 33 30 00 BA 14 2A 01 4C 41 | LABEL30...*.LA|
00000C90: 42 45 4C 32 38 3A 4A 4E 54 31 20 20 4C 41 42 45 |BEL28:JNT1 LABE|
00000CA0: 4C 33 30 20 20 20 20 20 3B 4A 55 4D 50 20 8B 20 |L30 ;JUMP . |
00000CB0: 43 4C 4F 43 4B B2 48 49 47 48 00 EA 14 2B 01 20 |CLOCK.HIGH...+. |
00000CC0: 20 20 20 20 20 20 20 4A 4E 54 31 20 20 4C 41 42 | JNT1 LAB|
00000CD0: 45 4C 32 38 20 20 20 20 20 3B 52 45 41 4C 4C 59 |EL28 ;REALLY|
00000CE0: 20 43 4C 4F 43 4B B2 4C 4F 57 00 1D 15 2C 01 20 | CLOCK.LOW...,. |
00000CF0: 20 20 20 20 20 20 20 43 50 4C 20 20 20 46 30 20 | CPL F0 |
00000D00: 20 20 20 20 20 20 20 20 20 3B 53 45 54 20 46 30 | ;SET F0|
00000D10: 20 8B 20 43 4C 4F 43 4B B2 48 49 47 48 00 4D 15 | . CLOCK.HIGH.M.|
00000D20: 2D 01 4C 41 42 45 4C 33 30 3A 43 50 4C 20 20 20 |-.LABEL30:CPL |
00000D30: 46 30 20 20 20 20 20 20 20 20 20 20 3B 49 4E 56 |F0 ;INV|
00000D40: 45 52 54 20 46 30 20 81 20 54 45 53 54 00 8B 15 |ERT F0 . TEST...|
00000D50: 2E 01 20 20 20 20 20 20 20 20 4A 46 30 20 20 20 |.. JF0 |
00000D60: 4C 41 42 45 4C 32 34 20 20 20 20 20 3B 4A 55 4D |LABEL24 ;JUM|
00000D70: 50 20 8B 20 54 49 4D 45 B2 46 41 4C 53 45 20 AF |P . TIME.FALSE .|
00000D80: 20 43 4C 4F 43 4B B2 48 49 47 48 00 AB 15 2F 01 | CLOCK.HIGH.../.|
00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DA0: 20 20 20 20 20 20 20 20 20 20 3B 00 CF 15 30 01 | ;...0.|
00000DB0: 20 20 20 20 20 20 20 20 90 20 20 54 43 4E 54 20 | . TCNT |
00000DC0: 20 20 20 20 20 20 20 3B 90 20 54 49 4D 45 52 00 | ;. TIMER.|
00000DD0: 00 16 31 01 20 20 20 20 20 20 20 20 4A 4E 5A 20 |..1. JNZ |
00000DE0: 20 20 4C 41 42 45 4C 33 38 20 20 20 20 20 3B 4A | LABEL38 ;J|
00000DF0: 55 4D 50 20 8B 20 54 49 4D 45 B2 46 41 4C 53 45 |UMP . TIME.FALSE|
00000E00: 00 30 16 32 01 20 20 20 20 20 20 20 20 41 4E 4C |.0.2. ANL|
00000E10: 20 20 20 50 31 2C 23 30 46 45 48 20 20 20 20 3B | P1,#0FEH ;|
00000E20: 53 45 54 20 83 4C 45 49 54 55 4E 47 20 4C 4F 57 |SET .LEITUNG LOW|
00000E30: 00 5F 16 33 01 20 20 20 20 20 20 20 20 4D 4F 56 |._.3. MOV|
00000E40: 20 20 20 41 2C 23 30 46 45 48 20 20 20 20 20 3B | A,#0FEH ;|
00000E50: 53 45 54 20 54 49 4D 45 52 20 31 30 30 55 53 00 |SET TIMER 100US.|
00000E60: 75 16 34 01 20 20 20 20 20 20 20 20 4D 4F 56 20 |u.4. MOV |
00000E70: 20 20 54 2C 41 00 A0 16 35 01 20 20 20 20 20 20 | T,A...5. |
00000E80: 20 20 53 54 52 54 20 20 54 20 20 20 20 20 20 20 | STRT T |
00000E90: 20 20 20 20 3B 53 54 41 52 54 20 54 49 4D 45 52 | ;START TIMER|
00000EA0: 00 BA 16 36 01 4C 41 42 45 4C 33 32 3A 4A 54 46 |...6.LABEL32:JTF|
00000EB0: 20 20 20 4C 41 42 45 4C 33 34 00 E1 16 37 01 20 | LABEL34...7. |
00000EC0: 20 20 20 20 20 20 20 4A 4D 50 20 20 20 4C 41 42 | JMP LAB|
00000ED0: 45 4C 33 32 20 20 20 20 20 3B 92 20 31 30 30 55 |EL32 ;. 100U|
00000EE0: 53 00 05 17 38 01 4C 41 42 45 4C 33 34 3A 90 20 |S...8.LABEL34:. |
00000EF0: 20 54 43 4E 54 20 20 20 20 20 20 20 20 3B 90 20 | TCNT ;. |
00000F00: 54 49 4D 45 52 00 35 17 39 01 20 20 20 20 20 20 |TIMER.5.9. |
00000F10: 20 20 B0 4C 20 20 20 50 31 2C 23 30 31 20 20 20 | .L P1,#01 |
00000F20: 20 20 20 3B 53 45 54 20 83 4C 45 49 54 55 4E 47 | ;SET .LEITUNG|
00000F30: 20 48 49 47 48 00 67 1E EE E6 EF 41 42 48 41 13 | HIGH.g....ABHA.|
00000F40: 36 20 4A 42 84 31 20 20 4C 41 42 48 44 7E EC EF |6 JB.1 LABHD~..|
00000F50: EF EF EF EF EE 8E E9 E2 88 E8 20 8E E0 E2 EA E0 |.......... .....|
00000F60: EE EA 12 48 49 47 48 00 F8 1E E6 E7 EF EF EF EF |...HIGH.........|
00000F70: EF EF EF EE DE DE ED E7 EF EE EA E6 DE EE EB EE |................|
00000F80: EC EF EF EF EF EF E6 EE EE E6 EA EA E3 EE DE EA |................|
00000F90: D0 DE D7 7E E2 D2 D4 E2 EF 62 75 EA E7 EF EF EF |...~.....bu.....|
00000FA0: EF EF EF EF EF EF EF EF EF EF EF EF EF EF EF EF |................|
00000FB0: EF EF EF EF EF EF EF E6 EF DE 75 EA E6 EA E6 DE |..........u.....|
00000FC0: EE EB EE E3 EE DA D0 EC EF EF EE EE EF EB EE EE |................|
00000FD0: DE E3 EF EF EF EF EF E6 EE EE D4 D2 EE EE EE EE |................|
00000FE0: 20 41 44 44 52 45 53 53 20 B2 20 33 46 48 00 11 | ADDRESS . 3FH..|
00000FF0: 18 3E 01 20 20 20 20 20 20 20 20 4D 4F 56 20 20 |.>. MOV |
00001000: 20 52 37 2C 23 30 38 20 20 20 20 20 20 3B 49 B2 | R7,#08 ;I.|
00001010: 38 00 41 18 3F 01 4C 41 42 45 4C 34 30 3A 4A 54 |8.A.?.LABEL40:JT|
00001020: 31 20 20 20 4C 41 42 45 4C 34 30 20 20 20 20 20 |1 LABEL40 |
00001030: 3B 4A 55 4D 50 20 8B 20 43 4C 4F 43 4B B2 4C 4F |;JUMP . CLOCK.LO|
00001040: 57 00 72 18 40 01 20 20 20 20 20 20 20 20 4A 54 |W.r.@. JT|
00001050: 31 20 20 20 4C 41 42 45 4C 34 30 20 20 20 20 20 |1 LABEL40 |
00001060: 3B 52 45 41 4C 4C 59 20 43 4C 4F 43 4B B2 48 49 |;REALLY CLOCK.HI|
00001070: 47 48 00 95 18 41 01 20 20 20 20 20 20 20 20 49 |GH...A. I|
00001080: 4E 20 20 20 20 41 2C 50 31 20 20 20 20 20 20 20 |N A,P1 |
00001090: 20 3B 87 20 83 00 BF 18 42 01 20 20 20 20 20 20 | ;. ....B. |
000010A0: 20 20 41 4E 4C 20 20 20 41 2C 23 30 38 20 20 20 | ANL A,#08 |
000010B0: 20 20 20 20 3B 4D 41 53 4B 20 83 20 42 49 54 00 | ;MASK . BIT.|
000010C0: E9 18 43 01 20 20 20 20 20 20 20 20 4D 4F 56 20 |..C. MOV |
000010D0: 20 20 40 52 30 2C 41 20 20 20 20 20 20 20 | @R0,A |
..D... ;.....
.............................}...
;PROGRAM: 8748_IECE
N_2.0..... ;.
R... ;BUECHEL
APRIL 84.....
;..................................7.
.. ;.Y...
;...D.
;. TRANSFER CBM64 - BR
OTHER.L.E. ;HR.
15 CENTR.ICS .ERFACE...M.
;...N.
;.".X. .G 000H.P.Z.
;POWER UP VEK.R.....
JMP LABEL0 ;JUMP . MAINPROGR
AM..... ;.B...
;.....
;..... .G 020H
.+... ;
...COMIN....[...COMIN :JNT0 LABEL60
;. T0.0 . LABEL60..... JNT0 CO
MIN ;REALLY T0.1. ... CALL
RECEIVE.H... IN A,P2 ;
. SWITCH..... CPL A.....
ANL A,#0FH.&... MOV R6,A
;S.RE SWITCH .O R6.V... .L
A,#20H ;CODE.SWITCH . 20H.J...
CPL A..... INC A
;ACCU . TWO'S COMPLEMENT (SWITCH).....
ADD A,R4 ;ACCU . CODE.SW
ITCH..... JNZ LABEL57 ;JUMP
. CODE .. (SWITCH . 20H).,.B. .
F1.V.F. CPL F1 ;.EN
. TRUE.V.H. ;..
.I.LABEL51:JNT1 LABEL53 ;JUMP . CLO
CK.HIGH.W.J. JNT1 LABEL51 ;R
EALLY CLOCK.LOW...K.LABEL52:JT0 LABEL5
1 ;JUMP . A.LOW.0.L. JT0 LA
BEL52 ;REALLY A.HIGH.J.M. JMP
LABEL55.{.N.LABEL53:JT1 LABEL51
;REALLY CLOCK.HIGH...O. CALL RE
CEIVE ;. CHANNEL#.Q.P.LABEL54:JT0
LABEL54 ;JUMP . A.LOW...Q. JT
0 LABEL54 ;REALLY A.HIGH...R.LABEL
55:JMP LABEL60.8.S.
;.O....~X.~F..................
ADD A!....~......~XXW.I..P~...Q...
..................~X.~..................
.?.H..........CN......N....O....M....>..
.....~...~......N...........^.--H."...LA
BEL59:JT0 LABEL59 ;. A.LOW . LABEL
59.O... JT0 LABEL59 ;REALLY
A.HIGH.P...LABEL60:RET ;.
..... ;.....
;.P...
;..... .G 080H..
... ;.:...
; ...RECEIVE.
...J...RECEIVE:ANL P1,#0FEH ;SET .L
EITUNG LOW..... MOV A,#0FDH
;SET TIMER 200US..... MOV T,A.
Z... STRT T ;START TIM
ER.....LABEL21:JTF LABEL22.....
JMP LABEL21 ;. 200US.?...LABEL22:
. TCNT ;. TIMER.O...LABEL23:JT1
LABEL23 ;. T1.1 . LABEL23.....
JT1 LABEL23 ;REALLY T1.0.....
;..... .
L P1,#01 ;SET .LEITUNG HIGH... .
MOV A,#0FDH ;SET TIMER 200U
S./.!. MOV T,A.Z.". STRT
T ;START TIMER.Z.#.
;...$.LABEL24:. F0
;CLEAR LOOP.FLAG.W.%. JTF
LABEL26 ;JUMP . TIME.TRUE...&.
JMP LABEL28 ;JUMP . TIME.FALSE
.:.'.LABEL26:CPL F0 ;SET F0 .
TIME.TRUE.O.(. . A ;
INDICATE TIMER OVERFLOW...). JMP
LABEL30...*.LABEL28:JNT1 LABEL30
;JUMP . CLOCK.HIGH...+. JNT1 LAB
EL28 ;REALLY CLOCK.LOW...,. C
PL F0 ;SET F0 . CLOCK.HIGH.M.
-.LABEL30:CPL F0 ;INVERT F0 .
TEST..... JF0 LABEL24 ;JUM
P . TIME.FALSE . CLOCK.HIGH.../.
;.O.0. . TCNT
;. TIMER...1. JNZ LABEL3
8 ;JUMP . TIME.FALSE.0.2. ANL
P1,#0FEH ;SET .LEITUNG LOW._.3.
MOV A,#0FEH ;SET TIMER 100US.
U.4. MOV T,A. .5. STRT
T ;START TIMER...6.LABEL32:JTF
LABEL34...7. JMP LABEL32
;. 100US...8.LABEL34:. TCNT ;.
TIMER.5.9. .L P1,#01 ;SET
.LEITUNG HIGH.G....ABHA.6 JB.1 LABHD~..
.......... ........HIGH.................
........................P.W~.RT..BU.....
..........................U..........ZP.
..................TR.... ADDRESS . 3FH..
.>. MOV R7,#08 ;I.8.A.?.LA
BEL40:JT1 LABEL40 ;JUMP . CLOCK.LO
W.R.@. JT1 LABEL40 ;REALLY
CLOCK.HIGH...A. IN A,P1
;. ....B. ANL A,#08 ;MAS
K . BIT...C. MOV @R0,A
> CLICK IMAGE PREVIEW FOR FULL MODAL