URL
https://opencores.org/ocsvn/rf6809/rf6809/trunk
Subversion Repositories rf6809
[/] [rf6809/] [trunk/] [software/] [boot/] [boot_rom.lst] - Rev 13
Go to most recent revision | Compare with Previous | Blame | View Log
0 error(s), 1406 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.;; ============================================================================;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 $10000000ScreenLocation EQU $10ColorCodeLocation EQU $14ScreenLocation2 EQU $18BlkcpySrc EQU $1CBlkcpyDst EQU $20Strptr EQU $24PICptr EQU $28; Forth Area; 0x30-0x60RunningID EQU $800000; 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 charsCOREID 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 $FFFE0DF00TEXT_COLS EQU 0TEXT_ROWS EQU 1TEXT_CURPOS EQU 34ACIA EQU $FFFE30100ACIA_TX EQU 0ACIA_RX EQU 0ACIA_STAT EQU 1ACIA_CMD EQU 2ACIA_CTRL EQU 3ACIA_CTRL2 EQU 11RTC EQU $FFFE30500 ; I2CRTCBuf EQU $7FC0KEYBD EQU $FFFE30400KEYBDCLR EQU $FFFE30402PIC EQU $FFFE3F000SPRITE_CTRL EQU $FFFE10000SPRITE_EN EQU $3C0OUTSEMA EQU $EF0000SEMAABS EQU $1000OSSEMA EQU $EF0010BIOS_SCREENS EQU $17000000 ; $17000000 to $171FFFFF; EhBASIC vars:;NmiBase EQU $FF0013IrqBase EQU $FF0014IOFocusNdx EQU $100; These variables in global OS storage areaIOFocusList EQU $FF0000 ; to $FF000FIOFocusID EQU $FF0010IrqSource EQU $FF0011IRQFlag EQU $FF0012; 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 bufferasmbuf 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 $808; 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 $924; 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 017001125 lbsr DispByteAsHex00FFD2D1 039 rtsHEX400FFD2D2 017001118 lbsr DispWordAsHex00FFD2D5 039 rtsorg $FFD300ClearScreenJmp00FFD300 016000F0E lbra ClearScreenorg $FFD308HomeCursorJmp00FFD308 016000F79 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 ,uorg $FFE00000FFE000 FFF8AC FDB Monitor00FFE002 FFE022 FDB DumRts ; NEXTCMD00FFE004 FFECDA FDB INCH00FFE006 FFECF8 FDB INCHE00FFE008 FFECFC FDB INCHEK00FFE00A FFED12 FDB OUTCH00FFE00C FFE3DA FDB PDATA00FFE00E FFE3CD FDB PCRLF00FFE010 FFE3C9 FDB PSTRNG00FFE012 FFE022 FDB DumRts ; LRA00FFE014 FFE022 FDB DumRts00FFE016 FFE022 FDB DumRts00FFE018 FFE022 FDB DumRts00FFE01A FFE022 FDB DumRts ; VINIZ00FFE01C FFE2E1 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 0CEFFE03C ldu #st6 ; U = return address00FFE039 07EFFD400 jmp ramtest ; JMP dont JSRst6:00FFE03C 1CE006FFF lds #$6FFF ; boot up stack area00FFE03F 0150B6FFFFFFFE0 lda COREID00FFE044 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:00FFE046 08D145 bsr Delay3s ; give some time for devices to reset00FFE048 0860AA lda #$AA00FFE04A 0150B7FFFE60001 sta LEDS00FFE04F 086001 lda #FIRST_CORE00FFE051 0B7FF0010 sta IOFocusID ; core #2 has focus00FFE054 0B7800000 sta RunningID00FFE057 0860CE lda #$0CE00FFE059 097113 sta ScreenColor00FFE05B 097112 sta CharColor00FFE05D 08D1B2 bsr ClearScreen00FFE05F 0CCFFE2E1 ldd #DisplayChar00FFE062 0FD000800 std CharOutVec00FFE065 0CCFFEBE4 ldd #SerialPeekCharDirect00FFE068 0FD000804 std CharInVec00FFE06B 0C6018 ldb #24 ; request IO focus00FFE06D 017000CE9 lbsr OSCall00FFE070 0150F6FFFFFFFE0 ldb COREID00FFE075 0C1001 cmpb #FIRST_CORE00FFE077 02700D beq init00FFE079 020046 bra skip_init00FFE07B 0200AE bra multi_sievest3:00FFE07D 0860FF lda #$FF00FFE07F 0150B7FFFE60001 sta LEDS00FFE084 020FF7 bra st3; initialize interrupt controller; first, zero out all the vectorsinit:00FFE086 01700042A lbsr rtc_read ; get clock values00FFE089 08E000127 ldx #kbdHeadRcv00FFE08C 0C6020 ldb #32 ; number of bytes to zero outinit1:00FFE08E 06F800 clr ,x+00FFE090 05A decb00FFE091 026FFB bne init100FFE093 01700038E lbsr TimerInit00FFE096 017000AD6 lbsr InitSerial00FFE099 08E000080 ldx #12800FFE09C 086001 lda #1 ; set irq(bit0), clear firq (bit1), disable int (bit 6), clear edge sense(bit 7)00FFE09E 0C6001 ldb #FIRST_CORE ; serving core idst1:00FFE0A0 06F809E3F000 clr PIC,x ; cause code00FFE0A4 0A7809E3F001 sta PIC+1,x00FFE0A8 0E7809E3F002 stb PIC+2,x00FFE0AC 030004 leax 4,x00FFE0AE 08C000100 cmpx #25600FFE0B1 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 enable00FFE0B3 086081 lda #$81 ; make irq edge sensitive00FFE0B5 0150B7FFFE3F0FD sta PIC+$FD00FFE0BA 08601F lda #31 ; enable timer interrupt; sta PIC+900FFE0BC 0C6001 ldb #100FFE0BE 0F7EF1000 stb OUTSEMA+SEMAABS ; set semaphore to 1 available slotskip_init:00FFE0C1 01C0EF andcc #$EF ; unmask irq00FFE0C3 086038 lda #5600FFE0C5 0150B7FFFE0DF00 sta TEXTREG+TEXT_COLS00FFE0CA 08601D lda #2900FFE0CC 0150B7FFFE0DF01 sta TEXTREG+TEXT_ROWS00FFE0D1 08D13E bsr ClearScreen00FFE0D3 08D1AF bsr HomeCursor00FFE0D5 086005 lda #500FFE0D7 0150B7FFFE60001 sta LEDS00FFE0DC 0CCFFE0F4 ldd #msgStartup00FFE0DF 08D2C1 bsr DisplayString00FFE0E1 08E000000 ldx #000FFE0E4 0CC000000 ldd #000FFE0E7 017000C32 lbsr ShowSprites00FFE0EA 017000853 lbsr KeybdInit00FFE0ED 0DC124 ldd KeybdID00FFE0EF 08D2FC bsr DispWordAsHex00FFE0F1 07EFFF89A jmp MonitorStartmsgStartup00FFE0F4 072066036038030039020 fcb "rf6809 12-bit System Starting.",CR,LF,000FFE0FB 03103202D06206907402000FFE102 05307907307406506D02000FFE109 05307406107207406906E00FFE110 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:00FFE115 01507FFFFFFFFE1 clr $FFFFFFFE1 ; writing any value will do00FFE11A 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:00FFE11B 08EFFC000 ldx #$FFC00000FFE11E 18E00C000 ldy #$00C000romToRam1:00FFE121 0EC801 ldd ,x++00FFE123 0EDA01 std ,y++00FFE125 08C000000 cmpx #000FFE128 026FF7 bne romToRam100FFE12A 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:00FFE12B 086050 lda #'P' ; indicate prime00FFE12D 0150F6FFFFFFFE0 ldb COREID ; find out which core we are00FFE132 0C0001 subb #FIRST_CORE00FFE134 08E000000 ldx #0 ; start at first char of screen00FFE137 03A abxmulti_sieve3:00FFE138 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE13C 030008 leax 8,x ; advance to next position00FFE13E 08C000FFF cmpx #409500FFE141 025FF5 blo multi_sieve300FFE143 0BDFFE115 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE146 0CB002 addb #2 ; start sieve at 2 (core id)00FFE148 08604E lda #'N' ; flag position value of 'N' for non-primemulti_sieve2:00FFE14A 08E000000 ldx #000FFE14D 03A abx ; skip the first position - might be primemulti_sieve1:00FFE14E 03A abx ; increment00FFE14F 0A7809E00000 sta TEXTSCR,x00FFE153 08C000FFF cmpx #409500FFE156 025FF6 blo multi_sieve100FFE158 0BDFFE115 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE15B 0CB008 addb #8 ; number of cores working on it00FFE15D 0C1FF0 cmpb #408000FFE15F 025FE9 blo multi_sieve2multi_sieve4: ; hang machine00FFE161 013 sync00FFE162 016001747 lbra Monitor;------------------------------------------------------------------------------; Single core sieve.;------------------------------------------------------------------------------sieve:00FFE165 086050 lda #'P' ; indicate prime00FFE167 08E000000 ldx #0 ; start at first char of screensieve3:00FFE16A 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE16E 030001 inx ; advance to next position00FFE170 08C000FFF cmpx #409500FFE173 025FF5 blo sieve300FFE175 0C6002 ldb #2 ; start sieve at 200FFE177 08604E lda #'N' ; flag position value of 'N' for non-primesieve2:00FFE179 08E000000 ldx #000FFE17C 03A abx ; skip the first position - might be primesieve1:00FFE17D 03A abx ; increment00FFE17E 0A7809E00000 sta TEXTSCR,x00FFE182 08C000FFF cmpx #409500FFE185 025FC7 blo multi_sieve100FFE187 05C incb ; number of cores working on it00FFE188 0C1FF0 cmpb #408000FFE18A 025FED blo sieve2sieve4: ; hang machine00FFE18C 039 rts;------------------------------------------------------------------------------; Three second delay for user convenience and to allow some devices time to; reset.;------------------------------------------------------------------------------Delay3s:00FFE18D 0CC895440 ldd #9000000dly3s1:00FFE190 0C10FF cmpb #$FF00FFE192 026000 bne dly3s2dly3s2:00FFE194 0150B7FFFE60001 sta LEDS00FFE199 083000001 subd #100FFE19C 026FF2 bne dly3s100FFE19E 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------ShiftLeft5:00FFE19F 058 aslb00FFE1A0 049 rola00FFE1A1 058 aslb00FFE1A2 049 rola00FFE1A3 058 aslb00FFE1A4 049 rola00FFE1A5 058 aslb00FFE1A6 049 rola00FFE1A7 058 aslb00FFE1A8 049 rola00FFE1A9 039 rts;------------------------------------------------------------------------------; Parameters:; b = core id of core to copy;------------------------------------------------------------------------------;CopyVirtualScreenToScreen:00FFE1AA 034076 pshs d,x,y,u; Compute virtual screen location for core passed in accb.00FFE1AC 01F098 tfr b,a00FFE1AE 048 asla00FFE1AF 048 asla00FFE1B0 048 asla00FFE1B1 048 asla00FFE1B2 08AC00 ora #$C0000FFE1B4 05F clrb00FFE1B5 01F001 tfr d,x00FFE1B7 034006 pshs d00FFE1B9 18EE00000 ldy #TEXTSCR00FFE1BC 0CE00032C ldu #56*29/2cv2s1:00FFE1BF 0EC801 ldd ,x++00FFE1C1 0EDA01 std ,y++00FFE1C3 0335FF leau -1,u00FFE1C5 283000000 cmpu #000FFE1C8 026FF5 bne cv2s1; reset the cursor position in the text controller00FFE1CA 035010 puls x00FFE1CC 0E6808110 ldb CursorRow,x00FFE1CF 086038 lda #5600FFE1D1 03D mul00FFE1D2 01F002 tfr d,y00FFE1D4 0E6808111 ldb CursorCol,x00FFE1D7 01F021 tfr y,x00FFE1D9 03A abx00FFE1DA 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS00FFE1DF 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------;CopyScreenToVirtualScreen:00FFE1E1 034076 pshs d,x,y,u00FFE1E3 08D08D bsr GetScreenLocation00FFE1E5 01F002 tfr d,y00FFE1E7 08EE00000 ldx #TEXTSCR00FFE1EA 0CE00032C ldu #56*29/2cs2v1:00FFE1ED 0EC801 ldd ,x++00FFE1EF 0EDA01 std ,y++00FFE1F1 0335FF leau -1,u00FFE1F3 283000000 cmpu #000FFE1F6 026FF5 bne cs2v100FFE1F8 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------00FFE1FA 054045058054053043052 fcb "TEXTSCR "00FFE201 02000FFE202 FFE20C fcw TextOpen00FFE204 FFE20D fcw TextClose00FFE206 FFE20E fcw TextRead00FFE208 FFE20F fcw TextWrite00FFE20A FFE210 fcw TextSeekTextOpen:00FFE20C 039 rtsTextClose:00FFE20D 039 rtsTextRead:00FFE20E 039 rtsTextWrite:00FFE20F 039 rtsTextSeek:00FFE210 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:00FFE211 034076 pshs d,x,y,u00FFE213 08E000658 ldx #56*2900FFE216 01F013 tfr x,u00FFE218 08D058 bsr GetScreenLocation00FFE21A 01F002 tfr d,y00FFE21C 0C6020 ldb #' ' ; space charcs1:00FFE21E 0E7A00 stb ,y+ ; set text to space00FFE220 0301FF leax -1,x ; decrement x00FFE222 026FFA bne cs100FFE224 0150F6FFFFFFFE0 ldb COREID ; update colors only if we have focus00FFE229 0F1FF0010 cmpb IOFocusID00FFE22C 02000D bra cs300FFE22E 18EE02000 ldy #TEXTSCR+$2000; lda CharColor00FFE231 0860CE lda #$0CE00FFE233 01F031 tfr u,x ; get back countcs2:00FFE235 0A7A00 sta ,y+00FFE237 0301FF dex ; decrement x00FFE239 026FFA bne cs2cs3:00FFE23B 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Scroll text on the screen upwards;; Modifies:; none;------------------------------------------------------------------------------ScrollUp:00FFE23D 034076 pshs d,x,y,u00FFE23F 18E00032B ldy #(56*29-1)/2 ; y = num chars/2 to move00FFE242 08D02E bsr GetScreenLocation00FFE244 01F001 tfr d,x00FFE246 01F003 tfr d,u00FFE248 030038 leax 56,x ; x = index to source rowscrup1:00FFE24A 0EC801 ldd ,x++ ; move 2 characters00FFE24C 0EDC01 std ,u++00FFE24E 0313FF dey00FFE250 026FF8 bne scrup100FFE252 08601D lda #2900FFE254 08D002 bsr BlankLine00FFE256 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Blank out a line on the display;; Modifies:; none; Parameters:; acca = line number to blank;------------------------------------------------------------------------------BlankLine:00FFE258 034016 pshs d,x00FFE25A 034002 pshs a00FFE25C 08D014 bsr GetScreenLocation00FFE25E 01F001 tfr d,x00FFE260 035002 puls a00FFE262 0C6038 ldb #56 ; b = # chars to blank out from video controller00FFE264 03D mul ; d = screen index (row# * #cols)00FFE265 03080B leax d,x00FFE267 086020 lda #' '00FFE269 0C6038 ldb #56 ; b = # chars to blank out from video controllerblnkln1:00FFE26B 0A7800 sta ,x+00FFE26D 05A decb00FFE26E 026FFB bne blnkln100FFE270 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:00FFE272 0150B6FFFFFFFE0 lda COREID ; which core are we?00FFE277 0B1FF0010 cmpa IOFocusID ; do we have the IO focus00FFE27A 026004 bne gsl1 ; no, go pick virtual screen address00FFE27C 0CCE00000 ldd #TEXTSCR ; yes, we update the real screen00FFE27F 039 rtsgsl1:00FFE280 0CC007800 ldd #$780000FFE283 039 rts;------------------------------------------------------------------------------; HomeCursor; Set the cursor location to the top left of the screen.;; Modifies:; none;------------------------------------------------------------------------------HomeCursor:00FFE284 034016 pshs d,x00FFE286 00F110 clr CursorRow00FFE288 00F111 clr CursorCol00FFE28A 0150F6FFFFFFFE0 ldb COREID00FFE28F 0F1FF0010 cmpb IOFocusID00FFE292 026006 bne hc100FFE294 04F clra00FFE295 0150B7FFFE0DF22 sta TEXTREG+TEXT_CURPOShc1:00FFE29A 035096 puls d,x,pc;------------------------------------------------------------------------------; Update the cursor position in the text controller based on the; CursorRow,CursorCol.;; Modifies:; none;------------------------------------------------------------------------------;UpdateCursorPos:00FFE29C 034016 pshs d,x00FFE29E 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2A3 0F1FF0010 cmpb IOFocusID ; only for the task with the output focus00FFE2A6 026014 bne ucp100FFE2A8 096110 lda CursorRow00FFE2AA 08403F anda #$3F ; limit of 63 rows00FFE2AC 0150F6FFFE0DF00 ldb TEXTREG+TEXT_COLS00FFE2B1 03D mul00FFE2B2 01F001 tfr d,x00FFE2B4 0D6111 ldb CursorCol00FFE2B6 03A abx00FFE2B7 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOSucp1:00FFE2BC 035096 puls d,x,pc;------------------------------------------------------------------------------; Calculate screen memory location from CursorRow,CursorCol.; Also refreshes the cursor location.;; Modifies:; d; Returns:; d = screen location;------------------------------------------------------------------------------;CalcScreenLoc:00FFE2BE 034010 pshs x00FFE2C0 096110 lda CursorRow00FFE2C2 0C6038 ldb #5600FFE2C4 03D mul00FFE2C5 01F001 tfr d,x00FFE2C7 0D6111 ldb CursorCol00FFE2C9 03A abx00FFE2CA 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2CF 0F1FF0010 cmpb IOFocusID ; only for the task with the output focus00FFE2D2 026005 bne csl100FFE2D4 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOScsl1:00FFE2D9 08DF97 bsr GetScreenLocation00FFE2DB 03080B leax d,x00FFE2DD 01F010 tfr x,d00FFE2DF 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:00FFE2E1 017000924 lbsr SerialPutChar00FFE2E4 034016 pshs d,x00FFE2E6 0C100D cmpb #CR ; carriage return ?00FFE2E8 026007 bne dccr00FFE2EA 00F111 clr CursorCol ; just set cursor column to zero on a CR00FFE2EC 08DFAE bsr UpdateCursorPosdcx14:00FFE2EE 01600008C lbra dcx4dccr:00FFE2F1 0C1091 cmpb #$91 ; cursor right ?00FFE2F3 02600D bne dcx600FFE2F5 096111 lda CursorCol00FFE2F7 081038 cmpa #5600FFE2F9 024003 bhs dcx700FFE2FB 04C inca00FFE2FC 097111 sta CursorColdcx7:00FFE2FE 08DF9C bsr UpdateCursorPos00FFE300 035096 puls d,x,pcdcx6:00FFE302 0C1090 cmpb #$90 ; cursor up ?00FFE304 026009 bne dcx800FFE306 096110 lda CursorRow00FFE308 027FF4 beq dcx700FFE30A 04A deca00FFE30B 097110 sta CursorRow00FFE30D 020FEF bra dcx7dcx8:00FFE30F 0C1093 cmpb #$93 ; cursor left ?00FFE311 026009 bne dcx900FFE313 096111 lda CursorCol00FFE315 027FE7 beq dcx700FFE317 04A deca00FFE318 097111 sta CursorCol00FFE31A 020FE2 bra dcx7dcx9:00FFE31C 0C1092 cmpb #$92 ; cursor down ?00FFE31E 02600B bne dcx1000FFE320 096110 lda CursorRow00FFE322 08101D cmpa #2900FFE324 027FD8 beq dcx700FFE326 04C inca00FFE327 097110 sta CursorRow00FFE329 020FD3 bra dcx7dcx10:00FFE32B 0C1094 cmpb #$94 ; cursor home ?00FFE32D 02600C bne dcx1100FFE32F 096111 lda CursorCol00FFE331 027004 beq dcx1200FFE333 00F111 clr CursorCol00FFE335 020FC7 bra dcx7dcx12:00FFE337 00F110 clr CursorRow00FFE339 020FC3 bra dcx7dcx11:00FFE33B 0C1099 cmpb #$99 ; delete ?00FFE33D 026008 bne dcx1300FFE33F 08DF7D bsr CalcScreenLoc00FFE341 01F001 tfr d,x00FFE343 096111 lda CursorCol ; acc = cursor column00FFE345 020011 bra dcx5dcx1300FFE347 0C1008 cmpb #CTRLH ; backspace ?00FFE349 02601E bne dcx300FFE34B 096111 lda CursorCol00FFE34D 02702E beq dcx400FFE34F 04A deca00FFE350 097111 sta CursorCol00FFE352 08DF6A bsr CalcScreenLoc00FFE354 01F001 tfr d,x00FFE356 096111 lda CursorColdcx5:00FFE358 0E6001 ldb 1,x00FFE35A 0E7801 stb ,x++00FFE35C 04C inca00FFE35D 081038 cmpa #5600FFE35F 025FF7 blo dcx500FFE361 0C6020 ldb #' '00FFE363 0301FF dex00FFE365 0E7804 stb ,x00FFE367 020014 bra dcx4dcx3:00FFE369 0C100A cmpb #LF ; linefeed ?00FFE36B 02700E beq dclf00FFE36D 034004 pshs b00FFE36F 08DF4D bsr CalcScreenLoc00FFE371 01F001 tfr d,x00FFE373 035004 puls b00FFE375 0E7804 stb ,x; ToDo character color; lda CharColor; sta $2000,x00FFE377 08D006 bsr IncCursorPos00FFE379 020002 bra dcx4dclf:00FFE37B 08D011 bsr IncCursorRowdcx4:00FFE37D 035096 puls d,x,pc;------------------------------------------------------------------------------; Increment the cursor position, scroll the screen if needed.;; Modifies:; none;------------------------------------------------------------------------------IncCursorPos:00FFE37F 034016 pshs d,x00FFE381 096111 lda CursorCol00FFE383 04C inca00FFE384 097111 sta CursorCol00FFE386 081038 cmpa #5600FFE388 025014 blo icc100FFE38A 00F111 clr CursorCol ; column = 000FFE38C 020002 bra icr1IncCursorRow:00FFE38E 034016 pshs d,xicr1:00FFE390 096110 lda CursorRow00FFE392 04C inca00FFE393 097110 sta CursorRow00FFE395 08101D cmpa #2900FFE397 025005 blo icc100FFE399 04A deca ; backup the cursor row, we are scrolling up00FFE39A 097110 sta CursorRow00FFE39C 08DE9F bsr ScrollUpicc1:00FFE39E 08DEFC bsr UpdateCursorPosicc2:00FFE3A0 035096 puls d,x,pc;------------------------------------------------------------------------------; Display a string on the screen.;; Modifies:; none; Parameters:; d = pointer to string;------------------------------------------------------------------------------;DisplayString:00FFE3A2 034016 pshs d,x00FFE3A4 01F001 tfr d,xdspj2: ; lock semaphore for access00FFE3A6 0B6EF0001 lda OUTSEMA+100FFE3A9 027FFB beq dspj2dspj1B:00FFE3AB 0E6800 ldb ,x+ ; move string char into acc00FFE3AD 027005 beq dsretB ; is it end of string ?00FFE3AF 017000960 lbsr OUTCH ; display character00FFE3B2 020FF7 bra dspj1BdsretB:00FFE3B4 07FEF0001 clr OUTSEMA+1 ; unlock semaphore00FFE3B7 035096 puls d,x,pcDisplayStringCRLF:00FFE3B9 034006 pshs d00FFE3BB 08DFE5 bsr DisplayString00FFE3BD 0C600D ldb #CR00FFE3BF 017000950 lbsr OUTCH00FFE3C2 0C600A ldb #LF00FFE3C4 01700094B lbsr OUTCH00FFE3C7 035086 puls d,pc;; PRINT CR, LF, STRING;PSTRNG00FFE3C9 08D002 BSR PCRLF00FFE3CB 02000D BRA PDATAPCRLF00FFE3CD 034010 PSHS X00FFE3CF 08EFFE3E1 LDX #CRLFST00FFE3D2 08D006 BSR PDATA00FFE3D4 035010 PULS X00FFE3D6 039 RTS00FFE3D7 0BDFFED12 JSR OUTCHPDATA00FFE3DA 0E6800 LDB ,X+00FFE3DC 0C1004 CMPB #$0400FFE3DE 026FF7 BNE PRINT00FFE3E0 039 RTSCRLFST00FFE3E1 00D00A004 fcb CR,LF,4DispDWordAsHex:00FFE3E4 08D007 bsr DispWordAsHex00FFE3E6 01E001 exg d,x00FFE3E8 08D003 bsr DispWordAsHex00FFE3EA 01E001 exg d,x00FFE3EC 039 rtsDispWordAsHex:00FFE3ED 01E089 exg a,b00FFE3EF 08D005 bsr DispByteAsHex00FFE3F1 01E089 exg a,b00FFE3F3 08D001 bsr DispByteAsHex00FFE3F5 039 rtsDispByteAsHex:00FFE3F6 034004 pshs b00FFE3F8 054 lsrb00FFE3F9 054 lsrb00FFE3FA 054 lsrb00FFE3FB 054 lsrb00FFE3FC 054 lsrb00FFE3FD 054 lsrb00FFE3FE 054 lsrb00FFE3FF 054 lsrb00FFE400 08D00C bsr DispNyb00FFE402 035004 puls b00FFE404 034004 pshs b00FFE406 054 lsrb00FFE407 054 lsrb00FFE408 054 lsrb00FFE409 054 lsrb00FFE40A 08D002 bsr DispNyb00FFE40C 035004 puls bDispNyb00FFE40E 034004 pshs b00FFE410 0C400F andb #$0F00FFE412 0C100A cmpb #1000FFE414 025007 blo DispNyb100FFE416 0CB037 addb #'A'-1000FFE418 0170008F7 lbsr OUTCH00FFE41B 035084 puls b,pcDispNyb100FFE41D 0CB030 addb #'0'00FFE41F 0170008F0 lbsr OUTCH00FFE422 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:00FFE424 0CC061A80 ldd #$61A80 ; compare to 400000 (100 Hz assuming 40MHz clock)00FFE427 0150F7FFFE60014 stb VIA+VIA_T3CMPL00FFE42C 0150B7FFFE60015 sta VIA+VIA_T3CMPH00FFE431 01507FFFFE60012 clr VIA+VIA_T3LL00FFE436 01507FFFFE60013 clr VIA+VIA_T3LH00FFE43B 0150B6FFFE6000B lda VIA+VIA_ACR ; set continuous mode for timer00FFE440 08A100 ora #$10000FFE442 0150B7FFFE6000B sta VIA+VIA_ACR ; enable timer #3 interrupts00FFE447 086810 lda #$81000FFE449 0150B7FFFE6000E sta VIA+VIA_IER00FFE44E 039 rtsTimerIRQ:; Reset the edge sense circuit in the PIC00FFE44F 08601F lda #31 ; Timer is IRQ #3100FFE451 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()00FFE454 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFE459 0150B6FFFE6000D lda VIA+VIA_IFR00FFE45E 02A011 bpl notTimerIRQ00FFE460 085800 bita #$80000FFE462 02700D beq notTimerIRQ00FFE464 01507FFFFE60012 clr VIA+VIA_T3LL00FFE469 01507FFFFE60013 clr VIA+VIA_T3LH00FFE46E 07CE00037 inc $E00037 ; update timer IRQ screen flagnotTimerIRQ:00FFE471 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:00FFE472 034004 pshs b00FFE474 0C6004 ldb #4 ; setup prescale for 400kHz clock00FFE476 0E7804 stb I2C_PREL,x00FFE478 06F001 clr I2C_PREH,x00FFE47A 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for I2C transfer to complete;; Parameters; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_tip:00FFE47C 034004 pshs bi2cw1:00FFE47E 0E6004 ldb I2C_STAT,x ; would use lvb, but lb is okay since its the I/O area00FFE480 0C5001 bitb #1 ; wait for tip to clear00FFE482 026FFA bne i2cw100FFE484 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Write command to i2c;; Parameters; accb - data to transmit; acca - command value; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wr_cmd:00FFE486 0E7003 stb I2C_TXR,x00FFE488 0A7004 sta I2C_CMD,x00FFE48A 08DFF0 bsr i2c_wait_tip00FFE48C 0E6004 ldb I2C_STAT,x00FFE48E 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Parameters; x - I2C controller base address; accb - data to send; Returns: none; Stack space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -_i2c_xmit1:00FFE48F 034006 pshs d ; save data value00FFE491 034006 pshs d ; and save it again00FFE493 0C6001 ldb #100FFE495 0E7002 stb I2C_CTRL,x ; enable the core00FFE497 0C6076 ldb #$76 ; set slave address = %011101100FFE499 086090 lda #$90 ; set STA, WR00FFE49B 08DFE9 bsr i2c_wr_cmd00FFE49D 08D00A bsr i2c_wait_rx_nack00FFE49F 035006 puls d ; get back data value00FFE4A1 086050 lda #$50 ; set STO, WR00FFE4A3 08DFE1 bsr i2c_wr_cmd00FFE4A5 08D002 bsr i2c_wait_rx_nack00FFE4A7 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_rx_nack:00FFE4A9 034004 pshs b ; save off accbi2cwr1:00FFE4AB 0E6004 ldb I2C_STAT,x ; wait for RXack = 000FFE4AD 0C5080 bitb #$80 ; test for nack00FFE4AF 026FFA bne i2cwr100FFE4B1 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:00FFE4B3 08EE30500 ldx #RTC00FFE4B6 18E007FC0 ldy #RTCBuf00FFE4B9 0C6080 ldb #$8000FFE4BB 0E7002 stb I2C_CTRL,x ; enable I2C00FFE4BD 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE4C0 08DFC4 bsr i2c_wr_cmd00FFE4C2 0C5080 bitb #$8000FFE4C4 02603C bne rtc_rxerr00FFE4C6 0CC010000 ldd #$10000 ; address zero, wr bit00FFE4C9 08DFBB bsr i2c_wr_cmd00FFE4CB 0C5080 bitb #$8000FFE4CD 026033 bne rtc_rxerr00FFE4CF 0CC0900DF ldd #$900DF ; read address, read op, STA + wr bit00FFE4D2 08DFB2 bsr i2c_wr_cmd00FFE4D4 0C5080 bitb #$8000FFE4D6 02602A bne rtc_rxerr00FFE4D8 05F clrbrtcr0001:00FFE4D9 086020 lda #$2000FFE4DB 0A7004 sta I2C_CMD,x ; rd bit00FFE4DD 08DF9D bsr i2c_wait_tip00FFE4DF 08DFC8 bsr i2c_wait_rx_nack00FFE4E1 0A6004 lda I2C_STAT,x00FFE4E3 085080 bita #$8000FFE4E5 02601B bne rtc_rxerr00FFE4E7 0A6003 lda I2C_RXR,x00FFE4E9 0A7A07 sta b,y00FFE4EB 05C incb00FFE4EC 0C105F cmpb #$5F00FFE4EE 025FE9 blo rtcr000100FFE4F0 086068 lda #$6800FFE4F2 0A7004 sta I2C_CMD,x ; STO, rd bit + nack00FFE4F4 08DF86 bsr i2c_wait_tip00FFE4F6 0A6004 lda I2C_STAT,x00FFE4F8 085080 bita #$8000FFE4FA 026006 bne rtc_rxerr00FFE4FC 0A6003 lda I2C_RXR,x00FFE4FE 0A7A07 sta b,y00FFE500 04F05F clrd ; return 0rtc_rxerr:00FFE502 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE504 04F clra00FFE505 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:00FFE506 08EE30500 ldx #RTC00FFE509 18E007FC0 ldy #RTCBuf00FFE50C 0C6080 ldb #$8000FFE50E 0E7002 stb I2C_CTRL,x ; enable I2C00FFE510 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE513 08DF71 bsr i2c_wr_cmd00FFE515 0C5080 bitb #$8000FFE517 026FE9 bne rtc_rxerr00FFE519 0CC010000 ldd #$10000 ; address zero, wr bit00FFE51C 08DF68 bsr i2c_wr_cmd00FFE51E 0C5080 bitb #$8000FFE520 026FE0 bne rtc_rxerr00FFE522 0C6000 ldb #0rtcw0001:00FFE524 034004 pshs b00FFE526 0E6A05 ldb b,y00FFE528 086010 lda #$1000FFE52A 08DF5A bsr i2c_wr_cmd00FFE52C 0C5080 bitb #$8000FFE52E 035004 puls b00FFE530 026FD0 bne rtc_rxerr00FFE532 05C incb00FFE533 0C105F cmpb #$5F00FFE535 025FED blo rtcw000100FFE537 0E6A05 ldb b,y00FFE539 086050 lda #$50 ; STO, wr bit00FFE53B 08DF49 bsr i2c_wr_cmd00FFE53D 0C5080 bitb #$8000FFE53F 026FC1 bne rtc_rxerr00FFE541 04F05F clrd ; return 000FFE543 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE545 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 017FFFA2D 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 0B6FF0010 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 0B7FF0011 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 0B1FF0010 cmpa IOFocusID00FFEB85 026FFB bne sini100FFEB87 0C6009 ldb #$09 ; dtr,rts active, rxint enabled, no parity00FFEB89 0150F7FFFE30102 stb ACIA+ACIA_CMD00FFEB8E 0C601E ldb #$1E ; 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 0B1FF0010 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 0B1FF0010 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 0B6FF0010 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 017FFF6F5 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 0F1FF0010 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 017FFF5D0 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 FFED84 fcw ReleaseIOFocus00FFED55 000000 fcw 000FFED57 FFED6D fcw RequestIOFocusOSCall:; wait for availabilityosc1:00FFED59 07DEF0011 tst OSSEMA+100FFED5C 027FFB beq osc100FFED5E 058 aslb00FFED5F 08EFFED27 ldx #OSCallTbl00FFED62 03A abx00FFED63 06D804 tst ,x00FFED65 027002 beq oscx00FFED67 06E904 jmp [,x]oscx:00FFED69 07FEF0011 clr OSSEMA+100FFED6C 039 rtsRequestIOFocus:00FFED6D 0150F6FFFFFFFE0 ldb COREID00FFED72 08EFF0000 ldx #IOFocusList00FFED75 03A abx00FFED76 0A7804 sta ,x00FFED78 07DFF0010 tst IOFocusID00FFED7B 126FFFFEB lbne oscx*** warning 1: Long branch within short branch range could be optimized00FFED7E 0F7FF0010 stb IOFocusID00FFED81 016FFFFE5 lbra oscx*** warning 1: Long branch within short branch range could be optimizedReleaseIOFocus:00FFED84 0150F6FFFFFFFE0 ldb COREID00FFED89 08EFF0000 ldx #IOFocusList00FFED8C 03A abx00FFED8D 06F804 clr ,x ; clear the request indicator00FFED8F 017FFF44F lbsr CopyScreenToVirtualScreen*** warning 1: Long branch within short branch range could be optimized00FFED92 0F1FF0010 cmpb IOFocusID ; are we the one with the focus?00FFED95 126FFFFD1 lbne oscx*** warning 1: Long branch within short branch range could be optimized; 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.00FFED98 08600F lda #15riof2:00FFED9A 05C incb00FFED9B 0C400F andb #1500FFED9D 03A abx00FFED9E 06D804 tst ,x00FFEDA0 026009 bne riof100FFEDA2 04A deca00FFEDA3 026FF5 bne riof2; If no focus is requested by anyone, give to core #100FFEDA5 0C6001 ldb #100FFEDA7 086018 lda #2400FFEDA9 0A7804 sta ,xriof1:00FFEDAB 0F7FF0010 stb IOFocusID00FFEDAE 017FFF3F9 lbsr CopyVirtualScreenToScreen*** warning 1: Long branch within short branch range could be optimized00FFEDB1 016FFFFB5 lbra oscx*** warning 1: Long branch within short branch range could be optimized;==============================================================================; Disassembler;==============================================================================; ============================================================================; __; \\__/ 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.;; ============================================================================;; Disassembler;;DIRECT EQU 1LSREL EQU 2IMMB EQU 3SREL EQU 4NDX EQU 5EXT EQU 6IMMW EQU 7FAREXT EQU 8distbl1:; 00 to 0F00FFEDB4 04E045047020001 fcb "NEG ", DIRECT00FFEDB9 020020020020000 fcb " ", 000FFEDBE 020020020020000 fcb " ", 000FFEDC3 04304F04D020001 fcb "COM ", DIRECT00FFEDC8 04C053052020001 fcb "LSR ", DIRECT00FFEDCD 020020020020000 fcb " ", 000FFEDD2 05204F052020001 fcb "ROR ", DIRECT00FFEDD7 041053052020001 fcb "ASR ", DIRECT00FFEDDC 04105304C020001 fcb "ASL ", DIRECT00FFEDE1 05204F04C020001 fcb "ROL ", DIRECT00FFEDE6 044045043020001 fcb "DEC ", DIRECT00FFEDEB 020020020020000 fcb " ", 000FFEDF0 04904E043020001 fcb "INC ", DIRECT00FFEDF5 054053054020001 fcb "TST ", DIRECT00FFEDFA 04A04D050020001 fcb "JMP ", DIRECT00FFEDFF 04304C052020001 fcb "CLR ", DIRECT; 10 to 1F00FFEE04 020020020020000 fcb " ", 000FFEE09 020020020020000 fcb " ", 000FFEE0E 04E04F050020000 fcb "NOP ", 000FFEE13 05305904E043000 fcb "SYNC", 000FFEE18 020020020020000 fcb " ", 000FFEE1D 046041052020000 fcb "FAR ", 000FFEE22 04C042052041002 fcb "LBRA", LSREL00FFEE27 04C042053052002 fcb "LBSR", LSREL00FFEE2C 020020020020000 fcb " ", 000FFEE31 044041041020000 fcb "DAA ", 000FFEE36 04F052043043003 fcb "ORCC", IMMB00FFEE3B 020020020020000 fcb " ", 000FFEE40 04104E044043003 fcb "ANDC", IMMB00FFEE45 053045058020000 fcb "SEX ", 000FFEE4A 045058047020003 fcb "EXG ", IMMB00FFEE4F 054046052020003 fcb "TFR ", IMMB; 20 to 2F00FFEE54 042052041020004 fcb "BRA ", SREL00FFEE59 04205204E020004 fcb "BRN ", SREL00FFEE5E 042048049020004 fcb "BHI ", SREL00FFEE63 04204C053020004 fcb "BLS ", SREL00FFEE68 042048053020004 fcb "BHS ", SREL00FFEE6D 04204C04F020004 fcb "BLO ", SREL00FFEE72 04204E045020004 fcb "BNE ", SREL00FFEE77 042045051020004 fcb "BEQ ", SREL00FFEE7C 042056043020004 fcb "BVC ", SREL00FFEE81 042056053020004 fcb "BVS ", SREL00FFEE86 04205004C020004 fcb "BPL ", SREL00FFEE8B 04204D049020004 fcb "BMI ", SREL00FFEE90 042047045020004 fcb "BGE ", SREL00FFEE95 04204C054020004 fcb "BLT ", SREL00FFEE9A 042047054020004 fcb "BGT ", SREL00FFEE9F 04204C045020004 fcb "BLE ", SREL; 30 to 3F00FFEEA4 04C045041058005 fcb "LEAX", NDX00FFEEA9 04C045041059005 fcb "LEAY", NDX00FFEEAE 04C045041053005 fcb "LEAS", NDX00FFEEB3 04C045041055005 fcb "LEAU", NDX00FFEEB8 050053048053003 fcb "PSHS", IMMB00FFEEBD 05005504C053003 fcb "PULS", IMMB00FFEEC2 050053048055003 fcb "PSHU", IMMB00FFEEC7 05005504C055003 fcb "PULU", IMMB00FFEECC 052054046020000 fcb "RTF ", 000FFEED1 052054053020000 fcb "RTS ", 000FFEED6 041042058020000 fcb "ABX ", 000FFEEDB 052054049020000 fcb "RTI ", 000FFEEE0 043057041049003 fcb "CWAI", IMMB00FFEEE5 04D05504C020000 fcb "MUL ", 000FFEEEA 020020020020000 fcb " ", 000FFEEEF 053057049020000 fcb "SWI ", 0; 40 to 4F00FFEEF4 04E045047041000 fcb "NEGA", 000FFEEF9 020020020020000 fcb " ", 000FFEEFE 020020020020000 fcb " ", 000FFEF03 04304F04D041000 fcb "COMA", 000FFEF08 04C053052041000 fcb "LSRA", 000FFEF0D 020020020020000 fcb " ", 000FFEF12 05204F052041000 fcb "RORA", 000FFEF17 041053052041000 fcb "ASRA", 000FFEF1C 04105304C041000 fcb "ASLA", 000FFEF21 05204F04C041000 fcb "ROLA", 000FFEF26 044045043041000 fcb "DECA", 000FFEF2B 020020020020000 fcb " ", 000FFEF30 04904E043041000 fcb "INCA", 000FFEF35 054053054041000 fcb "TSTA", 000FFEF3A 020020020020000 fcb " ", 000FFEF3F 04304C052041000 fcb "CLRA", 0; 50 to 5F00FFEF44 04E045047042000 fcb "NEGB", 000FFEF49 020020020020000 fcb " ", 000FFEF4E 020020020020000 fcb " ", 000FFEF53 04304F04D042000 fcb "COMB", 000FFEF58 04C053052042000 fcb "LSRB", 000FFEF5D 020020020020000 fcb " ", 000FFEF62 05204F052042000 fcb "RORB", 000FFEF67 041053052042000 fcb "ASRB", 000FFEF6C 04105304C042000 fcb "ASLB", 000FFEF71 05204F04C042000 fcb "ROLB", 000FFEF76 044045043042000 fcb "DECB", 000FFEF7B 020020020020000 fcb " ", 000FFEF80 04904E043042000 fcb "INCB", 000FFEF85 054053054042000 fcb "TSTB", 000FFEF8A 020020020020000 fcb " ", 000FFEF8F 04304C052042000 fcb "CLRB", 0; 60 to 6F00FFEF94 04E045047020005 fcb "NEG ", NDX00FFEF99 020020020020000 fcb " ", 000FFEF9E 020020020020000 fcb " ", 000FFEFA3 04304F04D020005 fcb "COM ", NDX00FFEFA8 04C053052020005 fcb "LSR ", NDX00FFEFAD 020020020020000 fcb " ", 000FFEFB2 05204F052020005 fcb "ROR ", NDX00FFEFB7 041053052020005 fcb "ASR ", NDX00FFEFBC 04105304C020005 fcb "ASL ", NDX00FFEFC1 05204F04C020005 fcb "ROL ", NDX00FFEFC6 044045043020005 fcb "DEC ", NDX00FFEFCB 020020020020000 fcb " ", 000FFEFD0 04904E043020005 fcb "INC ", NDX00FFEFD5 054053054020005 fcb "TST ", NDX00FFEFDA 04A04D050020005 fcb "JMP ", NDX00FFEFDF 04304C052020005 fcb "CLR ", NDX; 70 to 7F00FFEFE4 04E045047020006 fcb "NEG ", EXT00FFEFE9 020020020020000 fcb " ", 000FFEFEE 020020020020000 fcb " ", 000FFEFF3 04304F04D020006 fcb "COM ", EXT00FFEFF8 04C053052020006 fcb "LSR ", EXT00FFEFFD 020020020020000 fcb " ", 000FFF002 05204F052020006 fcb "ROR ", EXT00FFF007 041053052020006 fcb "ASR ", EXT00FFF00C 04105304C020006 fcb "ASL ", EXT00FFF011 05204F04C020006 fcb "ROL ", EXT00FFF016 044045043020006 fcb "DEC ", EXT00FFF01B 020020020020000 fcb " ", 000FFF020 04904E043020006 fcb "INC ", EXT00FFF025 054053054020006 fcb "TST ", EXT00FFF02A 04A04D050020006 fcb "JMP ", EXT00FFF02F 04304C052020006 fcb "CLR ", EXT; 80 to 8F00FFF034 053055042041003 fcb "SUBA", IMMB00FFF039 04304D050041003 fcb "CMPA", IMMB00FFF03E 053042043041003 fcb "SBCA", IMMB00FFF043 053055042044007 fcb "SUBD", IMMW00FFF048 04104E044041003 fcb "ANDA", IMMB00FFF04D 042049054041003 fcb "BITA", IMMB00FFF052 04C044041020003 fcb "LDA ", IMMB00FFF057 020020020020000 fcb " ", 000FFF05C 04504F052041003 fcb "EORA", IMMB00FFF061 041044043041003 fcb "ADCA", IMMB00FFF066 04F052041020003 fcb "ORA ", IMMB00FFF06B 041044044041003 fcb "ADDA", IMMB00FFF070 04304D050058007 fcb "CMPX", IMMW00FFF075 042053052020004 fcb "BSR ", SREL00FFF07A 04C044058020007 fcb "LDX ", IMMW00FFF07F 04A04D046020008 fcb "JMF ", FAREXT; 90 to 9F00FFF084 053055042041001 fcb "SUBA", DIRECT00FFF089 04304D050041001 fcb "CMPA", DIRECT00FFF08E 053042043041001 fcb "SBCA", DIRECT00FFF093 053055042044001 fcb "SUBD", DIRECT00FFF098 04104E044041001 fcb "ANDA", DIRECT00FFF09D 042049054041001 fcb "BITA", DIRECT00FFF0A2 04C044041020001 fcb "LDA ", DIRECT00FFF0A7 053054041020001 fcb "STA ", DIRECT00FFF0AC 04504F052041001 fcb "EORA", DIRECT00FFF0B1 041044043041001 fcb "ADCA", DIRECT00FFF0B6 04F052041020001 fcb "ORA ", DIRECT00FFF0BB 041044044041001 fcb "ADDA", DIRECT00FFF0C0 04304D050058001 fcb "CMPX", DIRECT00FFF0C5 04A053052020001 fcb "JSR ", DIRECT00FFF0CA 04C044058020001 fcb "LDX ", DIRECT00FFF0CF 053054058020001 fcb "STX ", DIRECT; A0 to AF00FFF0D4 053055042041005 fcb "SUBA", NDX00FFF0D9 04304D050041005 fcb "CMPA", NDX00FFF0DE 053042043041005 fcb "SBCA", NDX00FFF0E3 053055042044005 fcb "SUBD", NDX00FFF0E8 04104E044041005 fcb "ANDA", NDX00FFF0ED 042049054041005 fcb "BITA", NDX00FFF0F2 04C044041020005 fcb "LDA ", NDX00FFF0F7 053054041020005 fcb "STA ", NDX00FFF0FC 04504F052041005 fcb "EORA", NDX00FFF101 041044043041005 fcb "ADCA", NDX00FFF106 04F052041020005 fcb "ORA ", NDX00FFF10B 041044044041005 fcb "ADDA", NDX00FFF110 04304D050058005 fcb "CMPX", NDX00FFF115 04A053052020005 fcb "JSR ", NDX00FFF11A 04C044058020005 fcb "LDX ", NDX00FFF11F 053054058020005 fcb "STX ", NDX; B0 to BF00FFF124 053055042041006 fcb "SUBA", EXT00FFF129 04304D050041006 fcb "CMPA", EXT00FFF12E 053042043041006 fcb "SBCA", EXT00FFF133 053055042044006 fcb "SUBD", EXT00FFF138 04104E044041006 fcb "ANDA", EXT00FFF13D 042049054041006 fcb "BITA", EXT00FFF142 04C044041020006 fcb "LDA ", EXT00FFF147 053054041020006 fcb "STA ", EXT00FFF14C 04504F052041006 fcb "EORA", EXT00FFF151 041044043041006 fcb "ADCA", EXT00FFF156 04F052041020006 fcb "ORA ", EXT00FFF15B 041044044041006 fcb "ADDA", EXT00FFF160 04304D050058006 fcb "CMPX", EXT00FFF165 04A053052020006 fcb "JSR ", EXT00FFF16A 04C044058020006 fcb "LDX ", EXT00FFF16F 053054058020006 fcb "STX ", EXT; C0 to CF00FFF174 053055042042003 fcb "SUBB", IMMB00FFF179 04304D050042003 fcb "CMPB", IMMB00FFF17E 053042043062003 fcb "SBCb", IMMB00FFF183 041044044044007 fcb "ADDD", IMMW00FFF188 04104E044042003 fcb "ANDB", IMMB00FFF18D 042049054042003 fcb "BITB", IMMB00FFF192 04C044042020003 fcb "LDB ", IMMB00FFF197 020020020020000 fcb " ", 000FFF19C 04504F052042003 fcb "EORB", IMMB00FFF1A1 041044043042003 fcb "ADCB", IMMB00FFF1A6 04F052042020003 fcb "ORB ", IMMB00FFF1AB 041044044042003 fcb "ADDB", IMMB00FFF1B0 04C044044020007 fcb "LDD ", IMMW00FFF1B5 020020020020004 fcb " ", SREL00FFF1BA 04C044055020007 fcb "LDU ", IMMW00FFF1BF 04A053046020008 fcb "JSF ", FAREXT; D0 to DF00FFF1C4 053055042042001 fcb "SUBB", DIRECT00FFF1C9 04304D050042001 fcb "CMPB", DIRECT00FFF1CE 053042043042001 fcb "SBCB", DIRECT00FFF1D3 041044044044001 fcb "ADDD", DIRECT00FFF1D8 04104E044042001 fcb "ANDB", DIRECT00FFF1DD 042049054042001 fcb "BITB", DIRECT00FFF1E2 04C044042020001 fcb "LDB ", DIRECT00FFF1E7 053054042020001 fcb "STB ", DIRECT00FFF1EC 04504F052042001 fcb "EORB", DIRECT00FFF1F1 041044043042001 fcb "ADCB", DIRECT00FFF1F6 04F052042020001 fcb "ORB ", DIRECT00FFF1FB 041044044042001 fcb "ADDB", DIRECT00FFF200 04C044044020001 fcb "LDD ", DIRECT00FFF205 053054044020001 fcb "STD ", DIRECT00FFF20A 04C044055020001 fcb "LDU ", DIRECT00FFF20F 053054055020001 fcb "STU ", DIRECT; E0 to EF00FFF214 053055042042005 fcb "SUBB", NDX00FFF219 04304D050042005 fcb "CMPB", NDX00FFF21E 053042043042005 fcb "SBCB", NDX00FFF223 041044044044005 fcb "ADDD", NDX00FFF228 04104E044042005 fcb "ANDB", NDX00FFF22D 042049054042005 fcb "BITB", NDX00FFF232 04C044042020005 fcb "LDB ", NDX00FFF237 053054042020005 fcb "STB ", NDX00FFF23C 04504F052042005 fcb "EORB", NDX00FFF241 041044043042005 fcb "ADCB", NDX00FFF246 04F052042020005 fcb "ORB ", NDX00FFF24B 041044044042005 fcb "ADDB", NDX00FFF250 04C044044020005 fcb "LDD ", NDX00FFF255 053054044020005 fcb "STD ", NDX00FFF25A 04C044055020005 fcb "LDU ", NDX00FFF25F 053054055020005 fcb "STU ", NDX; F0 to FF00FFF264 053055042042006 fcb "SUBB", EXT00FFF269 04304D050042006 fcb "CMPB", EXT00FFF26E 053042043042006 fcb "SBCB", EXT00FFF273 041044044044006 fcb "ADDD", EXT00FFF278 04104E044042006 fcb "ANDB", EXT00FFF27D 042049054042006 fcb "BITB", EXT00FFF282 04C044042020006 fcb "LDB ", EXT00FFF287 053054042020006 fcb "STB ", EXT00FFF28C 04504F052042006 fcb "EORB", EXT00FFF291 041044043042006 fcb "ADCB", EXT00FFF296 04F052042020006 fcb "ORB ", EXT00FFF29B 041044044042006 fcb "ADDB", EXT00FFF2A0 04C044044020006 fcb "LDD ", EXT00FFF2A5 053054044020006 fcb "STD ", EXT00FFF2AA 04C044055020006 fcb "LDU ", EXT00FFF2AF 053054055020006 fcb "STU ", EXT; 120 to 12Fdistbl2:00FFF2B4 04C042052041 fcb "LBRA"00FFF2B8 04C04205204E fcb "LBRN"00FFF2BC 04C042048049 fcb "LBHI"00FFF2C0 04C04204C053 fcb "LBLS"00FFF2C4 04C042048053 fcb "LBHS"00FFF2C8 04C04204C04F fcb "LBLO"00FFF2CC 04C04204E045 fcb "LBNE"00FFF2D0 04C042045051 fcb "LBEQ"00FFF2D4 04C042056043 fcb "LBVC"00FFF2D8 04C042056053 fcb "LBVS"00FFF2DC 04C04205004C fcb "LBPL"00FFF2E0 04C04204D049 fcb "LBMI"00FFF2E4 04C042047045 fcb "LBGE"00FFF2E8 04C04204C054 fcb "LBLT"00FFF2EC 04C042047054 fcb "LBGT"00FFF2F0 04C04204C045 fcb "LBLE"distbl3:00FFF2F4 13F fcb $13F00FFF2F5 183 fcb $18300FFF2F6 18C fcb $18C00FFF2F7 18E fcb $18E00FFF2F8 193 fcb $19300FFF2F9 19C fcb $19C00FFF2FA 19E fcb $19E00FFF2FB 19F fcb $19F00FFF2FC 1A3 fcb $1A300FFF2FD 1AC fcb $1AC00FFF2FE 1AE fcb $1AE00FFF2FF 1AF fcb $1AF00FFF300 1B3 fcb $1B300FFF301 1BC fcb $1BC00FFF302 1BE fcb $1BE00FFF303 1BF fcb $1BF00FFF304 1CE fcb $1CE00FFF305 1DE fcb $1DE00FFF306 1DF fcb $1DF00FFF307 1EE fcb $1EE00FFF308 1EF fcb $1EF00FFF309 1FE fcb $1FE00FFF30A 1FF fcb $1FF00FFF30B 23F fcb $23F00FFF30C 283 fcb $28300FFF30D 28C fcb $28C00FFF30E 293 fcb $29300FFF30F 29C fcb $29C00FFF310 2A3 fcb $2A300FFF311 2AC fcb $2AC00FFF312 2B3 fcb $2B300FFF313 2BC fcb $2BCdistbl4:00FFF314 053057049032000 fcb "SWI2", 000FFF319 04304D050044007 fcb "CMPD", IMMW00FFF31E 04304D050059007 fcb "CMPY", IMMW00FFF323 04C044059020007 fcb "LDY ", IMMW00FFF328 04304D050044001 fcb "CMPD", DIRECT00FFF32D 04304D050059001 fcb "CMPY", DIRECT00FFF332 04C044059020001 fcb "LDY ", DIRECT00FFF337 053054059020001 fcb "STY ", DIRECT00FFF33C 04304D050044005 fcb "CMPD", NDX00FFF341 04304D050059005 fcb "CMPY", NDX00FFF346 04C044059020005 fcb "LDY ", NDX00FFF34B 053054059020005 fcb "STY ", NDX00FFF350 04304D050044006 fcb "CMPD", EXT00FFF355 04304D050059006 fcb "CMPY", EXT00FFF35A 04C044059020006 fcb "LDY ", EXT00FFF35F 053054059020006 fcb "STY ", EXT00FFF364 04C044053020007 fcb "LDS ", IMMW00FFF369 04C044053020001 fcb "LDS ", DIRECT00FFF36E 053054053020001 fcb "STS ", DIRECT00FFF373 04C044053020005 fcb "LDS ", NDX00FFF378 053054053020005 fcb "STS ", NDX00FFF37D 04C044053020006 fcb "LDS ", EXT00FFF382 053054053020006 fcb "STS ", EXT00FFF387 053057049033000 fcb "SWI3", 000FFF38C 04304D050055007 fcb "CMPU", IMMW00FFF391 04304D050053007 fcb "CMPS", IMMW00FFF396 04304D050055001 fcb "CMPU", DIRECT00FFF39B 04304D050053001 fcb "CMPS", DIRECT00FFF3A0 04304D050055005 fcb "CMPU", NDX00FFF3A5 04304D050053005 fcb "CMPS", NDX00FFF3AA 04304D050055006 fcb "CMPU", EXT00FFF3AF 04304D050053006 fcb "CMPS", EXTdisassem:00FFF3B4 0170005FE lbsr GetTwoParams00FFF3B7 017FFDD18 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF3BA 1BE000922 ldy mon_r1+2disLoop1:00FFF3BD 01F020 tfr y,d00FFF3BF 017FFF02B lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF3C2 0C6020 ldb #' '00FFF3C4 017FFF94B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3C7 0E6A00 ldb ,y+00FFF3C9 0C5300 bitb #$30000FFF3CB 126000400 lbne dis1dis20:00FFF3CE 08EFFEDB4 ldx #distbl1dis23:00FFF3D1 086005 lda #500FFF3D3 03D mul00FFF3D4 03A abx00FFF3D5 0E6800 ldb ,x+00FFF3D7 017FFF938 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3DA 0E6800 ldb ,x+00FFF3DC 017FFF933 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3DF 0E6800 ldb ,x+00FFF3E1 017FFF92E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3E4 0E6800 ldb ,x+00FFF3E6 017FFF929 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3E9 0C6020 ldb #' '00FFF3EB 017FFF924 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3EE 0E6800 ldb ,x+00FFF3F0 12700042E lbeq disNextLine00FFF3F3 0C1001 cmpb #DIRECT00FFF3F5 026008 bne disNotDirect00FFF3F7 0E6A00 ldb ,y+00FFF3F9 017FFEFFA lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF3FC 016000422 lbra disNextLinedisNotDirect:00FFF3FF 0C1002 cmpb #LSREL00FFF401 02600C bne disNotLReldis21:00FFF403 0ECA01 ldd ,y++dis2:00FFF405 030A0B leax d,y00FFF407 01F010 tfr x,d00FFF409 017FFEFE1 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF40C 016000412 lbra disNextLinedisNotLRel:00FFF40F 0C1004 cmpb #SREL00FFF411 026005 bne disNotRel00FFF413 0E6A00 ldb ,y+00FFF415 04F clra00FFF416 020FED bra dis2disNotRel:00FFF418 0C1005 cmpb #NDX00FFF41A 026385 bne disNotNdx00FFF41C 0E6A00 ldb ,y+00FFF41E 0C5800 bitb #$80000FFF420 02601E bne disNot9 ; test for offset 9 mode00FFF422 034004 pshs b00FFF424 0C41FF andb #$1FF ; mask to offset bits00FFF426 04F clra ;00FFF427 0C5100 bitb #$100 ; test for negative offset00FFF429 027003 beq dis300FFF42B 04A deca ; sign extend offset00FFF42C 0CAE00 orb #$E00dis3:00FFF42E 017FFEFBC lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF431 0C602C ldb #','00FFF433 017FFF8DC lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF436 035004 puls b00FFF438 08D3F7 bsr disNdxReg00FFF43A 017FFF8D5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF43D 0160003E1 lbra disNextLinedisNot9:00FFF440 034004 pshs b00FFF442 0C5100 bitb #$100 ; check if indirect00FFF444 026005 bne dis400FFF446 0C605B ldb #'['00FFF448 017FFF8C7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis4:00FFF44B 0E6E04 ldb ,s ; get back b00FFF44D 0C400F andb #1500FFF44F 026030 bne disNotRplus00FFF451 0E6E04 ldb ,s00FFF453 0C5080 bitb #$80 ; outer indexed?00FFF455 026005 bne dis500FFF457 0C605D ldb #']'00FFF459 017FFF8B6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis5:00FFF45C 0C602C ldb #','00FFF45E 017FFF8B1 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF461 0E6E04 ldb ,s00FFF463 08D3CC bsr disNdxReg00FFF465 017FFF8AA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF468 0C602B ldb #'+'00FFF46A 017FFF8A5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF46D 035004 puls b00FFF46F 0C5100 bitb #$10000FFF471 1260003AD lbne disNextLine00FFF474 0C5080 bitb #$8000FFF476 1260003A8 lbne disNextLine00FFF479 0C605D ldb #']'00FFF47B 017FFF894 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF47E 0160003A0 lbra disNextLinedisNotRplus:00FFF481 0C1001 cmpb #100FFF483 026033 bne disNotRplusplus00FFF485 0E6E04 ldb ,s00FFF487 0C5080 bitb #$80 ; outer indexed?00FFF489 026005 bne dis600FFF48B 0C605D ldb #']'00FFF48D 017FFF882 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis6:00FFF490 0C602C ldb #','00FFF492 017FFF87D lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF495 0E6E04 ldb ,s00FFF497 08D398 bsr disNdxReg00FFF499 017FFF876 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF49C 0C602B ldb #'+'00FFF49E 017FFF871 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4A1 017FFF86E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4A4 035004 puls b00FFF4A6 0C5100 bitb #$10000FFF4A8 126000376 lbne disNextLine00FFF4AB 0C5080 bitb #$8000FFF4AD 126000371 lbne disNextLine00FFF4B0 0C605D ldb #']'00FFF4B2 017FFF85D lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4B5 016000369 lbra disNextLinedisNotRplusplus:00FFF4B8 0C1002 cmpb #200FFF4BA 026030 bne disNotRminus00FFF4BC 0E6E04 ldb ,s00FFF4BE 0C5080 bitb #$80 ; outer indexed?00FFF4C0 026005 bne dis700FFF4C2 0C605D ldb #']'00FFF4C4 017FFF84B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis7:00FFF4C7 0C602C ldb #','00FFF4C9 017FFF846 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4CC 0E6E04 ldb ,s00FFF4CE 08D361 bsr disNdxReg00FFF4D0 017FFF83F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4D3 0C602D ldb #'-'00FFF4D5 017FFF83A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4D8 035004 puls b00FFF4DA 0C5100 bitb #$10000FFF4DC 126000342 lbne disNextLine00FFF4DF 0C5080 bitb #$8000FFF4E1 12600033D lbne disNextLine00FFF4E4 0C605D ldb #']'00FFF4E6 017FFF829 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4E9 016000335 lbra disNextLinedisNotRminus:00FFF4EC 0C1003 cmpb #300FFF4EE 026033 bne disNotRminusminus00FFF4F0 0E6E04 ldb ,s00FFF4F2 0C5080 bitb #$80 ; outer indexed?00FFF4F4 026005 bne dis800FFF4F6 0C605D ldb #']'00FFF4F8 017FFF817 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis8:00FFF4FB 0C602C ldb #','00FFF4FD 017FFF812 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF500 0E6E04 ldb ,s00FFF502 08D32D bsr disNdxReg00FFF504 017FFF80B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF507 0C602D ldb #'-'00FFF509 017FFF806 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF50C 017FFF803 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF50F 035004 puls b00FFF511 0C5100 bitb #$10000FFF513 12600030B lbne disNextLine00FFF516 0C5080 bitb #$8000FFF518 126000306 lbne disNextLine00FFF51B 0C605D ldb #']'00FFF51D 017FFF7F2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF520 0160002FE lbra disNextLinedisNotRminusminus:00FFF523 0C1004 cmpb #400FFF525 02602B bne disNotR00FFF527 0E6E04 ldb ,s00FFF529 0C5080 bitb #$80 ; outer indexed?00FFF52B 026005 bne dis900FFF52D 0C605D ldb #']'00FFF52F 017FFF7E0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis9:00FFF532 0C602C ldb #','00FFF534 017FFF7DB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF537 0E6E04 ldb ,s00FFF539 08D2F6 bsr disNdxReg00FFF53B 017FFF7D4 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF53E 035004 puls b00FFF540 0C5100 bitb #$10000FFF542 1260002DC lbne disNextLine00FFF545 0C5080 bitb #$8000FFF547 1260002D7 lbne disNextLine00FFF54A 0C605D ldb #']'00FFF54C 017FFF7C3 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF54F 0160002CF lbra disNextLinedisNotR:00FFF552 0C1005 cmpb #500FFF554 026038 bne disNotBOffs00FFF556 0C6042 ldb #'B'00FFF558 017FFF7B7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF55B 0E6E04 ldb ,s00FFF55D 0C5080 bitb #$80 ; outer indexed?00FFF55F 026005 bne dis1000FFF561 0C605D ldb #']'00FFF563 017FFF7AC lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis10:00FFF566 0C602C ldb #','00FFF568 017FFF7A7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF56B 0E6E04 ldb ,s00FFF56D 08D2C2 bsr disNdxReg00FFF56F 017FFF7A0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF572 0C602D ldb #'-'00FFF574 017FFF79B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF577 017FFF798 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF57A 035004 puls b00FFF57C 0C5100 bitb #$10000FFF57E 1260002A0 lbne disNextLine00FFF581 0C5080 bitb #$8000FFF583 12600029B lbne disNextLine00FFF586 0C605D ldb #']'00FFF588 017FFF787 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF58B 016000293 lbra disNextLinedisNotBOffs:00FFF58E 0C1006 cmpb #600FFF590 026038 bne disNotAOffs00FFF592 0C6041 ldb #'A'00FFF594 017FFF77B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF597 0E6E04 ldb ,s00FFF599 0C5080 bitb #$80 ; outer indexed?00FFF59B 026005 bne dis1100FFF59D 0C605D ldb #']'00FFF59F 017FFF770 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis11:00FFF5A2 0C602C ldb #','00FFF5A4 017FFF76B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5A7 0E6E04 ldb ,s00FFF5A9 08D286 bsr disNdxReg00FFF5AB 017FFF764 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5AE 0C602D ldb #'-'00FFF5B0 017FFF75F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5B3 017FFF75C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5B6 035004 puls b00FFF5B8 0C5100 bitb #$10000FFF5BA 126000264 lbne disNextLine00FFF5BD 0C5080 bitb #$8000FFF5BF 12600025F lbne disNextLine00FFF5C2 0C605D ldb #']'00FFF5C4 017FFF74B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5C7 016000257 lbra disNextLinedisNotAOffs:00FFF5CA 0C1008 cmpb #800FFF5CC 026039 bne disNotBO00FFF5CE 0E6A00 ldb ,y+00FFF5D0 01D sex00FFF5D1 017FFEE19 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF5D4 0E6E04 ldb ,s00FFF5D6 0C5080 bitb #$80 ; outer indexed?00FFF5D8 026005 bne dis1200FFF5DA 0C605D ldb #']'00FFF5DC 017FFF733 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis12:00FFF5DF 0C602C ldb #','00FFF5E1 017FFF72E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5E4 0E6E04 ldb ,s00FFF5E6 08D249 bsr disNdxReg00FFF5E8 017FFF727 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5EB 0C602D ldb #'-'00FFF5ED 017FFF722 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5F0 017FFF71F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5F3 035004 puls b00FFF5F5 0C5100 bitb #$10000FFF5F7 126000227 lbne disNextLine00FFF5FA 0C5080 bitb #$8000FFF5FC 126000222 lbne disNextLine00FFF5FF 0C605D ldb #']'00FFF601 017FFF70E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF604 01600021A lbra disNextLinedisNotBO:00FFF607 0C1009 cmpb #900FFF609 026038 bne disNotWO00FFF60B 0ECA01 ldd ,y++00FFF60D 017FFEDDD lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF610 0E6E04 ldb ,s00FFF612 0C5080 bitb #$80 ; outer indexed?00FFF614 026005 bne dis1300FFF616 0C605D ldb #']'00FFF618 017FFF6F7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis13:00FFF61B 0C602C ldb #','00FFF61D 017FFF6F2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF620 0E6E04 ldb ,s00FFF622 08D20D bsr disNdxReg00FFF624 017FFF6EB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF627 0C602D ldb #'-'00FFF629 017FFF6E6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF62C 017FFF6E3 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF62F 035004 puls b00FFF631 0C5100 bitb #$10000FFF633 1260001EB lbne disNextLine00FFF636 0C5080 bitb #$8000FFF638 1260001E6 lbne disNextLine00FFF63B 0C605D ldb #']'00FFF63D 017FFF6D2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF640 0160001DE lbra disNextLinedisNotWO:00FFF643 0C100A cmpb #1000FFF645 02603D bne disNotTO00FFF647 0E6A01 ldb ,y++00FFF649 017FFEDAA lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF64C 0ECA01 ldd ,y++00FFF64E 017FFED9C lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF651 0E6E04 ldb ,s00FFF653 0C5080 bitb #$80 ; outer indexed?00FFF655 026005 bne dis1400FFF657 0C605D ldb #']'00FFF659 017FFF6B6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis14:00FFF65C 0C602C ldb #','00FFF65E 017FFF6B1 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF661 0E6E04 ldb ,s00FFF663 08D1CC bsr disNdxReg00FFF665 017FFF6AA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF668 0C602D ldb #'-'00FFF66A 017FFF6A5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF66D 017FFF6A2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF670 035004 puls b00FFF672 0C5100 bitb #$10000FFF674 1260001AA lbne disNextLine00FFF677 0C5080 bitb #$8000FFF679 1260001A5 lbne disNextLine00FFF67C 0C605D ldb #']'00FFF67E 017FFF691 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF681 01600019D lbra disNextLinedisNotTO:00FFF684 0C100B cmpb #1100FFF686 026038 bne disNotDOffs00FFF688 0C6044 ldb #'D'00FFF68A 017FFF685 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF68D 0E6E04 ldb ,s00FFF68F 0C5080 bitb #$80 ; outer indexed?00FFF691 026005 bne dis1500FFF693 0C605D ldb #']'00FFF695 017FFF67A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis15:00FFF698 0C602C ldb #','00FFF69A 017FFF675 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF69D 0E6E04 ldb ,s00FFF69F 08D190 bsr disNdxReg00FFF6A1 017FFF66E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6A4 0C602D ldb #'-'00FFF6A6 017FFF669 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6A9 017FFF666 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6AC 035004 puls b00FFF6AE 0C5100 bitb #$10000FFF6B0 12600016E lbne disNextLine00FFF6B3 0C5080 bitb #$8000FFF6B5 126000169 lbne disNextLine00FFF6B8 0C605D ldb #']'00FFF6BA 017FFF655 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6BD 016000161 lbra disNextLinedisNotDOffs:00FFF6C0 0C100C cmpb #1200FFF6C2 026040 bne disNotPBO00FFF6C4 0E6A00 ldb ,y+00FFF6C6 01D sex00FFF6C7 017FFED23 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF6CA 0E6E04 ldb ,s00FFF6CC 0C5080 bitb #$80 ; outer indexed?00FFF6CE 026005 bne dis1600FFF6D0 0C605D ldb #']'00FFF6D2 017FFF63D lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis16:00FFF6D5 0C602C ldb #','00FFF6D7 017FFF638 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6DA 0E6E04 ldb ,s00FFF6DC 08D153 bsr disNdxReg00FFF6DE 0C6050 ldb #'P'00FFF6E0 017FFF62F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6E3 0C6043 ldb #'C'00FFF6E5 017FFF62A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6E8 0C602D ldb #'-'00FFF6EA 017FFF625 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6ED 017FFF622 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6F0 035004 puls b00FFF6F2 0C5100 bitb #$10000FFF6F4 12600012A lbne disNextLine00FFF6F7 0C5080 bitb #$8000FFF6F9 126000125 lbne disNextLine00FFF6FC 0C605D ldb #']'00FFF6FE 017FFF611 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF701 01600011D lbra disNextLinedisNotPBO:00FFF704 0C100D cmpb #1300FFF706 02603F bne disNotPWO00FFF708 0ECA01 ldd ,y++00FFF70A 017FFECE0 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF70D 0E6E04 ldb ,s00FFF70F 0C5080 bitb #$80 ; outer indexed?00FFF711 026005 bne dis1700FFF713 0C605D ldb #']'00FFF715 017FFF5FA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis17:00FFF718 0C602C ldb #','00FFF71A 017FFF5F5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF71D 0E6E04 ldb ,s00FFF71F 08D110 bsr disNdxReg00FFF721 0C6050 ldb #'P'00FFF723 017FFF5EC lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF726 0C6043 ldb #'C'00FFF728 017FFF5E7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF72B 0C602D ldb #'-'00FFF72D 017FFF5E2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF730 017FFF5DF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF733 035004 puls b00FFF735 0C5100 bitb #$10000FFF737 1260000E7 lbne disNextLine00FFF73A 0C5080 bitb #$8000FFF73C 1260000E2 lbne disNextLine00FFF73F 0C605D ldb #']'00FFF741 017FFF5CE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF744 0160000DA lbra disNextLinedisNotPWO:00FFF747 0C100E cmpb #1400FFF749 026044 bne disNotPTO00FFF74B 0E6A00 ldb ,y+00FFF74D 017FFECA6 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF750 0ECA01 ldd ,y++00FFF752 017FFEC98 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF755 0E6E04 ldb ,s00FFF757 0C5080 bitb #$80 ; outer indexed?00FFF759 026005 bne dis1800FFF75B 0C605D ldb #']'00FFF75D 017FFF5B2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis18:00FFF760 0C602C ldb #','00FFF762 017FFF5AD lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF765 0E6E04 ldb ,s00FFF767 08D0C8 bsr disNdxReg00FFF769 0C6050 ldb #'P'00FFF76B 017FFF5A4 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF76E 0C6043 ldb #'C'00FFF770 017FFF59F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF773 0C602D ldb #'-'00FFF775 017FFF59A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF778 017FFF597 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF77B 035004 puls b00FFF77D 0C5100 bitb #$10000FFF77F 12600009F lbne disNextLine00FFF782 0C5080 bitb #$8000FFF784 12600009A lbne disNextLine00FFF787 0C605D ldb #']'00FFF789 017FFF586 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF78C 016000092 lbra disNextLinedisNotPTO:00FFF78F 0C605B ldb #'['00FFF791 017FFF57E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF794 0ECA01 ldd ,y++00FFF796 017FFEC54 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF799 0C605D ldb #']'00FFF79B 017FFF574 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF79E 016000080 lbra disNextLinedisNotNdx:00FFF7A1 0C1006 cmpb #EXT00FFF7A3 026008 bne disNotExt00FFF7A5 0ECA01 ldd ,y++00FFF7A7 017FFEC43 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7AA 016000074 lbra disNextLinedisNotExt:00FFF7AD 0C1003 cmpb #IMMB00FFF7AF 02600D bne disNotIMMB00FFF7B1 0C6023 ldb #'#'00FFF7B3 017FFF55C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7B6 0E6A00 ldb ,y+00FFF7B8 017FFEC3B lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7BB 016000063 lbra disNextLinedisNotIMMB:00FFF7BE 0C1007 cmpb #IMMW00FFF7C0 02600C bne disNotIMMW00FFF7C2 0C6023 ldb #'#'00FFF7C4 017FFF54B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7C7 0ECA01 ldd ,y++00FFF7C9 017FFEC21 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7CC 020053 bra disNextLinedisNotIMMW:dis1:00FFF7CE 0C1121 cmpb #$12100FFF7D0 025028 blo dis1900FFF7D2 0C112F cmpb #$12F00FFF7D4 022024 bhi dis1900FFF7D6 0C40FF andb #$FF00FFF7D8 08EFFEDB4 ldx #distbl100FFF7DB 058 aslb00FFF7DC 058 aslb00FFF7DD 03A abx00FFF7DE 0E6800 ldb ,x+00FFF7E0 017FFF52F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7E3 0E6800 ldb ,x+00FFF7E5 017FFF52A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7E8 0E6800 ldb ,x+00FFF7EA 017FFF525 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7ED 0E6800 ldb ,x+00FFF7EF 017FFF520 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7F2 0C6020 ldb #' '00FFF7F4 017FFF51B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7F7 016FFFC09 lbra dis21*** warning 1: Long branch within short branch range could be optimizeddis19:00FFF7FA 08E000000 ldx #0dis24:00FFF7FD 0E180A000FFF2F4 cmpb distbl3,x00FFF802 026006 bne dis2500FFF804 08EFFF314 ldx #distbl400FFF807 016FFFBC7 lbra dis23*** warning 1: Long branch within short branch range could be optimizeddis25:00FFF80A 030001 inx00FFF80C 08C00001F cmpx #3100FFF80F 025FEC blo dis2400FFF811 0C603F ldb #'?'00FFF813 017FFF4FC lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF816 017FFF4F9 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF819 017FFF4F6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF81C 017FFF4F3 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF81F 020000 bra disNextLinedisNextLine00FFF821 017FFD8AE lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF824 1BC000926 cmpy mon_r2+200FFF827 125FFFB93 lblo disLoop1*** warning 1: Long branch within short branch range could be optimized00FFF82A 01600007F lbra MonitordisNdxRegs:00FFF82D 058059053055 fcb 'X','Y','S','U'disNdxReg:00FFF831 0C4600 andb #$60000FFF833 059 rolb00FFF834 059 rolb00FFF835 059 rolb00FFF836 059 rolb00FFF837 04F clra00FFF838 034040 pshs u00FFF83A 01F003 tfr d,u00FFF83C 0A6C0A000FFF82D lda disNdxRegs,u00FFF841 035040 puls u00FFF843 01E089 exg a,b00FFF845 039 rtsASMO:00FFF846 034006 pshs d00FFF848 0CCFFF85A ldd #ASMOUTCH00FFF84B 0FD000800 std CharOutVec00FFF84E 035086 puls d,pcASMOO:00FFF850 034006 pshs d00FFF852 0CCFFE2E1 ldd #DisplayChar00FFF855 0FD000800 std CharOutVec00FFF858 035086 puls d,pcASMOUTCH:00FFF85A 0E7C00 stb ,u+00FFF85C 039 rtsDumpAsmbuf:00FFF85D 0CE000160 ldu #asmbufdab2:00FFF860 0E6C00 ldb ,u+00FFF862 027005 beq dab100FFF864 017FFF4AB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF867 020FF7 bra dab2dab1:00FFF869 039 rts;==============================================================================; System Monitor;==============================================================================CmdPrompt:00FFF86A 017FFD865 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF86D 0C6024 ldb #'$'00FFF86F 017FFF4A0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF872 016FFF49D lbra OUTCH*** warning 1: Long branch within short branch range could be optimizedmsgF09Starting:00FFF875 04606506D07406906B069 fcb "Femtiki F09 Multi-core OS Starting",CR,LF,000FFF87C 02004603003902004D07500FFF883 06C07406902D06306F07200FFF88A 06502004F05302005307400FFF891 06107207406906E06700D00FFF898 00A000MonitorStart:00FFF89A 0CCFFF875 ldd #msgF09Starting00FFF89D 017FFEB02 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF8A0 0CCFFFA78 ldd #HelpMsg00FFF8A3 017FFEAFC lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF8A6 0CCFFF86A ldd #CmdPrompt00FFF8A9 0FD000808 std CmdPromptJIMonitor:00FFF8AC 03280F006FFF leas $6FFF ; reset stack pointer00FFF8B0 05F clrb ; turn off keyboard echo00FFF8B1 017FFF462 lbsr SetKeyboardEcho*** warning 1: Long branch within short branch range could be optimized; Reset IO vectors00FFF8B4 0CCFFEBE4 ldd #SerialPeekCharDirect00FFF8B7 0FD000804 std CharInVec00FFF8BA 0CCFFE2E1 ldd #DisplayChar00FFF8BD 0FD000800 std CharOutVec00FFF8C0 0CCFFF86A ldd #CmdPrompt00FFF8C3 0FD000808 std CmdPromptJI; jsr RequestIOFocusPromptLn:00FFF8C6 0AD90F000808 jsr [CmdPromptJI]; Get characters until a CR is keyedPrompt3:00FFF8CA 0CCFFFFFF ldd #-1 ; block until key present00FFF8CD 017FFF40A lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF8D0 0C100D cmpb #CR00FFF8D2 027005 beq Prompt100FFF8D4 017FFF43B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF8D7 020FF1 bra Prompt3; Process the screen line that the CR was keyed on;Prompt1:00FFF8D9 0CC005050 ldd #$505000FFF8DC 0150FDFFFE60001 std LEDS; ldb RunningID; cmpb #61; bhi Prompt300FFF8E1 0CC005151 ldd #$515100FFF8E4 0150FDFFFE60001 std LEDS00FFF8E9 00F111 clr CursorCol ; go back to the start of the line00FFF8EB 017FFE9D0 lbsr CalcScreenLoc ; calc screen memory location*** warning 1: Long branch within short branch range could be optimized00FFF8EE 01F002 tfr d,y00FFF8F0 0CC005252 ldd #$525200FFF8F3 0150FDFFFE60001 std LEDSskipDollar:00FFF8F8 08D0AB bsr MonGetNonSpace00FFF8FA 0C1024 cmpb #'$'00FFF8FC 027FFA beq skipDollar ; skip over '$' prompt character00FFF8FE 086353 lda #$535300FFF900 0150FDFFFE60001 std LEDS; Dispatch based on command character;Prompt2:00FFF905 0C103C cmpb #'<'00FFF907 02602C bne PromptHelp00FFF909 08D095 bsr MonGetch00FFF90B 0C103E cmpb #'>'00FFF90D 026F9D bne Monitor00FFF90F 08D08F bsr MonGetch00FFF911 0C1073 cmpb #'s'00FFF913 02600E bne Prompt2a00FFF915 0CCFFEBE4 ldd #SerialPeekCharDirect00FFF918 0FD000804 std CharInVec00FFF91B 0CCFFEC08 ldd #SerialPutChar00FFF91E 0FD000800 std CharOutVec00FFF921 020F89 bra MonitorPrompt2a:00FFF923 0C1063 cmpb #'c'00FFF925 026F85 bne Monitor00FFF927 0CCFFEA12 ldd #GetKey00FFF92A 0FD000804 std CharInVec00FFF92D 0CCFFE2E1 ldd #DisplayChar00FFF930 0FD000800 std CharOutVec00FFF933 020F77 bra MonitorPromptHelp:00FFF935 0C103F cmpb #'?' ; $? - display help00FFF937 026008 bne PromptC00FFF939 0CCFFFA78 ldd #HelpMsg00FFF93C 017FFEA63 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF93F 020F6B bra MonitorPromptC:00FFF941 0C1043 cmpb #'C'00FFF943 026008 bne PromptD00FFF945 017FFE8C9 lbsr ClearScreen*** warning 1: Long branch within short branch range could be optimized00FFF948 017FFE939 lbsr HomeCursor*** warning 1: Long branch within short branch range could be optimized00FFF94B 020F5F bra MonitorPromptD:00FFF94D 0C1044 cmpb #'D'00FFF94F 026008 bne PromptF00FFF951 08D04D bsr MonGetch00FFF953 0C1052 cmpb #'R'00FFF955 02621A bne DumpMemory00FFF957 020274 bra DumpRegsPromptF:00FFF959 0C1046 cmpb #'F'00FFF95B 02600F bne PromptJ00FFF95D 08D041 bsr MonGetch00FFF95F 0C1049 cmpb #'I'00FFF961 026F49 bne Monitor00FFF963 08D03B bsr MonGetch00FFF965 0C1047 cmpb #'G'00FFF967 026F43 bne Monitor00FFF969 07EFE0000 jmp $FE0000PromptJ:00FFF96C 0C104A cmpb #'J'00FFF96E 1270002A7 lbeq jump_to_codePromptR:00FFF971 0C1052 cmpb #'R'00FFF973 026006 bne Prompt_s00FFF975 0CEFFF8AC ldu #Monitor00FFF978 016FFDA85 lbra ramtest*** warning 1: Long branch within short branch range could be optimizedPrompt_s:00FFF97B 0C1073 cmpb #'s'00FFF97D 026005 bne PromptT00FFF97F 017FFF323 lbsr SerialOutputTest*** warning 1: Long branch within short branch range could be optimized00FFF982 020F28 bra MonitorPromptT:00FFF984 0C1054 cmpb #'T'00FFF986 026011 bne PromptU00FFF988 08D016 bsr MonGetch00FFF98A 0C1049 cmpb #'I'00FFF98C 026F1E bne Monitor00FFF98E 08D010 bsr MonGetch00FFF990 0C1052 cmpb #'R'00FFF992 026F18 bne Monitor00FFF994 017FFEB1C lbsr rtc_read*** warning 1: Long branch within short branch range could be optimized00FFF997 020F13 bra MonitorPromptU:00FFF999 0C1055 cmpb #'U'00FFF99B 026F0F bne Monitor00FFF99D 016FFFA14 lbra disassem*** warning 1: Long branch within short branch range could be optimizedMonGetch:00FFF9A0 0E6A04 ldb ,y00FFF9A2 031201 iny00FFF9A4 039 rtsMonGetNonSpace:00FFF9A5 08DFF9 bsr MonGetCh00FFF9A7 0C1020 cmpb #' '00FFF9A9 027FFA beq MonGetNonSpace00FFF9AB 039 rts;------------------------------------------------------------------------------; Ignore blanks in the input; Y = text pointer; D destroyed;------------------------------------------------------------------------------;ignBlanks:ignBlanks1:00FFF9AC 08DFF2 bsr MonGetch00FFF9AE 0C1020 cmpb #' '00FFF9B0 027FFA beq ignBlanks100FFF9B2 0313FF dey00FFF9B4 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------GetTwoParams:00FFF9B5 08DFF5 bsr ignBlanks00FFF9B7 08D03F bsr GetHexNumber ; get start address of dump00FFF9B9 0FC000910 ldd mon_numwka00FFF9BC 0FD000920 std mon_r100FFF9BF 0FC000912 ldd mon_numwka+200FFF9C2 0FD000922 std mon_r1+200FFF9C5 08DFE5 bsr ignBlanks00FFF9C7 08D02F bsr GetHexNumber ; get end address of dump00FFF9C9 0FC000910 ldd mon_numwka00FFF9CC 0FD000924 std mon_r200FFF9CF 0FC000912 ldd mon_numwka+200FFF9D2 0FD000926 std mon_r2+200FFF9D5 039 rts;------------------------------------------------------------------------------; Get a range, the end must be greater or equal to the start.;------------------------------------------------------------------------------GetRange:00FFF9D6 08DFDD bsr GetTwoParams00FFF9D8 0FC000926 ldd mon_r2+200FFF9DB 0B3000922 subd mon_r1+200FFF9DE 0FC000924 ldd mon_r200FFF9E1 0F2000921 sbcb mon_r1+100FFF9E4 0B2000920 sbca mon_r100FFF9E7 125000074 lbcs DisplayErr00FFF9EA 039 rtsshl_numwka:00FFF9EB 078000913 asl mon_numwka+300FFF9EE 079000912 rol mon_numwka+200FFF9F1 079000911 rol mon_numwka+100FFF9F4 079000910 rol mon_numwka00FFF9F7 039 rts;------------------------------------------------------------------------------; Get a hexidecimal number. Maximum of twelve digits.;; Modifies:; Y = text pointer (updated); D = number of digits; mon_numwka contains number;------------------------------------------------------------------------------;GetHexNumber:00FFF9F8 04F05F clrd00FFF9FA 0FD000910 std mon_numwka ; zero out work area00FFF9FD 0FD000912 std mon_numwka+200FFFA00 034010 pshs x00FFFA02 08E000000 ldx #0 ; max 12 eight digitsgthxn2:00FFFA05 08DF99 bsr MonGetch00FFFA07 08D01F bsr AsciiToHexNybble00FFFA09 0C1FFF cmpb #-100FFFA0B 027017 beq gthxn100FFFA0D 08DFDC bsr shl_numwka00FFFA0F 08DFDA bsr shl_numwka00FFFA11 08DFD8 bsr shl_numwka00FFFA13 08DFD6 bsr shl_numwka00FFFA15 0C400F andb #$0f00FFFA17 0FA000913 orb mon_numwka+300FFFA1A 0F7000913 stb mon_numwka+300FFFA1D 030001 inx00FFFA1F 08C00000C cmpx #1200FFFA22 025FE1 blo gthxn2gthxn1:00FFFA24 01F010 tfr x,d00FFFA26 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:00FFFA28 0C1030 cmpb #'0'00FFFA2A 025021 blo gthx300FFFA2C 0C1039 cmpb #'9'00FFFA2E 022003 bhi gthx500FFFA30 0C0030 subb #'0'00FFFA32 039 rtsgthx5:00FFFA33 0C1041 cmpb #'A'00FFFA35 025016 blo gthx300FFFA37 0C1046 cmpb #'F'00FFFA39 022005 bhi gthx600FFFA3B 0C0041 subb #'A'00FFFA3D 0CB00A addb #1000FFFA3F 039 rtsgthx6:00FFFA40 0C1061 cmpb #'a'00FFFA42 025009 blo gthx300FFFA44 0C107A cmpb #'z'00FFFA46 022005 bhi gthx300FFFA48 0C0061 subb #'a'00FFFA4A 0CB00A addb #1000FFFA4C 039 rtsgthx3:00FFFA4D 0C6FFF ldb #-1 ; not a hex number00FFFA4F 039 rtsAsciiToDecNybble:00FFFA50 0C1030 cmpb #'0'00FFFA52 024007 bcc gtdc300FFFA54 0C103A cmpb #'9'+100FFFA56 025003 bcs gtdc300FFFA58 0C0030 subb #'0'00FFFA5A 039 rtsgtdc3:00FFFA5B 0C6FFF ldb #-100FFFA5D 039 rtsDisplayErr:00FFFA5E 08EFFFA70 ldx #msgErr00FFFA61 04F05F clrd00FFFA63 08D003 bsr DisplayStringDX00FFFA65 07EFFF8AC jmp MonitorDisplayStringDX00FFFA68 0DD024 std Strptr00FFFA6A 09F026 stx Strptr+200FFFA6C 0BDFFE3A2 jsr DisplayString00FFFA6F 039 rtsmsgErr:00FFFA70 02A02A04507207200D00A fcb "**Err",CR,LF,000FFFA77 000HelpMsg:00FFFA78 03F02003D020044069073 fcb "? = Display help",CR,LF00FFFA7F 07006C06107902006806500FFFA86 06C07000D00A00FFFA8A 04304C05302003D020063 fcb "CLS = clear screen",CR,LF00FFFA91 06C06506107202007306300FFFA98 07206506506E00D00A; db "S = Boot from SD Card",CR,LF; db ": = Edit memory bytes",CR,LF; db "L = Load sector",CR,LF; db "W = Write sector",CR,LF00FFFA9E 04405202003D020044075 fcb "DR = Dump registers",CR,LF00FFFAA5 06D07002007206506706900FFFAAC 07307406507207300D00A00FFFAB3 04402003D02004407506D fcb "D = Dump memory",CR,LF00FFFABA 07002006D06506D06F07200FFFAC1 07900D00A; db "F = Fill memory",CR,LF; db "FL = Dump I/O Focus List",CR,LF00FFFAC4 04604904702003D020073 fcb "FIG = start FIG Forth",CR,LF00FFFACB 07406107207402004604900FFFAD2 04702004606F07207406800FFFAD9 00D00A; db "KILL n = kill task #n",CR,LF; db "B = start tiny basic",CR,LF; db "b = start EhBasic 6502",CR,LF00FFFADB 04A02003D02004A07506D fcb "J = Jump to code",CR,LF00FFFAE2 07002007406F02006306F00FFFAE9 06406500D00A00FFFAED 05204104D02003D020074 fcb "RAM = test RAM",CR,LF00FFFAF4 06507307402005204104D00FFFAFB 00D00A; db "R[n] = Set register value",CR,LF; db "r = random lines - test bitmap",CR,LF; db "e = ethernet test",CR,LF00FFFAFD 07302003D020073065072 fcb "s = serial output test",CR,LF00FFFB04 06906106C02006F07507400FFFB0B 07007507402007406507300FFFB12 07400D00A; db "T = Dump task list",CR,LF; db "TO = Dump timeout list",CR,LF00FFFB15 05404902003D020064069 fcb "TI = display date/time",CR,LF00FFFB1C 07307006C06107902006400FFFB23 06107406502F07406906D00FFFB2A 06500D00A; db "TEMP = display temperature",CR,LF; db "P = Piano",CR,LF,000FFFB2D 000 fcb 0msgRegHeadings00FFFB2E 00D00A02002004402F041 fcb CR,LF," D/AB X Y U S PC DP CCR",CR,LF,000FFFB35 04202002002002002005800FFFB3C 02002002002002002005900FFFB43 02002002002002002005500FFFB4A 02002002002002002005300FFFB51 02002002002002002002000FFFB58 05004302002002002004400FFFB5F 05002002004304305200D00FFFB66 00A000nHEX4:00FFFB68 0BDFFD2D2 jsr HEX400FFFB6B 039 rtsnXBLANK:00FFFB6C 0C6020 ldb #' '00FFFB6E 016FFF1A1 lbra OUTCH*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Memory;; Usage:; $D FFFC12 8;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------DumpMemory:00FFFB71 08DE42 bsr GetTwoParams00FFFB73 18E000000 ldy #000FFFB76 1BE000922 ldy mon_r1+2dmpm2:00FFFB79 017FFD556 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFFB7C 0C603A ldb #':'00FFFB7E 017FFF191 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFB81 01F020 tfr y,d;addd mon_r1+2 ; output the address00FFFB83 017FFE867 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFFB86 0C6020 ldb #' '00FFFB88 017FFF187 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFB8B 08E000008 ldx #8 ; number of bytes to displaydmpm1:; ldb far [mon_r1+1],y;ldb [mon_r1+2],y00FFFB8E 0E6A04 ldb ,y00FFFB90 031201 iny00FFFB92 017FFE861 lbsr DispByteAsHex ; display byte*** warning 1: Long branch within short branch range could be optimized00FFFB95 0C6020 ldb #' ' ; followed by a space00FFFB97 017FFF178 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFB9A 05F clrb00FFFB9B 04F clra00FFFB9C 017FFF13B lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFFB9F 0C1003 cmpb #CTRLC00FFFBA1 027024 beq dmpm300FFFBA3 0301FF dex00FFFBA5 026FE7 bne dmpm1; Now output ascii00FFFBA7 0C6020 ldb #' '00FFFBA9 017FFF166 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFBAC 08E000008 ldx #8 ; 8 chars to output00FFFBAF 0313F8 leay -8,y ; backup pointerdmpm5:; ldb far [mon_r1+1],y ; get the char; ldb [mon_r1+2],y ; get the char00FFFBB1 0E6A04 ldb ,y00FFFBB3 0C1020 cmpb #$20 ; is it a control char?00FFFBB5 024002 bhs dmpm400FFFBB7 0C602E ldb #'.'dmpm4:00FFFBB9 017FFF156 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFBBC 031201 iny00FFFBBE 0301FF dex00FFFBC0 026FEF bne dmpm500FFFBC2 1BC000926 cmpy mon_r2+200FFFBC5 025FB2 blo dmpm2dmpm3:00FFFBC7 017FFD508 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFFBCA 016FFFCDF lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Registers;; Usage:; $DR;------------------------------------------------------------------------------DumpRegs:00FFFBCD 0CCFFFB2E ldd #msgRegHeadings00FFFBD0 017FFE7CF lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFFBD3 08DF97 bsr nXBLANK00FFFBD5 0FC000900 ldd mon_DSAVE00FFFBD8 08DF8E bsr nHEX400FFFBDA 08DF90 bsr nXBLANK00FFFBDC 0FC000902 ldd mon_XSAVE00FFFBDF 08DF87 bsr nHEX400FFFBE1 08DF89 bsr nXBLANK00FFFBE3 0FC000904 ldd mon_YSAVE00FFFBE6 08DF80 bsr nHEX400FFFBE8 08DF82 bsr nXBLANK00FFFBEA 0FC000906 ldd mon_USAVE00FFFBED 08DF79 bsr nHEX400FFFBEF 08DF7B bsr nXBLANK00FFFBF1 0FC000908 ldd mon_SSAVE00FFFBF4 08DF72 bsr nHEX400FFFBF6 08DF74 bsr nXBLANK00FFFBF8 0F600090B ldb mon_PCSAVE+100FFFBFB 017FFE7F8 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFFBFE 0FC00090C ldd mon_PCSAVE+200FFFC01 08DF65 bsr nHEX400FFFC03 08DF67 bsr nXBLANK00FFFC05 0FC00090E ldd mon_DPRSAVE00FFFC08 0BDFFD2CE jsr HEX200FFFC0B 08DF5F bsr nXBLANK00FFFC0D 0B600090F lda mon_CCRSAVE00FFFC10 017FFD6BB lbsr HEX2*** warning 1: Long branch within short branch range could be optimized00FFFC13 08DF57 bsr nXBLANK00FFFC15 016FFFC94 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:00FFFC18 08DDDE bsr GetHexNumber00FFFC1A 01A010 sei00FFFC1C 1FE000908 lds mon_SSAVE00FFFC1F 0CCFFFC53 ldd #<jtc_exit00FFFC22 034006 pshs d00FFFC24 0C6000 ldb #>jtc_exit00FFFC26 034004 pshs b00FFFC28 0FC000912 ldd mon_numwka+200FFFC2B 034006 pshs d00FFFC2D 0F6000911 ldb mon_numwka+100FFFC30 034004 pshs b00FFFC32 0FC000906 ldd mon_USAVE00FFFC35 034006 pshs d00FFFC37 0FC000904 ldd mon_YSAVE00FFFC3A 034006 pshs d00FFFC3C 0FC000902 ldd mon_XSAVE00FFFC3F 034006 pshs d00FFFC41 0B600090E lda mon_DPRSave00FFFC44 034002 pshs a00FFFC46 0FC000900 ldd mon_DSAVE00FFFC49 034006 pshs d00FFFC4B 0B600090F lda mon_CCRSAVE00FFFC4E 034002 pshs a00FFFC50 0150350FF puls far ccr,d,dpr,x,y,u,pcjtc_exit:00FFFC53 1FF000908 sts >mon_SSAVE ; need to use extended addressing, no direct page setting00FFFC56 03280F006FFF leas $6FFF ; reset stack to system area, dont modify flags register!00FFFC5A 034001 pshs ccr ; now the stack can be used00FFFC5C 034002 pshs a ; save acca register so we can use it00FFFC5E 01F0B8 tfr dpr,a ; a = outgoing dpr value00FFFC60 0B700090E sta >mon_DPRSAVE ; force extended addressing mode usage here dpr is not set00FFFC63 04F clra ; dpg register must be set to zero before values are00FFFC64 01F08B tfr a,dpr ; saved in the monitor register save area.00FFFC66 035002 puls a ; get back acca00FFFC68 0FD000900 std mon_DSAVE ; save regsters, can use direct addressing now00FFFC6B 0BF000902 stx mon_XSAVE00FFFC6E 1BF000904 sty mon_YSAVE00FFFC71 0FF000906 stu mon_USAVE00FFFC74 035002 puls a ; get back ccr00FFFC76 0B700090F sta mon_CCRSAVE ; and save it too; Reset vectors in case they got toasted.00FFFC79 0CCFFEBE4 ldd #SerialPeekCharDirect00FFFC7C 0FD000804 std CharInVec00FFFC7F 0CCFFE2E1 ldd #DisplayChar00FFFC82 0FD000800 std CharOutVec; todo set according to coreid00FFFC85 016FFFF45 lbra DumpRegs ; now go do a register dump*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------swi3_rout:00FFFC88 01A010 sei00FFFC8A 035002 puls a00FFFC8C 0B700090F sta mon_CCRSAVE00FFFC8F 03507E puls D,DPR,X,Y,U00FFFC91 0FD000900 std mon_DSAVE00FFFC94 0BF000902 stx mon_XSAVE00FFFC97 1BF000904 sty mon_YSAVE00FFFC9A 0FF000906 stu mon_USAVE00FFFC9D 01F0B8 tfr dpr,a00FFFC9F 0B700090E sta mon_DPRSAVE00FFFCA2 035002 puls a00FFFCA4 0B700090A sta mon_PCSAVE00FFFCA7 035006 puls D00FFFCA9 0FD00090B std mon_PCSAVE+100FFFCAC 1FF000908 sts mon_SSAVE00FFFCAF 1CE003FFF lds #$3FFF00FFFCB2 01C0EF cli00FFFCB4 07EFFFBCD jmp DumpRegsswi3_exit:00FFFCB7 01A010 sei00FFFCB9 1FE000908 lds mon_SSAVE00FFFCBC 0FC00090B ldd mon_PCSAVE+100FFFCBF 034006 pshs d00FFFCC1 0B600090A lda mon_PCSAVE00FFFCC4 034002 pshs a00FFFCC6 0FE000906 ldu mon_USAVE00FFFCC9 1BE000904 ldy mon_YSAVE00FFFCCC 0BE000902 ldx mon_XSAVE00FFFCCF 034070 pshs x,y,u00FFFCD1 0B600090E lda mon_DPRSAVE00FFFCD4 034002 pshs a00FFFCD6 0FC000900 ldd mon_DSAVE00FFFCD9 034006 pshs d00FFFCDB 0B600090F lda mon_CCRSAVE00FFFCDE 034002 pshs a00FFFCE0 01F08A tfr a,ccr00FFFCE2 01C0EF cli00FFFCE4 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------firq_rout:00FFFCE5 03B rtiirq_rout:; lbsr SerialIRQ ; check for recieved character; lbsr TimerIRQ; Reset the edge sense circuit in the PIC00FFFCE6 08601F lda #31 ; Timer is IRQ #3100FFFCE8 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()00FFFCEB 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFFCF0 0150B6FFFE6000D lda VIA+VIA_IFR00FFFCF5 02A011 bpl notTimerIRQ200FFFCF7 085800 bita #$80000FFFCF9 02700D beq notTimerIRQ200FFFCFB 01507FFFFE60012 clr VIA+VIA_T3LL00FFFD00 01507FFFFE60013 clr VIA+VIA_T3LH00FFFD05 07CE00037 inc $E00037 ; update timer IRQ screen flagnotTimerIRQ2:00FFFD08 0B6FF0014 lda IrqBase ; get the IRQ flag byte00FFFD0B 044 lsra00FFFD0C 0BAFF0014 ora IrqBase00FFFD0F 0840E0 anda #$E000FFFD11 0B7FF0014 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:00FFFD14 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------nmi_rout:00FFFD15 0150F6FFFFFFFE0 ldb COREID00FFFD1A 086049 lda #'I'00FFFD1C 08EE00028 ldx #TEXTSCR+4000FFFD1F 0A788F sta b,xrti_insn:00FFFD21 03B rti; Special Register Areaorg $FFFFE0; Interrupt vector tableorg $FFFFF000FFFFF0 FFFD21 fcw rti_insn ; reserved00FFFFF2 FFFC88 fcw swi3_rout ; SWI300FFFFF4 FFFD21 fcw rti_insn ; SWI200FFFFF6 FFFCE5 fcw firq_rout ; FIRQ00FFFFF8 FFFCE6 fcw irq_rout ; IRQ00FFFFFA FFE023 fcw start ; SWI00FFFFFC FFFD15 fcw nmi_rout ; NMI00FFFFFE FFE023 fcw start ; RST176 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 ASCIITODECNYBBLE 02 00FFFA50ASCIITOHEXNYBBLE 02 00FFFA28 ASMBUF 00 00000160 ASMO 02 00FFF846 ASMOO 02 00FFF850ASMOUTCH 02 00FFF85A BIOS_SCREENS 00 17000000 BLANKLINE 02 00FFE258 BLKCPYDST 00 00000020BLKCPYSRC 00 0000001C BLNKLN1 02 00FFE26B CALCSCREENLOC 02 00FFE2BE CHARCOLOR 00 00000112CHARINVEC 00 00000804 CHAROUTVEC 00 00000800 CHECKPOINT 02 00FFE115 CLEARSCREEN 02 00FFE211CLEARSCREENJMP 02 00FFD300 CMDPROMPT 02 00FFF86A CMDPROMPTJI 00 00000808 COLORCODELOCATION 00 00000014COPYSCREENTOVIRTUALSCREEN 02 00FFE1E1 COPYVIRTUALSCREENTOSCREEN 02 00FFE1AA COREID 00 FFFFFFE0 CR 00 0000000DCRLF 02 00FFD0D2 CRLF1 02 00FFD0D2 CRLFST 02 00FFE3E1 CS1 02 00FFE21ECS2 02 00FFE235 CS2V1 02 00FFE1ED CS3 02 00FFE23B CSL1 02 00FFE2D9CTRLC 00 00000003 CTRLH 00 00000008 CTRLI 00 00000009 CTRLJ 00 0000000ACTRLK 00 0000000B CTRLM 00 0000000D CTRLS 00 00000013 CTRLT 00 00000014CTRLX 00 00000018 CURSORCOL 00 00000111 CURSORFLASH 00 00000114 CURSORROW 00 00000110CV2S1 02 00FFE1BF DAB1 02 00FFF869 DAB2 02 00FFF860 DBGCHECKFORKEY 02 00FFEA10DBGK1 02 00FFEA4B DBGK10 02 00FFEAB0 DBGK11 02 00FFEB09 DBGK12 02 00FFEB0FDBGK13 02 00FFEB1B DBGK14 02 00FFEB2B DBGK15 02 00FFEB3A DBGK16 02 00FFEB45DBGK17 02 00FFEB4E DBGK18 02 00FFEB51 DBGK2 02 00FFEA16 DBGK20 02 00FFEA38DBGK22 02 00FFEA54 DBGK23 02 00FFEA65 DBGK24 02 00FFEA46 DBGK3 02 00FFEA68DBGK4 02 00FFEA74 DBGK5 02 00FFEA80 DBGK7 02 00FFEA90 DBGK8 02 00FFEA96DBGK9 02 00FFEAAA DBGKNOTALT 02 00FFEB13 DBGKNOTCAPSLOCK 02 00FFEAE2 DBGKNOTCTRL 02 00FFEA9ADBGKNOTNUMLOCK 02 00FFEACB DBGKNOTRSHIFT 02 00FFEAB4 DBGKNOTSCROLLLOCK 02 00FFEAF9 DCCR 02 00FFE2F1DCLF 02 00FFE37B DCX10 02 00FFE32B DCX11 02 00FFE33B DCX12 02 00FFE337DCX13 02 00FFE347 DCX14 02 00FFE2EE DCX3 02 00FFE369 DCX4 02 00FFE37DDCX5 02 00FFE358 DCX6 02 00FFE302 DCX7 02 00FFE2FE DCX8 02 00FFE30FDCX9 02 00FFE31C DELAY3S 02 00FFE18D DIRECT 00 00000001 DIS1 02 00FFF7CEDIS10 02 00FFF566 DIS11 02 00FFF5A2 DIS12 02 00FFF5DF DIS13 02 00FFF61BDIS14 02 00FFF65C DIS15 02 00FFF698 DIS16 02 00FFF6D5 DIS17 02 00FFF718DIS18 02 00FFF760 DIS19 02 00FFF7FA DIS2 02 00FFF405 DIS20 02 00FFF3CEDIS21 02 00FFF403 DIS23 02 00FFF3D1 DIS24 02 00FFF7FD DIS25 02 00FFF80ADIS3 02 00FFF42E DIS4 02 00FFF44B DIS5 02 00FFF45C DIS6 02 00FFF490DIS7 02 00FFF4C7 DIS8 02 00FFF4FB DIS9 02 00FFF532 DISASSEM 02 00FFF3B4DISLOOP1 02 00FFF3BD DISNDXREG 02 00FFF831 DISNDXREGS 02 00FFF82D DISNEXTLINE 02 00FFF821DISNOT9 02 00FFF440 DISNOTAOFFS 02 00FFF5CA DISNOTBO 02 00FFF607 DISNOTBOFFS 02 00FFF58EDISNOTDIRECT 02 00FFF3FF DISNOTDOFFS 02 00FFF6C0 DISNOTEXT 02 00FFF7AD DISNOTIMMB 02 00FFF7BEDISNOTIMMW 02 00FFF7CE DISNOTLREL 02 00FFF40F DISNOTNDX 02 00FFF7A1 DISNOTPBO 02 00FFF704DISNOTPTO 02 00FFF78F DISNOTPWO 02 00FFF747 DISNOTR 02 00FFF552 DISNOTREL 02 00FFF418DISNOTRMINUS 02 00FFF4EC DISNOTRMINUSMINUS 02 00FFF523 DISNOTRPLUS 02 00FFF481 DISNOTRPLUSPLUS 02 00FFF4B8DISNOTTO 02 00FFF684 DISNOTWO 02 00FFF643 DISPBYTEASHEX 02 00FFE3F6 DISPDWORDASHEX 02 00FFE3E4DISPLAYCHAR 02 00FFE2E1 DISPLAYERR 02 00FFFA5E DISPLAYSTRING 02 00FFE3A2 DISPLAYSTRINGCRLF 02 00FFE3B9DISPLAYSTRINGDX 02 00FFFA68 DISPNYB 02 00FFE40E DISPNYB1 02 00FFE41D DISPWORDASHEX 02 00FFE3EDDISTBL1 02 00FFEDB4 DISTBL2 02 00FFF2B4 DISTBL3 02 00FFF2F4 DISTBL4 02 00FFF314DLY3S1 02 00FFE190 DLY3S2 02 00FFE194 DMPM1 02 00FFFB8E DMPM2 02 00FFFB79DMPM3 02 00FFFBC7 DMPM4 02 00FFFBB9 DMPM5 02 00FFFBB1 DRAM_BASE 00 10000000DSPJ1B 02 00FFE3AB DSPJ2 02 00FFE3A6 DSRETB 02 00FFE3B4 DUMPASMBUF 02 00FFF85DDUMPMEMORY 02 00FFFB71 DUMPREGS 02 00FFFBCD DUMRTS 02 00FFE022 EXT 00 00000006FAREXT 00 00000008 FIRQ_ROUT 02 00FFFCE5 FIRST_CORE 00 00000001 FREEMBX 02 00000002FREEMSG 02 00000006 FREETCB 00 0000078A GETHEXNUMBER 02 00FFF9F8 GETKEY 02 00FFEA12GETRANGE 02 00FFF9D6 GETSCREENLOCATION 02 00FFE272 GETTWOPARAMS 02 00FFF9B5 GSL1 02 00FFE280GTDC3 02 00FFFA5B GTHX3 02 00FFFA4D GTHX5 02 00FFFA33 GTHX6 02 00FFFA40GTHXN1 02 00FFFA24 GTHXN2 02 00FFFA05 HC1 02 00FFE29A HELPMSG 02 00FFFA78HEX2 02 00FFD2CE HEX4 02 00FFD2D2 HOMECURSOR 02 00FFE284 HOMECURSORJMP 02 00FFD308I2CW1 02 00FFE47E I2CWR1 02 00FFE4AB I2C_CMD 00 00000004 I2C_CTRL 00 00000002I2C_PREH 00 00000001 I2C_PREL 00 00000000 I2C_RXR 00 00000003 I2C_STAT 00 00000004I2C_TXR 00 00000003 I2C_WAIT_RX_NACK 02 00FFE4A9 I2C_WAIT_TIP 02 00FFE47C I2C_WR_CMD 02 00FFE486ICC1 02 00FFE39E ICC2 02 00FFE3A0 ICR1 02 00FFE390 IGNBLANKS 02 00FFF9ACIGNBLANKS1 02 00FFF9AC IMMB 00 00000003 IMMW 00 00000007 INCCURSORPOS 02 00FFE37FINCCURSORROW 02 00FFE38E INCH 02 00FFECDA INCH1 02 00FFECEF INCH2 02 00FFECDCINCHE 02 00FFECF8 INCHEK 02 00FFECFC INCHEK1 02 00FFED11 INCHEK2 02 00FFED0EINCHEK3 02 00FFED05 INIT 02 00FFE086 INIT1 02 00FFE08E INITSERIAL 02 00FFEB6FIOFOCUSID 00 00FF0010 IOFOCUSLIST 00 00FF0000 IOFOCUSNDX 00 00000100 IRQBASE 00 00FF0014IRQFLAG 00 00FF0012 IRQSOURCE 00 00FF0011 IRQ_ROUT 02 00FFFCE6 JTC_EXIT 02 00FFFC53JUMP_TO_CODE 02 00FFFC18 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 LSREL 00 00000002MAX_TASKNO 00 0000003F MONGETCH 02 00FFF9A0 MONGETNONSPACE 02 00FFF9A5 MONITOR 02 00FFF8ACMONITORSTART 02 00FFF89A 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_SSAVE 00 00000908 MON_USAVE 00 00000906 MON_XSAVE 00 00000902 MON_YSAVE 00 00000904MSCOUNT 00 FFFFFFE4 MSGBADKEYBD 02 00FFE9AE MSGERR 02 00FFFA70 MSGF09STARTING 02 00FFF875MSGREGHEADINGS 02 00FFFB2E MSGSERIALTEST 02 00FFECC5 MSGSTARTUP 02 00FFE0F4 MULTI_SIEVE 02 00FFE12BMULTI_SIEVE1 02 00FFE14E MULTI_SIEVE2 02 00FFE14A MULTI_SIEVE3 02 00FFE138 MULTI_SIEVE4 02 00FFE161NDX 00 00000005 NHEX4 02 00FFFB68 NMAILBOX 02 00000004 NMESERIAL 02 00FFEC8ENMIBASE 00 00FF0013 NMI_ROUT 02 00FFFD15 NMSGBLK 02 00000008 NOTKBDIRQ 02 00FFEA0CNOTRXINT 02 00FFEC8D NOTTIMERIRQ 02 00FFE471 NOTTIMERIRQ2 02 00FFFD08 NXBLANK 02 00FFFB6CONEKEY 02 00FFD1DC OSC1 02 00FFED59 OSCALL 02 00FFED59 OSCALLTBL 02 00FFED27OSCX 02 00FFED69 OSSEMA 00 00EF0010 OUTCH 02 00FFED12 OUTSEMA 00 00EF0000PCRLF 02 00FFE3CD PDATA 02 00FFE3DA PIC 00 FFE3F000 PICPTR 00 00000028PRINT 02 00FFE3D7 PROMPT1 02 00FFF8D9 PROMPT2 02 00FFF905 PROMPT2A 02 00FFF923PROMPT3 02 00FFF8CA PROMPTC 02 00FFF941 PROMPTD 02 00FFF94D PROMPTF 02 00FFF959PROMPTHELP 02 00FFF935 PROMPTJ 02 00FFF96C PROMPTLN 02 00FFF8C6 PROMPTR 02 00FFF971PROMPTT 02 00FFF984 PROMPTU 02 00FFF999 PROMPT_S 02 00FFF97B PSTRNG 02 00FFE3C9QNDX0 00 00000780 QNDX1 00 00000782 QNDX2 00 00000784 QNDX3 00 00000786QNDX4 00 00000788 RAMERR 02 00FFD42C RAMTEST 02 00FFD400 RAMTEST1 02 00FFD40DRAMTEST3 02 00FFD417 RELEASEIOFOCUS 02 00FFED84 REQUESTIOFOCUS 02 00FFED6D RIOF1 02 00FFEDABRIOF2 02 00FFED9A ROMTORAM 02 00FFE11B ROMTORAM1 02 00FFE121 RTC 00 FFE30500RTCBUF 00 00007FC0 RTCR0001 02 00FFE4D9 RTCW0001 02 00FFE524 RTC_READ 02 00FFE4B3RTC_RXERR 02 00FFE502 RTC_WRITE 02 00FFE506 RTI_INSN 02 00FFFD21 RUNNINGID 00 00800000RUNNINGTCB 06 00000000 SCREENCOLOR 00 00000113 SCREENLOCATION 00 00000010 SCREENLOCATION2 00 00000018SCROLLUP 02 00FFE23D SCRUP1 02 00FFE24A SC_ALT 00 00000011 SC_C 00 00000021SC_CAPSLOCK 00 00000058 SC_CTRL 00 00000014 SC_DEL 00 00000071 SC_EXTEND 00 000000E0SC_F12 00 00000007 SC_KEYUP 00 000000F0 SC_NUMLOCK 00 00000077 SC_RSHIFT 00 00000059SC_SCROLLLOCK 00 0000007E SC_T 00 0000002C SC_TAB 00 0000000D SC_Z 00 0000001ASEMAABS 00 00001000 SERHEADRCV 00 00000131 SERHEADXMIT 00 00000136 SERHZERO 00 00000130SERIALGETCHAR 02 00FFEB9D SERIALINIT 02 00FFEB6F SERIALIRQ 02 00FFEC3B SERIALOUTPUTTEST 02 00FFECA5SERIALPEEKCHAR 02 00FFEBCD SERIALPEEKCHARDIRECT 02 00FFEBE4 SERIALPUTCHAR 02 00FFEC08 SERIALPUTSTRING 02 00FFEC95SERIALRCVCOUNT 02 00FFEC28 SERRCVBUF 00 00BFF000 SERRCVXOFF 00 00000140 SERRCVXON 00 00000139SERTAILRCV 00 00000133 SERTAILXMIT 00 00000138 SERTZERO 00 00000132 SETKEYBOARDECHO 02 00FFED16SGC2 02 00FFEBB6 SGCNOCHARS 02 00FFEBC6 SGCXIT 02 00FFEBC9 SHIFTEDSCANCODES 02 00FFE680SHIFTLEFT5 02 00FFE19F SHL_NUMWKA 02 00FFF9EB SHOWSPRITES 02 00FFED1C SIEVE 02 00FFE165SIEVE1 02 00FFE17D SIEVE2 02 00FFE179 SIEVE3 02 00FFE16A SIEVE4 02 00FFE18CSINI1 02 00FFEB82 SIRQ0001 02 00FFEC4D SIRQNXTBYTE 02 00FFEC3B SIRQRXFULL 02 00FFEC8DSKIPDOLLAR 02 00FFF8F8 SKIP_INIT 02 00FFE0C1 SOTST1 02 00FFECAF SPC0001 02 00FFEC0ASPCD0001 02 00FFEC02 SPCNOCHARS 02 00FFEBDF SPCXIT 02 00FFEBE2 SPRITE_CTRL 00 FFE10000SPRITE_EN 00 000003C0 SPS2 02 00FFEC99 SPSXIT 02 00FFECA3 SRCXIT 02 00FFEC3ASREL 00 00000004 ST1 02 00FFE0A0 ST3 02 00FFE07D ST6 02 00FFE03CST7 02 00FFE046 ST8 02 00FFE046 START 02 00FFE023 STRPTR 00 00000024SWI3_EXIT 02 00FFFCB7 SWI3_ROUT 02 00FFFC88 TAB 00 00000009 TCB_CURSORCOL 00 00000021TCB_CURSORROW 00 00000020 TCB_HJCB 00 0000001C TCB_HWAITMBX 00 00000022 TCB_IOF_NEXT 00 0000002CTCB_IOF_PREV 00 00000030 TCB_MBQ_NEXT 00 00000024 TCB_MBQ_PREV 00 00000028 TCB_MMU_MAP 00 00000038TCB_MSGPTR_D1 00 00000014 TCB_MSGPTR_D2 00 00000018 TCB_NXTRDY 00 00000000 TCB_NXTTCB 00 00000008TCB_PRIORITY 00 00000010 TCB_PRVRDY 00 00000004 TCB_SPSAVE 00 00000034 TCB_STATUS 00 0000001ETCB_TIMEOUT 00 0000000C TEXTCLOSE 02 00FFE20D TEXTOPEN 02 00FFE20C TEXTREAD 02 00FFE20ETEXTREG 00 FFE0DF00 TEXTSCR 00 FFE00000 TEXTSEEK 02 00FFE210 TEXTWRITE 02 00FFE20FTEXT_COLS 00 00000000 TEXT_CURPOS 00 00000022 TEXT_ROWS 00 00000001 TIMEOUTLIST 00 0000078CTIMERINIT 02 00FFE424 TIMERIRQ 02 00FFE44F TR1A 02 00FFFD14 UCP1 02 00FFE2BCUNSHIFTEDSCANCODES 02 00FFE580 UPDATECURSORPOS 02 00FFE29C 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 XOFF 00 00000013 XON 00 00000011523 SYMBOLS0 error(s), 1582 warning(s)
Go to most recent revision | Compare with Previous | Blame | View Log