URL
https://opencores.org/ocsvn/rf6809/rf6809/trunk
Subversion Repositories rf6809
[/] [rf6809/] [trunk/] [software/] [boot/] [boot_rom.lst] - Rev 15
Go to most recent revision | Compare with Previous | Blame | View Log
3 error(s), 526 warning(s) unlisted in pass 1; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;CR EQU $0D ;ASCII equatesLF EQU $0ATAB EQU $09CTRLC EQU $03CTRLH EQU $08CTRLI EQU $09CTRLJ EQU $0ACTRLK EQU $0BCTRLM EQU $0DCTRLS EQU $13CTRLT EQU $14CTRLX EQU $18XON EQU $11XOFF EQU $13FIRST_CORE EQU 1MAX_TASKNO EQU 63DRAM_BASE EQU $10000000; ROM monitor functions;MF_Monitor EQU 0MF_INCH EQU 1MF_OUTCH EQU 2MF_CRLF EQU 3MF_DisplayString EQU 4MF_DisplayByteAsHex EQU 5MF_DisplayWordAsHex EQU 6MF_ShowSprites EQU 7MF_Srand EQU 8MF_Random EQU 9MF_OSCALL EQU 10MF_GetRange EQU 11mon_numwka EQU $910mon_r1 EQU $920mon_r2 EQU $924; ============================================================================; __; \\__/ o\ (C) S2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================COREID EQU $FFFFFFFE0MSCOUNT EQU $FFFFFFFE4LEDS EQU $FFFE60001VIA EQU $FFFE60000VIA_PA EQU 1VIA_DDRA EQU 3VIA_ACR EQU 11VIA_IFR EQU 13VIA_IER EQU 14VIA_T3LL EQU 18VIA_T3LH EQU 19VIA_T3CMPL EQU 20VIA_T3CMPH EQU 21TEXTSCR EQU $FFFE00000TEXTREG EQU $FFFE07F00TEXT_COLS EQU 0TEXT_ROWS EQU 1TEXT_CURPOS EQU 34COLS EQU 64ROWS EQU 32ACIA EQU $FFFE30100ACIA_TX EQU 0ACIA_RX EQU 0ACIA_STAT EQU 1ACIA_CMD EQU 2ACIA_CTRL EQU 3ACIA_CTRL2 EQU 11RTC EQU $FFFE30500 ; I2CRTCBuf EQU $7FC0PRNG EQU $FFFE30600KEYBD EQU $FFFE30400KEYBDCLR EQU $FFFE30402PIC EQU $FFFE3F000SPRITE_CTRL EQU $FFFE10000SPRITE_EN EQU $3C0OUTSEMA EQU $EF0000SEMAABS EQU $1000OSSEMA EQU $EF0010ScreenLocation EQU $10ColorCodeLocation EQU $14ScreenLocation2 EQU $18BlkcpySrc EQU $1CBlkcpyDst EQU $20Strptr EQU $24PICptr EQU $28; Forth Area; 0x30-0x60; Task control blocks, room for 256 tasksTCB_NxtRdy EQU $00 ; next task on ready / timeout listTCB_PrvRdy EQU $04 ; previous task on ready / timeout listTCB_NxtTCB EQU $08TCB_Timeout EQU $0CTCB_Priority EQU $10TCB_MSGPTR_D1 EQU $14TCB_MSGPTR_D2 EQU $18TCB_hJCB EQU $1CTCB_Status EQU $1ETCB_CursorRow EQU $20TCB_CursorCol EQU $21TCB_hWaitMbx EQU $22 ; handle of mailbox task is waiting atTCB_mbq_next EQU $24 ; mailbox queue nextTCB_mbq_prev EQU $28 ; mailbox queue previousTCB_iof_next EQU $2CTCB_iof_prev EQU $30TCB_SPSave EQU $34 ; TCB_SPSave areaTCB_mmu_map EQU $38KeybdHead EQU $FFFFFC800KeybdTail EQU $FFFFFC900KeybdEcho EQU $FFFFFCA00KeybdBad EQU $FFFFFCB00KeybdAck EQU $FFFFFCC00KeybdLocks EQU $FFFFFCD00KeybdBuffer EQU $FFFFFC000 ; buffer is 16 charsBIOS_SCREENS EQU $17000000 ; $17000000 to $171FFFFF; EhBASIC vars:;NmiBase EQU $FFC013IrqBase EQU $FFC014IOFocusNdx EQU $100; These variables in global OS storage areaIOFocusList EQU $FFC000 ; to $FF000FIOFocusID EQU $FFC010IrqSource EQU $FFC011IRQFlag EQU $FFC012RunningID EQU $FFC013; These variables use direct page accessCursorRow EQU $110CursorCol EQU $111CharColor EQU $112ScreenColor EQU $113CursorFlash EQU $114KeyState1 EQU $120KeyState2 EQU $121KeyLED EQU $122KeybdID EQU $124KeybdBlock EQU $126kbdHeadRcv EQU $127kbdTailRcv EQU $128kbdFifo EQU $40 ; in local RAMkbdFifoAlias EQU $C00040 ; to $C0007F ; alias for $40 to $7FSerhZero EQU $130SerHeadRcv EQU $131SertZero EQU $132SerTailRcv EQU $133SerHeadXmit EQU $136SerTailXmit EQU $138SerRcvXon EQU $139SerRcvXoff EQU $140SerRcvBuf EQU $BFF000 ; 4kB serial recieve bufferfarflag EQU $15Fasmbuf EQU $160 ; to $17FQNdx0 EQU $780QNdx1 EQU QNdx0+2QNdx2 EQU QNdx1+2QNdx3 EQU QNdx2+2QNdx4 EQU QNdx3+2FreeTCB EQU QNdx4+2TimeoutList EQU FreeTCB+2FreeMbx EQU RunningTCB + 2nMailbox EQU FreeMbx + 2FreeMsg EQU nMailbox + 2nMsgBlk EQU FreeMsg + 2CharOutVec EQU $800CharInVec EQU $804CmdPromptJI EQU $808MonErrVec EQU $80CBreakpointFlag EQU $810NumSetBreakpoints EQU $811Breakpoints EQU $820 ; to $82FBreakpointBytes EQU $830 ; to $83Fmon_vectb EQU $880; Register save area for monitormon_DSAVE EQU $900mon_XSAVE EQU $902mon_YSAVE EQU $904mon_USAVE EQU $906mon_SSAVE EQU $908mon_PCSAVE EQU $90Amon_DPRSAVE EQU $90Emon_CCRSAVE EQU $90Fmon_numwka EQU $910mon_r1 EQU $920mon_r2 EQU $924jmpvec EQU $928; The ORG directive must set an address a multiple of 4 in order for the Verilog; output to work correctly.org $FFD0AC00FFD0AC 012 nop00FFD0AD 012 nop00FFD0AE 012 nopXBLANK00FFD0AF 0C6020 ldb #' '00FFD0B1 017001C5E lbsr OUTCH00FFD0B4 039 rtsorg $FFD0D000FFD0D0 012 nop00FFD0D1 012 nopCRLFCRLF1:00FFD0D2 0C600D ldb #CR00FFD0D4 017001C3B lbsr OUTCH00FFD0D7 0C600A ldb #LF00FFD0D9 017001C36 lbsr OUTCH00FFD0DC 039 rtsorg $FFD0F000FFD0F0 012 nop00FFD0F1 020FDF bra CRLF1org $FFD1DCONEKEY00FFD1DC 06E90F000804 jmp [CharInVec]org $FFD2C000FFD2C0 012 nopLETTER00FFD2C1 017001A4E lbsr OUTCH00FFD2C4 039 rtsorg $FFD2CC00FFD2CC 012 nop00FFD2CD 012 nopHEX200FFD2CE 017001142 lbsr DispByteAsHex00FFD2D1 039 rtsHEX400FFD2D2 017001135 lbsr DispWordAsHex00FFD2D5 039 rtsorg $FFD300ClearScreenJmp00FFD300 016000F2B lbra ClearScreenorg $FFD308HomeCursorJmp00FFD308 016000F96 lbra HomeCursororg $FFD400; Local RAM test routine; Checkerboard testing.; There is 70kB of local RAM; Does not use any RAM including no stackramtest:00FFD400 18E000000 ldy #000FFD403 086001 lda #100FFD405 0150B7FFFE60001 sta LEDS00FFD40A 0CCAAA555 ldd #$AAA555ramtest1:00FFD40D 0EDA01 std ,y++00FFD40F 18C008000 cmpy #$800000FFD412 025FF9 blo ramtest1; now readback values and compare00FFD414 18E000000 ldy #0ramtest3:00FFD417 0ECA01 ldd ,y++00FFD419 183AAA555 cmpd #$AAA55500FFD41C 02600E bne ramerr00FFD41E 18C008000 cmpy #$800000FFD421 025FF4 blo ramtest300FFD423 086002 lda #200FFD425 0150B7FFFE60001 sta LEDS00FFD42A 06EC04 jmp ,uramerr:00FFD42C 086080 lda #$8000FFD42E 0150B7FFFE60001 sta LEDS00FFD433 08EE00000 ldx #TEXTSCR00FFD436 0150F6FFFFFFFE0 ldb COREID00FFD43B 03A abx00FFD43C 086046 lda #'F'00FFD43E 0A7804 sta ,x00FFD440 013 sync00FFD441 06EC04 jmp ,udramtest:00FFD443 18E010000 ldy #$10000 ; DRAM starts here00FFD446 086001 lda #100FFD448 0150B7FFFE60001 sta LEDS00FFD44D 0CEAAA555 ldu #$AAA55500FFD450 017FFFC7F lbsr CRLF*** warning 1: Long branch within short branch range could be optimizeddramtest1:00FFD453 04A deca00FFD454 02600A bne dramtest400FFD456 01F020 tfr y,d00FFD458 017000FAF lbsr DispWordAsHex00FFD45B 0C600D ldb #CR00FFD45D 0170018B2 lbsr OUTCHdramtest4:00FFD460 0EFA01 stu ,y++00FFD462 18CE00000 cmpy #$E00000 ; DRAM ends here00FFD465 025FEC blo dramtest1; now readback values and compare00FFD467 18E010000 ldy #$1000000FFD46A 086001 lda #100FFD46C 017FFFC63 lbsr CRLF*** warning 1: Long branch within short branch range could be optimizeddramtest3:00FFD46F 04A deca00FFD470 02600A bne dramtest500FFD472 01F020 tfr y,d00FFD474 017000F93 lbsr DispWordAsHex00FFD477 0C600D ldb #CR00FFD479 017001896 lbsr OUTCHdramtest5:00FFD47C 2A3A01 cmpu ,y++00FFD47E 02600F bne dramerr00FFD480 18CE00000 cmpy #$E0000000FFD483 025FEA blo dramtest300FFD485 086002 lda #200FFD487 0150B7FFFE60001 sta LEDS00FFD48C 016001A18 lbra Monitordramerr:00FFD48F 086080 lda #$8000FFD491 0150B7FFFE60001 sta LEDS00FFD496 08EE00000 ldx #TEXTSCR00FFD499 0150F6FFFFFFFE0 ldb COREID00FFD49E 03A abx00FFD49F 086046 lda #'F'00FFD4A1 0A7804 sta ,x00FFD4A3 016001A01 lbra Monitororg $FFE00000FFE000 FFEEA7 FDB Monitor00FFE002 FFE022 FDB DumRts ; NEXTCMD00FFE004 FFECDA FDB INCH00FFE006 FFECF8 FDB INCHE00FFE008 FFECFC FDB INCHEK00FFE00A FFED12 FDB OUTCH00FFE00C FFE3F7 FDB PDATA00FFE00E FFE3EA FDB PCRLF00FFE010 FFE3E6 FDB PSTRNG00FFE012 FFE022 FDB DumRts ; LRA00FFE014 FFE022 FDB DumRts00FFE016 FFE022 FDB DumRts00FFE018 FFE022 FDB DumRts00FFE01A FFE022 FDB DumRts ; VINIZ00FFE01C FFE2FE FDB DisplayChar ; VOUTCH00FFE01E FFE022 FDB DumRts ; ACINIZ00FFE020 FFE022 FDB DumRts ; AOUTCHDumRts:00FFE022 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------start:00FFE023 086FFF lda #$FFF ; all cores can do this00FFE025 0150B7FFFE60003 sta VIA+VIA_DDRA00FFE02A 086055 lda #$55 ; see if we can at least set LEDs00FFE02C 0150B7FFFE60001 sta LEDS00FFE031 086001 lda #1 ; prime OS semaphore00FFE033 0B7EF1010 sta OSSEMA+$100000FFE036 0B7EF1000 sta OUTSEMA+$100000FFE039 0CEFFE03F ldu #st6 ; U = return address00FFE03C 07EFFD400 jmp ramtest ; JMP dont JSRst6:00FFE03F 1CE006FFF lds #$6FFF ; boot up stack area00FFE042 0150B6FFFFFFFE0 lda COREID00FFE047 081001 cmpa #FIRST_CORE; beq st8; sync ; halt cores other than 2st8:; bne skip_init; bsr romToRam; ldd #st7 & $FFFF; tfr d,x; jmp ,x ; jump to the BIOS now in local RAMst7:00FFE049 08D15F bsr Delay3s ; give some time for devices to reset00FFE04B 07F000810 clr BreakpointFlag00FFE04E 07F000811 clr NumSetBreakpoints00FFE051 0860AA lda #$AA00FFE053 0150B7FFFE60001 sta LEDS00FFE058 086001 lda #FIRST_CORE00FFE05A 0B7FFC010 sta IOFocusID ; core #2 has focus00FFE05D 0B7FFC013 sta RunningID; Clear IO focus list00FFE060 08E000000 ldx #0st9:00FFE063 06F80A000FFC000 clr IOFocusList,x00FFE068 030001 inx00FFE06A 08C000010 cmpx #1600FFE06D 025FF4 blo st900FFE06F 086018 lda #2400FFE071 0B7FFC001 sta IOFocusList+FIRST_CORE00FFE074 0860CE lda #$0CE00FFE076 097113 sta ScreenColor00FFE078 097112 sta CharColor00FFE07A 08D1B2 bsr ClearScreen00FFE07C 0CCFFE2FE ldd #DisplayChar00FFE07F 0FD000800 std CharOutVec00FFE082 0CCFFEBE4 ldd #SerialPeekCharDirect00FFE085 0FD000804 std CharInVec; swi; fcb MF_OSCALL; fcb 24 ; request IO focus00FFE088 0150F6FFFFFFFE0 ldb COREID00FFE08D 0C1001 cmpb #FIRST_CORE00FFE08F 02700D beq init00FFE091 02004B bra skip_init00FFE093 0200B3 bra multi_sievest3:00FFE095 0860FF lda #$FF00FFE097 0150B7FFFE60001 sta LEDS00FFE09C 020FF7 bra st3; initialize interrupt controller; first, zero out all the vectorsinit:00FFE09E 01700042F lbsr rtc_read ; get clock values00FFE0A1 08E000127 ldx #kbdHeadRcv00FFE0A4 0C6020 ldb #32 ; number of bytes to zero outinit1:00FFE0A6 06F800 clr ,x+00FFE0A8 05A decb00FFE0A9 026FFB bne init100FFE0AB 017000393 lbsr TimerInit00FFE0AE 017000ABE lbsr InitSerial00FFE0B1 08E000080 ldx #12800FFE0B4 086001 lda #1 ; set irq(bit0), clear firq (bit1), disable int (bit 6), clear edge sense(bit 7)00FFE0B6 0C6001 ldb #FIRST_CORE ; serving core idst1:00FFE0B8 06F809E3F000 clr PIC,x ; cause code00FFE0BC 0A7809E3F001 sta PIC+1,x00FFE0C0 0E7809E3F002 stb PIC+2,x00FFE0C4 030004 leax 4,x00FFE0C6 08C000100 cmpx #25600FFE0C9 025FED blo st1; lda #4 ; make the timer interrupt edge sensitive; sta PIC+4 ; reg #4 is the edge sensitivity setting; sta PIC ; reg #0 is interrupt enable00FFE0CB 086081 lda #$81 ; make irq edge sensitive00FFE0CD 0150B7FFFE3F0FD sta PIC+$FD00FFE0D2 08601F lda #31 ; enable timer interrupt00FFE0D4 0150B7FFFE3F009 sta PIC+900FFE0D9 0C6001 ldb #100FFE0DB 0F7EF1000 stb OUTSEMA+SEMAABS ; set semaphore to 1 available slotskip_init:00FFE0DE 01C0EF andcc #$EF ; unmask irq00FFE0E0 086040 lda #COLS00FFE0E2 0150B7FFFE07F00 sta TEXTREG+TEXT_COLS00FFE0E7 086020 lda #ROWS00FFE0E9 0150B7FFFE07F01 sta TEXTREG+TEXT_ROWS00FFE0EE 08D13E bsr ClearScreen00FFE0F0 08D1AF bsr HomeCursor00FFE0F2 086005 lda #500FFE0F4 0150B7FFFE60001 sta LEDS00FFE0F9 0CCFFE111 ldd #msgStartup00FFE0FC 08D2C1 bsr DisplayString00FFE0FE 08E000000 ldx #000FFE101 0CC000000 ldd #000FFE104 017000C15 lbsr ShowSprites00FFE107 017000836 lbsr KeybdInit00FFE10A 0DC124 ldd KeybdID00FFE10C 08D2FC bsr DispWordAsHex00FFE10E 07EFFEE60 jmp MonitorStartmsgStartup00FFE111 072066036038030039020 fcb "rf6809 12-bit System Starting.",CR,LF,000FFE118 03103202D06206907402000FFE11F 05307907307406506D02000FFE126 05307406107207406906E00FFE12D 06702E00D00A000;------------------------------------------------------------------------------; The checkpoint register must be cleared within 1 second or a NMI interrupt; will occur. checkpoint should be called with a JSR so that the global ROM; routine is called.;; Modifies:; none;------------------------------------------------------------------------------checkpoint:00FFE132 01507FFFFFFFFE1 clr $FFFFFFFE1 ; writing any value will do00FFE137 039 rts;------------------------------------------------------------------------------; Copy the system ROM to local RAM; Running the code from local RAM is probably an order of magnitude faster; then running from the global ROM. It also reduces the network traffic to; run from local RAM.;; Modifies:; d,x,y;------------------------------------------------------------------------------romToRam:00FFE138 08EFFC000 ldx #$FFC00000FFE13B 18E00C000 ldy #$00C000romToRam1:00FFE13E 0EC801 ldd ,x++00FFE140 0EDA01 std ,y++00FFE142 08C000000 cmpx #000FFE145 026FF7 bne romToRam100FFE147 039 rts;------------------------------------------------------------------------------; Multi-core sieve program.;------------------------------------------------------------------------------; First fill screen chars with 'P' indicating prime positions; Each core is responsible for the Nth position where N is the; core number minus two.;multi_sieve:00FFE148 086050 lda #'P' ; indicate prime00FFE14A 0150F6FFFFFFFE0 ldb COREID ; find out which core we are00FFE14F 0C0001 subb #FIRST_CORE00FFE151 08E000000 ldx #0 ; start at first char of screen00FFE154 03A abxmulti_sieve3:00FFE155 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE159 030008 leax 8,x ; advance to next position00FFE15B 08C000FFF cmpx #409500FFE15E 025FF5 blo multi_sieve300FFE160 0BDFFE132 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE163 0CB002 addb #2 ; start sieve at 2 (core id)00FFE165 08604E lda #'N' ; flag position value of 'N' for non-primemulti_sieve2:00FFE167 08E000000 ldx #000FFE16A 03A abx ; skip the first position - might be primemulti_sieve1:00FFE16B 03A abx ; increment00FFE16C 0A7809E00000 sta TEXTSCR,x00FFE170 08C000FFF cmpx #409500FFE173 025FF6 blo multi_sieve100FFE175 0BDFFE132 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE178 0CB008 addb #8 ; number of cores working on it00FFE17A 0C1FF0 cmpb #408000FFE17C 025FE9 blo multi_sieve2multi_sieve4: ; hang machine00FFE17E 013 sync00FFE17F 016000D25 lbra Monitor;------------------------------------------------------------------------------; Single core sieve.;------------------------------------------------------------------------------sieve:00FFE182 086050 lda #'P' ; indicate prime00FFE184 08E000000 ldx #0 ; start at first char of screensieve3:00FFE187 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE18B 030001 inx ; advance to next position00FFE18D 08C000FFF cmpx #409500FFE190 025FF5 blo sieve300FFE192 0C6002 ldb #2 ; start sieve at 200FFE194 08604E lda #'N' ; flag position value of 'N' for non-primesieve2:00FFE196 08E000000 ldx #000FFE199 03A abx ; skip the first position - might be primesieve1:00FFE19A 03A abx ; increment00FFE19B 0A7809E00000 sta TEXTSCR,x00FFE19F 08C000FFF cmpx #409500FFE1A2 025FC7 blo multi_sieve100FFE1A4 05C incb ; number of cores working on it00FFE1A5 0C1FF0 cmpb #408000FFE1A7 025FED blo sieve2sieve4: ; hang machine00FFE1A9 039 rts;------------------------------------------------------------------------------; Three second delay for user convenience and to allow some devices time to; reset.;------------------------------------------------------------------------------Delay3s:00FFE1AA 0CC895440 ldd #9000000dly3s1:00FFE1AD 0C10FF cmpb #$FF00FFE1AF 026000 bne dly3s2dly3s2:00FFE1B1 0150B7FFFE60001 sta LEDS00FFE1B6 083000001 subd #100FFE1B9 026FF2 bne dly3s100FFE1BB 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------ShiftLeft5:00FFE1BC 058 aslb00FFE1BD 049 rola00FFE1BE 058 aslb00FFE1BF 049 rola00FFE1C0 058 aslb00FFE1C1 049 rola00FFE1C2 058 aslb00FFE1C3 049 rola00FFE1C4 058 aslb00FFE1C5 049 rola00FFE1C6 039 rts;------------------------------------------------------------------------------; Parameters:; b = core id of core to copy;------------------------------------------------------------------------------;CopyVirtualScreenToScreen:00FFE1C7 034076 pshs d,x,y,u; Compute virtual screen location for core passed in accb.00FFE1C9 01F098 tfr b,a00FFE1CB 048 asla00FFE1CC 048 asla00FFE1CD 048 asla00FFE1CE 048 asla00FFE1CF 08AC00 ora #$C0000FFE1D1 05F clrb00FFE1D2 01F001 tfr d,x00FFE1D4 034006 pshs d00FFE1D6 18EE00000 ldy #TEXTSCR00FFE1D9 0CE000400 ldu #COLS*ROWS/2cv2s1:00FFE1DC 0EC801 ldd ,x++00FFE1DE 0EDA01 std ,y++00FFE1E0 0335FF leau -1,u00FFE1E2 283000000 cmpu #000FFE1E5 026FF5 bne cv2s1; reset the cursor position in the text controller00FFE1E7 035010 puls x00FFE1E9 0E6808110 ldb CursorRow,x00FFE1EC 086040 lda #COLS00FFE1EE 03D mul00FFE1EF 01F002 tfr d,y00FFE1F1 0E6808111 ldb CursorCol,x00FFE1F4 01F021 tfr y,x00FFE1F6 03A abx00FFE1F7 0150BFFFFE07F22 stx TEXTREG+TEXT_CURPOS00FFE1FC 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------;CopyScreenToVirtualScreen:00FFE1FE 034076 pshs d,x,y,u00FFE200 08D08D bsr GetScreenLocation00FFE202 01F002 tfr d,y00FFE204 08EE00000 ldx #TEXTSCR00FFE207 0CE000400 ldu #COLS*ROWS/2cs2v1:00FFE20A 0EC801 ldd ,x++00FFE20C 0EDA01 std ,y++00FFE20E 0335FF leau -1,u00FFE210 283000000 cmpu #000FFE213 026FF5 bne cs2v100FFE215 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------00FFE217 054045058054053043052 fcb "TEXTSCR "00FFE21E 02000FFE21F FFE229 fcw TextOpen00FFE221 FFE22A fcw TextClose00FFE223 FFE22B fcw TextRead00FFE225 FFE22C fcw TextWrite00FFE227 FFE22D fcw TextSeekTextOpen:00FFE229 039 rtsTextClose:00FFE22A 039 rtsTextRead:00FFE22B 039 rtsTextWrite:00FFE22C 039 rtsTextSeek:00FFE22D 039 rts;------------------------------------------------------------------------------; Clear the screen and the screen color memory; We clear the screen to give a visual indication that the system; is working at all.;; Modifies:; none;------------------------------------------------------------------------------ClearScreen:00FFE22E 034076 pshs d,x,y,u00FFE230 08E000800 ldx #COLS*ROWS00FFE233 01F013 tfr x,u00FFE235 08D058 bsr GetScreenLocation00FFE237 01F002 tfr d,y00FFE239 0C6020 ldb #' ' ; space charcs1:00FFE23B 0E7A00 stb ,y+ ; set text to space00FFE23D 0301FF leax -1,x ; decrement x00FFE23F 026FFA bne cs100FFE241 0150F6FFFFFFFE0 ldb COREID ; update colors only if we have focus00FFE246 0F1FFC010 cmpb IOFocusID00FFE249 02000D bra cs300FFE24B 18EE02000 ldy #TEXTSCR+$2000; lda CharColor00FFE24E 0860CE lda #$0CE00FFE250 01F031 tfr u,x ; get back countcs2:00FFE252 0A7A00 sta ,y+00FFE254 0301FF dex ; decrement x00FFE256 026FFA bne cs2cs3:00FFE258 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Scroll text on the screen upwards;; Modifies:; none;------------------------------------------------------------------------------ScrollUp:00FFE25A 034076 pshs d,x,y,u00FFE25C 18E0003FF ldy #(COLS*ROWS-1)/2 ; y = num chars/2 to move00FFE25F 08D02E bsr GetScreenLocation00FFE261 01F001 tfr d,x00FFE263 01F003 tfr d,u00FFE265 030040 leax COLS,x ; x = index to source rowscrup1:00FFE267 0EC801 ldd ,x++ ; move 2 characters00FFE269 0EDC01 std ,u++00FFE26B 0313FF dey00FFE26D 026FF8 bne scrup100FFE26F 08601F lda #ROWS-100FFE271 08D002 bsr BlankLine00FFE273 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Blank out a line on the display;; Modifies:; none; Parameters:; acca = line number to blank;------------------------------------------------------------------------------BlankLine:00FFE275 034016 pshs d,x00FFE277 034002 pshs a00FFE279 08D014 bsr GetScreenLocation00FFE27B 01F001 tfr d,x00FFE27D 035002 puls a00FFE27F 0C6040 ldb #COLS ; b = # chars to blank out from video controller00FFE281 03D mul ; d = screen index (row# * #cols)00FFE282 03080B leax d,x00FFE284 086020 lda #' '00FFE286 0C6040 ldb #COLS ; b = # chars to blank out from video controllerblnkln1:00FFE288 0A7800 sta ,x+00FFE28A 05A decb00FFE28B 026FFB bne blnkln100FFE28D 035096 puls d,x,pc;------------------------------------------------------------------------------; Get the location of the screen memory. The location; depends on whether or not the task has the output focus.;; Modifies:; d; Retuns:; d = screen location;------------------------------------------------------------------------------GetScreenLocation:00FFE28F 0150B6FFFFFFFE0 lda COREID ; which core are we?00FFE294 0B1FFC010 cmpa IOFocusID ; do we have the IO focus00FFE297 026004 bne gsl1 ; no, go pick virtual screen address00FFE299 0CCE00000 ldd #TEXTSCR ; yes, we update the real screen00FFE29C 039 rtsgsl1:00FFE29D 0CC007800 ldd #$780000FFE2A0 039 rts;------------------------------------------------------------------------------; HomeCursor; Set the cursor location to the top left of the screen.;; Modifies:; none;------------------------------------------------------------------------------HomeCursor:00FFE2A1 034016 pshs d,x00FFE2A3 00F110 clr CursorRow00FFE2A5 00F111 clr CursorCol00FFE2A7 0150F6FFFFFFFE0 ldb COREID00FFE2AC 0F1FFC010 cmpb IOFocusID00FFE2AF 026006 bne hc100FFE2B1 04F clra00FFE2B2 0150B7FFFE07F22 sta TEXTREG+TEXT_CURPOShc1:00FFE2B7 035096 puls d,x,pc;------------------------------------------------------------------------------; Update the cursor position in the text controller based on the; CursorRow,CursorCol.;; Modifies:; none;------------------------------------------------------------------------------;UpdateCursorPos:00FFE2B9 034016 pshs d,x00FFE2BB 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2C0 0F1FFC010 cmpb IOFocusID ; only for the task with the output focus00FFE2C3 026014 bne ucp100FFE2C5 096110 lda CursorRow00FFE2C7 08403F anda #$3F ; limit of 63 rows00FFE2C9 0150F6FFFE07F00 ldb TEXTREG+TEXT_COLS00FFE2CE 03D mul00FFE2CF 01F001 tfr d,x00FFE2D1 0D6111 ldb CursorCol00FFE2D3 03A abx00FFE2D4 0150BFFFFE07F22 stx TEXTREG+TEXT_CURPOSucp1:00FFE2D9 035096 puls d,x,pc;------------------------------------------------------------------------------; Calculate screen memory location from CursorRow,CursorCol.; Also refreshes the cursor location.;; Modifies:; d; Returns:; d = screen location;------------------------------------------------------------------------------;CalcScreenLoc:00FFE2DB 034010 pshs x00FFE2DD 096110 lda CursorRow00FFE2DF 0C6040 ldb #COLS00FFE2E1 03D mul00FFE2E2 01F001 tfr d,x00FFE2E4 0D6111 ldb CursorCol00FFE2E6 03A abx00FFE2E7 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2EC 0F1FFC010 cmpb IOFocusID ; only for the task with the output focus00FFE2EF 026005 bne csl100FFE2F1 0150BFFFFE07F22 stx TEXTREG+TEXT_CURPOScsl1:00FFE2F6 08DF97 bsr GetScreenLocation00FFE2F8 03080B leax d,x00FFE2FA 01F010 tfr x,d00FFE2FC 035090 puls x,pc;------------------------------------------------------------------------------; Display a character on the screen.; If the task doesn't have the I/O focus then the character is written to; the virtual screen.;; Modifies:; none; Parameters:; accb = char to display;------------------------------------------------------------------------------;DisplayChar:00FFE2FE 017000907 lbsr SerialPutChar00FFE301 034016 pshs d,x00FFE303 0C100D cmpb #CR ; carriage return ?00FFE305 026007 bne dccr00FFE307 00F111 clr CursorCol ; just set cursor column to zero on a CR00FFE309 08DFAE bsr UpdateCursorPosdcx14:00FFE30B 01600008C lbra dcx4dccr:00FFE30E 0C1091 cmpb #$91 ; cursor right ?00FFE310 02600D bne dcx600FFE312 096111 lda CursorCol00FFE314 081040 cmpa #COLS00FFE316 024003 bhs dcx700FFE318 04C inca00FFE319 097111 sta CursorColdcx7:00FFE31B 08DF9C bsr UpdateCursorPos00FFE31D 035096 puls d,x,pcdcx6:00FFE31F 0C1090 cmpb #$90 ; cursor up ?00FFE321 026009 bne dcx800FFE323 096110 lda CursorRow00FFE325 027FF4 beq dcx700FFE327 04A deca00FFE328 097110 sta CursorRow00FFE32A 020FEF bra dcx7dcx8:00FFE32C 0C1093 cmpb #$93 ; cursor left ?00FFE32E 026009 bne dcx900FFE330 096111 lda CursorCol00FFE332 027FE7 beq dcx700FFE334 04A deca00FFE335 097111 sta CursorCol00FFE337 020FE2 bra dcx7dcx9:00FFE339 0C1092 cmpb #$92 ; cursor down ?00FFE33B 02600B bne dcx1000FFE33D 096110 lda CursorRow00FFE33F 081020 cmpa #ROWS00FFE341 027FD8 beq dcx700FFE343 04C inca00FFE344 097110 sta CursorRow00FFE346 020FD3 bra dcx7dcx10:00FFE348 0C1094 cmpb #$94 ; cursor home ?00FFE34A 02600C bne dcx1100FFE34C 096111 lda CursorCol00FFE34E 027004 beq dcx1200FFE350 00F111 clr CursorCol00FFE352 020FC7 bra dcx7dcx12:00FFE354 00F110 clr CursorRow00FFE356 020FC3 bra dcx7dcx11:00FFE358 0C1099 cmpb #$99 ; delete ?00FFE35A 026008 bne dcx1300FFE35C 08DF7D bsr CalcScreenLoc00FFE35E 01F001 tfr d,x00FFE360 096111 lda CursorCol ; acc = cursor column00FFE362 020011 bra dcx5dcx1300FFE364 0C1008 cmpb #CTRLH ; backspace ?00FFE366 02601E bne dcx300FFE368 096111 lda CursorCol00FFE36A 02702E beq dcx400FFE36C 04A deca00FFE36D 097111 sta CursorCol00FFE36F 08DF6A bsr CalcScreenLoc00FFE371 01F001 tfr d,x00FFE373 096111 lda CursorColdcx5:00FFE375 0E6001 ldb 1,x00FFE377 0E7801 stb ,x++00FFE379 04C inca00FFE37A 081040 cmpa #COLS00FFE37C 025FF7 blo dcx500FFE37E 0C6020 ldb #' '00FFE380 0301FF dex00FFE382 0E7804 stb ,x00FFE384 020014 bra dcx4dcx3:00FFE386 0C100A cmpb #LF ; linefeed ?00FFE388 02700E beq dclf00FFE38A 034004 pshs b00FFE38C 08DF4D bsr CalcScreenLoc00FFE38E 01F001 tfr d,x00FFE390 035004 puls b00FFE392 0E7804 stb ,x; ToDo character color; lda CharColor; sta $2000,x00FFE394 08D006 bsr IncCursorPos00FFE396 020002 bra dcx4dclf:00FFE398 08D011 bsr IncCursorRowdcx4:00FFE39A 035096 puls d,x,pc;------------------------------------------------------------------------------; Increment the cursor position, scroll the screen if needed.;; Modifies:; none;------------------------------------------------------------------------------IncCursorPos:00FFE39C 034016 pshs d,x00FFE39E 096111 lda CursorCol00FFE3A0 04C inca00FFE3A1 097111 sta CursorCol00FFE3A3 081040 cmpa #COLS00FFE3A5 025014 blo icc100FFE3A7 00F111 clr CursorCol ; column = 000FFE3A9 020002 bra icr1IncCursorRow:00FFE3AB 034016 pshs d,xicr1:00FFE3AD 096110 lda CursorRow00FFE3AF 04C inca00FFE3B0 097110 sta CursorRow00FFE3B2 081020 cmpa #ROWS00FFE3B4 025005 blo icc100FFE3B6 04A deca ; backup the cursor row, we are scrolling up00FFE3B7 097110 sta CursorRow00FFE3B9 08DE9F bsr ScrollUpicc1:00FFE3BB 08DEFC bsr UpdateCursorPosicc2:00FFE3BD 035096 puls d,x,pc;------------------------------------------------------------------------------; Display a string on the screen.;; Modifies:; none; Parameters:; d = pointer to string;------------------------------------------------------------------------------;DisplayString:00FFE3BF 034016 pshs d,x00FFE3C1 01F001 tfr d,xdspj2: ; lock semaphore for access00FFE3C3 0B6EF0001 lda OUTSEMA+100FFE3C6 027FFB beq dspj2dspj1B:00FFE3C8 0E6800 ldb ,x+ ; move string char into acc00FFE3CA 027005 beq dsretB ; is it end of string ?00FFE3CC 017000943 lbsr OUTCH ; display character00FFE3CF 020FF7 bra dspj1BdsretB:00FFE3D1 07FEF0001 clr OUTSEMA+1 ; unlock semaphore00FFE3D4 035096 puls d,x,pcDisplayStringCRLF:00FFE3D6 034006 pshs d00FFE3D8 08DFE5 bsr DisplayString00FFE3DA 0C600D ldb #CR00FFE3DC 017000933 lbsr OUTCH00FFE3DF 0C600A ldb #LF00FFE3E1 01700092E lbsr OUTCH00FFE3E4 035086 puls d,pc;; PRINT CR, LF, STRING;PSTRNG00FFE3E6 08D002 BSR PCRLF00FFE3E8 02000D BRA PDATAPCRLF00FFE3EA 034010 PSHS X00FFE3EC 08EFFE3FE LDX #CRLFST00FFE3EF 08D006 BSR PDATA00FFE3F1 035010 PULS X00FFE3F3 039 RTS00FFE3F4 0BDFFED12 JSR OUTCHPDATA00FFE3F7 0E6800 LDB ,X+00FFE3F9 0C1004 CMPB #$0400FFE3FB 026FF7 BNE PRINT00FFE3FD 039 RTSCRLFST00FFE3FE 00D00A004 fcb CR,LF,4DispDWordAsHex:00FFE401 08D007 bsr DispWordAsHex00FFE403 01E001 exg d,x00FFE405 08D003 bsr DispWordAsHex00FFE407 01E001 exg d,x00FFE409 039 rtsDispWordAsHex:00FFE40A 01E089 exg a,b00FFE40C 08D005 bsr DispByteAsHex00FFE40E 01E089 exg a,b00FFE410 08D001 bsr DispByteAsHex00FFE412 039 rtsDispByteAsHex:00FFE413 034004 pshs b00FFE415 054 lsrb00FFE416 054 lsrb00FFE417 054 lsrb00FFE418 054 lsrb00FFE419 054 lsrb00FFE41A 054 lsrb00FFE41B 054 lsrb00FFE41C 054 lsrb00FFE41D 08D00C bsr DispNyb00FFE41F 035004 puls b00FFE421 034004 pshs b00FFE423 054 lsrb00FFE424 054 lsrb00FFE425 054 lsrb00FFE426 054 lsrb00FFE427 08D002 bsr DispNyb00FFE429 035004 puls bDispNyb00FFE42B 034004 pshs b00FFE42D 0C400F andb #$0F00FFE42F 0C100A cmpb #1000FFE431 025007 blo DispNyb100FFE433 0CB037 addb #'A'-1000FFE435 0170008DA lbsr OUTCH00FFE438 035084 puls b,pcDispNyb100FFE43A 0CB030 addb #'0'00FFE43C 0170008D3 lbsr OUTCH00FFE43F 035084 puls b,pc;==============================================================================; Timer;==============================================================================; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; Timer routines for a WDC6522 compatible circuit.;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;TimerInit:00FFE441 0CC061A80 ldd #$61A80 ; compare to 400000 (100 Hz assuming 40MHz clock)00FFE444 0150F7FFFE60014 stb VIA+VIA_T3CMPL00FFE449 0150B7FFFE60015 sta VIA+VIA_T3CMPH00FFE44E 01507FFFFE60012 clr VIA+VIA_T3LL00FFE453 01507FFFFE60013 clr VIA+VIA_T3LH00FFE458 0150B6FFFE6000B lda VIA+VIA_ACR ; set continuous mode for timer00FFE45D 08A100 ora #$10000FFE45F 0150B7FFFE6000B sta VIA+VIA_ACR ; enable timer #3 interrupts00FFE464 086810 lda #$81000FFE466 0150B7FFFE6000E sta VIA+VIA_IER00FFE46B 039 rtsTimerIRQ:; Reset the edge sense circuit in the PIC00FFE46C 08601F lda #31 ; Timer is IRQ #3100FFE46E 0B7FFC011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()00FFE471 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFE476 0150B6FFFE6000D lda VIA+VIA_IFR00FFE47B 02A011 bpl notTimerIRQ00FFE47D 085080 bita #$80 ; timer3 irq is bit 700FFE47F 02700D beq notTimerIRQ00FFE481 01507FFFFE60012 clr VIA+VIA_T3LL00FFE486 01507FFFFE60013 clr VIA+VIA_T3LH00FFE48B 07CE00037 inc $E00037 ; update timer IRQ screen flagnotTimerIRQ:00FFE48E 039 rts; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;;===============================================================================; Generic I2C routines;; It is assumed there may be more than one I2C controller in the system, so; the address of the controller is passed in the X register.;===============================================================================I2C_PREL EQU $0I2C_PREH EQU $1I2C_CTRL EQU $2I2C_RXR EQU $3I2C_TXR EQU $3I2C_CMD EQU $4I2C_STAT EQU $4; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; i2c initialization, sets the clock prescaler;; Parameters:; x = I2C controller address; Returns: none; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_init:00FFE48F 034004 pshs b00FFE491 0C6004 ldb #4 ; setup prescale for 400kHz clock00FFE493 0E7804 stb I2C_PREL,x00FFE495 06F001 clr I2C_PREH,x00FFE497 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for I2C transfer to complete;; Parameters; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_tip:00FFE499 034004 pshs bi2cw1:00FFE49B 0E6004 ldb I2C_STAT,x ; would use lvb, but lb is okay since its the I/O area00FFE49D 0C5001 bitb #1 ; wait for tip to clear00FFE49F 026FFA bne i2cw100FFE4A1 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Write command to i2c;; Parameters; accb - data to transmit; acca - command value; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wr_cmd:00FFE4A3 0E7003 stb I2C_TXR,x00FFE4A5 0A7004 sta I2C_CMD,x00FFE4A7 08DFF0 bsr i2c_wait_tip00FFE4A9 0E6004 ldb I2C_STAT,x00FFE4AB 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Parameters; x - I2C controller base address; accb - data to send; Returns: none; Stack space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_xmit1:00FFE4AC 034006 pshs d ; save data value00FFE4AE 034006 pshs d ; and save it again00FFE4B0 0C6001 ldb #100FFE4B2 0E7002 stb I2C_CTRL,x ; enable the core00FFE4B4 0C6076 ldb #$76 ; set slave address = %011101100FFE4B6 086090 lda #$90 ; set STA, WR00FFE4B8 08DFE9 bsr i2c_wr_cmd00FFE4BA 08D00A bsr i2c_wait_rx_nack00FFE4BC 035006 puls d ; get back data value00FFE4BE 086050 lda #$50 ; set STO, WR00FFE4C0 08DFE1 bsr i2c_wr_cmd00FFE4C2 08D002 bsr i2c_wait_rx_nack00FFE4C4 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_rx_nack:00FFE4C6 034004 pshs b ; save off accbi2cwr1:00FFE4C8 0E6004 ldb I2C_STAT,x ; wait for RXack = 000FFE4CA 0C5080 bitb #$80 ; test for nack00FFE4CC 026FFA bne i2cwr100FFE4CE 035084 puls b,pc; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;===============================================================================; Realtime clock routines;===============================================================================; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Read the real-time-clock chip.;; The entire contents of the clock registers and sram are read into a buffer; in one-shot rather than reading the registers individually.;; Parameters: none; Returns: d = 0 on success, otherwise non-zero; Modifies: d and RTCBuf; Stack space: 6 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -rtc_read:00FFE4D0 08EE30500 ldx #RTC00FFE4D3 18E007FC0 ldy #RTCBuf00FFE4D6 0C6080 ldb #$8000FFE4D8 0E7002 stb I2C_CTRL,x ; enable I2C00FFE4DA 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE4DD 08DFC4 bsr i2c_wr_cmd00FFE4DF 0C5080 bitb #$8000FFE4E1 02603C bne rtc_rxerr00FFE4E3 0CC010000 ldd #$10000 ; address zero, wr bit00FFE4E6 08DFBB bsr i2c_wr_cmd00FFE4E8 0C5080 bitb #$8000FFE4EA 026033 bne rtc_rxerr00FFE4EC 0CC0900DF ldd #$900DF ; read address, read op, STA + wr bit00FFE4EF 08DFB2 bsr i2c_wr_cmd00FFE4F1 0C5080 bitb #$8000FFE4F3 02602A bne rtc_rxerr00FFE4F5 05F clrbrtcr0001:00FFE4F6 086020 lda #$2000FFE4F8 0A7004 sta I2C_CMD,x ; rd bit00FFE4FA 08DF9D bsr i2c_wait_tip00FFE4FC 08DFC8 bsr i2c_wait_rx_nack00FFE4FE 0A6004 lda I2C_STAT,x00FFE500 085080 bita #$8000FFE502 02601B bne rtc_rxerr00FFE504 0A6003 lda I2C_RXR,x00FFE506 0A7A07 sta b,y00FFE508 05C incb00FFE509 0C105F cmpb #$5F00FFE50B 025FE9 blo rtcr000100FFE50D 086068 lda #$6800FFE50F 0A7004 sta I2C_CMD,x ; STO, rd bit + nack00FFE511 08DF86 bsr i2c_wait_tip00FFE513 0A6004 lda I2C_STAT,x00FFE515 085080 bita #$8000FFE517 026006 bne rtc_rxerr00FFE519 0A6003 lda I2C_RXR,x00FFE51B 0A7A07 sta b,y00FFE51D 04F05F clrd ; return 0rtc_rxerr:00FFE51F 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE521 04F clra00FFE522 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Write the real-time-clock chip.;; The entire contents of the clock registers and sram are written from a; buffer (RTCBuf) in one-shot rather than writing the registers individually.;; Parameters: none; Returns: r1 = 0 on success, otherwise non-zero; Modifies: r1 and RTCBuf; Stack space: 6 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -rtc_write:00FFE523 08EE30500 ldx #RTC00FFE526 18E007FC0 ldy #RTCBuf00FFE529 0C6080 ldb #$8000FFE52B 0E7002 stb I2C_CTRL,x ; enable I2C00FFE52D 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE530 08DF71 bsr i2c_wr_cmd00FFE532 0C5080 bitb #$8000FFE534 026FE9 bne rtc_rxerr00FFE536 0CC010000 ldd #$10000 ; address zero, wr bit00FFE539 08DF68 bsr i2c_wr_cmd00FFE53B 0C5080 bitb #$8000FFE53D 026FE0 bne rtc_rxerr00FFE53F 0C6000 ldb #0rtcw0001:00FFE541 034004 pshs b00FFE543 0E6A05 ldb b,y00FFE545 086010 lda #$1000FFE547 08DF5A bsr i2c_wr_cmd00FFE549 0C5080 bitb #$8000FFE54B 035004 puls b00FFE54D 026FD0 bne rtc_rxerr00FFE54F 05C incb00FFE550 0C105F cmpb #$5F00FFE552 025FED blo rtcw000100FFE554 0E6A05 ldb b,y00FFE556 086050 lda #$50 ; STO, wr bit00FFE558 08DF49 bsr i2c_wr_cmd00FFE55A 0C5080 bitb #$8000FFE55C 026FC1 bne rtc_rxerr00FFE55E 04F05F clrd ; return 000FFE560 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE562 039 rts;==============================================================================; Keyboard I/O;==============================================================================;--------------------------------------------------------------------------; PS2 scan codes to ascii conversion tables.;--------------------------------------------------------------------------;org (* + 127) & $FFFFFF80unshiftedScanCodes:00FFE580 02E0A902E0A50A30A10A2 fcb $2e,$a9,$2e,$a5,$a3,$a1,$a2,$ac00FFE587 0AC00FFE588 02E0AA0A80A60A4009060 fcb $2e,$aa,$a8,$a6,$a4,$09,$60,$2e00FFE58F 02E00FFE590 02E02E02E02E02E071031 fcb $2e,$2e,$2e,$2e,$2e,$71,$31,$2e00FFE597 02E00FFE598 02E02E07A073061077032 fcb $2e,$2e,$7a,$73,$61,$77,$32,$2e00FFE59F 02E00FFE5A0 02E063078064065034033 fcb $2e,$63,$78,$64,$65,$34,$33,$2e00FFE5A7 02E00FFE5A8 02E020076066074072035 fcb $2e,$20,$76,$66,$74,$72,$35,$2e00FFE5AF 02E00FFE5B0 02E06E062068067079036 fcb $2e,$6e,$62,$68,$67,$79,$36,$2e00FFE5B7 02E00FFE5B8 02E02E06D06A075037038 fcb $2e,$2e,$6d,$6a,$75,$37,$38,$2e00FFE5BF 02E00FFE5C0 02E02C06B06906F030039 fcb $2e,$2c,$6b,$69,$6f,$30,$39,$2e00FFE5C7 02E00FFE5C8 02E02E02F06C03B07002D fcb $2e,$2e,$2f,$6c,$3b,$70,$2d,$2e00FFE5CF 02E00FFE5D0 02E02E02702E05B03D02E fcb $2e,$2e,$27,$2e,$5b,$3d,$2e,$2e00FFE5D7 02E00FFE5D8 0AD02E00D05D02E05C02E fcb $ad,$2e,$0d,$5d,$2e,$5c,$2e,$2e00FFE5DF 02E00FFE5E0 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e00FFE5E7 02E00FFE5E8 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e00FFE5EF 02E00FFE5F0 09807F09202E09109001B fcb $98,$7f,$92,$2e,$91,$90,$1b,$af00FFE5F7 0AF00FFE5F8 0AB02E09702E02E0960AE fcb $ab,$2e,$97,$2e,$2e,$96,$ae,$2e00FFE5FF 02E00FFE600 02E02E02E0A702E02E02E fcb $2e,$2e,$2e,$a7,$2e,$2e,$2e,$2e00FFE607 02E00FFE608 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE60F 02E00FFE610 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE617 02E00FFE618 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE61F 02E00FFE620 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE627 02E00FFE628 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE62F 02E00FFE630 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE637 02E00FFE638 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE63F 02E00FFE640 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE647 02E00FFE648 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE64F 02E00FFE650 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE657 02E00FFE658 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE65F 02E00FFE660 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE667 02E00FFE668 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE66F 02E00FFE670 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE677 02E00FFE678 02E02E0FA02E02E02E02E fcb $2e,$2e,$fa,$2e,$2e,$2e,$2e,$2e00FFE67F 02EshiftedScanCodes:00FFE680 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE687 02E00FFE688 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e00FFE68F 02E00FFE690 02E02E02E02E02E051021 fcb $2e,$2e,$2e,$2e,$2e,$51,$21,$2e00FFE697 02E00FFE698 02E02E05A053041057040 fcb $2e,$2e,$5a,$53,$41,$57,$40,$2e00FFE69F 02E00FFE6A0 02E043058044045024023 fcb $2e,$43,$58,$44,$45,$24,$23,$2e00FFE6A7 02E00FFE6A8 02E020056046054052025 fcb $2e,$20,$56,$46,$54,$52,$25,$2e00FFE6AF 02E00FFE6B0 02E04E04204804705905E fcb $2e,$4e,$42,$48,$47,$59,$5e,$2e00FFE6B7 02E00FFE6B8 02E02E04D04A05502602A fcb $2e,$2e,$4d,$4a,$55,$26,$2a,$2e00FFE6BF 02E00FFE6C0 02E03C04B04904F029028 fcb $2e,$3c,$4b,$49,$4f,$29,$28,$2e00FFE6C7 02E00FFE6C8 02E03E03F04C03A05005F fcb $2e,$3e,$3f,$4c,$3a,$50,$5f,$2e00FFE6CF 02E00FFE6D0 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e00FFE6D7 02E00FFE6D8 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e00FFE6DF 02E00FFE6E0 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e00FFE6E7 02E00FFE6E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6EF 02E00FFE6F0 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e00FFE6F7 02E00FFE6F8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6FF 02E00FFE700 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE707 02E00FFE708 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE70F 02E00FFE710 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE717 02E00FFE718 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE71F 02E00FFE720 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE727 02E00FFE728 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE72F 02E00FFE730 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE737 02E00FFE738 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE73F 02E00FFE740 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE747 02E00FFE748 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE74F 02E00FFE750 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE757 02E00FFE758 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE75F 02E00FFE760 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE767 02E00FFE768 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE76F 02E00FFE770 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE777 02E00FFE778 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE77F 02E; controlkeybdControlCodes:00FFE780 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE787 02E00FFE788 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e00FFE78F 02E00FFE790 02E02E02E02E02E011021 fcb $2e,$2e,$2e,$2e,$2e,$11,$21,$2e00FFE797 02E00FFE798 02E02E01A013001017040 fcb $2e,$2e,$1a,$13,$01,$17,$40,$2e00FFE79F 02E00FFE7A0 02E003018004005024023 fcb $2e,$03,$18,$04,$05,$24,$23,$2e00FFE7A7 02E00FFE7A8 02E020016006014012025 fcb $2e,$20,$16,$06,$14,$12,$25,$2e00FFE7AF 02E00FFE7B0 02E00E00200800701905E fcb $2e,$0e,$02,$08,$07,$19,$5e,$2e00FFE7B7 02E00FFE7B8 02E02E00D00A01502602A fcb $2e,$2e,$0d,$0a,$15,$26,$2a,$2e00FFE7BF 02E00FFE7C0 02E03C00B00900F029028 fcb $2e,$3c,$0b,$09,$0f,$29,$28,$2e00FFE7C7 02E00FFE7C8 02E03E03F00C03A01005F fcb $2e,$3e,$3f,$0c,$3a,$10,$5f,$2e00FFE7CF 02E00FFE7D0 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e00FFE7D7 02E00FFE7D8 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e00FFE7DF 02E00FFE7E0 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e00FFE7E7 02E00FFE7E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7EF 02E00FFE7F0 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e00FFE7F7 02E00FFE7F8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7FF 02EkeybdExtendedCodes:00FFE800 02E02E02E02E0A30A10A2 fcb $2e,$2e,$2e,$2e,$a3,$a1,$a2,$2e00FFE807 02E00FFE808 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE80F 02E00FFE810 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE817 02E00FFE818 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE81F 02E00FFE820 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE827 02E00FFE828 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE82F 02E00FFE830 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE837 02E00FFE838 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE83F 02E00FFE840 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE847 02E00FFE848 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE84F 02E00FFE850 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE857 02E00FFE858 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE85F 02E00FFE860 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE867 02E00FFE868 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e00FFE86F 02E00FFE870 09809909202E09109002E fcb $98,$99,$92,$2e,$91,$90,$2e,$2e00FFE877 02E00FFE878 02E02E09702E02E09602E fcb $2e,$2e,$97,$2e,$2e,$96,$2e,$2e00FFE87F 02E; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; Keyboard driver routines to interface to a PS2 style keyboard; Converts the scancode to ascii;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;SC_F12 EQU $07SC_C EQU $21SC_T EQU $2CSC_Z EQU $1ASC_DEL EQU $71 ; extendSC_KEYUP EQU $F0 ; should be $f0SC_EXTEND EQU $E0SC_CTRL EQU $14SC_RSHIFT EQU $59SC_NUMLOCK EQU $77SC_SCROLLLOCK EQU $7ESC_CAPSLOCK EQU $58SC_ALT EQU $11;#define SC_LSHIFT EQU $12;SC_DEL EQU $71 ; extend;SC_LCTRL EQU $58SC_TAB EQU $0D; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Recieve a byte from the keyboard, used after a command is sent to the; keyboard in order to wait for a response.;; Parameters: none; Returns: accd = recieved byte ($00 to $FF), -1 on timeout; Modifies: acc; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdRecvByte:00FFE880 034010 pshs x00FFE882 08E000064 ldx #100 ; wait up to 1skrb3:00FFE885 08D05A bsr KeybdGetStatus ; wait for response from keyboard00FFE887 05D tstb00FFE888 02B00B bmi krb4 ; is input buffer full ? yes, branch00FFE88A 08D02D bsr Wait10ms ; wait a bit00FFE88C 0301FF dex00FFE88E 026FF5 bne krb3 ; go back and try again00FFE890 0CCFFFFFF ldd #-1 ; return -100FFE893 035090 puls x,pckrb4:00FFE895 08D066 bsr KeybdGetScancode00FFE897 035090 puls x,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Send a byte to the keyboard.;; Parameters: accb byte to send; Returns: none; Modifies: none; Stack Space: 0 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdSendByte:00FFE899 0150F7FFFE30400 stb KEYBD00FFE89E 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait until the keyboard transmit is complete;; Parameters: none; Returns: r1 = 0 if successful, r1 = -1 timeout; Modifies: r1; Stack Space: 3 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdWaitTx:00FFE89F 034010 pshs x00FFE8A1 08E000064 ldx #100 ; wait a max of 1skwt1:00FFE8A4 08D03B bsr KeybdGetStatus00FFE8A6 0C4040 andb #$40 ; check for transmit complete bit; branch if bit set00FFE8A8 02600B bne kwt200FFE8AA 08D00D bsr Wait10ms ; delay a little bit00FFE8AC 0301FF dex00FFE8AE 026FF4 bne kwt1 ; go back and try again00FFE8B0 0CCFFFFFF ldd #-1 ; timed out, return -100FFE8B3 035090 puls x,pckwt2:00FFE8B5 04F clra ; wait complete, return 000FFE8B6 05F clrb00FFE8B7 035090 puls x,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for 10 ms;; Parameters: none; Returns: none; Modifies: none; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -Wait10ms:00FFE8B9 034006 pshs d00FFE8BB 0150B6FFFFFFFE7 lda MSCOUNT+3W10_0001:00FFE8C0 01F089 tfr a,b00FFE8C2 0150F0FFFFFFFE7 subb MSCOUNT+300FFE8C7 0C1FFA cmpb #$FFA00FFE8C9 022FF5 bhi W10_000100FFE8CB 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for 300 ms (256 ms);; Parameters: none; Returns: none; Modifies: none; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -Wait300ms:00FFE8CD 034006 pshs d00FFE8CF 0150B6FFFFFFFE7 lda MSCOUNT+3W300_0001:00FFE8D4 01F089 tfr a,b00FFE8D6 0150F0FFFFFFFE7 subb MSCOUNT+300FFE8DB 0C1F00 cmpb #$F0000FFE8DD 022FF5 bhi W300_000100FFE8DF 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Get the keyboard status;; Parameters: none; Returns: d = status; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdGetStatus:kbgs3:00FFE8E1 0150F6FFFE30401 ldb KEYBD+100FFE8E6 0C5080 bitb #$8000FFE8E8 02600E bne kbgs100FFE8EA 0C5001 bitb #$01 ; check parity error flag00FFE8EC 026002 bne kbgs200FFE8EE 04F clra00FFE8EF 039 rtskbgs2:00FFE8F0 0C60FE ldb #$FE ; request resend00FFE8F2 08DFA5 bsr KeybdSendByte00FFE8F4 08DFA9 bsr KeybdWaitTx00FFE8F6 020FE9 bra kbgs3kbgs1: ; return negative status00FFE8F8 0CAF00 orb #$F0000FFE8FA 086FFF lda #-100FFE8FC 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Get the scancode from the keyboard port;; Parameters: none; Returns: acca = scancode; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdGetScancode:00FFE8FD 04F clra00FFE8FE 0150F6FFFE30400 ldb KEYBD ; get the scan code00FFE903 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)00FFE908 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Set the LEDs on the keyboard.;; Parameters: d LED status to set; Returns: none; Modifies: none; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdSetLED:00FFE909 034004 pshs b00FFE90B 0C60ED ldb #$ED ; set LEDs command00FFE90D 08DF8A bsr KeybdSendByte00FFE90F 08DF8E bsr KeybdWaitTx00FFE911 08DF6D bsr KeybdRecvByte ; should be an ack00FFE913 035004 puls b00FFE915 08DF82 bsr KeybdSendByte00FFE917 08DF86 bsr KeybdWaitTx00FFE919 08DF65 bsr KeybdRecvByte ; should be an ack00FFE91B 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Get ID - get the keyboards identifier code.;; Parameters: none; Returns: d = $AB83, $00 on fail; Modifies: d, KeybdID updated; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdGetID:00FFE91C 0C60F2 ldb #$F200FFE91E 08DF79 bsr KeybdSendByte00FFE920 08DF7D bsr KeybdWaitTx00FFE922 08DF5C bsr KeybdRecvByte00FFE924 0C5080 bitb #$8000FFE926 026014 bne kgnotKbd00FFE928 0C10AB cmpb #$AB00FFE92A 026010 bne kgnotKbd00FFE92C 08DF52 bsr KeybdRecvByte00FFE92E 0C5080 bitb #$8000FFE930 02600A bne kgnotKbd00FFE932 0C1083 cmpb #$8300FFE934 026006 bne kgnotKbd00FFE936 0CC00AB83 ldd #$AB83kgid1:00FFE939 0DD124 std KeybdID00FFE93B 039 rtskgnotKbd:00FFE93C 04F clra00FFE93D 05F clrb00FFE93E 020FF9 bra kgid1; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Initialize the keyboard.;; Parameters:; none; Modifies:; none; Returns:; none; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdInit:00FFE940 034026 pshs d,y00FFE942 18E000005 ldy #500FFE945 00F120 clr KeyState1 ; records key up/down state00FFE947 00F121 clr KeyState2 ; records shift,ctrl,alt statekbdi0002:00FFE949 08DF6E bsr Wait10ms00FFE94B 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)00FFE950 0C6FFF ldb #-1 ; send reset code to keyboard00FFE952 0150F7FFFE30401 stb KEYBD+1 ; write $FF to status reg to clear TX state00FFE957 08DF40 bsr KeybdSendByte ; now write to transmit register00FFE959 08DF44 bsr KeybdWaitTx ; wait until no longer busy00FFE95B 08DF23 bsr KeybdRecvByte ; look for an ACK ($FA)00FFE95D 0C10FA cmpb #$FA00FFE95F 026021 bne kbdiTryAgain00FFE961 08DF1D bsr KeybdRecvByte ; look for BAT completion code ($AA)00FFE963 0C10FC cmpb #$FC ; reset error ?00FFE965 02701B beq kbdiTryAgain00FFE967 0C10AA cmpb #$AA ; reset complete okay ?00FFE969 026017 bne kbdiTryAgain; After a reset, scan code set #2 should be active.config:00FFE96B 0C60F0 ldb #$F0 ; send scan code select00FFE96D 0150F7FFFE60001 stb LEDS00FFE972 08DF25 bsr KeybdSendByte00FFE974 08DF29 bsr KeybdWaitTx00FFE976 05D tstb00FFE977 02B009 bmi kbdiTryAgain00FFE979 08DF05 bsr KeybdRecvByte ; wait for response from keyboard00FFE97B 04D tsta00FFE97C 02B004 bmi kbdiTryAgain00FFE97E 0C10FA cmpb #$FA ; ACK00FFE980 02700C beq kbdi0004kbdiTryAgain:00FFE982 0313FF dey00FFE984 026FC3 bne kbdi0002.keybdErr:00FFE986 0CCFFE9AE ldd #msgBadKeybd00FFE989 017FFFA4A lbsr DisplayStringCRLF*** warning 1: Long branch within short branch range could be optimized00FFE98C 020014 bra ledxitkbdi0004:00FFE98E 0C6002 ldb #2 ; select scan code set #200FFE990 08DF07 bsr KeybdSendByte00FFE992 08DF0B bsr KeybdWaitTx00FFE994 05D tstb00FFE995 02BFEB bmi kbdiTryAgain00FFE997 08DEE7 bsr KeybdRecvByte ; wait for response from keyboard00FFE999 04D tsta00FFE99A 02BFE6 bmi kbdiTryAgain00FFE99C 0C10FA cmpb #$FA00FFE99E 026FE2 bne kbdiTryAgain00FFE9A0 08DF7A bsr KeybdGetIDledxit:00FFE9A2 0C6007 ldb #$0700FFE9A4 08DF63 bsr KeybdSetLED00FFE9A6 08DF25 bsr Wait300ms00FFE9A8 0C6000 ldb #$0000FFE9AA 08DF5D bsr KeybdSetLED00FFE9AC 0350A6 puls d,y,pcmsgBadKeybd:00FFE9AE 04B06507906206F061072 fcb "Keyboard error",000FFE9B5 06402006507207206F07200FFE9BC 000;------------------------------------------------------------------------------; Calculate number of character in input buffer;; Parameters:; y = $Cn00000 where n is core id; Returns:; d = number of bytes in buffer.;------------------------------------------------------------------------------kbdRcvCount:00FFE9BD 04F clra00FFE9BE 0E6A08128 ldb kbdTailRcv,y00FFE9C1 0E0A08127 subb kbdHeadRcv,y00FFE9C4 02C008 bge krcXit00FFE9C6 0C6040 ldb #$4000FFE9C8 0E0A08127 subb kbdHeadRcv,y00FFE9CB 0EBA08128 addb kbdTailRcv,ykrcXit:00FFE9CE 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdIRQ:00FFE9CF 0150B6FFFE30401 lda KEYBD+1 ; check status00FFE9D4 085080 bita #$80 ; was key pressed?00FFE9D6 027034 beq notKbdIRQ ; if not, exit00FFE9D8 0150F6FFFE30400 ldb KEYBD ; get the scan code00FFE9DD 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)00FFE9E2 034004 pshs b ; save it off00FFE9E4 0B6FFC010 lda IOFocusID ; compute core memory address $Cn000000FFE9E7 05F clrb00FFE9E8 048 asla00FFE9E9 048 asla00FFE9EA 048 asla00FFE9EB 048 asla00FFE9EC 08AC00 ora #$C00 ; address $Cn000000FFE9EE 01F002 tfr d,y ; y =00FFE9F0 08DFCB bsr kbdRcvCount ; get count of scan codes in buffer00FFE9F2 0C1040 cmpb #64 ; check if buffer full?00FFE9F4 024017 bhs kbdBufFull ; if buffer full, ignore new keystroke00FFE9F6 01F021 tfr y,x ; compute fifo address00FFE9F8 0E6A08128 ldb kbdTailRcv,y ; b = buffer index00FFE9FB 035002 puls a ; get back scancode00FFE9FD 030040 leax kbdFifo,x ; x = base address for fifo00FFE9FF 0A7845 sta b,x ; store in buffer00FFEA01 05C incb ; increment buffer index00FFEA02 0C403F andb #$3f ; wrap around at 64 chars00FFEA04 0E7A08128 stb kbdTailRcv,y ; update it00FFEA07 08601C lda #28 ; Keyboard is IRQ #2800FFEA09 0B7FFC011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()notKbdIRQ:00FFEA0C 039 rtskbdBufFull:00FFEA0D 032601 leas 1,s ; get rid of saved scancode00FFEA0F 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -DBGCheckForKey:00FFEA10 020ECF bra KeybdGetStatus; KeyState2 variable bit meanings;1176543210; ||||||||+ = shift; |||||||+- = alt; ||||||+-- = control; |||||+--- = numlock; ||||+---- = capslock; |||+----- = scrolllock; ||+------ = <empty>; |+------- = "; | = "; | = "; | = "; +-------- = extended; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Keyboard get routine.;; The routine may get characters directly from the scancode input or less; directly from the scancode buffer, if things are interrupt driven.;; Parameters:; b: bit 11 = blocking status 1=blocking, 0=non blocking; b: bit 1 = scancode source 1=scancode buffer, 0=direct; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -GetKey:00FFEA12 034030 pshs x,y00FFEA14 0D7126 stb KeybdBlock ; save off blocking statusdbgk2:00FFEA16 0D6126 ldb KeybdBlock00FFEA18 034004 pshs b00FFEA1A 0C5001 bitb #1 ; what is the scancode source00FFEA1C 02701A beq dbgk20 ; branch if direct read00FFEA1E 0150B6FFFFFFFE0 lda COREID ; compute core memory address00FFEA23 05F clrb00FFEA24 048 asla00FFEA25 048 asla00FFEA26 048 asla00FFEA27 048 asla00FFEA28 08AC00 ora #$C0000FFEA2A 01F002 tfr d,y ; y = $Cn000000FFEA2C 08DF8F bsr kbdRcvCount00FFEA2E 05D tstb ; anything in buffer?00FFEA2F 035004 puls b00FFEA31 026018 bne dbgk1 ; branch if something in buffer00FFEA33 05D tstb00FFEA34 02BFE0 bmi dbgk2 ; if no key and blocking - loop00FFEA36 02000E bra dbgk24dbgk20:00FFEA38 18E000000 ldy #000FFEA3B 08DEA4 bsr KeybdGetStatus00FFEA3D 0C4080 andb #$80 ; is key available?00FFEA3F 035004 puls b00FFEA41 026008 bne dbgk1 ; branch if key00FFEA43 05D tstb ; block?00FFEA44 02BFD0 bmi dbgk2 ; If no key and blocking - loopdbgk24:00FFEA46 0CCFFFFFF ldd #-1 ; return -1 if no block and no key00FFEA49 0350B0 puls x,y,pcdbgk1:00FFEA4B 18C000000 cmpy #000FFEA4E 026004 bne dbgk2200FFEA50 08DEAB bsr KeybdGetScancode ; get scancode directly00FFEA52 020011 bra dbgk23dbgk22:; Retrieve value from scancode buffer00FFEA54 01F021 tfr y,x00FFEA56 030040 leax kbdFifo,x ; x = fifo address00FFEA58 0E6A08127 ldb kbdHeadRcv,y ; b = buffer index00FFEA5B 0A6A0D lda b,x ; get the scancode00FFEA5D 05C incb ; increment fifo index00FFEA5E 0C403F andb #$3f ; and wrap around00FFEA60 0E7A08127 stb kbdHeadRcv,y ; save it back00FFEA63 01F089 tfr a,b ; the scancode is needed in accbdbgk23:; lbsr DispByteAsHex; Make sure there is a small delay between scancode reads00FFEA65 08E000014 ldx #20dbgk3:00FFEA68 0301FF dex00FFEA6A 026FFC bne dbgk3; switch on scan code00FFEA6C 0C10F0 cmpb #SC_KEYUP00FFEA6E 026004 bne dbgk400FFEA70 0D7120 stb KeyState1 ; make KeyState1 <> 000FFEA72 020FA2 bra dbgk2 ; loop backdbgk4:00FFEA74 0C10E0 cmpb #SC_EXTEND00FFEA76 026008 bne dbgk500FFEA78 096121 lda KeyState200FFEA7A 08A800 ora #$80000FFEA7C 097121 sta KeyState200FFEA7E 020F96 bra dbgk2dbgk5:00FFEA80 0C1014 cmpb #SC_CTRL00FFEA82 026016 bne dbgkNotCtrl00FFEA84 00D120 tst KeyState100FFEA86 026008 bne dbgk700FFEA88 096121 lda KeyState200FFEA8A 08A004 ora #400FFEA8C 097121 sta KeyState200FFEA8E 020006 bra dbgk8dbgk7:00FFEA90 096121 lda KeyState200FFEA92 084FFB anda #~400FFEA94 097121 sta KeyState2dbgk8:00FFEA96 00F120 clr KeyState100FFEA98 020F7C bra dbgk2dbgkNotCtrl:00FFEA9A 0C1059 cmpb #SC_RSHIFT00FFEA9C 026016 bne dbgkNotRshift00FFEA9E 00D120 tst KeyState100FFEAA0 026008 bne dbgk900FFEAA2 096121 lda KeyState200FFEAA4 08A001 ora #100FFEAA6 097121 sta KeyState200FFEAA8 020006 bra dbgk10dbgk9:00FFEAAA 096121 lda KeyState200FFEAAC 084FFE anda #~100FFEAAE 097121 sta KeyState2dbgk10:00FFEAB0 00F120 clr KeyState100FFEAB2 020F62 bra dbgk2dbgkNotRshift:00FFEAB4 0C1077 cmpb #SC_NUMLOCK00FFEAB6 026013 bne dbgkNotNumlock00FFEAB8 096121 lda KeyState200FFEABA 088010 eora #1600FFEABC 097121 sta KeyState200FFEABE 096122 lda KeyLED00FFEAC0 088002 eora #200FFEAC2 097122 sta KeyLED00FFEAC4 01F089 tfr a,b00FFEAC6 04F clra00FFEAC7 08DE40 bsr KeybdSetLED00FFEAC9 020F4B bra dbgk2dbgkNotNumlock:00FFEACB 0C1058 cmpb #SC_CAPSLOCK00FFEACD 026013 bne dbgkNotCapslock00FFEACF 096121 lda KeyState200FFEAD1 088020 eora #3200FFEAD3 097121 sta KeyState200FFEAD5 096122 lda KeyLED00FFEAD7 088004 eora #400FFEAD9 097122 sta KeyLED00FFEADB 01F089 tfr a,b00FFEADD 04F clra00FFEADE 08DE29 bsr KeybdSetLED00FFEAE0 020F34 bra dbgk2dbgkNotCapslock:00FFEAE2 0C107E cmpb #SC_SCROLLLOCK00FFEAE4 026013 bne dbgkNotScrolllock00FFEAE6 096121 lda KeyState200FFEAE8 088040 eora #6400FFEAEA 097121 sta KeyState200FFEAEC 096122 lda KeyLED00FFEAEE 088001 eora #100FFEAF0 097122 sta KeyLED00FFEAF2 01F089 tfr a,b00FFEAF4 04F clra00FFEAF5 08DE12 bsr KeybdSetLED00FFEAF7 020F1D bra dbgk2dbgkNotScrolllock:00FFEAF9 0C1011 cmpb #SC_ALT00FFEAFB 026016 bne dbgkNotAlt00FFEAFD 00D120 tst KeyState100FFEAFF 026008 bne dbgk1100FFEB01 096121 lda KeyState200FFEB03 08A002 ora #200FFEB05 097121 sta KeyState200FFEB07 020006 bra dbgk12dbgk11:00FFEB09 096121 lda KeyState200FFEB0B 084FFD anda #~200FFEB0D 097121 sta KeyState2dbgk12:00FFEB0F 00F120 clr KeyState100FFEB11 020F03 bra dbgk2dbgkNotAlt:00FFEB13 00D120 tst KeyState100FFEB15 027004 beq dbgk1300FFEB17 00F120 clr KeyState100FFEB19 020EFB bra dbgk2dbgk13:00FFEB1B 096121 lda KeyState2 ; Check for CTRL-ALT-DEL00FFEB1D 084006 anda #600FFEB1F 081006 cmpa #600FFEB21 026008 bne dbgk1400FFEB23 0C1071 cmpb #SC_DEL00FFEB25 026004 bne dbgk1400FFEB27 06E90FFFFFFC jmp [$FFFFFC] ; jump to NMI vectordbgk14:00FFEB2B 00D121 tst KeyState2 ; extended code?00FFEB2D 02A00B bpl dbgk1500FFEB2F 096121 lda KeyState200FFEB31 0847FF anda #$7FF00FFEB33 097121 sta KeyState200FFEB35 08EFFE800 ldx #keybdExtendedCodes00FFEB38 020017 bra dbgk18dbgk15:00FFEB3A 096121 lda KeyState2 ; Is CTRL down?00FFEB3C 085004 bita #400FFEB3E 027005 beq dbgk1600FFEB40 08EFFE780 ldx #keybdControlCodes00FFEB43 02000C bra dbgk18dbgk16:00FFEB45 085001 bita #1 ; Is shift down?00FFEB47 027005 beq dbgk1700FFEB49 08EFFE680 ldx #shiftedScanCodes00FFEB4C 020003 bra dbgk18dbgk17:00FFEB4E 08EFFE580 ldx #unshiftedScanCodesdbgk18:00FFEB51 0E690FFFE580 ldb b,x ; load accb with ascii from table00FFEB55 04F clra00FFEB56 0350B0 puls x,y,pc ; and return00FFEB58 04B04505904204F041052 fcb "KEYBOARD"00FFEB5F 04400FFEB60 FFEB6A fcw KeybdOpen00FFEB62 FFEB6B fcw KeybdClose00FFEB64 FFEB6C fcw KeybdRead00FFEB66 FFEB6D fcw KeybdWrite00FFEB68 FFEB6E fcw KeybdSeek; Keyboard Open:; Initialize the keyboard buffer head and tail indexes;KeybdOpen:00FFEB6A 039 rts; Keyboard Close:; Nothing to do except maybe clear the keyboard buffer;KeybdClose:00FFEB6B 039 rts;KeybdRead:00FFEB6C 039 rts;KeybdWrite:00FFEB6D 039 rtsKeybdSeek:00FFEB6E 039 rts;==============================================================================; Serial I/O;==============================================================================; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; Serial port routines for a WDC6551 compatible circuit.;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;;------------------------------------------------------------------------------; Initialize serial port.;; Clear buffer indexes. Two bytes are used for the buffer index even though; only a single byte is needed. This is for convenience in calculating the; number of characters in the buffer, done later. The upper byte remains at; zero.; The port is initialized for 9600 baud, 1 stop bit and 8 bits data sent.; The internal baud rate generator is used.;; Parameters:; none; Modifies:; d; Returns:; none;------------------------------------------------------------------------------InitSerial:SerialInit:00FFEB6F 04F clra00FFEB70 05F clrb00FFEB71 0DD130 std SerHeadRcv-100FFEB73 0DD132 std SerTailRcv-100FFEB75 0DD135 std SerHeadXmit-100FFEB77 0DD137 std SerTailXmit-100FFEB79 00F139 clr SerRcvXon00FFEB7B 00F140 clr SerRcvXoff00FFEB7D 0150B6FFFFFFFE0 lda COREIDsini1:00FFEB82 0B1FFC010 cmpa IOFocusID00FFEB85 026FFB bne sini100FFEB87 0C6009 ldb #$09 ; dtr,rts active, rxint enabled, no parity00FFEB89 0150F7FFFE30102 stb ACIA+ACIA_CMD00FFEB8E 0C601F ldb #$1F ; baud 9600, 1 stop bit, 8 bit, internal baud gen00FFEB90 0150F7FFFE30103 stb ACIA+ACIA_CTRL00FFEB95 0C60A6 ldb #$0A6 ; diable fifos, reset fifos00FFEB97 0150F7FFFE3010B stb ACIA+ACIA_CTRL200FFEB9C 039 rts;------------------------------------------------------------------------------; SerialGetChar;; Check the serial port buffer to see if there's a char available. If there's; a char available then return it. If the buffer is almost empty then send an; XON.;; Stack Space:; 2 words; Parameters:; none; Modifies:; none; Returns:; d = character or -1;------------------------------------------------------------------------------SerialGetChar:00FFEB9D 034030 pshs x,y00FFEB9F 18E000000 ldy #000FFEBA2 01A010 sei ; disable interrupts00FFEBA4 08D082 bsr SerialRcvCount ; check number of chars in receive buffer00FFEBA6 0C1008 cmpb #8 ; less than 8?00FFEBA8 02200C bhi sgc200FFEBAA 0D6139 ldb SerRcvXon ; skip sending XON if already sent00FFEBAC 026008 bne sgc2 ; XON already sent?00FFEBAE 0C6011 ldb #XON ; if <8 send an XON00FFEBB0 00F140 clr SerRcvXoff ; clear XOFF status00FFEBB2 0D7139 stb SerRcvXon ; flag so we don't send it multiple times00FFEBB4 08D052 bsr SerialPutCharsgc2:00FFEBB6 0D6131 ldb SerHeadRcv ; check if anything is in buffer00FFEBB8 0D1133 cmpb SerTailRcv00FFEBBA 02700A beq sgcNoChars ; no?00FFEBBC 08EBFF000 ldx #SerRcvBuf00FFEBBF 04F clra00FFEBC0 0E6835 ldb b,x ; get byte from buffer00FFEBC2 00C131 inc SerHeadRcv ; 4k wrap around00FFEBC4 020003 bra sgcXitsgcNoChars:00FFEBC6 0CCFFFFFF ldd #-1sgcXit:00FFEBC9 01C0EF cli00FFEBCB 0350B0 puls x,y,pc;------------------------------------------------------------------------------; SerialPeekChar;; Check the serial port buffer to see if there's a char available. If there's; a char available then return it. But don't update the buffer indexes. No need; to send an XON here.;; Stack Space:; 0 words; Parameters:; none; Modifies:; none; Returns:; d = character or -1;------------------------------------------------------------------------------SerialPeekChar:00FFEBCD 034011 pshs x,ccr00FFEBCF 01A010 sei00FFEBD1 0D6131 ldb SerHeadRcv ; check if anything is in buffer00FFEBD3 0D1133 cmpb SerTailRcv00FFEBD5 027008 beq spcNoChars ; no?00FFEBD7 08EBFF000 ldx #SerRcvBuf00FFEBDA 04F clra00FFEBDB 0E6815 ldb b,x ; get byte from buffer00FFEBDD 020003 bra spcXitspcNoChars:00FFEBDF 0CCFFFFFF ldd #-1spcXit:00FFEBE2 035091 puls x,ccr,pc;------------------------------------------------------------------------------; SerialPeekChar; Get a character directly from the I/O port. This bypasses the input; buffer.;; Stack Space:; 0 words; Parameters:; none; Modifies:; d; Returns:; d = character or -1;------------------------------------------------------------------------------SerialPeekCharDirect:00FFEBE4 0150B6FFFFFFFE0 lda COREID ; Ensure we have the IO Focus00FFEBE9 0B1FFC010 cmpa IOFocusID00FFEBEC 026014 bne spcd0001; Disallow interrupts between status read and rx read.00FFEBEE 01A010 sei00FFEBF0 0150F6FFFE30101 ldb ACIA+ACIA_STAT00FFEBF5 0C5008 bitb #8 ; look for Rx not empty00FFEBF7 027009 beq spcd000100FFEBF9 04F clra00FFEBFA 0150F6FFFE30100 ldb ACIA+ACIA_RX00FFEBFF 01C0EF cli00FFEC01 039 rtsspcd0001:00FFEC02 0CCFFFFFF ldd #-100FFEC05 01C0EF cli00FFEC07 039 rts;------------------------------------------------------------------------------; SerialPutChar; Put a character to the serial transmitter. This routine blocks until the; transmitter is empty.;; Stack Space; 0 words; Parameters:; b = character to put; Modifies:; none;------------------------------------------------------------------------------SerialPutChar:00FFEC08 034003 pshs a,ccrspc0001:00FFEC0A 0150B6FFFFFFFE0 lda COREID ; Ensure we have the IO Focus00FFEC0F 0B1FFC010 cmpa IOFocusID00FFEC12 026FF6 bne spc000100FFEC14 01C0EF cli ; provide a window for an interrupt to occur00FFEC16 01A010 sei; Between the status read and the transmit do not allow an; intervening interrupt.00FFEC18 0150B6FFFE30101 lda ACIA+ACIA_STAT ; wait until the uart indicates tx empty00FFEC1D 085010 bita #16 ; bit #4 of the status reg00FFEC1F 027FE9 beq spc0001 ; branch if transmitter is not empty00FFEC21 0150F7FFFE30100 stb ACIA+ACIA_TX ; send the byte00FFEC26 035083 puls a,ccr,pc;------------------------------------------------------------------------------; Calculate number of character in input buffer;; Parameters:; y = 0 if current core, otherwise reference to core memory area $Cyxxxx; Returns:; d = number of bytes in buffer.;------------------------------------------------------------------------------SerialRcvCount:00FFEC28 04F clra00FFEC29 0E6A08133 ldb SerTailRcv,y00FFEC2C 0E0A08131 subb SerHeadRcv,y00FFEC2F 02C009 bge srcXit00FFEC31 0CC001000 ldd #$100000FFEC34 0A3A08131 subd SerHeadRcv,y00FFEC37 0E3A08133 addd SerTailRcv,ysrcXit:00FFEC3A 039 rts;------------------------------------------------------------------------------; Serial IRQ routine;; Keeps looping as long as it finds characters in the ACIA recieve buffer/fifo.; Received characters are buffered. If the buffer becomes full, new characters; will be lost.;; Parameters:; none; Modifies:; d,x; Returns:; none;------------------------------------------------------------------------------SerialIRQ:sirqNxtByte:00FFEC3B 0150F6FFFE30101 ldb ACIA+ACIA_STAT ; check the status00FFEC40 0C5008 bitb #$08 ; bit 3 = rx full00FFEC42 027049 beq notRxInt00FFEC44 0150F6FFFE30100 ldb ACIA+ACIA_RX ; get data from Rx buffer to clear interrupt00FFEC49 0C1014 cmpb #CTRLT ; detect special keystroke00FFEC4B 026000 bne sirq0001; bsr DumpTraceQueuesirq0001:00FFEC4D 034004 pshs b; Compute receive buffer address00FFEC4F 0B6FFC010 lda IOFocusID00FFEC52 048 asla00FFEC53 048 asla00FFEC54 048 asla00FFEC55 048 asla00FFEC56 08AC00 ora #$C0000FFEC58 05F clrb00FFEC59 01F002 tfr d,y00FFEC5B 035004 puls b00FFEC5D 0A6A08133 lda SerTailRcv,y ; check if recieve buffer full00FFEC60 04C inca00FFEC61 0A1A08131 cmpa SerHeadRcv,y00FFEC64 027027 beq sirqRxFull00FFEC66 0A7A08133 sta SerTailRcv,y ; update tail pointer00FFEC69 04A deca ; backup00FFEC6A 01E089 exg a,b00FFEC6C 030A0A000BFF000 leax SerRcvBuf,y ; x = buffer address00FFEC71 0A7A0F sta b,x ; store recieved byte in buffer00FFEC73 06DA08140 tst SerRcvXoff,y ; check if xoff already sent00FFEC76 026FC3 bne sirqNxtByte00FFEC78 08DFAE bsr SerialRcvCount ; if more than 4080 chars in buffer00FFEC7A 0C1FF0 cmpb #408000FFEC7C 025FBD blo sirqNxtByte00FFEC7E 0C6013 ldb #XOFF ; send an XOFF00FFEC80 06FA08139 clr SerRcvXon,y ; clear XON status00FFEC83 0E7A08140 stb SerRcvXoff,y ; set XOFF status00FFEC86 0150F7FFFE30100 stb ACIA+ACIA_TX00FFEC8B 020FAE bra sirqNxtByte ; check the status for another bytesirqRxFull:notRxInt:00FFEC8D 039 rtsnmeSerial:00FFEC8E 05306507206906106C000 fcb "Serial",0;------------------------------------------------------------------------------; Put a string to the serial port.;; Parameters:; d = pointer to string; Modifies:; none; Returns:; none;------------------------------------------------------------------------------SerialPutString:00FFEC95 034016 pshs d,x00FFEC97 01F001 tfr d,xsps2:00FFEC99 0E6804 ldb ,x00FFEC9B 027006 beq spsXit00FFEC9D 030001 inx00FFEC9F 08DF67 bsr SerialPutChar00FFECA1 020FF6 bra sps2spsXit:00FFECA3 035096 puls d,x,pc;------------------------------------------------------------------------------; A little routine to test serial output.;; Parameters:; none; Modifies:; none; Returns:; none;------------------------------------------------------------------------------SerialOutputTest:00FFECA5 034006 pshs d00FFECA7 0CCFFECC5 ldd #msgSerialTest00FFECAA 017FFF712 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFECAD 08DEC0 bsr SerialInitsotst1:00FFECAF 0C6011 ldb #XON00FFECB1 08DF55 bsr SerialPutChar00FFECB3 08DF53 bsr SerialPutChar00FFECB5 08DF51 bsr SerialPutChar00FFECB7 0CCFFECC5 ldd #msgSerialTest00FFECBA 08DFD9 bsr SerialPutString00FFECBC 01700001B lbsr INCH00FFECBF 0C1003 cmpb #CTRLC00FFECC1 026FEC bne sotst100FFECC3 035086 puls d,pcmsgSerialTest:00FFECC5 05306507206906106C020 fcb "Serial port test",CR,LF,000FFECCC 07006F07207402007406500FFECD3 07307400D00A000;------------------------------------------------------------------------------; Check if there is a keyboard character available. If so return true (<0); otherwise return false (0) in accb.;------------------------------------------------------------------------------;KeybdCheckForKeyDirect:00FFECD8 020D36 bra DBGCheckForKey;------------------------------------------------------------------------------;------------------------------------------------------------------------------INCH:00FFECDA 034004 pshs bINCH2:00FFECDC 0150F6FFFFFFFE0 ldb COREID00FFECE1 0F1FFC010 cmpb IOFocusID ; if we do not have focus, block00FFECE4 026FF6 bne INCH2; ldb #$800 ; block if no key available, get scancode directly; bra GetKey; jsr [CharInVec] ; vector is being overwritten somehow00FFECE6 017FFFEFB lbsr SerialPeekCharDirect*** warning 1: Long branch within short branch range could be optimized00FFECE9 04D tsta00FFECEA 02B003 bmi INCH1 ; block if no key available00FFECEC 032601 leas 1,s ; get rid of blocking status00FFECEE 039 rtsINCH1:00FFECEF 035004 puls b ; check blocking status00FFECF1 05D tstb00FFECF2 02BFE6 bmi INCH ; if blocking, loop00FFECF4 0CCFFFFFF ldd #-1 ; return -1 if no char available00FFECF7 039 rtsINCHE:00FFECF8 08DFE0 bsr INCH00FFECFA 020009 bra INCHEK3INCHEK:00FFECFC 08DFDC bsr INCH00FFECFE 01507DFFFFFCA00 tst KeybdEcho00FFED03 02700C beq INCHEK1INCHEK3:00FFED05 08100D cmpa #CR00FFED07 026005 bne INCHEK200FFED09 017FFE3C6 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFED0C 020003 bra INCHEK1INCHEK2:00FFED0E 017FFF5ED lbsr DisplayChar*** warning 1: Long branch within short branch range could be optimizedINCHEK1:00FFED11 039 rtsOUTCH:00FFED12 06E90F000800 jmp [CharOutVec];------------------------------------------------------------------------------; r1 0=echo off, non-zero = echo on;------------------------------------------------------------------------------;SetKeyboardEcho:00FFED16 0150F7FFFFFCA00 stb KeybdEcho00FFED1B 039 rts;------------------------------------------------------------------------------; Parameters:; x,d bitmap of sprites to enable;------------------------------------------------------------------------------ShowSprites:00FFED1C 0150BFFFFE103C0 stx SPRITE_CTRL+SPRITE_EN00FFED21 0150FDFFFE103C2 std SPRITE_CTRL+SPRITE_EN+200FFED26 039 rts;==============================================================================; Femtiki Operating System.;==============================================================================OSCallTbl:00FFED27 000000 fcw 000FFED29 000000 fcw 000FFED2B 000000 fcw 000FFED2D 000000 fcw 000FFED2F 000000 fcw 000FFED31 000000 fcw 000FFED33 000000 fcw 000FFED35 000000 fcw 000FFED37 000000 fcw 000FFED39 000000 fcw 000FFED3B 000000 fcw 000FFED3D 000000 fcw 000FFED3F 000000 fcw 000FFED41 000000 fcw 000FFED43 000000 fcw 000FFED45 000000 fcw 000FFED47 000000 fcw 000FFED49 000000 fcw 000FFED4B 000000 fcw 000FFED4D 000000 fcw 000FFED4F 000000 fcw 000FFED51 000000 fcw 000FFED53 FFED70 fcw ReleaseIOFocus00FFED55 000000 fcw 000FFED57 FFED59 fcw RequestIOFocusNumOSFuncs EQU (*-OSCallTbl)/2RequestIOFocus:00FFED59 0150F6FFFFFFFE0 ldb COREID00FFED5E 08EFFC000 ldx #IOFocusList00FFED61 03A abx00FFED62 0A7804 sta ,x00FFED64 07DFFC010 tst IOFocusID00FFED67 1260006FF lbne oscx00FFED6A 0F7FFC010 stb IOFocusID00FFED6D 0160006F9 lbra oscxReleaseIOFocus:00FFED70 0150F6FFFFFFFE0 ldb COREID00FFED75 08EFFC000 ldx #IOFocusList00FFED78 03A abx00FFED79 06F804 clr ,x ; clear the request indicator00FFED7B 017FFF480 lbsr CopyScreenToVirtualScreen*** warning 1: Long branch within short branch range could be optimized00FFED7E 0F1FFC010 cmpb IOFocusID ; are we the one with the focus?00FFED81 1260006E5 lbne oscx; We had the focus, so now a new core needs the focus.; Search the focus list for a requestor. If no requester; is found, give focus to core #1.00FFED84 08600F lda #15riof2:00FFED86 05C incb00FFED87 0C400F andb #1500FFED89 03A abx00FFED8A 06D804 tst ,x00FFED8C 026009 bne riof100FFED8E 04A deca00FFED8F 026FF5 bne riof2; If no focus is requested by anyone, give to core #100FFED91 0C6001 ldb #100FFED93 086018 lda #2400FFED95 0A7804 sta ,xriof1:00FFED97 0F7FFC010 stb IOFocusID00FFED9A 017FFF42A lbsr CopyVirtualScreenToScreen*** warning 1: Long branch within short branch range could be optimized00FFED9D 0160006C9 lbra oscx;==============================================================================;==============================================================================;------------------------------------------------------------------------------; Seed the random number generator. All channels are seeded with the same; value.;; Parameters:; d = 'z' part of seed; x = 'w' part of seed; Returns:; none;------------------------------------------------------------------------------mon_srand:00FFEDA0 18E000000 ldy #0mon_srand1:00FFEDA3 0151BFFFFE30604 sty PRNG+4 ; select channel00FFEDA8 01507FFFFE30608 clr PRNG+800FFEDAD 01507FFFFE30609 clr PRNG+900FFEDB2 0150FDFFFE3060A std PRNG+10 ; update low half of value00FFEDB7 01507FFFFE3060C clr PRNG+1200FFEDBC 01507FFFFE3060D clr PRNG+1300FFEDC1 0150BFFFFE3060E stx PRNG+14 ; update low half of value00FFEDC6 031201 iny00FFEDC8 18C000400 cmpy #$400 ; 1k channels00FFEDCB 025FD6 blo mon_srand100FFEDCD 039 rts;------------------------------------------------------------------------------; Get a random number and generate the next one.;; Parameters:; d = channel to use; Returns:; x,d = 36 bit random value;------------------------------------------------------------------------------mon_rand:00FFEDCE 0150FDFFFE30604 std PRNG+4 ; select channel00FFEDD3 0150BEFFFE30600 ldx PRNG+000FFEDD8 0150FCFFFE30602 ldd PRNG+200FFEDDD 0150F7FFFE30603 stb PRNG+3 ; trigger calc of next number00FFEDE2 039 rts;==============================================================================; System Monitor;==============================================================================; Command TablecmdTable1:00FFEDE3 03C83E fcb '<','>'+$80000FFEDE5 062873 fcb 'b','s'+$80000FFEDE7 062863 fcb 'b','c'+$80000FFEDE9 044852 fcb 'D','R'+$80000FFEDEB 844 fcb 'D'+$80000FFEDEC 83A fcb ':'+$80000FFEDED 046049847 fcb "FI",'G'+$80000FFEDF0 04604984C fcb "FI",'L'+$80000FFEDF3 04684C fcb 'F','L'+$80000FFEDF5 84A fcb 'J'+$80000FFEDF6 05204104D054045053854 fcb "RAMTES",'T'+$80000FFEDFD 053050844 fcb "SP",'D'+$80000FFEE00 054049852 fcb "TI",'R'+$80000FFEE03 855 fcb 'U'+$80000FFEE04 065078069874 fcb "exi",'t'+$80000FFEE08 83F fcb '?'+$80000FFEE09 04304C853 fcb "CL",'S'+$80000FFEE0C 000000 fcw 0cmdTable2:00FFEE0E FFEF11 fcw Redirect00FFEE10 FFF4AC fcw ArmBreakpoint00FFEE12 FFF4D3 fcw DisarmBreakpoint00FFEE14 FFF2CF fcw DumpRegs00FFEE16 FFF209 fcw DumpMemory00FFEE18 FFF265 fcw EditMemory00FFEE1A FE0000 fcw $FE0000 ; FIG forth00FFEE1C FFF2A5 fcw FillMemory00FFEE1E FFF390 fcw DumpIOFocusList00FFEE20 FFF31A fcw jump_to_code00FFEE22 FFD443 fcw dramtest00FFEE24 FF8000 fcw $FF8000 ; sprite demo00FFEE26 FFE4D0 fcw rtc_read00FFEE28 FF8003 fcw $FF8003 ; unassembler00FFEE2A FFF451 fcw xitMonitor00FFEE2C FFEF37 fcw PromptHelp00FFEE2E FFEF3F fcw PromptClearscreenCmdPrompt:00FFEE30 017FFE29F lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFEE33 0C6024 ldb #'$'00FFEE35 017FFFEDA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFEE38 016FFFED7 lbra OUTCH*** warning 1: Long branch within short branch range could be optimizedmsgF09Starting:00FFEE3B 04606506D07406906B069 fcb "Femtiki F09 Multi-core OS Starting",CR,LF,000FFEE42 02004603003902004D07500FFEE49 06C07406902D06306F07200FFEE50 06502004F05302005307400FFEE57 06107207406906E06700D00FFEE5E 00A000MonitorStart:00FFEE60 07F000810 clr BreakpointFlag00FFEE63 07F000811 clr NumSetBreakpoints00FFEE66 0CC00007B ldd #12300FFEE69 08E00028E ldx #65400FFEE6C 017FFFF31 lbsr mon_srand*** warning 1: Long branch within short branch range could be optimized00FFEE6F 0CCFFEE3B ldd #msgF09Starting00FFEE72 017FFF54A lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFEE75 0CCFFF06E ldd #HelpMsg00FFEE78 017FFF544 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFEE7B 0CCFFEE30 ldd #CmdPrompt00FFEE7E 0FD000808 std CmdPromptJI00FFEE81 0CCFFF055 ldd #DisplayErr00FFEE84 0FD00080C std MonErrVec00FFEE87 0CC0063FF ldd #$63FF ; default app stack00FFEE8A 0FD000908 std mon_SSAVE00FFEE8D 07F00090E clr mon_DPRSAVE ;00FFEE90 01F0A8 tfr ccr,a00FFEE92 0B700090F sta mon_CCRSAVE00FFEE95 07F00090A clr mon_PCSAVE00FFEE98 0CCFFEEA7 ldd #Monitor00FFEE9B 0FD00090B std mon_PCSAVE+100FFEE9E 07F000902 clr mon_XSAVE00FFEEA1 07F000904 clr mon_YSAVE00FFEEA4 07F000906 clr mon_USAVEMonitor:00FFEEA7 03280F006FFF leas $6FFF ; reset stack pointer00FFEEAB 05F clrb ; turn off keyboard echo00FFEEAC 017FFFE67 lbsr SetKeyboardEcho*** warning 1: Long branch within short branch range could be optimized; Reset IO vectors00FFEEAF 0CCFFEBE4 ldd #SerialPeekCharDirect00FFEEB2 0FD000804 std CharInVec00FFEEB5 0CCFFE2FE ldd #DisplayChar00FFEEB8 0FD000800 std CharOutVec00FFEEBB 0CCFFEE30 ldd #CmdPrompt00FFEEBE 0FD000808 std CmdPromptJI; jsr RequestIOFocusPromptLn:00FFEEC1 0AD90F000808 jsr [CmdPromptJI]; Get characters until a CR is keyedPrompt3:00FFEEC5 0CCFFFFFF ldd #-1 ; block until key present00FFEEC8 017FFFE0F lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFEECB 0C100D cmpb #CR ; carriage return?00FFEECD 027005 beq Prompt100FFEECF 017FFFE40 lbsr OUTCH ; spit out the character*** warning 1: Long branch within short branch range could be optimized00FFEED2 020FF1 bra Prompt3 ; and keep going; Process the screen line that the CR was keyed on;Prompt1:00FFEED4 0CC005050 ldd #$505000FFEED7 0150FDFFFE60001 std LEDS; ldb RunningID; cmpb #61; bhi Prompt300FFEEDC 00F111 clr CursorCol ; go back to the start of the line00FFEEDE 017FFF3FA lbsr CalcScreenLoc ; calc screen memory location*** warning 1: Long branch within short branch range could be optimized00FFEEE1 01F002 tfr d,yskipDollar:00FFEEE3 08D067 bsr MonGetNonSpace00FFEEE5 0C1024 cmpb #'$'00FFEEE7 027FFA beq skipDollar ; skip over '$' prompt character; Dispatch based on command;00FFEEE9 0313FF dey00FFEEEB 01F023 tfr y,u ; save off input position00FFEEED 05F clrb00FFEEEE 08EFFEDE3 ldx #cmdTable1parseCmd1:00FFEEF1 0A6A00 lda ,y+ ; get input character00FFEEF3 06D804 tst ,x ; test for end of command00FFEEF5 02B00F bmi endOfWord ;00FFEEF7 0A1800 cmpa ,x+ ; does input match command?00FFEEF9 027FF6 beq parseCmd1scanNextWord:00FFEEFB 06D800 tst ,x+00FFEEFD 027FA8 beq Monitor ; if end of table reached, not a command00FFEEFF 02AFFA bpl scanNextWord00FFEF01 05C incb00FFEF02 01F032 tfr u,y ; reset input pointer00FFEF04 020FEB bra parseCmd1 ; try againendOfWord:00FFEF06 0A8804 eora ,x00FFEF08 048 asla00FFEF09 026FF0 bne scanNextWord; we found the command in the table00FFEF0B 058 aslb ; b = word index00FFEF0C 08EFFEE0E ldx #cmdTable200FFEF0F 06E905 jmp [b,x] ; execute commandRedirect:00FFEF11 08D034 bsr MonGetch00FFEF13 0C1073 cmpb #'s'00FFEF15 02600E bne Prompt2a00FFEF17 0CCFFEBE4 ldd #SerialPeekCharDirect00FFEF1A 0FD000804 std CharInVec00FFEF1D 0CCFFEC08 ldd #SerialPutChar00FFEF20 0FD000800 std CharOutVec00FFEF23 020F82 bra MonitorPrompt2a:00FFEF25 0C1063 cmpb #'c'00FFEF27 026F7E bne Monitor00FFEF29 0CCFFEA12 ldd #GetKey00FFEF2C 0FD000804 std CharInVec00FFEF2F 0CCFFE2FE ldd #DisplayChar00FFEF32 0FD000800 std CharOutVec00FFEF35 020F70 bra MonitorPromptHelp:00FFEF37 0CCFFF06E ldd #HelpMsg00FFEF3A 017FFF482 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFEF3D 020F68 bra MonitorPromptClearscreen:00FFEF3F 017FFF2EC lbsr ClearScreen*** warning 1: Long branch within short branch range could be optimized00FFEF42 017FFF35C lbsr HomeCursor*** warning 1: Long branch within short branch range could be optimized00FFEF45 020F60 bra MonitorMonGetch:00FFEF47 0E6A04 ldb ,y00FFEF49 031201 iny00FFEF4B 039 rtsMonGetNonSpace:00FFEF4C 08DFF9 bsr MonGetCh00FFEF4E 0C1020 cmpb #' '00FFEF50 027FFA beq MonGetNonSpace00FFEF52 039 rts;------------------------------------------------------------------------------; Ignore blanks in the input; Y = text pointer; D destroyed;------------------------------------------------------------------------------;ignBlanks:ignBlanks1:00FFEF53 08DFF2 bsr MonGetch00FFEF55 0C1020 cmpb #' '00FFEF57 027FFA beq ignBlanks100FFEF59 0313FF dey00FFEF5B 039 rts;------------------------------------------------------------------------------; Multiply number in work area by 10.;------------------------------------------------------------------------------Times10:00FFEF5C 0FC000910 ldd mon_numwka ; make a copy of the number00FFEF5F 0FD000918 std mon_numwka+800FFEF62 0FC000912 ldd mon_numwka+200FFEF65 0FD00091A std mon_numwka+1000FFEF68 078000913 asl mon_numwka+3 ; shift left = *200FFEF6B 079000912 rol mon_numwka+200FFEF6E 079000911 rol mon_numwka+100FFEF71 079000910 rol mon_numwka+000FFEF74 078000913 asl mon_numwka+3 ; shift left = *400FFEF77 079000912 rol mon_numwka+200FFEF7A 079000911 rol mon_numwka+100FFEF7D 079000910 rol mon_numwka+000FFEF80 0FC000912 ldd mon_numwka+2 ; add in original value00FFEF83 0F300091A addd mon_numwka+10 ; = *500FFEF86 0F6000911 ldb mon_numwka+100FFEF89 0F9000919 adcb mon_numwka+900FFEF8C 0F7000911 stb mon_numwka+100FFEF8F 0B6000910 lda mon_numwka+000FFEF92 0B9000918 adca mon_numwka+800FFEF95 0B7000910 sta mon_numwka+000FFEF98 078000913 asl mon_numwka+3 ; shift left = * 1000FFEF9B 079000912 rol mon_numwka+200FFEF9E 079000911 rol mon_numwka+100FFEFA1 079000910 rol mon_numwka+000FFEFA4 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------GetTwoParams:00FFEFA5 08DFAC bsr ignBlanks00FFEFA7 08D046 bsr GetHexNumber ; get start address of dump00FFEFA9 0FC000910 ldd mon_numwka00FFEFAC 0FD000920 std mon_r100FFEFAF 0FC000912 ldd mon_numwka+200FFEFB2 0FD000922 std mon_r1+200FFEFB5 08DF9C bsr ignBlanks00FFEFB7 08D036 bsr GetHexNumber ; get end address of dump00FFEFB9 0FC000910 ldd mon_numwka00FFEFBC 0FD000924 std mon_r200FFEFBF 0FC000912 ldd mon_numwka+200FFEFC2 0FD000926 std mon_r2+200FFEFC5 039 rts;------------------------------------------------------------------------------; Get a range, the end must be greater or equal to the start.;------------------------------------------------------------------------------GetRange:00FFEFC6 08DFDD bsr GetTwoParams00FFEFC8 0FC000926 ldd mon_r2+200FFEFCB 0B3000922 subd mon_r1+200FFEFCE 0FC000924 ldd mon_r200FFEFD1 0F2000921 sbcb mon_r1+100FFEFD4 0B2000920 sbca mon_r100FFEFD7 124000007 lbcc grng100FFEFDA 0AD90F00080C jsr [MonErrVec]00FFEFDE 016FFFEC6 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedgrng1:00FFEFE1 039 rtsshl_numwka:00FFEFE2 078000913 asl mon_numwka+300FFEFE5 079000912 rol mon_numwka+200FFEFE8 079000911 rol mon_numwka+100FFEFEB 079000910 rol mon_numwka00FFEFEE 039 rts;------------------------------------------------------------------------------; Get a hexidecimal number. Maximum of twelve digits.;; Modifies:; Y = text pointer (updated); D = number of digits; mon_numwka contains number;------------------------------------------------------------------------------;GetHexNumber:00FFEFEF 04F05F clrd00FFEFF1 0FD000910 std mon_numwka ; zero out work area00FFEFF4 0FD000912 std mon_numwka+200FFEFF7 034010 pshs x00FFEFF9 08E000000 ldx #0 ; max 12 eight digitsgthxn2:00FFEFFC 08DF49 bsr MonGetch00FFEFFE 08D01F bsr AsciiToHexNybble00FFF000 0C1FFF cmpb #-100FFF002 027017 beq gthxn100FFF004 08DFDC bsr shl_numwka00FFF006 08DFDA bsr shl_numwka00FFF008 08DFD8 bsr shl_numwka00FFF00A 08DFD6 bsr shl_numwka00FFF00C 0C400F andb #$0f00FFF00E 0FA000913 orb mon_numwka+300FFF011 0F7000913 stb mon_numwka+300FFF014 030001 inx00FFF016 08C00000C cmpx #1200FFF019 025FE1 blo gthxn2gthxn1:00FFF01B 01F010 tfr x,d00FFF01D 035090 puls x,pc;GetDecNumber:; phx; push r4; push r5; ldx #0; ld r4,#10; ld r5,#10;gtdcn2:; jsr MonGetch; jsr AsciiToDecNybble; cmp #-1; beq gtdcn1; mul r2,r2,r5; add r2,r1; dec r4; bne gtdcn2;gtdcn1:; txa; pop r5; pop r4; plx; rts;------------------------------------------------------------------------------; Convert ASCII character in the range '0' to '9', 'a' to 'f' or 'A' to 'F'; to a hex nybble.;------------------------------------------------------------------------------;AsciiToHexNybble:00FFF01F 0C1030 cmpb #'0'00FFF021 025021 blo gthx300FFF023 0C1039 cmpb #'9'00FFF025 022003 bhi gthx500FFF027 0C0030 subb #'0'00FFF029 039 rtsgthx5:00FFF02A 0C1041 cmpb #'A'00FFF02C 025016 blo gthx300FFF02E 0C1046 cmpb #'F'00FFF030 022005 bhi gthx600FFF032 0C0041 subb #'A'00FFF034 0CB00A addb #1000FFF036 039 rtsgthx6:00FFF037 0C1061 cmpb #'a'00FFF039 025009 blo gthx300FFF03B 0C107A cmpb #'z'00FFF03D 022005 bhi gthx300FFF03F 0C0061 subb #'a'00FFF041 0CB00A addb #1000FFF043 039 rtsgthx3:00FFF044 0C6FFF ldb #-1 ; not a hex number00FFF046 039 rtsAsciiToDecNybble:00FFF047 0C1030 cmpb #'0'00FFF049 024007 bcc gtdc300FFF04B 0C103A cmpb #'9'+100FFF04D 025003 bcs gtdc300FFF04F 0C0030 subb #'0'00FFF051 039 rtsgtdc3:00FFF052 0C6FFF ldb #-100FFF054 039 rtsDisplayErr:00FFF055 0CCFFF066 ldd #msgErr00FFF058 017FFF364 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF05B 07EFFEEA7 jmp MonitorDisplayStringDX00FFF05E 0DD024 std Strptr00FFF060 09F026 stx Strptr+200FFF062 0BDFFE3BF jsr DisplayString00FFF065 039 rtsmsgErr:00FFF066 02A02A04507207200D00A fcb "**Err",CR,LF,000FFF06D 000HelpMsg:00FFF06E 03F02003D020044069073 fcb "? = Display help",CR,LF00FFF075 07006C06107902006806500FFF07C 06C07000D00A00FFF080 04304C05302003D020063 fcb "CLS = clear screen",CR,LF00FFF087 06C06506107202007306300FFF08E 07206506506E00D00A00FFF094 06207302003D020073065 fcb "bs = set breakpoint",CR,LF00FFF09B 07402006207206506106B00FFF0A2 07006F06906E07400D00A00FFF0A9 06206302003D02006306C fcb "bc = clear breakpoint",CR,LF00FFF0B0 06506107202006207206500FFF0B7 06106B07006F06906E07400FFF0BE 00D00A; db "S = Boot from SD Card",CR,LF00FFF0C0 03A02003D020045064069 fcb ": = Edit memory bytes",CR,LF00FFF0C7 07402006D06506D06F07200FFF0CE 07902006207907406507300FFF0D5 00D00A; db "L = Load sector",CR,LF; db "W = Write sector",CR,LF00FFF0D7 04405202003D020044075 fcb "DR = Dump registers",CR,LF00FFF0DE 06D07002007206506706900FFF0E5 07307406507207300D00A00FFF0EC 04402003D02004407506D fcb "D = Dump memory",CR,LF00FFF0F3 07002006D06506D06F07200FFF0FA 07900D00A00FFF0FD 04602003D02004606906C fcb "F = Fill memory",CR,LF00FFF104 06C02006D06506D06F07200FFF10B 07900D00A00FFF10E 04604C02003D020044075 fcb "FL = Dump I/O Focus List",CR,LF00FFF115 06D07002004902F04F02000FFF11C 04606F06307507302004C00FFF123 06907307400D00A00FFF128 04604904702003D020073 fcb "FIG = start FIG Forth",CR,LF00FFF12F 07406107207402004604900FFF136 04702004606F07207406800FFF13D 00D00A; db "KILL n = kill task #n",CR,LF; db "B = start tiny basic",CR,LF; db "b = start EhBasic 6502",CR,LF00FFF13F 04A02003D02004A07506D fcb "J = Jump to code",CR,LF00FFF146 07002007406F02006306F00FFF14D 06406500D00A00FFF151 05204104D02003D020074 fcb "RAM = test RAM",CR,LF00FFF158 06507307402005204104D00FFF15F 00D00A; db "R[n] = Set register value",CR,LF; db "r = random lines - test bitmap",CR,LF; db "e = ethernet test",CR,LF00FFF161 07302003D020073065072 fcb "s = serial output test",CR,LF00FFF168 06906106C02006F07507400FFF16F 07007507402007406507300FFF176 07400D00A00FFF179 05305002003D020073070 fcb "SP = sprite demo",CR,LF00FFF180 07206907406502006406500FFF187 06D06F00D00A; db "T = Dump task list",CR,LF; db "TO = Dump timeout list",CR,LF00FFF18B 05404902003D020064069 fcb "TI = display date/time",CR,LF00FFF192 07307006C06107902006400FFF199 06107406502F07406906D00FFF1A0 06500D00A; db "TEMP = display temperature",CR,LF00FFF1A3 05502003D02007506E061 fcb "U = unassemble",CR,LF00FFF1AA 07307306506D06206C06500FFF1B1 00D00A; db "P = Piano",CR,LF00FFF1B3 07802003D020065078069 fcb "x = exit monitor",CR,LF00FFF1BA 07402006D06F06E06907400FFF1C1 06F07200D00A00FFF1C5 000 fcb 0msgRegHeadings00FFF1C6 00D00A02002004402F041 fcb CR,LF," D/AB X Y U S PC DP CCR",CR,LF,000FFF1CD 04202002002002002005800FFF1D4 02002002002002002005900FFF1DB 02002002002002002005500FFF1E2 02002002002002002005300FFF1E9 02002002002002002002000FFF1F0 05004302002002002004400FFF1F7 05002002004304305200D00FFF1FE 00A000nHEX4:00FFF200 0BDFFD2D2 jsr HEX400FFF203 039 rtsnXBLANK:00FFF204 0C6020 ldb #' '00FFF206 016FFFB09 lbra OUTCH*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Memory;; Usage:; $D FFFC12 FFFC20;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------DumpMemory:00FFF209 08DDBB bsr GetRange00FFF20B 18E000000 ldy #000FFF20E 1BE000922 ldy mon_r1+2dmpm2:00FFF211 017FFDEBE lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF214 0C603A ldb #':'00FFF216 017FFFAF9 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF219 01F020 tfr y,d;addd mon_r1+2 ; output the address00FFF21B 017FFF1EC lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF21E 0C6020 ldb #' '00FFF220 017FFFAEF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF223 08E000008 ldx #8 ; number of bytes to displaydmpm1:; ldb far [mon_r1+1],y;ldb [mon_r1+2],y00FFF226 0E6A04 ldb ,y00FFF228 031201 iny00FFF22A 017FFF1E6 lbsr DispByteAsHex ; display byte*** warning 1: Long branch within short branch range could be optimized00FFF22D 0C6020 ldb #' ' ; followed by a space00FFF22F 017FFFAE0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF232 05F clrb00FFF233 04F clra00FFF234 017FFFAA3 lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF237 0C1003 cmpb #CTRLC00FFF239 027024 beq dmpm300FFF23B 0301FF dex00FFF23D 026FE7 bne dmpm1; Now output ascii00FFF23F 0C6020 ldb #' '00FFF241 017FFFACE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF244 08E000008 ldx #8 ; 8 chars to output00FFF247 0313F8 leay -8,y ; backup pointerdmpm5:; ldb far [mon_r1+1],y ; get the char; ldb [mon_r1+2],y ; get the char00FFF249 0E6A04 ldb ,y00FFF24B 0C1020 cmpb #$20 ; is it a control char?00FFF24D 024002 bhs dmpm400FFF24F 0C602E ldb #'.'dmpm4:00FFF251 017FFFABE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF254 031201 iny00FFF256 0301FF dex00FFF258 026FEF bne dmpm500FFF25A 1BC000926 cmpy mon_r2+200FFF25D 025FB2 blo dmpm2dmpm3:00FFF25F 017FFDE70 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF262 016FFFC42 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Edit Memory;; Usage:; $$:FFFC12 8 "Hello World!" 0;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------EditMemory:00FFF265 0CE000008 ldu #8 ; set max byte count00FFF268 017FFFD84 lbsr GetHexNumber ; get the start address*** warning 1: Long branch within short branch range could be optimized00FFF26B 0BE000912 ldx mon_numwka+2EditMem2:00FFF26E 017FFFCE2 lbsr ignBlanks ; skip over blanks*** warning 1: Long branch within short branch range could be optimized00FFF271 017FFFD7B lbsr GetHexNumber ; get the byte value*** warning 1: Long branch within short branch range could be optimized00FFF274 05D tstb ; check for valid value00FFF275 02700C beq EditMem1 ; if invalid, quit00FFF277 0F6000913 ldb mon_numwka+3 ; get value00FFF27A 0E7800 stb ,x+ ; update memory at address00FFF27C 0335FF leau -1,u ; decremeent byte count00FFF27E 283000000 cmpu #000FFF281 026FEB bne EditMem2 ; go back for annother byteEditMem1:00FFF283 017FFFCC1 lbsr MonGetch ; see if a string is being entered*** warning 1: Long branch within short branch range could be optimized00FFF286 0C1022 cmpb #'"'00FFF288 026018 bne EditMem3 ; no string, we're done00FFF28A 0CE000028 ldu #40 ; string must be less than 40 charsEditMem4:00FFF28D 017FFFCB7 lbsr MonGetch ; look for close quote*** warning 1: Long branch within short branch range could be optimized00FFF290 0C1022 cmpb #'"'00FFF292 026005 bne EditMem6 ; end of string?00FFF294 0CE000008 ldu #8 ; reset the byte count00FFF297 020FD5 bra EditMem2EditMem6:00FFF299 0E7800 stb ,x+ ; store the character in memory00FFF29B 0335FF leau -1,u ; decrement byte count00FFF29D 283000000 cmpu #000FFF2A0 022FEB bhi EditMem4 ; max 40 charsEditMem3:00FFF2A2 016FFFC02 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Fill Memory;; Usage:; $$F FFFC12 FFFC30 89F;;------------------------------------------------------------------------------FillMemory:00FFF2A5 017FFFD1E lbsr GetRange ; get address range to fill*** warning 1: Long branch within short branch range could be optimized00FFF2A8 017FFFCA8 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF2AB 017FFFD41 lbsr GetHexNumber ; get target byte to write*** warning 1: Long branch within short branch range could be optimized00FFF2AE 0F6000913 ldb mon_numwka+300FFF2B1 0BE000922 ldx mon_r1+200FFF2B4 04F clrafillm1: ; Check for a CTRL-C every page of memory00FFF2B5 04D tsta00FFF2B6 02600D bne fillm200FFF2B8 05F clrb ; we want a non-blocking check00FFF2B9 04F clra00FFF2BA 017FFFA1D lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF2BD 0C1003 cmpb #CTRLC00FFF2BF 127FFFBE5 lbeq Monitor*** warning 1: Long branch within short branch range could be optimized00FFF2C2 0F6000913 ldb mon_numwka+3 ; reset target bytefillm2:00FFF2C5 0E7800 stb ,x+00FFF2C7 0BC000926 cmpx mon_r2+200FFF2CA 023FE9 bls fillm1fillm3:00FFF2CC 016FFFBD8 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Registers;; Usage:; $DR;------------------------------------------------------------------------------DumpRegs:00FFF2CF 0CCFFF1C6 ldd #msgRegHeadings00FFF2D2 017FFF0EA lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF2D5 08DF2D bsr nXBLANK00FFF2D7 0FC000900 ldd mon_DSAVE00FFF2DA 08DF24 bsr nHEX400FFF2DC 08DF26 bsr nXBLANK00FFF2DE 0FC000902 ldd mon_XSAVE00FFF2E1 08DF1D bsr nHEX400FFF2E3 08DF1F bsr nXBLANK00FFF2E5 0FC000904 ldd mon_YSAVE00FFF2E8 08DF16 bsr nHEX400FFF2EA 08DF18 bsr nXBLANK00FFF2EC 0FC000906 ldd mon_USAVE00FFF2EF 08DF0F bsr nHEX400FFF2F1 08DF11 bsr nXBLANK00FFF2F3 0FC000908 ldd mon_SSAVE00FFF2F6 08DF08 bsr nHEX400FFF2F8 08DF0A bsr nXBLANK00FFF2FA 0F600090B ldb mon_PCSAVE+100FFF2FD 017FFF113 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF300 0FC00090C ldd mon_PCSAVE+200FFF303 08DEFB bsr nHEX400FFF305 08DEFD bsr nXBLANK00FFF307 0FC00090E ldd mon_DPRSAVE00FFF30A 0BDFFD2CE jsr HEX200FFF30D 08DEF5 bsr nXBLANK00FFF30F 0B600090F lda mon_CCRSAVE00FFF312 017FFDFB9 lbsr HEX2*** warning 1: Long branch within short branch range could be optimized00FFF315 08DEED bsr nXBLANK00FFF317 016FFFB8D lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Jump to code;; Registers are loaded with values from the monitor register save area before; the code is jumped to.;; J <address>;------------------------------------------------------------------------------jump_to_code:00FFF31A 08DCD3 bsr GetHexNumber00FFF31C 01A010 sei00FFF31E 1FE000908 lds mon_SSAVE00FFF321 0CCFFF355 ldd #<jtc_exit ; setup stack for RTS back to monitor00FFF324 034006 pshs d00FFF326 0C6000 ldb #>jtc_exit00FFF328 034004 pshs b00FFF32A 0FC000912 ldd mon_numwka+2 ; get the address parameter00FFF32D 034006 pshs d00FFF32F 0F6000911 ldb mon_numwka+100FFF332 034004 pshs b00FFF334 0FC000906 ldd mon_USAVE00FFF337 034006 pshs d00FFF339 0FC000904 ldd mon_YSAVE00FFF33C 034006 pshs d00FFF33E 0FC000902 ldd mon_XSAVE00FFF341 034006 pshs d00FFF343 0B600090E lda mon_DPRSAVE00FFF346 034002 pshs a00FFF348 0FC000900 ldd mon_DSAVE00FFF34B 034006 pshs d00FFF34D 0B600090F lda mon_CCRSAVE00FFF350 034002 pshs a00FFF352 0150350FF puls far ccr,d,dpr,x,y,u,pcjtc_exit:00FFF355 1FF000908 sts >mon_SSAVE ; need to use extended addressing, no direct page setting00FFF358 03280F006FFF leas $6FFF ; reset stack to system area, dont modify flags register!00FFF35C 034001 pshs ccr ; now the stack can be used00FFF35E 034002 pshs a ; save acca register so we can use it00FFF360 01F0B8 tfr dpr,a ; a = outgoing dpr value00FFF362 0B700090E sta >mon_DPRSAVE ; force extended addressing mode usage here dpr is not set00FFF365 04F clra ; dpg register must be set to zero before values are00FFF366 01F08B tfr a,dpr ; saved in the monitor register save area.00FFF368 035002 puls a ; get back acca00FFF36A 0FD000900 std mon_DSAVE ; save regsters, can use direct addressing now00FFF36D 0BF000902 stx mon_XSAVE00FFF370 1BF000904 sty mon_YSAVE00FFF373 0FF000906 stu mon_USAVE00FFF376 035002 puls a ; get back ccr00FFF378 0B700090F sta mon_CCRSAVE ; and save it too; Reset vectors in case they got toasted.00FFF37B 0CCFFEBE4 ldd #SerialPeekCharDirect00FFF37E 0FD000804 std CharInVec00FFF381 0CCFFE2FE ldd #DisplayChar00FFF384 0FD000800 std CharOutVec00FFF387 0FCFFF055 ldd DisplayErr00FFF38A 0FD00080C std MonErrVec; todo set according to coreid00FFF38D 016FFFF3F lbra DumpRegs ; now go do a register dump*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------DumpIOFocusList:00FFF390 08E000000 ldx #0dfl2:00FFF393 0E680A000FFC000 ldb IOFocusList,x00FFF398 0C1018 cmpb #2400FFF39A 02600A bne dfl100FFF39C 01F010 tfr x,d00FFF39E 017FFF072 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF3A1 0C6020 ldb #' '00FFF3A3 017FFF96C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddfl1:00FFF3A6 030001 inx00FFF3A8 08C000010 cmpx #1600FFF3AB 025FE6 blo dfl200FFF3AD 017FFDD22 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF3B0 016FFFAF4 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedbootpg:00FFF3B3 000 fcb $000boot_stack:00FFF3B4 006FFF fcw $006FFFnumBreakpoints:00FFF3B6 008 fcb 8mon_rom_vectab:00FFF3B7 FFF3B9 fcw mon_rom_vecsmon_rom_vecs:00FFF3B9 FFEEA7 fcw Monitor ; enter monitor program00FFF3BB FFECDA fcw INCH ; input a character00FFF3BD FFED12 fcw OUTCH ; output a character00FFF3BF FFD0D2 fcw CRLF ; output carriage-return, line feed00FFF3C1 FFE3BF fcw DisplayString00FFF3C3 FFE413 fcw DispByteAsHex00FFF3C5 FFE40A fcw DispWordAsHex00FFF3C7 FFED1C fcw ShowSprites00FFF3C9 FFEDA0 fcw mon_srand00FFF3CB FFEDCE fcw mon_rand00FFF3CD 000000 fcw 0 ; operating system call00FFF3CF FFEFC6 fcw GetRangeNumFuncs EQU (*-mon_rom_vectab)/2;------------------------------------------------------------------------------; SWI routine.;; SWI is used to call ROM monitor routines and process breakpoints.;; swi; fcb <desired function>;------------------------------------------------------------------------------swi_rout:00FFF3D1 0E680CFDF ldb bootpg,pcr ; reset direct page00FFF3D4 01F09B tfr b,dpswi_rout1:00FFF3D6 0EE60B ldu 11,s ; get program counter (low order 2 bytes)00FFF3D8 0335FF leau -1,u ; backup a byte00FFF3DA 07D000810 tst BreakpointFlag ; are we in breakpoint mode?00FFF3DD 02700F beq swiNotBkpt00FFF3DF 0CE000820 ldu #Breakpoints00FFF3E2 0F6000811 ldb NumSetBreakpoints00FFF3E5 027007 beq swiNotBkptswi_rout2:00FFF3E7 2A3A01 cmpu ,y++00FFF3E9 027033 beq processBreakpoint00FFF3EB 05A decb00FFF3EC 026FF9 bne swi_rout2swiNotBkpt:00FFF3EE 07F000810 clr BreakpointFlag00FFF3F1 037006 pulu d ; get function #, increment PC00FFF3F3 0C100D cmpb #NumFuncs00FFF3F5 122FFFC5D lbhi DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFF3F8 0EF60B stu 11,s ; save updated PC on stack00FFF3FA 0C100A cmpb #MF_OSCALL00FFF3FC 027056 beq swiCallOS00FFF3FE 058 aslb ; 2 bytes per vector00FFF3FF 0AE80CFB5 ldx mon_rom_vectab,pcr00FFF402 03A abx00FFF403 0AE804 ldx ,x00FFF405 0BF000928 stx jmpvec00FFF408 1FF000908 sts mon_SSAVE ; save the stack pointer00FFF40B 0EC601 ldd 1,s ; get back D00FFF40D 0AE604 ldx 4,s ; get back X00FFF40F 1AE606 ldy 6,s ; get back Y00FFF411 0EE608 ldu 8,s ; get back U00FFF413 1EE80CF9E lds boot_stack,pcr ; and use our own stack00FFF416 0AD90F000928 jsr [jmpvec] ; call the routineswi_rout3:00FFF41A 1FE000908 lds mon_SSAVE ; restore stack00FFF41D 03B rtiprocessBreakpoint:00FFF41E 0A6E04 lda ,s00FFF420 0B700090F sta mon_CCRSAVE00FFF423 0EC601 ldd 1,s00FFF425 0FD000900 std mon_DSAVE00FFF428 0E6603 ldb 3,s00FFF42A 0F700090E stb mon_DPRSAVE00FFF42D 0EC604 ldd 4,s00FFF42F 0FD000902 std mon_XSAVE00FFF432 0EC606 ldd 6,s00FFF434 0FD000904 std mon_YSAVE00FFF437 0EC608 ldd 8,s00FFF439 0FD000906 std mon_USAVE00FFF43C 1FF000908 sts mon_SSAVE00FFF43F 0EC60B ldd 11,s00FFF441 0FD00090A std mon_PCSAVE00FFF444 1EE80CF6D lds boot_stack,pcr00FFF447 0CCFFF41A ldd #swi_rout3 ; setup so monitor can return00FFF44A 034006 pshs d00FFF44C 08D020 bsr DisarmAllBreakpoints00FFF44E 016FFFE7E lbra DumpRegs*** warning 1: Long branch within short branch range could be optimizedxitMonitor:00FFF451 08D03A bsr ArmAllBreakpoints00FFF453 039 rtsswiCallOS:00FFF454 033401 leau 1,u ; next byte is func number00FFF456 0E6C00 ldb ,u+00FFF458 0C1019 cmpb #NumOSFuncs ; check for valid range00FFF45A 122FFFBF8 lbhi DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFF45D 0EF60B stu 11,s ; save updateed PC on stack00FFF45F 058 aslb ; compute vector address00FFF460 08EFFED27 ldx #OSCallTbl00FFF463 06DE0F tst b,x ; check for non-zero vector00FFF465 027FB3 beq swi_rout3osc1:; tst OSSEMA+1 ; wait for availability; beq osc100FFF467 0ADF0F jsr [b,x] ; call the OS routineoscx:00FFF469 07FEF0011 clr OSSEMA+100FFF46C 020FAC bra swi_rout3DisarmAllBreakpoints:00FFF46E 034036 pshs d,x,y00FFF470 18E000000 ldy #000FFF473 05F clrb00FFF474 08E000830 ldx #BreakpointBytes ; x = breakpoint byte table addressdisarm2:00FFF477 0C13B6 cmpb #numBreakpoints ; safety check00FFF479 024010 bhs disarm100FFF47B 0F1000811 cmpb NumSetBreakpoints00FFF47E 02400B bhs disarm100FFF480 0A6837 lda b,x ; get memory byte00FFF482 0A7B09000820 sta [Breakpoints,y] ; and store it back to memory00FFF486 031202 leay 2,y ; increment for next address00FFF488 05C incb ; increment to next byte00FFF489 020FEC bra disarm2 ; loop backdisarm1:00FFF48B 0350B6 puls d,x,y,pcArmAllBreakpoints:00FFF48D 034036 pshs d,x,y00FFF48F 18E000000 ldy #000FFF492 05F clrb00FFF493 08E000830 ldx #BreakpointBytes ; x = breakpoint byte table addressarm2:00FFF496 0C13B6 cmpb #numBreakpoints ; safety check00FFF498 024010 bhs arm100FFF49A 0F1000811 cmpb NumSetBreakpoints00FFF49D 02400B bhs arm100FFF49F 0A6B09000820 lda [Breakpoints,y] ; load byte at memory address00FFF4A3 0A7B0D sta b,x ; save in table00FFF4A5 031202 leay 2,y ; increment for next address00FFF4A7 05C incb ; increment to next byte00FFF4A8 020FEC bra arm2 ; loop backarm1:00FFF4AA 0350B6 puls d,x,y,pcArmBreakpoint:00FFF4AC 034036 pshs d,x,y00FFF4AE 0B6000811 lda NumSetBreakpoints ; check if too many breakpoints set00FFF4B1 0813B6 cmpa #numBreakpoints00FFF4B3 124FFFB9F lbhs DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFF4B6 017FFFB36 lbsr GetHexNumber ; get address parameter*** warning 1: Long branch within short branch range could be optimized00FFF4B9 0F6000811 ldb NumSetBreakpoints ; bv= number of set breakpoints00FFF4BC 1BE000912 ldy mon_numwka+2 ; get address00FFF4BF 0A6A04 lda ,y ; get byte at address00FFF4C1 08E000830 ldx #BreakpointBytes ; and store byte in a table00FFF4C4 0A7A05 sta b,x00FFF4C6 08E000820 ldx #Breakpoints ; also store the address in a table00FFF4C9 058 aslb ; index for 2 byte values00FFF4CA 1AFA05 sty b,x00FFF4CC 054 lsrb ; size back to single byte00FFF4CD 05C incb00FFF4CE 0F7000811 stb NumSetBreakpoints00FFF4D1 0350B6 puls d,x,y,pcDisarmBreakpoint:00FFF4D3 034076 pshs d,x,y,u00FFF4D5 017FFFB17 lbsr GetHexNumber*** warning 1: Long branch within short branch range could be optimized00FFF4D8 05F clrb00FFF4D9 05F clrb00FFF4DA 01F001 tfr d,x ; x = zero toodisarm6:00FFF4DC 0C13B6 cmpb #numBreakpoints ; no more than this many may be set00FFF4DE 02403F bhs disarm400FFF4E0 0F1000811 cmpb NumSetBreakpoints ; number actually set00FFF4E3 02403A bhs disarm400FFF4E5 1AE809000820 ldy Breakpoints,x ; y = breakpoint address00FFF4E9 1BC000912 cmpy mon_numwka+2 ; is it the one we want?00FFF4EC 02602C bne disarm3 ; if not, go increment to next00FFF4EE 0BE000912 ldx mon_numwka+2 ; x = memory address00FFF4F1 18E000830 ldy #BreakpointBytes00FFF4F4 0A6A0D lda b,y ; get saved byte from table00FFF4F6 0A7804 sta ,x ; set the byte at the memory address; compress breakpoint table by removing breakpoint00FFF4F8 07A000811 dec NumSetBreakpoints ; set the new number of set breakpoints00FFF4FB 034004 pshs b ; save the position we're removing fromdisarm7:00FFF4FD 05C incb ; set index for next byte00FFF4FE 0A6A05 lda b,y ; get byte00FFF500 05A decb ; and store it back00FFF501 0A7A05 sta b,y00FFF503 05C incb ; move to next position00FFF504 0C13B6 cmpb #numBreakpoints ; hit end of table?00FFF506 025FF5 blo disarm700FFF508 035004 puls b ; get back position00FFF50A 058 aslb ; times two for word index00FFF50B 04F clra00FFF50C 01F002 tfr d,y00FFF50E 054 lsrb ; back to byte index valuedisarm8:00FFF50F 0EE202 ldu 2,y ; get next breakpoint address00FFF511 0EFA01 stu ,y++ ; store in current pos, increment00FFF513 05C incb ; increment count00FFF514 0C13B6 cmpb #numBreakpoints ; hit end of table?00FFF516 025FF7 blo disarm800FFF518 0350F6 puls d,x,y,u,pcdisarm3:00FFF51A 030002 leax 2,x00FFF51C 05C incb00FFF51D 020FBD bra disarm6disarm4:00FFF51F 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------swi3_rout:00FFF521 01A010 sei00FFF523 0A6E04 lda ,s00FFF525 0B700090F sta mon_CCRSAVE00FFF528 0EC601 ldd 1,s00FFF52A 0FD000900 std mon_DSAVE00FFF52D 0E6603 ldb 3,s00FFF52F 0F700090E stb mon_DPRSAVE00FFF532 0EC604 ldd 4,s00FFF534 0FD000902 std mon_XSAVE00FFF537 0EC606 ldd 6,s00FFF539 0FD000904 std mon_YSAVE00FFF53C 0EC608 ldd 8,s00FFF53E 0FD000906 std mon_USAVE00FFF541 1FF000908 sts mon_SSAVE00FFF544 0EC60B ldd 11,s00FFF546 0FD00090A std mon_PCSAVE00FFF549 1FF000908 sts mon_SSAVE00FFF54C 1CE003FFF lds #$3FFF00FFF54F 0CCFFF559 ldd #swi3_exit00FFF552 034006 pshs d00FFF554 01C0EF cli00FFF556 07EFFF2CF jmp DumpRegsswi3_exit:00FFF559 1FE000908 lds mon_SSAVE00FFF55C 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------firq_rout:00FFF55D 03B rtiirq_rout:; lbsr SerialIRQ ; check for recieved character00FFF55E 017FFEF0B lbsr TimerIRQ*** warning 1: Long branch within short branch range could be optimized; Reset the edge sense circuit in the PIC; lda #31 ; Timer is IRQ #31; sta IrqSource ; stuff a byte indicating the IRQ source for PEEK(); sta PIC+16 ; register 16 is edge sense reset reg; lda VIA+VIA_IFR; bpl notTimerIRQ2; bita #$800; beq notTimerIRQ2; clr VIA+VIA_T3LL; clr VIA+VIA_T3LH; inc $E00037 ; update timer IRQ screen flag;notTimerIRQ2:00FFF561 0B6FFC014 lda IrqBase ; get the IRQ flag byte00FFF564 044 lsra00FFF565 0BAFFC014 ora IrqBase00FFF568 084FE0 anda #$FE000FFF56A 0B7FFC014 sta IrqBase; inc TEXTSCR+54 ; update IRQ live indicator on screen; flash the cursor; only bother to flash the cursor for the task with the IO focus.; lda COREID; cmpa IOFocusID; bne tr1a; lda CursorFlash ; test if we want a flashing cursor; beq tr1a; lbsr CalcScreenLoc ; compute cursor location in memory; tfr d,y; lda $2000,y ; get color code $2000 higher in memory; ldb IRQFlag ; get counter; lsrb; lsra; lsra; lsra; lsra; lsrb; rola; lsrb; rola; lsrb; rola; lsrb; rola; sta $E00000,y ; store the color code back to memorytr1a:00FFF56D 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------nmi_rout:00FFF56E 0150F6FFFFFFFE0 ldb COREID00FFF573 086049 lda #'I'00FFF575 08EE00028 ldx #TEXTSCR+4000FFF578 0A7807 sta b,xrti_insn:00FFF57A 03B rti; Special Register Areaorg $FFFFE0; Interrupt vector tableorg $FFFFF000FFFFF0 FFF57A fcw rti_insn ; reserved00FFFFF2 FFF521 fcw swi3_rout ; SWI300FFFFF4 FFF57A fcw rti_insn ; SWI200FFFFF6 FFF55D fcw firq_rout ; FIRQ00FFFFF8 FFF55E fcw irq_rout ; IRQ00FFFFFA FFF3D1 fcw swi_rout ; SWI00FFFFFC FFF56E fcw nmi_rout ; NMI00FFFFFE FFE023 fcw start ; RST66 warning(s) in pass 2.SYMBOL TABLEACIA 00 FFE30100 ACIA_CMD 00 00000002 ACIA_CTRL 00 00000003 ACIA_CTRL2 00 0000000BACIA_RX 00 00000000 ACIA_STAT 00 00000001 ACIA_TX 00 00000000 ARM1 02 00FFF4AAARM2 02 00FFF496 ARMALLBREAKPOINTS 02 00FFF48D ARMBREAKPOINT 02 00FFF4AC ASCIITODECNYBBLE 02 00FFF047ASCIITOHEXNYBBLE 02 00FFF01F ASMBUF 00 00000160 BIOS_SCREENS 00 17000000 BLANKLINE 02 00FFE275BLKCPYDST 00 00000020 BLKCPYSRC 00 0000001C BLNKLN1 02 00FFE288 BOOTPG 02 00FFF3B3BOOT_STACK 02 00FFF3B4 BREAKPOINTBYTES 00 00000830 BREAKPOINTFLAG 00 00000810 BREAKPOINTS 00 00000820CALCSCREENLOC 02 00FFE2DB CHARCOLOR 00 00000112 CHARINVEC 00 00000804 CHAROUTVEC 00 00000800CHECKPOINT 02 00FFE132 CLEARSCREEN 02 00FFE22E CLEARSCREENJMP 02 00FFD300 CMDPROMPT 02 00FFEE30CMDPROMPTJI 00 00000808 CMDTABLE1 02 00FFEDE3 CMDTABLE2 02 00FFEE0E COLORCODELOCATION 00 00000014COLS 00 00000040 COPYSCREENTOVIRTUALSCREEN 02 00FFE1FE COPYVIRTUALSCREENTOSCREEN 02 00FFE1C7 COREID 00 FFFFFFE0CR 00 0000000D CRLF 02 00FFD0D2 CRLF1 02 00FFD0D2 CRLFST 02 00FFE3FECS1 02 00FFE23B CS2 02 00FFE252 CS2V1 02 00FFE20A CS3 02 00FFE258CSL1 02 00FFE2F6 CTRLC 00 00000003 CTRLH 00 00000008 CTRLI 00 00000009CTRLJ 00 0000000A CTRLK 00 0000000B CTRLM 00 0000000D CTRLS 00 00000013CTRLT 00 00000014 CTRLX 00 00000018 CURSORCOL 00 00000111 CURSORFLASH 00 00000114CURSORROW 00 00000110 CV2S1 02 00FFE1DC DBGCHECKFORKEY 02 00FFEA10 DBGK1 02 00FFEA4BDBGK10 02 00FFEAB0 DBGK11 02 00FFEB09 DBGK12 02 00FFEB0F DBGK13 02 00FFEB1BDBGK14 02 00FFEB2B DBGK15 02 00FFEB3A DBGK16 02 00FFEB45 DBGK17 02 00FFEB4EDBGK18 02 00FFEB51 DBGK2 02 00FFEA16 DBGK20 02 00FFEA38 DBGK22 02 00FFEA54DBGK23 02 00FFEA65 DBGK24 02 00FFEA46 DBGK3 02 00FFEA68 DBGK4 02 00FFEA74DBGK5 02 00FFEA80 DBGK7 02 00FFEA90 DBGK8 02 00FFEA96 DBGK9 02 00FFEAAADBGKNOTALT 02 00FFEB13 DBGKNOTCAPSLOCK 02 00FFEAE2 DBGKNOTCTRL 02 00FFEA9A DBGKNOTNUMLOCK 02 00FFEACBDBGKNOTRSHIFT 02 00FFEAB4 DBGKNOTSCROLLLOCK 02 00FFEAF9 DCCR 02 00FFE30E DCLF 02 00FFE398DCX10 02 00FFE348 DCX11 02 00FFE358 DCX12 02 00FFE354 DCX13 02 00FFE364DCX14 02 00FFE30B DCX3 02 00FFE386 DCX4 02 00FFE39A DCX5 02 00FFE375DCX6 02 00FFE31F DCX7 02 00FFE31B DCX8 02 00FFE32C DCX9 02 00FFE339DELAY3S 02 00FFE1AA DFL1 02 00FFF3A6 DFL2 02 00FFF393 DISARM1 02 00FFF48BDISARM2 02 00FFF477 DISARM3 02 00FFF51A DISARM4 02 00FFF51F DISARM6 02 00FFF4DCDISARM7 02 00FFF4FD DISARM8 02 00FFF50F DISARMALLBREAKPOINTS 02 00FFF46E DISARMBREAKPOINT 02 00FFF4D3DISPBYTEASHEX 02 00FFE413 DISPDWORDASHEX 02 00FFE401 DISPLAYCHAR 02 00FFE2FE DISPLAYERR 02 00FFF055DISPLAYSTRING 02 00FFE3BF DISPLAYSTRINGCRLF 02 00FFE3D6 DISPLAYSTRINGDX 02 00FFF05E DISPNYB 02 00FFE42BDISPNYB1 02 00FFE43A DISPWORDASHEX 02 00FFE40A DLY3S1 02 00FFE1AD DLY3S2 02 00FFE1B1DMPM1 02 00FFF226 DMPM2 02 00FFF211 DMPM3 02 00FFF25F DMPM4 02 00FFF251DMPM5 02 00FFF249 DRAMERR 02 00FFD48F DRAMTEST 02 00FFD443 DRAMTEST1 02 00FFD453DRAMTEST3 02 00FFD46F DRAMTEST4 02 00FFD460 DRAMTEST5 02 00FFD47C DRAM_BASE 00 10000000DSPJ1B 02 00FFE3C8 DSPJ2 02 00FFE3C3 DSRETB 02 00FFE3D1 DUMPIOFOCUSLIST 02 00FFF390DUMPMEMORY 02 00FFF209 DUMPREGS 02 00FFF2CF DUMRTS 02 00FFE022 EDITMEM1 02 00FFF283EDITMEM2 02 00FFF26E EDITMEM3 02 00FFF2A2 EDITMEM4 02 00FFF28D EDITMEM6 02 00FFF299EDITMEMORY 02 00FFF265 ENDOFWORD 02 00FFEF06 FARFLAG 00 0000015F FILLM1 02 00FFF2B5FILLM2 02 00FFF2C5 FILLM3 02 00FFF2CC FILLMEMORY 02 00FFF2A5 FIRQ_ROUT 02 00FFF55DFIRST_CORE 00 00000001 FREEMBX 02 00000002 FREEMSG 02 00000006 FREETCB 00 0000078AGETHEXNUMBER 02 00FFEFEF GETKEY 02 00FFEA12 GETRANGE 02 00FFEFC6 GETSCREENLOCATION 02 00FFE28FGETTWOPARAMS 02 00FFEFA5 GRNG1 02 00FFEFE1 GSL1 02 00FFE29D GTDC3 02 00FFF052GTHX3 02 00FFF044 GTHX5 02 00FFF02A GTHX6 02 00FFF037 GTHXN1 02 00FFF01BGTHXN2 02 00FFEFFC HC1 02 00FFE2B7 HELPMSG 02 00FFF06E HEX2 02 00FFD2CEHEX4 02 00FFD2D2 HOMECURSOR 02 00FFE2A1 HOMECURSORJMP 02 00FFD308 I2CW1 02 00FFE49BI2CWR1 02 00FFE4C8 I2C_CMD 00 00000004 I2C_CTRL 00 00000002 I2C_INIT 02 00FFE48FI2C_PREH 00 00000001 I2C_PREL 00 00000000 I2C_RXR 00 00000003 I2C_STAT 00 00000004I2C_TXR 00 00000003 I2C_WAIT_RX_NACK 02 00FFE4C6 I2C_WAIT_TIP 02 00FFE499 I2C_WR_CMD 02 00FFE4A3I2C_XMIT1 02 00FFE4AC ICC1 02 00FFE3BB ICC2 02 00FFE3BD ICR1 02 00FFE3ADIGNBLANKS 02 00FFEF53 IGNBLANKS1 02 00FFEF53 INCCURSORPOS 02 00FFE39C INCCURSORROW 02 00FFE3ABINCH 02 00FFECDA INCH1 02 00FFECEF INCH2 02 00FFECDC INCHE 02 00FFECF8INCHEK 02 00FFECFC INCHEK1 02 00FFED11 INCHEK2 02 00FFED0E INCHEK3 02 00FFED05INIT 02 00FFE09E INIT1 02 00FFE0A6 INITSERIAL 02 00FFEB6F IOFOCUSID 00 00FFC010IOFOCUSLIST 00 00FFC000 IOFOCUSNDX 00 00000100 IRQBASE 00 00FFC014 IRQFLAG 00 00FFC012IRQSOURCE 00 00FFC011 IRQ_ROUT 02 00FFF55E JMPVEC 00 00000928 JTC_EXIT 02 00FFF355JUMP_TO_CODE 02 00FFF31A KBDBUFFULL 02 00FFEA0D KBDFIFO 00 00000040 KBDFIFOALIAS 00 00C00040KBDHEADRCV 00 00000127 KBDI0002 02 00FFE949 KBDI0004 02 00FFE98E KBDITRYAGAIN 02 00FFE982KBDRCVCOUNT 02 00FFE9BD KBDTAILRCV 00 00000128 KBGS1 02 00FFE8F8 KBGS2 02 00FFE8F0KBGS3 02 00FFE8E1 KEYBD 00 FFE30400 KEYBDACK 00 FFFFCC00 KEYBDBAD 00 FFFFCB00KEYBDBLOCK 00 00000126 KEYBDBUFFER 00 FFFFC000 KEYBDCHECKFORKEYDIRECT 02 00FFECD8 KEYBDCLOSE 02 00FFEB6BKEYBDCLR 00 FFE30402 KEYBDCONTROLCODES 02 00FFE780 KEYBDECHO 00 FFFFCA00 KEYBDEXTENDEDCODES 02 00FFE800KEYBDGETID 02 00FFE91C KEYBDGETSCANCODE 02 00FFE8FD KEYBDGETSTATUS 02 00FFE8E1 KEYBDHEAD 00 FFFFC800KEYBDID 00 00000124 KEYBDINIT 02 00FFE940 KEYBDIRQ 02 00FFE9CF KEYBDLOCKS 00 FFFFCD00KEYBDOPEN 02 00FFEB6A KEYBDREAD 02 00FFEB6C KEYBDRECVBYTE 02 00FFE880 KEYBDSEEK 02 00FFEB6EKEYBDSENDBYTE 02 00FFE899 KEYBDSETLED 02 00FFE909 KEYBDTAIL 00 FFFFC900 KEYBDWAITTX 02 00FFE89FKEYBDWRITE 02 00FFEB6D KEYLED 00 00000122 KEYSTATE1 00 00000120 KEYSTATE2 00 00000121KGID1 02 00FFE939 KGNOTKBD 02 00FFE93C KRB3 02 00FFE885 KRB4 02 00FFE895KRCXIT 02 00FFE9CE KWT1 02 00FFE8A4 KWT2 02 00FFE8B5 LEDS 00 FFE60001LEDXIT 02 00FFE9A2 LETTER 02 00FFD2C1 LF 00 0000000A MAX_TASKNO 00 0000003FMF_CRLF 00 00000003 MF_DISPLAYBYTEASHEX 00 00000005 MF_DISPLAYSTRING 00 00000004 MF_DISPLAYWORDASHEX 00 00000006MF_GETRANGE 00 0000000B MF_INCH 00 00000001 MF_MONITOR 00 00000000 MF_OSCALL 00 0000000AMF_OUTCH 00 00000002 MF_RANDOM 00 00000009 MF_SHOWSPRITES 00 00000007 MF_SRAND 00 00000008MONERRVEC 00 0000080C MONGETCH 02 00FFEF47 MONGETNONSPACE 02 00FFEF4C MONITOR 02 00FFEEA7MONITORSTART 02 00FFEE60 MON_CCRSAVE 00 0000090F MON_DPRSAVE 00 0000090E MON_DSAVE 00 00000900MON_NUMWKA 00 00000910 MON_PCSAVE 00 0000090A MON_R1 00 00000920 MON_R2 00 00000924MON_RAND 02 00FFEDCE MON_ROM_VECS 02 00FFF3B9 MON_ROM_VECTAB 02 00FFF3B7 MON_SRAND 02 00FFEDA0MON_SRAND1 02 00FFEDA3 MON_SSAVE 00 00000908 MON_USAVE 00 00000906 MON_VECTB 00 00000880MON_XSAVE 00 00000902 MON_YSAVE 00 00000904 MSCOUNT 00 FFFFFFE4 MSGBADKEYBD 02 00FFE9AEMSGERR 02 00FFF066 MSGF09STARTING 02 00FFEE3B MSGREGHEADINGS 02 00FFF1C6 MSGSERIALTEST 02 00FFECC5MSGSTARTUP 02 00FFE111 MULTI_SIEVE 02 00FFE148 MULTI_SIEVE1 02 00FFE16B MULTI_SIEVE2 02 00FFE167MULTI_SIEVE3 02 00FFE155 MULTI_SIEVE4 02 00FFE17E NHEX4 02 00FFF200 NMAILBOX 02 00000004NMESERIAL 02 00FFEC8E NMIBASE 00 00FFC013 NMI_ROUT 02 00FFF56E NMSGBLK 02 00000008NOTKBDIRQ 02 00FFEA0C NOTRXINT 02 00FFEC8D NOTTIMERIRQ 02 00FFE48E NUMBREAKPOINTS 02 00FFF3B6NUMFUNCS 00 0000000D NUMOSFUNCS 00 00000019 NUMSETBREAKPOINTS 00 00000811 NXBLANK 02 00FFF204ONEKEY 02 00FFD1DC OSC1 02 00FFF467 OSCALLTBL 02 00FFED27 OSCX 02 00FFF469OSSEMA 00 00EF0010 OUTCH 02 00FFED12 OUTSEMA 00 00EF0000 PARSECMD1 02 00FFEEF1PCRLF 02 00FFE3EA PDATA 02 00FFE3F7 PIC 00 FFE3F000 PICPTR 00 00000028PRINT 02 00FFE3F4 PRNG 00 FFE30600 PROCESSBREAKPOINT 02 00FFF41E PROMPT1 02 00FFEED4PROMPT2A 02 00FFEF25 PROMPT3 02 00FFEEC5 PROMPTCLEARSCREEN 02 00FFEF3F PROMPTHELP 02 00FFEF37PROMPTLN 02 00FFEEC1 PSTRNG 02 00FFE3E6 QNDX0 00 00000780 QNDX1 00 00000782QNDX2 00 00000784 QNDX3 00 00000786 QNDX4 00 00000788 RAMERR 02 00FFD42CRAMTEST 02 00FFD400 RAMTEST1 02 00FFD40D RAMTEST3 02 00FFD417 REDIRECT 02 00FFEF11RELEASEIOFOCUS 02 00FFED70 REQUESTIOFOCUS 02 00FFED59 RIOF1 02 00FFED97 RIOF2 02 00FFED86ROMTORAM 02 00FFE138 ROMTORAM1 02 00FFE13E ROWS 00 00000020 RTC 00 FFE30500RTCBUF 00 00007FC0 RTCR0001 02 00FFE4F6 RTCW0001 02 00FFE541 RTC_READ 02 00FFE4D0RTC_RXERR 02 00FFE51F RTC_WRITE 02 00FFE523 RTI_INSN 02 00FFF57A RUNNINGID 00 00FFC013RUNNINGTCB 06 00000000 SCANNEXTWORD 02 00FFEEFB SCREENCOLOR 00 00000113 SCREENLOCATION 00 00000010SCREENLOCATION2 00 00000018 SCROLLUP 02 00FFE25A SCRUP1 02 00FFE267 SC_ALT 00 00000011SC_C 00 00000021 SC_CAPSLOCK 00 00000058 SC_CTRL 00 00000014 SC_DEL 00 00000071SC_EXTEND 00 000000E0 SC_F12 00 00000007 SC_KEYUP 00 000000F0 SC_NUMLOCK 00 00000077SC_RSHIFT 00 00000059 SC_SCROLLLOCK 00 0000007E SC_T 00 0000002C SC_TAB 00 0000000DSC_Z 00 0000001A SEMAABS 00 00001000 SERHEADRCV 00 00000131 SERHEADXMIT 00 00000136SERHZERO 00 00000130 SERIALGETCHAR 02 00FFEB9D SERIALINIT 02 00FFEB6F SERIALIRQ 02 00FFEC3BSERIALOUTPUTTEST 02 00FFECA5 SERIALPEEKCHAR 02 00FFEBCD SERIALPEEKCHARDIRECT 02 00FFEBE4 SERIALPUTCHAR 02 00FFEC08SERIALPUTSTRING 02 00FFEC95 SERIALRCVCOUNT 02 00FFEC28 SERRCVBUF 00 00BFF000 SERRCVXOFF 00 00000140SERRCVXON 00 00000139 SERTAILRCV 00 00000133 SERTAILXMIT 00 00000138 SERTZERO 00 00000132SETKEYBOARDECHO 02 00FFED16 SGC2 02 00FFEBB6 SGCNOCHARS 02 00FFEBC6 SGCXIT 02 00FFEBC9SHIFTEDSCANCODES 02 00FFE680 SHIFTLEFT5 02 00FFE1BC SHL_NUMWKA 02 00FFEFE2 SHOWSPRITES 02 00FFED1CSIEVE 02 00FFE182 SIEVE1 02 00FFE19A SIEVE2 02 00FFE196 SIEVE3 02 00FFE187SIEVE4 02 00FFE1A9 SINI1 02 00FFEB82 SIRQ0001 02 00FFEC4D SIRQNXTBYTE 02 00FFEC3BSIRQRXFULL 02 00FFEC8D SKIPDOLLAR 02 00FFEEE3 SKIP_INIT 02 00FFE0DE SOTST1 02 00FFECAFSPC0001 02 00FFEC0A SPCD0001 02 00FFEC02 SPCNOCHARS 02 00FFEBDF SPCXIT 02 00FFEBE2SPRITE_CTRL 00 FFE10000 SPRITE_EN 00 000003C0 SPS2 02 00FFEC99 SPSXIT 02 00FFECA3SRCXIT 02 00FFEC3A ST1 02 00FFE0B8 ST3 02 00FFE095 ST6 02 00FFE03FST7 02 00FFE049 ST8 02 00FFE049 ST9 02 00FFE063 START 02 00FFE023STRPTR 00 00000024 SWI3_EXIT 02 00FFF559 SWI3_ROUT 02 00FFF521 SWICALLOS 02 00FFF454SWINOTBKPT 02 00FFF3EE SWI_ROUT 02 00FFF3D1 SWI_ROUT1 02 00FFF3D6 SWI_ROUT2 02 00FFF3E7SWI_ROUT3 02 00FFF41A TAB 00 00000009 TCB_CURSORCOL 00 00000021 TCB_CURSORROW 00 00000020TCB_HJCB 00 0000001C TCB_HWAITMBX 00 00000022 TCB_IOF_NEXT 00 0000002C TCB_IOF_PREV 00 00000030TCB_MBQ_NEXT 00 00000024 TCB_MBQ_PREV 00 00000028 TCB_MMU_MAP 00 00000038 TCB_MSGPTR_D1 00 00000014TCB_MSGPTR_D2 00 00000018 TCB_NXTRDY 00 00000000 TCB_NXTTCB 00 00000008 TCB_PRIORITY 00 00000010TCB_PRVRDY 00 00000004 TCB_SPSAVE 00 00000034 TCB_STATUS 00 0000001E TCB_TIMEOUT 00 0000000CTEXTCLOSE 02 00FFE22A TEXTOPEN 02 00FFE229 TEXTREAD 02 00FFE22B TEXTREG 00 FFE07F00TEXTSCR 00 FFE00000 TEXTSEEK 02 00FFE22D TEXTWRITE 02 00FFE22C TEXT_COLS 00 00000000TEXT_CURPOS 00 00000022 TEXT_ROWS 00 00000001 TIMEOUTLIST 00 0000078C TIMERINIT 02 00FFE441TIMERIRQ 02 00FFE46C TIMES10 02 00FFEF5C TR1A 02 00FFF56D UCP1 02 00FFE2D9UNSHIFTEDSCANCODES 02 00FFE580 UPDATECURSORPOS 02 00FFE2B9 VIA 00 FFE60000 VIA_ACR 00 0000000BVIA_DDRA 00 00000003 VIA_IER 00 0000000E VIA_IFR 00 0000000D VIA_PA 00 00000001VIA_T3CMPH 00 00000015 VIA_T3CMPL 00 00000014 VIA_T3LH 00 00000013 VIA_T3LL 00 00000012W10_0001 02 00FFE8C0 W300_0001 02 00FFE8D4 WAIT10MS 02 00FFE8B9 WAIT300MS 02 00FFE8CDXBLANK 02 00FFD0AF XITMONITOR 02 00FFF451 XOFF 00 00000013 XON 00 00000011528 SYMBOLS3 error(s), 592 warning(s)
Go to most recent revision | Compare with Previous | Blame | View Log