URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [dump/] [dump_ide.lst] - Rev 188
Go to most recent revision | Compare with Previous | Blame | View Log
Assembler release DWC_2.0 version 2.11May 6, 2004 (c) Motorola (free ware)0001 *0002 * Sector Dump Utility0003 * for IDE Drives or Compact Flash0004 * for the 68090005 * revised for 16 bit peripheral bus0006 * on XESS XSA-3S1000 / XST-3.00007 *0008 * John Kent0009 * 1 Feb 20080010 *0011 * SYS09BUG0012 *0013 F800 MON_BASE EQU $F8000014 F800 MONV EQU MON_BASE+00015 F802 NEXTCV EQU MON_BASE+20016 F804 INCHV EQU MON_BASE+40017 F806 INCHEV EQU MON_BASE+60018 F808 INCHEKV EQU MON_BASE+80019 F80A OUTCHV EQU MON_BASE+100020 F80C PDATAV EQU MON_BASE+120021 F80E PCRLFV EQU MON_BASE+140022 F810 PSTRGV EQU MON_BASE+160023 *0024 * Register Equates0025 *0026 E100 CF_BASE EQU $E1000027 E100 CF_DATA EQU CF_BASE+00028 E102 CF_ERROR EQU CF_BASE+2 ; read error0029 E102 CF_FEATURE EQU CF_BASE+2 ; write feature0030 E104 CF_SECCNT EQU CF_BASE+40031 E106 CF_SECNUM EQU CF_BASE+60032 E108 CF_CYLLO EQU CF_BASE+80033 E10A CF_CYLHI EQU CF_BASE+100034 E10C CF_HEAD EQU CF_BASE+120035 E10E CF_STATUS EQU CF_BASE+14 ; read status0036 E10E CF_COMAND EQU CF_BASE+14 ; write command0037 E11E CF_AUX EQU CF_BASE+300038 *0039 * Command Equates0040 *0041 0006 AUXRESET EQU $06 ; CF_AUX Reset command0042 0002 AUXRELEA EQU $020043 0020 CMDREAD EQU $20 ; Read Single sector0044 0030 CMDWRITE EQU $30 ; Write Single sector0045 00E0 HEADLBA EQU $E00046 *0047 * Status bit equates0048 *0049 0080 BUSY EQU $800050 0040 DRDY EQU $400051 0008 DRQ EQU $080052 0001 ERR EQU $010053 *0054 * Start of Program0055 *0056 0100 ORG $01000057 0100 16 02 46 START LBRA START10058 *0059 * DATA STORAGE0060 *0061 0103 00 00 00 SECNUM FCB $00,$00,$000062 0106 E0 00 CPORT FDB $E0000063 0108 FF ECHO FCB $FF0064 *0065 * SECTOR BUFFER0066 *0067 0109 SECBUF RMB 5120068 *0069 * PROGRAM STACK0070 *0071 0309 RMB 640072 0349 STACK EQU *0073 *0074 * Initialization0075 *0076 0349 10 CE 03 49 START1 LDS #STACK0077 *0078 * Clear sector buffer0079 *0080 034D 8E 01 09 LDX #SECBUF0081 0350 10 8E 00 00 LDY #00082 0354 C6 00 LDB #00083 0356 10 AF 81 ZEROLP STY ,X++0084 0359 5A DECB0085 035A 26 FA BNE ZEROLP0086 *0087 * INITIALIZE CF CARD FOR 8 BIT LBA MODE0088 *0089 035C CC 00 06 LDD #AUXRESET0090 035F FD E1 1E STD CF_AUX0091 0362 CC 00 02 LDD #AUXRELEA0092 0365 FD E1 1E STD CF_AUX0093 0368 BD 04 87 JSR WAITRDY0094 036B CC 00 E0 LDD #HEADLBA0095 036E FD E1 0C STD CF_HEAD0096 0371 BD 04 87 JSR WAITRDY0097 *0098 * DISPLAY TITTLE BANNER0099 *0100 0374 8E 06 48 LDX #TTLMSG0101 0377 BD 06 2B JSR PDATA0102 *0103 * COMMAND LOOP0104 * R - READ0105 * W - WRITE0106 * N - NEXT0107 * P - PREV0108 * M - MODIFY0109 * Q - QUIT0110 *0111 037A 8E 06 72 CMDLP LDX #CMDMSG0112 037D BD 06 2B JSR PDATA0113 0380 BD 06 2F JSR ECHON0114 0383 81 52 CMPA #'R'0115 0385 27 64 BEQ READ0116 0387 81 4E CMPA #'N'0117 0389 27 3D BEQ NEXT0118 038B 81 50 CMPA #'P'0119 038D 27 48 BEQ PREV0120 038F 81 57 CMPA #'W'0121 0391 10 27 00 A5 LBEQ WRITE0122 0395 81 4D CMPA #'M'0123 0397 27 2A BEQ MODIFY0124 0399 81 51 CMPA #'Q'0125 039B 27 22 BEQ QUIT0126 039D 81 72 CMPA #'r'0127 039F 27 4A BEQ READ0128 03A1 81 6E CMPA #'n'0129 03A3 27 23 BEQ NEXT0130 03A5 81 70 CMPA #'p'0131 03A7 27 2E BEQ PREV0132 03A9 81 77 CMPA #'w'0133 03AB 10 27 00 8B LBEQ WRITE0134 03AF 81 6D CMPA #'m'0135 03B1 27 10 BEQ MODIFY0136 03B3 81 71 CMPA #'q'0137 03B5 27 08 BEQ QUIT0138 03B7 8E 07 3B LDX #WOTMSG0139 03BA BD 06 23 JSR PSTRNG0140 03BD 20 BB BRA CMDLP0141 *0142 * QUIT0143 *0144 03BF 6E 9F F8 00 QUIT JMP [MONV]0145 *0146 * MODIFY SECTOR0147 *0148 03C3 BD 05 2A MODIFY JSR MEMCHG0149 03C6 20 B2 BRA CMDLP0150 *0151 * NEXT SECTOR (READ)0152 * INCREMENT SECTOR NUMBER0153 * WRAPS AROUND TO ZERO ON $FFFFFF0154 *0155 03C8 BE 01 04 NEXT LDX SECNUM+10156 03CB 30 01 LEAX 1,X0157 03CD BF 01 04 STX SECNUM+10158 03D0 26 2A BNE READS0159 03D2 7C 01 03 INC SECNUM0160 03D5 20 25 BRA READS0161 *0162 * PREVIOUS SECTOR (READ)0163 * DECREMENT SECTOR NUMBER0164 * DON'T DECREMENT PAST $0000000165 *0166 03D7 BE 01 04 PREV LDX SECNUM+10167 03DA 26 08 BNE PREV10168 03DC 7D 01 03 TST SECNUM0169 03DF 27 1B BEQ READS0170 03E1 7A 01 03 DEC SECNUM0171 03E4 30 1F PREV1 LEAX -1,X0172 03E6 BF 01 04 STX SECNUM+10173 03E9 20 11 BRA READS0174 *0175 * READ SECTORS FROM CF0176 *0177 03EB 8E 06 E9 READ LDX #SECPMT0178 03EE BD 06 23 JSR PSTRNG0179 03F1 BD 05 90 JSR IN6HEX0180 03F4 29 41 BVS RDEXIT0181 03F6 F7 01 03 STB SECNUM0182 03F9 BF 01 04 STX SECNUM+10183 *0184 03FC 4F READS CLRA0185 03FD C6 01 LDB #$010186 03FF FD E1 04 STD CF_SECCNT0187 *0188 0402 F6 01 05 LDB SECNUM+20189 0405 FD E1 06 STD CF_SECNUM0190 *0191 0408 F6 01 04 LDB SECNUM+10192 040B FD E1 08 STD CF_CYLLO0193 *0194 040E F6 01 03 LDB SECNUM+00195 0411 FD E1 0A STD CF_CYLHI0196 *0197 0414 C6 20 LDB #CMDREAD ; IDE READ MULTIPLE0198 0416 FD E1 0E STD CF_COMAND0199 0419 BD 04 87 JSR WAITRDY0200 *0201 041C 8E 01 09 LDX #SECBUF0202 041F 10 8E 01 00 LDY #2560203 *0204 * READ LOOP0205 *0206 0423 BD 04 96 RDLOOP JSR WAITDRQ0207 0426 FC E1 00 LDD CF_DATA ; reverse order of bytes0208 0429 E7 80 STB ,X+0209 042B A7 80 STA ,X+0210 042D 31 3F LEAY -1,Y0211 042F 26 F2 BNE RDLOOP0212 *0213 0431 BD 04 87 JSR WAITRDY0214 0434 BD 04 9E JSR MEMDUMP0215 0437 7E 03 7A RDEXIT JMP CMDLP0216 *0217 * WRITE SECTOR TO CF0218 *0219 043A 8E 06 E9 WRITE LDX #SECPMT0220 043D BD 06 23 JSR PSTRNG0221 0440 BD 05 90 JSR IN6HEX0222 0443 29 3F BVS WREXIT0223 0445 F7 01 03 STB SECNUM0224 0448 BF 01 04 STX SECNUM+10225 *0226 044B 4F CLRA0227 044C C6 01 LDB #$010228 044E FD E1 04 STD CF_SECCNT0229 *0230 0451 F6 01 05 LDB SECNUM+20231 0454 FD E1 06 STD CF_SECNUM0232 *0233 0457 F6 01 04 LDB SECNUM+10234 045A FD E1 08 STD CF_CYLLO0235 *0236 045D F6 01 03 LDB SECNUM+00237 0460 FD E1 0A STD CF_CYLHI0238 *0239 0463 CC 00 30 LDD #CMDWRITE; IDE WRITE MULTIPLE0240 0466 FD E1 0E STD CF_COMAND0241 0469 BD 04 87 JSR WAITRDY0242 *0243 046C 8E 01 09 LDX #SECBUF0244 046F 10 8E 01 00 LDY #2560245 *0246 * WRITE LOOP0247 *0248 0473 BD 04 96 WRLOOP JSR WAITDRQ0249 0476 E6 80 LDB ,X+ ; reverse order of bytes0250 0478 A6 80 LDA ,X+0251 047A FD E1 00 STD CF_DATA0252 047D 31 3F LEAY -1,Y0253 047F 26 F2 BNE WRLOOP0254 *0255 0481 BD 04 87 JSR WAITRDY0256 0484 7E 03 7A WREXIT JMP CMDLP0257 *0258 * WAIT UNTIL READY0259 *0260 0487 FC E1 0E WAITRDY LDD CF_STATUS0261 048A C5 80 BITB #BUSY0262 048C 26 F9 BNE WAITRDY0263 048E FC E1 0E LDD CF_STATUS0264 0491 C5 40 BITB #DRDY0265 0493 27 F2 BEQ WAITRDY0266 0495 39 RTS0267 *0268 * WAIT FOR DATA REQUEST0269 *0270 0496 FC E1 0E WAITDRQ LDD CF_STATUS0271 0499 C5 08 BITB #DRQ0272 049B 27 F9 BEQ WAITDRQ0273 049D 39 RTS0274 *0275 * DUMP SECTOR IN MEMORY0276 *0277 049E 8E 07 02 MEMDUMP LDX #SECMSG0278 04A1 BD 06 23 JSR PSTRNG0279 04A4 B6 01 03 LDA SECNUM0280 04A7 BD 05 F8 JSR OUT2H0281 04AA BE 01 04 LDX SECNUM+10282 04AD BD 05 F0 JSR OUT4H0283 04B0 BD 06 27 JSR PCRLF0284 *0285 * Dump first 256 bytes0286 *0287 04B3 10 8E 00 00 LDY #$00000288 04B7 30 A9 00 FF LEAX #$0FF,Y0289 04BB BD 04 CF JSR AJDUMP0290 *0291 * Prompt to continue0292 *0293 04BE 8E 07 44 LDX #PAGMSG0294 04C1 BD 06 23 JSR PSTRNG0295 04C4 BD 06 38 JSR INCH0296 *0297 * Dump second 256 bytes0298 *0299 04C7 10 8E 01 00 LDY #$01000300 04CB 30 A9 00 FF LEAX #$0FF,Y0301 *0302 * ADJUST LOWER AND UPPER ADDRESS LIMITS0303 * TO EVEN 16 BYTE BOUNDRIES.0304 *0305 * IF LOWER ADDR = $45320306 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530.0307 *0308 * IF UPPER ADDR = $45670309 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570.0310 *0311 * ENTER WITH LOWER ADDRESS IN X-REG.0312 * -UPPER ADDRESS ON TOP OF STACK.0313 *0314 04CF 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG0315 04D1 C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS0316 04D4 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY0317 04D6 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT0318 04D8 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG0319 04DA C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY0320 04DC 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT0321 04DE AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT0322 04E0 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP0323 04E2 17 01 57 LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD0324 04E5 27 03 BEQ EDUMP0325 04E7 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING0326 04E9 39 RTS ;0327 *0328 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS0329 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS.0330 *0331 04EA 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK0332 04EC 8E 07 2F LDX #MSG5 POINT TO MSG " - "0333 04EF 17 01 31 LBSR PSTRNG PRINT MSG0334 04F2 AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK0335 04F4 17 00 F9 LBSR OUT4H PRINT THE ADDRESS0336 04F7 17 01 46 LBSR OUT2S 2 SPACES0337 04FA C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP0338 04FC A6 89 01 09 ELOOP LDA SECBUF,X GET FROM MEMORY HEX BYTE TO PRINT0339 0500 30 01 LEAX 1,X0340 0502 17 00 F3 LBSR OUT2H OUTPUT HEX BYTE AS ASCII0341 0505 17 01 3A LBSR OUT1S OUTPUT SPACE0342 0508 5A DECB $F9D1 DECREMENT BYTE COUNT0343 0509 26 F1 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED0344 *0345 * PRINT 16 ASCII CHARACTERS0346 * IF NOT PRINTABLE OR NOT VALID0347 * ASCII PRINT A PERIOD (.)0348 050B 17 01 32 LBSR OUT2S 2 SPACES0349 050E AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK0350 0510 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 160351 0512 A6 89 01 09 EDPASC LDA SECBUF,X GET CHARACTER FROM MEMORY0352 0516 30 01 LEAX 1,X0353 0518 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE?0354 051A 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD0355 051C 81 7E CMPA #$7E IS IT VALID ASCII?0356 051E 23 02 BLS PRASC IF SO PRINT IT0357 0520 86 2E PERIOD LDA #'. LOAD A PERIOD (.)0358 0522 17 01 1F PRASC LBSR OUTCH PRINT ASCII CHARACTER0359 0525 5A DECB DECREMENT COUNT0360 0526 26 EA BNE EDPASC0361 0528 20 B4 BRA NXTLIN0362 *0363 *0364 ***** "M" MEMORY EXAMINE AND CHANGE *****0365 *0366 * RESTRICT ADDRESSING RANGE TO 512 BYTES ($000 - $1FF)0367 *0368 052A 8E 07 14 MEMCHG LDX #MEMMSG0369 052D BD 06 23 JSR PSTRNG0370 0530 17 00 74 LBSR IN3HEX INPUT ADDRESS0371 0533 29 34 BVS CHRTN IF NOT HEX, RETURN0372 0535 8C 02 00 CMPX #$02000373 0538 24 2F BHS CHRTN0374 053A 1F 12 TFR X,Y SAVE ADDR IN "Y"0375 053C 8E 07 2F MEMC2 LDX #MSG5 POINT TO MSG " - "0376 053F 17 00 E1 LBSR PSTRNG PRINT MSG0377 0542 1F 21 TFR Y,X FETCH ADDRESS0378 0544 17 00 A9 LBSR OUT4H PRINT ADDR IN HEX0379 0547 17 00 F8 LBSR OUT1S OUTPUT SPACE0380 054A A6 A9 01 09 LDA SECBUF,Y GET CONTENTS OF CURRENT ADDR.0381 054E 17 00 A7 LBSR OUT2H OUTPUT CONTENTS IN ASCII0382 0551 17 00 EE LBSR OUT1S OUTPUT SPACE0383 0554 17 00 60 LBSR BYTE LOOP WAITING FOR OPERATOR INPUT0384 0557 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC.0385 0559 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)?0386 055B 27 DF BEQ MEMC2 PROMPT OPERATOR AGAIN0387 055D 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)?0388 055F 27 DB BEQ MEMC2 PROMPT OPERATOR AGAIN0389 0561 81 5E CMPA #'^ IS IT AN UP ARROW?0390 0563 27 21 BEQ BACK DISPLAY PREVIOUS BYTE0391 0565 81 0D CMPA #$D IS IT A CR?0392 0567 26 13 BNE FORWRD DISPLAY NEXT BYTE0393 0569 39 CHRTN RTS EXIT ROUTINE0394 *0395 *0396 056A A7 A9 01 09 CHANGE STA SECBUF,Y CHANGE BYTE IN MEMORY0397 056E A1 A9 01 09 CMPA SECBUF,Y DID MEMORY BYTE CHANGE?0398 0572 27 08 BEQ FORWRD $F9720399 0574 17 00 CB LBSR OUT1S OUTPUT SPACE0400 0577 86 3F LDA #'? LOAD QUESTION MARK0401 0579 17 00 C8 LBSR OUTCH PRINT IT0402 057C 10 8C 01 FF FORWRD CMPY #$01FF0403 0580 27 BA BEQ MEMC20404 0582 31 21 LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION0405 0584 20 B6 BRA MEMC2 PRINT LOCATION & CONTENTS0406 0586 10 8C 00 00 BACK CMPY #$00000407 058A 27 B0 BEQ MEMC20408 058C 31 3F LEAY -1,Y POINT TO LAST MEM LOCATION0409 058E 20 AC BRA MEMC2 PRINT LOCATION & CONTENTS0410 *0411 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE0412 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE0413 * ADDRESS IS RETURNED IN THE "X" REGISTER.0414 *0415 * IN6HEX - MS BYTE IN ACCB0416 * LS WORD IN X REG0417 *0418 0590 32 7D IN6HEX LEAS -3,S0419 0592 8D 23 BSR BYTE0420 0594 29 57 BVS NOTHEX0421 0596 A7 E4 STA 0,S0422 0598 8D 1D BSR BYTE0423 059A 29 51 BVS NOTHEX0424 059C A7 61 STA 1,S0425 059E 8D 17 BSR BYTE0426 05A0 29 4B BVS NOTHEX0427 05A2 A7 62 STA 2,S0428 05A4 4F CLRA0429 05A5 35 94 PULS B,X,PC0430 *0431 * INPUT 3 HEX DIGITS0432 * RESULT RETURNED IN X0433 *0434 05A7 8D 21 IN3HEX BSR INHEX INPUT HEX (1 HEX CHAR)0435 05A9 29 42 BVS NOTHEX EXIT IF NOT VALID HEX0436 05AB 1F 01 TFR D,X0437 05AD 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR)0438 05AF 29 3C BVS NOTHEX0439 05B1 34 10 PSHS X0440 05B3 A7 61 STA 1,S0441 05B5 35 90 PULS X,PC0442 *0443 ***** INPUT BYTE (2 HEX CHAR.) *****0444 *0445 05B7 8D 11 BYTE BSR INHEX GET HEX LEFT0446 05B9 29 32 BVS NOTHEX EXIT IF NOT VALID HEX0447 05BB 48 ASLA ;0448 05BC 48 ASLA ;0449 05BD 48 ASLA ; SHIFT INTO LEFT NIBBLE0450 05BE 48 ASLA ;0451 05BF 1F 89 TFR A,B PUT HEXL IN "B"0452 05C1 8D 07 BSR INHEX GET HEX RIGHT0453 05C3 29 28 BVS NOTHEX EXIT IF NOT VALID HEX0454 05C5 34 04 PSHS B PUSH HEXL ON STACK0455 05C7 AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK0456 05C9 39 RTS RETURN WITH HEX L&R IN "A"0457 *0458 *0459 05CA 8D 63 INHEX BSR ECHON INPUT ASCII CHAR.0460 05CC 81 30 CMPA #'0 IS IT > OR = "0" ?0461 05CE 25 1D BCS NOTHEX IF LESS IT AIN'T HEX0462 05D0 81 39 CMPA #'9 IS IT < OR = "9" ?0463 05D2 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA0464 05D4 80 30 SUBA #$30 ASCII ADJ. NUMERIC0465 05D6 39 RTS ;0466 *0467 *0468 05D7 81 41 INHEXA CMPA #'A IS IT > OR = "A"0469 05D9 25 12 BCS NOTHEX IF LESS IT AIN'T HEX0470 05DB 81 46 CMPA #'F IS IT < OR = "F" ?0471 05DD 22 03 BHI INHEXL IF > IT AIN'T HEX0472 05DF 80 37 SUBA #$37 ASCII ADJ. ALPHA0473 05E1 39 RTS ;0474 *0475 05E2 81 61 INHEXL CMPA #'a IS IT > OR = "a"0476 05E4 25 07 BCS NOTHEX IF LESS IT AIN'T HEX0477 05E6 81 66 CMPA #'f IS IT < "f"0478 05E8 22 03 BHI NOTHEX IF > IT AIN'T HEX0479 05EA 80 57 SUBA #$57 ADJUST TO LOWER CASE0480 05EC 39 RTS ;0481 *0482 *0483 05ED 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER0484 05EF 39 RTS ;0485 *0486 *0487 05F0 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK0488 05F2 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC.0489 05F4 8D 02 BSR OUTHL OUTPUT HEX LEFT0490 05F6 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC.0491 05F8 OUTHL EQU *0492 05F8 34 02 OUT2H PSHS A SAVE IT BACK ON STACK0493 05FA 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII0494 05FB 44 LSRA ;0495 05FC 44 LSRA ;0496 05FD 44 LSRA ;0497 05FE 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII0498 0600 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII0499 0602 84 0F ANDA #$0F STRIP LEFT NIBBLE0500 0604 8B 30 XASCII ADDA #$30 ASCII ADJ0501 0606 81 39 CMPA #$39 IS IT < OR = "9" ?0502 0608 2F 02 BLE OUTC IF LESS, OUTPUT IT0503 060A 8B 07 ADDA #7 IF > MAKE ASCII LETTER0504 060C 20 36 OUTC BRA OUTCH OUTPUT CHAR0505 *0506 * BINARY / ASCII --- THIS ROUTINE0507 * OUTPUTS A BYTE IN ENHANCED0508 * BINARY FORMAT. THE ENHANCEMENT0509 * IS DONE BY SUBSTITUTING ASCII0510 * LETTERS FOR THE ONES IN THE BYTE.0511 * THE ASCII ENHANCEMENT LETTERS0512 * ARE OBTAINED FROM THE STRING0513 * POINTED TO BY THE INDEX REG. "X".0514 *0515 060E 34 02 BIASCI PSHS A SAVE "A" ON STACK0516 0610 C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE0517 0612 A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING0518 0614 68 E4 ASL ,S TEST BYTE FOR "1" IN B70519 0616 25 02 BCS PRTBA IF ONE PRINT LETTER0520 0618 86 2D LDA #'- IF ZERO PRINT "-"0521 061A 8D 28 PRTBA BSR OUTCH PRINT IT0522 061C 8D 24 BSR OUT1S PRINT SPACE0523 061E 5A DECB SUB 1 FROM #BITS YET TO PRINT0524 061F 26 F1 BNE OUTBA0525 0621 35 82 PULS A,PC0526 *0527 * PRINT STRING PRECEEDED BY A CR & LF.0528 *0529 0623 6E 9F F8 10 PSTRNG JMP [PSTRGV] PRINT CR/LF0530 *0531 * PCRLF0532 *0533 0627 6E 9F F8 0E PCRLF JMP [PCRLFV]0534 *0535 * PDATA0536 *0537 062B 6E 9F F8 0C PDATA JMP [PDATAV]0538 *0539 062F 7D 01 08 ECHON TST ECHO IS ECHO REQUIRED ?0540 0632 27 04 BEQ INCH ECHO NOT REQ. IF CLEAR0541 *0542 * INCHE0543 *0544 * ---GETS CHARACTER FROM TERMINAL AND0545 * ECHOS SAME. THE CHARACTER IS RETURNED0546 * IN THE "A" ACCUMULATOR WITH THE PARITY0547 * BIT MASKED OFF. ALL OTHER REGISTERS0548 * ARE PRESERVED.0549 *0550 0634 6E 9F F8 06 INCHE JMP [INCHEV]0551 *0552 * INCH0553 *0554 * GET CHARACTER FROM TERMINAL. RETURN0555 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE0556 * ALL OTHER REGISTERS. THE INPUT CHARACTER0557 * IS 8 BITS AND IS NOT ECHOED.0558 *0559 *0560 0638 6E 9F F8 04 INCH JMP [INCHV]0561 *0562 * INCHEK0563 *0564 * CHECK FOR A CHARACTER AVAILABLE FROM0565 * THE TERMINAL. THE SERIAL PORT IS CHECKED0566 * FOR READ READY. ALL REGISTERS ARE0567 * PRESERVED, AND THE "Z" BIT WILL BE0568 * CLEAR IF A CHARACTER CAN BE READ.0569 *0570 *0571 063C 6E 9F F8 08 INCHEK JMP [INCHEKV]0572 *0573 0640 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES0574 0642 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE0575 *0576 *0577 * OUTCH0578 *0579 * OUTPUT CHARACTER TO TERMINAL.0580 * THE CHAR. TO BE OUTPUT IS0581 * PASSED IN THE A REGISTER.0582 * ALL REGISTERS ARE PRESERVED.0583 *0584 0644 6E 9F F8 0A OUTCH JMP [OUTCHV]0585 *0586 * MESSAGE STRINGS0587 *0588 0648 0A 0D TTLMSG FCB $0A,$0D0589 064A 43 4F 4D 50 41 43 FCC "COMPACT FLASH SECTOR READ/WRITE UTILITY"54 20 46 4C 41 5348 20 53 45 43 544F 52 20 52 45 4144 2F 57 52 49 5445 20 55 54 49 4C49 54 590590 0671 04 FCB $040591 0672 0D 0A CMDMSG FCB $0D,$0A0592 0674 28 52 29 20 52 45 FCC "(R) READ SECTOR "41 44 20 53 45 4354 4F 52 20 20 200593 0686 28 57 29 20 57 52 FCC "(W) WRITE SECTOR "49 54 45 20 53 4543 54 4F 52 20 200594 0698 0D 0A FCB $0D,$0A0595 069A 28 4E 29 20 4E 45 FCC "(N) NEXT SECTOR "58 54 20 53 45 4354 4F 52 20 20 200596 06AC 28 50 29 20 50 52 FCC "(P) PREV SECTOR "45 56 20 53 45 4354 4F 52 20 20 200597 06BE 0D 0A FCB $0D,$0A0598 06C0 28 4D 29 20 4D 4F FCC "(M) MODIFY SECTOR "44 49 46 59 20 5345 43 54 4F 52 200599 06D2 28 51 29 20 51 55 FCC "(Q) QUIT "49 54 20 20 20 2020 20 20 20 20 200600 06E4 0D 0A FCB $0D,$0A0601 06E6 3A 20 FCC ": "0602 06E8 04 FCB $040603 06E9 53 45 43 54 4F 52 SECPMT FCC "SECTOR NUMBER (6 HEX) : "20 4E 55 4D 42 4552 20 28 36 20 4845 58 29 20 3A 200604 0701 04 FCB $040605 0702 53 45 43 54 4F 52 SECMSG FCC "SECTOR NUMBER - $"20 4E 55 4D 42 4552 20 2D 20 240606 0713 04 FCB $040607 0714 0D 0A MEMMSG FCB $0D,$0A0608 0716 4D 45 4D 4F 52 59 FCC "MEMORY ADDRESS (3 HEX): "20 41 44 44 52 4553 53 20 28 33 2048 45 58 29 3A 200609 072E 04 FCB $040610 072F 20 2D 20 MSG5 FCC " - "0611 0732 04 FCB $040612 0733 00 00 0A 0D 00 00 MSG2 FCB $00,$00,$0A,$0D,$00,$00,$00,$0400 040613 073B 57 68 61 74 20 3F WOTMSG FCC "What ?"0614 0741 0D 0A 04 FCB $0D,$0A,$040615 0744 0D 0A PAGMSG FCB $0D,$0A0616 0746 48 69 74 20 61 6E FCC "Hit any key to continue"79 20 6B 65 79 2074 6F 20 63 6F 6E74 69 6E 75 650617 075D 04 FCB $040618 *0619 END STARTProgram + Init Data = 1054 bytesError count = 0
Go to most recent revision | Compare with Previous | Blame | View Log