00010 ************************* 00020 * * 00030 * *cdebug* * 00040 * * 00050 * M6809 MONITOR FOR THE * 00060 * TRS-80 COLOR COMPUTER * 00070 * (C) 1983 BRUCE TOMLIN * 00080 * * 00090 * LAST UPDATE: * 00100 * 03/11/84 * 00110 * * 00120 ************************* 00130 00140 ORG $6000 00150 00160 START LBRA MAIN0 00170 00180 SWIVEC LBRA SWI 00190 00200 JMPVEC LBRA ENTRY 00210 00220 CMDE RTS ; VECTOR 00230 RTS ; FOR THE 00240 RTS ; 'E' CMD 00250 00260 DISVEC LBRA DIS 00270 00280 BEEPER LBRA BEEP 00290 00300 OUT4HX TFR X,D 00310 OUT4HD BSR OUT2HX 00320 TFR B,A 00330 OUT2HX STA ,-S 00340 RORA 00350 RORA 00360 RORA 00370 RORA 00380 BSR OUT1HX 00390 LDA ,S+ 00400 OUT1HX ANDA #$0F 00410 ADDA #'0 00420 CMPA #'9 00430 BLS OUTCHR 00440 ADDA #'A-'9-1 00450 BRA OUTCHR 00460 00470 OUTCHX TFR X,D 00480 OUTCHD BSR OUTCHR 00490 TFR B,A 00500 OUTCHR PSHS X,B,A 00510 CMPA #$80 00520 BCC OUTCH2 00530 LDB #$20 00540 CMPA #$20 00550 BCS OUTCH1 00560 LDB #$40 00570 CMPA #$40 00580 BCS OUTCH1 00590 CMPA #$60 00600 BCS OUTCH2 00610 LDB #$60 00620 OUTCH1 STB ,-S 00630 EORA ,S+ 00640 OUTCH2 LDX \ 03160 FDB CMDNXT-* 03170 FCC \C\ 03180 FDB CMDC-* 03190 FCC \I\ 03200 FDB CMDI-* 03210 FCB 0 03220 03230 CMDA LDA #$FF 03240 BRA CMDH1 03250 03260 CMDH CLRA 03270 CMDH1 STA MODE,PCR 03280 RTS 03290 03300 CHKHEX SUBA #'0 03310 BCS RTS2 03320 ADDA #$E9 03330 BCS RTS2 03340 ADDA #$06 03350 BCS HEXOK 03360 ADDA #$07 03370 BCS RTS2 03380 HEXOK ADDA #$0A 03390 CLC 03400 RTS2 RTS 03410 03420 GETKEY STX ,--S 03430 LDX CURPOS,PCR 03440 LBSR RANGE 03450 STX CURPOS,PCR 03460 LDX ,S++ 03470 CURKEY PSHS X,B 03480 CURKY1 BSR FLASH 03490 BSR POLCAT 03500 BEQ CURKY1 03510 LDB #$60 03520 STB [CURPOS,PCR] 03530 POL3 PULS B,X,PC 03540 03550 FLASH0 FCB $0B 03560 03570 FLASH DEC 13360 TSTB 13370 BEQ OUTDI3 13380 EORA #$20 13390 OUTDI3 LBSR OUTCHR 13400 CLR 24,Y 13410 TFR Y,X 13420 LBSR OUTSTR 13430 PULS D,X,PC 13440 13450 DISBUF RMB 32 13460 13470 LOGICL FCC \NEG\[0] 13480 * FCC \neg\ 13490 FCB 0 13500 * FCC \com\ 13510 FCB 0 13520 FCC \COM\[0] 13530 FCC \LSR\[0] 13540 * FCC \lsr\ 13550 FCB 0 13560 FCC \ROR\[0] 13570 FCC \ASR\[0] 13580 FCC \ASL\[0] 13590 FCC \ROL\[0] 13600 FCC \DEC\[0] 13610 * FCC \dec\ 13620 FCB 0 13630 FCC \INC\[0] 13640 FCC \TST\[0] 13650 FCC \JMP\[0] 13660 FCC \CLR\[0] 13670 13680 MISC FCB 0 ; 10XX 13690 FCB 0 ; 11XX 13700 FCC \NOP\[0] 13710 FCC \SYNC\[0] 13720 FCB 0 ; 14 13730 FCB 0 ; 15 13740 FCC \LBRA\[0] 13750 FCC \LBSR\[0] 13760 FCB 0 ; 18 13770 FCC \DAA\[0] 13780 FCC \ORCC\[0] 13790 FCB 0 ; 1B 13800 FCC \ANDCC\[0] 13810 FCC \SEX\[0] 13820 FCC \EXG\[0] 13830 FCC \TFR\[0] 13840 13850 THIRTY FCC \LEAX\[0] 13860 FCC \LEAY\[0] 13870 FCC \LEAS\[0] 13880 FCC \LEAU\[0] 13890 FCC \PSHS\[0] 13900 FCC \PULS\[0] 13910 FCC \PSHU\[0] 13920 FCC \PULU\[0] 13930 * FCC \rts\ 13940 FCB 0 13950 FCC \RTS\[0] 13960 FCC \ABX\[0] 13970 FCC \RTI\[0] 13980 FCC \CWAI\[0] 13990 FCC \MUL\[0] 14000 FCC \SWR\[0] 14010 SWIDIS FCC \SWI\[0] 14020 14030 ARITH FCC \SUB\[0] 14040 FCC \CMP\[0] 14050 FCC \SBC\[0] 14060 FCC \SUBD\[0] 14070 FCC \AND\[0] 14080 FCC \BIT\[0] 14090 FCC \LD\[0] 14100 FCC \ST\[0] 14110 FCC \EOR\[0] 14120 FCC \ADC\[0] 14130 FCC \OR\[0] 14140 FCC \ADD\[0] 14150 FCC \CMPX\[0] 14160 FCC \JSR\[0] 14170 FCC \LDX\[0] 14180 FCC \STX\[0] 14190 14200 BRANCH FCC \RA\/RN/ 14210 FCC \HI\/LS/ 14220 FCC \CC\/CS/ 14230 FCC \NE\/EQ/ 14240 FCC \VC\/VS/ 14250 FCC \PL\/MI/ 14260 FCC \GE\/LT/ 14270 FCC \GT\/LE/ 14280 14290 PSHREG FCC \CCA B DPX Y S PC\ 14300 US EQU PSHREG+12 14310 TFRREG FCC \D X Y U S PC \ 14320 FCC \A B CCDP \ 14330 14340 DIS PSHS Y,X,U 14350 TFR S,U 14360 CLR