DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4746 (0x128a) Types: TextFile Names: »CLOCK.A.P«
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C ) └─⟦feb1d529a⟧ └─ ⟦this⟧ »GR1.D!CLOCK.D!CLOCK.A.P«
00.00001 0 0023 SUBMODULE CLOCK 00.00002 0 0000 USE BASE 00.00003 0 0000 USE PROG 00.00004 1 0000 IMPORT _knwait_event 00.00005 1 0000 IMPORT _knread_rtc 00.00006 1 0000 IMPORT _knsend_answer 00.00007 1 0000 IMPORT _putch 00.00008 1 0000 IMPORT _putfmt 00.00009 1 0000 EXPORT _main 00.00010 1 0000 USE BASE 00.00011 0 0000 IMPORT _STDERR 00.00012 0 0000 IMPORT _STDIN 00.00013 0 0000 IMPORT _STDOUT 00.00014 0 0000 USE PROG 00.00015 1 0000 IMPORT a_switch 00.00016 1 0000 USE PROG 00.00017 1 0000 L7: 00.00018 1 0000 DC L72 00.00019 1 0001 DC 8 00.00020 1 0002 DC L51 00.00021 1 0003 DC 1 00.00022 1 0004 DC L31 00.00023 1 0005 DC 0 00.00024 1 0006 DC 0 00.00025 1 0007 DC L11 00.00026 1 0008 USE BASE 00.00027 0 0000 L13: 00.00028 0 0000 DC 37,43,48,50,105,45,37,43 00.00029 0 0008 DC 48,50,105,45,37,43,48,50 00.00030 0 0010 DC 105,32,37,43,48,50,105,58 00.00031 0 0018 DC 37,43,48,50,105,58,37,43 00.00032 0 0020 DC 48,50,105,0 00.00033 0 0024 L1: 00.00034 0 0024 DC 27,91,50,74,27,91,49,50 00.00035 0 002C DC 59,51,50,72,0 00.00036 0 0031 USE PROG 00.00037 1 0008 _main: 00.00038 1 0008 ent 00.00045 1 000E addc -14 r5 00.00046 1 000F mov r1 1.x5 00.00047 1 0010 movc L1 r7 00.00048 1 0012 mov r7 x5 00.00049 1 0013 jmp s4 _putfmt 00.00050 1 0015 pushbc -1 x5 00.00054 1 0017 jmp s4 _putch 00.00055 1 0019 addc 1 r5 00.00056 1 001A L3: ;line 13, words 8 00.00057 1 001A addc -1 r5 00.00058 1 001B movc -1 x5 00.00059 1 001C add r6 x5 00.00060 1 001D pushbc 10 x5 00.00064 1 001F addc -1 r5 00.00065 1 0020 movc -7 x5 00.00066 1 0021 add r6 x5 00.00067 1 0022 pushbc 259 x5 00.00071 1 0025 jmp s4 _knwait_event 00.00072 1 0027 addc 4 r5 00.00073 1 0028 mov r7 -2.x6 00.00074 1 002A mov -2.x6 r7 00.00075 1 002C movc L7 r4 00.00076 1 002E jmp a_switch 00.00077 1 0030 L31: ;line 18, words 18 00.00078 1 0030 movc 1 r7 00.00079 1 0031 mov 1.x5 r1 00.00080 1 0032 leave 00.00086 1 0036 L51: ;line 19, words 24 00.00087 1 0036 clr -11.x6 00.00088 1 0038 L71: ;line 20, words 26 00.00089 1 0038 mov r6 r4 00.00090 1 0039 addc -11 r4 00.00091 1 003A ige x4 5 00.00092 1 003B jmp L12 00.00093 1 003C movc -7 r7 00.00094 1 003D add r6 r7 00.00095 1 003E add -11.x6 r7 00.00096 1 0040 movc -7 r1 00.00097 1 0041 add r6 r1 00.00098 1 0042 add -11.x6 r1 00.00099 1 0044 mov x1 r1 00.00100 1 0045 add r1 x7 00.00101 1 0046 inc -11.x6 00.00102 1 0048 jmp L71 00.00103 1 0049 L12: ;line 21, words 36 00.00104 1 0049 mov -1.x6 r4 00.00105 1 004B mov r4 x5 00.00106 1 004C addc -1 r5 00.00107 1 004D movc -7 x5 00.00108 1 004E add r6 x5 00.00109 1 004F jmp s4 _knsend_answer 00.00110 1 0051 addc 1 r5 00.00111 1 0052 pushbc 7 x5 00.00115 1 0054 jmp s4 _putch 00.00116 1 0056 addc 1 r5 00.00117 1 0057 L72: ;line 24, words 40 00.00118 1 0057 addc -1 r5 00.00119 1 0058 movc -10 x5 00.00120 1 0059 add r6 x5 00.00121 1 005A jmp s4 _knread_rtc 00.00122 1 005C addc 1 r5 00.00123 1 005D movc 255 r7 00.00124 1 005E mov -10.x6 r1 00.00125 1 0060 and r1 r7 00.00126 1 0061 mov r7 x5 00.00127 1 0062 addc -1 r5 00.00128 1 0063 mov -10.x6 r4 00.00129 1 0065 mov r4 x5 00.00130 1 0066 srl x5 8 00.00131 1 0067 movc 255 r7 00.00132 1 0068 mov -9.x6 r1 00.00133 1 006A and r1 r7 00.00134 1 006B addc -1 r5 00.00135 1 006C mov r7 x5 00.00136 1 006D addc -1 r5 00.00137 1 006E mov -9.x6 r4 00.00138 1 0070 mov r4 x5 00.00139 1 0071 srl x5 8 00.00140 1 0072 movc 255 r7 00.00141 1 0073 mov -8.x6 r1 00.00142 1 0075 and r1 r7 00.00143 1 0076 addc -1 r5 00.00144 1 0077 mov r7 x5 00.00145 1 0078 addc -1 r5 00.00146 1 0079 mov -8.x6 r4 00.00147 1 007B mov r4 x5 00.00148 1 007C srl x5 8 00.00149 1 007D movc L13 r7 00.00150 1 007F addc -1 r5 00.00151 1 0080 mov r7 x5 00.00152 1 0081 jmp s4 _putfmt 00.00153 1 0083 addc 6 r5 00.00154 1 0084 clr -11.x6 00.00155 1 0086 L33: ;line 34, words 46 00.00156 1 0086 mov r6 r4 00.00157 1 0087 addc -11 r4 00.00158 1 0088 ige x4 17 00.00159 1 008A jmp L53 00.00160 1 008B pushbc 8 x5 00.00164 1 008D jmp s4 _putch 00.00165 1 008F addc 1 r5 00.00166 1 0090 inc -11.x6 00.00167 1 0092 jmp L33 00.00168 1 0093 L53: ;line 35, words 56 00.00169 1 0093 movc 255 r7 00.00170 1 0094 mov -10.x6 r1 00.00171 1 0096 and r1 r7 00.00172 1 0097 ine r7 0 00.00173 1 0098 jmp L34 00.00174 1 0099 pushbc 7 x5 00.00178 1 009B jmp s4 _putch 00.00179 1 009D addc 1 r5 00.00180 1 009E L34: ;line 38, words 62 00.00181 1 009E pushbc -1 x5 00.00185 1 00A0 jmp s4 _putch 00.00186 1 00A2 addc 1 r5 00.00187 1 00A3 jmp L3 00.00188 1 00A4 L11: ;line 39, words 66 00.00189 1 00A4 jmp L3 00.00190 1 00A5 ;function: _main 00.00191 1 00A5 END #0000 ERRORS #00D6 WORDS ASSEMBLED #0021 INSTRUCTIONS MODIFIED «a5»