|
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: 8486 (0x2126)
Types: TextFile
Names: »CPR.A.P«
└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM )
└─⟦95f1eafb2⟧
└─ ⟦this⟧ »GR1.D!CPR.D!CPR.A.P«
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C )
└─⟦feb1d529a⟧
└─ ⟦this⟧ »GR1.D!CPR.D!CPR.A.P«
00.00001 0 0023 SUBMODULE CPR 00.00002 0 0000 USE BASE 00.00003 0 0000 USE PROG 00.00004 1 0000 IMPORT _getch 00.00005 1 0000 EXPORT _checkcpr 00.00006 1 0000 IMPORT _putfmt 00.00007 1 0000 EXPORT _modcpr 00.00008 1 0000 EXPORT _readcpr 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_mow 00.00016 1 0000 IMPORT a_muw 00.00017 1 0000 USE BASE 00.00018 0 0000 L31: 00.00019 0 0000 DC 67,80,82,32,110,111,32,78 00.00020 0 0008 DC 79,84,32,111,107,10,0 00.00021 0 000F L7: 00.00022 0 000F DC 67,80,82,32,110,111,32,111 00.00023 0 0017 DC 107,101,121,45,100,111,107,101 00.00024 0 001F DC 121,10,0 00.00025 0 0022 USE PROG 00.00026 1 0000 _main: 00.00027 1 0000 ent 00.00034 1 0006 addc -12 r5 00.00035 1 0007 mov -1.x6 r4 00.00036 1 0009 mov r4 x5 00.00037 1 000A addc -1 r5 00.00038 1 000B movc -11 x5 00.00039 1 000C add r6 x5 00.00040 1 000D jmp s4 _readcpr 00.00041 1 000E addc 1 r5 00.00042 1 000F mov r6 r4 00.00043 1 0010 addc -1 r4 00.00044 1 0011 ieq x4 0 00.00045 1 0012 jmp L1 00.00046 1 0013 mov -1.x6 r4 00.00047 1 0015 mov r4 x5 00.00048 1 0016 addc -1 r5 00.00049 1 0017 movc -11 x5 00.00050 1 0018 add r6 x5 00.00051 1 0019 jmp s4 _checkcpr 00.00052 1 001A addc 1 r5 00.00053 1 001B mov r6 r4 00.00054 1 001C addc -1 r4 00.00055 1 001D ieq x4 0 00.00056 1 001E jmp L1 00.00057 1 001F mov -1.x6 r4 00.00058 1 0021 mov r4 x5 00.00059 1 0022 addc -1 r5 00.00060 1 0023 movc -11 x5 00.00061 1 0024 add r6 x5 00.00062 1 0025 jmp s4 _modcpr 00.00063 1 0026 addc 1 r5 00.00064 1 0027 mov r6 r4 00.00065 1 0028 addc -1 r4 00.00066 1 0029 ieq x4 0 00.00067 1 002A jmp L5 00.00068 1 002B movc L7 r7 00.00069 1 002D mov r7 x5 00.00070 1 002E jmp s4 _putfmt 00.00071 1 0030 L1: ;line 19, words 22 00.00072 1 0030 movc 1 r7 00.00073 1 0031 leave 00.00079 1 0035 L5: ;line 15, words 26 00.00080 1 0035 movc L31 r7 00.00081 1 0037 mov r7 x5 00.00082 1 0038 jmp s4 _putfmt 00.00083 1 003A jmp L1 00.00084 1 003B ;function: _main 00.00085 1 003B USE BASE 00.00086 0 0022 L72: 00.00087 0 0022 DC 73,110,118,97,108,105,100,32 00.00088 0 002A DC 100,105,103,105,116,32,105,110 00.00089 0 0032 DC 32,110,117,109,98,101,114,10 00.00090 0 003A DC 0 00.00091 0 003B L51: 00.00092 0 003B DC 69,110,116,101,114,32,99,112 00.00093 0 0043 DC 114,32,110,117,109,98,101,114 00.00094 0 004B DC 10,0 00.00095 0 004D USE PROG 00.00096 1 003B _readcpr: 00.00097 1 003B ent 00.00104 1 0041 addc -2 r5 00.00105 1 0042 clr -1.x6 00.00106 1 0044 movc L51 r7 00.00107 1 0046 mov r7 x5 00.00108 1 0047 jmp s4 _putfmt 00.00109 1 0049 L71: ;line 29, words 6 00.00110 1 0049 mov -1.x6 r7 00.00111 1 004B inc -1.x6 00.00112 1 004D ige r7 10 00.00113 1 004E jmp L12 00.00114 1 004F mov 5.x6 r7 00.00115 1 0050 add -1.x6 r7 00.00116 1 0052 mov r7 x5 00.00117 1 0053 jmp s4 _getch 00.00118 1 0055 mov x5 r0 00.00119 1 0056 mov r7 x0 00.00120 1 0057 mov 5.x6 r7 00.00121 1 0058 add -1.x6 r7 00.00122 1 005A mov x7 r7 00.00123 1 005B ilt r7 48 00.00124 1 005D jmp L2 00.00125 1 005E mov 5.x6 r7 00.00126 1 005F add -1.x6 r7 00.00127 1 0061 mov x7 r7 00.00128 1 0062 ige r7 58 00.00129 1 0064 jmp L2 00.00130 1 0065 movc 1 r7 00.00131 1 0066 jmp L4 00.00132 1 0067 L2: 00.00133 1 0067 movc 0 r7 00.00134 1 0068 L4: 00.00135 1 0068 mov r7 6.x6 00.00136 1 0069 mov r6 r4 00.00137 1 006A addc 6 r4 00.00138 1 006B ine x4 0 00.00139 1 006C jmp L71 00.00140 1 006D L12: ;line 34, words 18 00.00141 1 006D mov r6 r4 00.00142 1 006E addc 6 r4 00.00143 1 006F ine x4 0 00.00144 1 0070 jmp L52 00.00145 1 0071 movc L72 r7 00.00146 1 0073 mov r7 x5 00.00147 1 0074 jmp s4 _putfmt 00.00148 1 0076 L52: ;line 37, words 24 00.00149 1 0076 leave 00.00155 1 007A ;function: _readcpr 00.00156 1 007A USE BASE 00.00157 0 004D L16: 00.00158 0 004D DC 73,110,118,97,108,105,100,32 00.00159 0 0055 DC 98,105,114,116,104,100,97,121 00.00160 0 005D DC 32,105,110,32,110,117,109,98 00.00161 0 0065 DC 101,114,10,0 00.00162 0 0069 L55: 00.00163 0 0069 DC 50,0 00.00164 0 006B L35: 00.00165 0 006B DC 49,0 00.00166 0 006D L54: 00.00167 0 006D DC 49,0 00.00168 0 006F L14: 00.00169 0 006F DC 49,0 00.00170 0 0071 L73: 00.00171 0 0071 DC 51,0 00.00172 0 0073 L13: 00.00173 0 0073 DC 51,0 00.00174 0 0075 USE PROG 00.00175 1 007A _checkcpr: 00.00176 1 007A ent 00.00183 1 0080 addc -4 r5 00.00184 1 0081 mov r1 1.x5 00.00185 1 0082 clr -1.x6 00.00186 1 0084 mov 5.x6 r7 00.00187 1 0085 add -1.x6 r7 00.00188 1 0087 mov x7 r7 00.00189 1 0088 movc L13 r1 00.00190 1 008A ilo r1 r7 00.00191 1 008B jmp L6 00.00192 1 008C movc 1 r7 00.00193 1 008D jmp L01 00.00194 1 008E L6: 00.00195 1 008E movc 0 r7 00.00196 1 008F L01: 00.00197 1 008F mov r7 6.x6 00.00198 1 0090 mov r6 r4 00.00199 1 0091 addc 6 r4 00.00200 1 0092 ieq x4 0 00.00201 1 0093 jmp L33 00.00202 1 0094 mov -1.x6 r7 00.00203 1 0096 inc -1.x6 00.00204 1 0098 add 5.x6 r7 00.00205 1 0099 mov x7 r7 00.00206 1 009A movc L73 r1 00.00207 1 009C ine r7 r1 00.00208 1 009D jmp L33 00.00209 1 009E mov -1.x6 r7 00.00210 1 00A0 inc -1.x6 00.00211 1 00A2 add 5.x6 r7 00.00212 1 00A3 mov x7 r7 00.00213 1 00A4 movc L14 r1 00.00214 1 00A6 ilo r1 r7 00.00215 1 00A7 jmp L21 00.00216 1 00A8 movc 1 r7 00.00217 1 00A9 jmp L41 00.00218 1 00AA L21: 00.00219 1 00AA movc 0 r7 00.00220 1 00AB L41: 00.00221 1 00AB mov r7 6.x6 00.00222 1 00AC L33: ;line 50, words 18 00.00223 1 00AC mov r6 r4 00.00224 1 00AD addc 6 r4 00.00225 1 00AE ieq x4 0 00.00226 1 00AF jmp L34 00.00227 1 00B0 mov 5.x6 r7 00.00228 1 00B1 add -1.x6 r7 00.00229 1 00B3 mov x7 r7 00.00230 1 00B4 movc L54 r1 00.00231 1 00B6 ilo r1 r7 00.00232 1 00B7 jmp L61 00.00233 1 00B8 movc 1 r7 00.00234 1 00B9 jmp L02 00.00235 1 00BA L61: 00.00236 1 00BA movc 0 r7 00.00237 1 00BB L02: 00.00238 1 00BB mov r7 6.x6 00.00239 1 00BC mov r6 r4 00.00240 1 00BD addc 6 r4 00.00241 1 00BE ieq x4 0 00.00242 1 00BF jmp L34 00.00243 1 00C0 mov -1.x6 r7 00.00244 1 00C2 inc -1.x6 00.00245 1 00C4 add 5.x6 r7 00.00246 1 00C5 mov x7 r7 00.00247 1 00C6 movc L35 r1 00.00248 1 00C8 ine r7 r1 00.00249 1 00C9 jmp L34 00.00250 1 00CA mov 5.x6 r7 00.00251 1 00CB add -1.x6 r7 00.00252 1 00CD mov x7 r7 00.00253 1 00CE movc L55 r1 00.00254 1 00D0 ilo r1 r7 00.00255 1 00D1 jmp L22 00.00256 1 00D2 movc 1 r7 00.00257 1 00D3 jmp L42 00.00258 1 00D4 L22: 00.00259 1 00D4 movc 0 r7 00.00260 1 00D5 L42: 00.00261 1 00D5 mov r7 6.x6 00.00262 1 00D6 L34: ;line 57, words 34 00.00263 1 00D6 mov r6 r4 00.00264 1 00D7 addc 6 r4 00.00265 1 00D8 ine x4 0 00.00266 1 00D9 jmp L75 00.00267 1 00DA movc L16 r7 00.00268 1 00DC mov r7 x5 00.00269 1 00DD jmp s4 _putfmt 00.00270 1 00DF L75: ;line 59, words 40 00.00271 1 00DF mov 1.x5 r1 00.00272 1 00E0 leave 00.00278 1 00E4 ;function: _checkcpr 00.00279 1 00E4 USE BASE 00.00280 0 0075 L36: 00.00281 0 0075 DC 4 00.00282 0 0076 DC 3 00.00283 0 0077 DC 2 00.00284 0 0078 DC 7 00.00285 0 0079 DC 6 00.00286 0 007A DC 5 00.00287 0 007B DC 4 00.00288 0 007C DC 3 00.00289 0 007D DC 2 00.00290 0 007E DC 1 00.00291 0 007F USE PROG 00.00292 1 00E4 _modcpr: 00.00293 1 00E4 ent 00.00300 1 00EA addc -4 r5 00.00301 1 00EB clr -1.x6 00.00302 1 00ED clr -2.x6 00.00303 1 00EF L56: ;line 69, words 4 00.00304 1 00EF mov r6 r4 00.00305 1 00F0 addc -2 r4 00.00306 1 00F1 ige x4 10 00.00307 1 00F2 jmp L76 00.00308 1 00F3 L17: ;line 71, words 8 00.00309 1 00F3 movc L36 r7 00.00310 1 00F5 add -2.x6 r7 00.00311 1 00F7 mov x7 x5 00.00312 1 00F8 mov 5.x6 r7 00.00313 1 00F9 add -2.x6 r7 00.00314 1 00FB mov x7 r7 00.00315 1 00FC addc -1 r5 00.00316 1 00FD movc -48 x5 00.00317 1 00FF add r7 x5 00.00318 1 0100 jmp s4 a_muw 00.00319 1 0102 mov x5 r7 00.00320 1 0103 add r7 -1.x6 00.00321 1 0105 inc -2.x6 00.00322 1 0107 jmp L56 00.00323 1 0108 L76: ;line 71, words 12 00.00324 1 0108 mov -1.x6 r4 00.00325 1 010A mov r4 x5 00.00326 1 010B pushbc 11 x5 00.00330 1 010D jmp s4 a_mow 00.00331 1 010F ine x5 0 00.00332 1 0110 jmp L62 00.00333 1 0111 movc 1 r7 00.00334 1 0112 jmp L03 00.00335 1 0113 L62: 00.00336 1 0113 movc 0 r7 00.00337 1 0114 L03: 00.00338 1 0114 mov r7 6.x6 00.00339 1 0115 leave 00.00345 1 0119 ;function: _modcpr 00.00346 1 0119 END #0000 ERRORS #0198 WORDS ASSEMBLED #0035 INSTRUCTIONS MODIFIED «a5»