URL
https://opencores.org/ocsvn/rf6809/rf6809/trunk
Subversion Repositories rf6809
[/] [rf6809/] [trunk/] [software/] [boot/] [boot_rom.lst] - Rev 14
Go to most recent revision | Compare with Previous | Blame | View Log
0 error(s), 1534 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 bufferfarflag EQU $15Fasmbuf EQU $160 ; to $17FQNdx0 EQU $780QNdx1 EQU QNdx0+2QNdx2 EQU QNdx1+2QNdx3 EQU QNdx2+2QNdx4 EQU QNdx3+2FreeTCB EQU QNdx4+2TimeoutList EQU FreeTCB+2FreeMbx EQU RunningTCB + 2nMailbox EQU FreeMbx + 2FreeMsg EQU nMailbox + 2nMsgBlk EQU FreeMsg + 2CharOutVec EQU $800CharInVec EQU $804CmdPromptJI EQU $808MonErrVec EQU $80C; 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 017001139 lbsr DispByteAsHex00FFD2D1 039 rtsHEX400FFD2D2 01700112C lbsr DispWordAsHex00FFD2D5 039 rtsorg $FFD300ClearScreenJmp00FFD300 016000F22 lbra ClearScreenorg $FFD308HomeCursorJmp00FFD308 016000F8D 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 FFF92E FDB Monitor00FFE002 FFE022 FDB DumRts ; NEXTCMD00FFE004 FFECDA FDB INCH00FFE006 FFECF8 FDB INCHE00FFE008 FFECFC FDB INCHEK00FFE00A FFED12 FDB OUTCH00FFE00C FFE3EE FDB PDATA00FFE00E FFE3E1 FDB PCRLF00FFE010 FFE3DD FDB PSTRNG00FFE012 FFE022 FDB DumRts ; LRA00FFE014 FFE022 FDB DumRts00FFE016 FFE022 FDB DumRts00FFE018 FFE022 FDB DumRts00FFE01A FFE022 FDB DumRts ; VINIZ00FFE01C FFE2F5 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 08D159 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 RunningID; Clear IO focus list00FFE057 08E000000 ldx #0st9:00FFE05A 06F80A000FF0000 clr IOFocusList,x00FFE05F 030001 inx00FFE061 08C000010 cmpx #1600FFE064 025FF4 blo st900FFE066 086018 lda #2400FFE068 0B7FF0001 sta IOFocusList+FIRST_CORE00FFE06B 0860CE lda #$0CE00FFE06D 097113 sta ScreenColor00FFE06F 097112 sta CharColor00FFE071 08D1B2 bsr ClearScreen00FFE073 0CCFFE2F5 ldd #DisplayChar00FFE076 0FD000800 std CharOutVec00FFE079 0CCFFEBE4 ldd #SerialPeekCharDirect00FFE07C 0FD000804 std CharInVec00FFE07F 0C6018 ldb #24 ; request IO focus00FFE081 017000CD5 lbsr OSCall00FFE084 0150F6FFFFFFFE0 ldb COREID00FFE089 0C1001 cmpb #FIRST_CORE00FFE08B 02700D beq init00FFE08D 020046 bra skip_init00FFE08F 0200AE bra multi_sievest3:00FFE091 0860FF lda #$FF00FFE093 0150B7FFFE60001 sta LEDS00FFE098 020FF7 bra st3; initialize interrupt controller; first, zero out all the vectorsinit:00FFE09A 01700042A lbsr rtc_read ; get clock values00FFE09D 08E000127 ldx #kbdHeadRcv00FFE0A0 0C6020 ldb #32 ; number of bytes to zero outinit1:00FFE0A2 06F800 clr ,x+00FFE0A4 05A decb00FFE0A5 026FFB bne init100FFE0A7 01700038E lbsr TimerInit00FFE0AA 017000AC2 lbsr InitSerial00FFE0AD 08E000080 ldx #12800FFE0B0 086001 lda #1 ; set irq(bit0), clear firq (bit1), disable int (bit 6), clear edge sense(bit 7)00FFE0B2 0C6001 ldb #FIRST_CORE ; serving core idst1:00FFE0B4 06F809E3F000 clr PIC,x ; cause code00FFE0B8 0A7809E3F001 sta PIC+1,x00FFE0BC 0E7809E3F002 stb PIC+2,x00FFE0C0 030004 leax 4,x00FFE0C2 08C000100 cmpx #25600FFE0C5 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 enable00FFE0C7 086081 lda #$81 ; make irq edge sensitive00FFE0C9 0150B7FFFE3F0FD sta PIC+$FD00FFE0CE 08601F lda #31 ; enable timer interrupt; sta PIC+900FFE0D0 0C6001 ldb #100FFE0D2 0F7EF1000 stb OUTSEMA+SEMAABS ; set semaphore to 1 available slotskip_init:00FFE0D5 01C0EF andcc #$EF ; unmask irq00FFE0D7 086038 lda #5600FFE0D9 0150B7FFFE0DF00 sta TEXTREG+TEXT_COLS00FFE0DE 08601D lda #2900FFE0E0 0150B7FFFE0DF01 sta TEXTREG+TEXT_ROWS00FFE0E5 08D13E bsr ClearScreen00FFE0E7 08D1AF bsr HomeCursor00FFE0E9 086005 lda #500FFE0EB 0150B7FFFE60001 sta LEDS00FFE0F0 0CCFFE108 ldd #msgStartup00FFE0F3 08D2C1 bsr DisplayString00FFE0F5 08E000000 ldx #000FFE0F8 0CC000000 ldd #000FFE0FB 017000C1E lbsr ShowSprites00FFE0FE 01700083F lbsr KeybdInit00FFE101 0DC124 ldd KeybdID00FFE103 08D2FC bsr DispWordAsHex00FFE105 07EFFF910 jmp MonitorStartmsgStartup00FFE108 072066036038030039020 fcb "rf6809 12-bit System Starting.",CR,LF,000FFE10F 03103202D06206907402000FFE116 05307907307406506D02000FFE11D 05307406107207406906E00FFE124 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:00FFE129 01507FFFFFFFFE1 clr $FFFFFFFE1 ; writing any value will do00FFE12E 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:00FFE12F 08EFFC000 ldx #$FFC00000FFE132 18E00C000 ldy #$00C000romToRam1:00FFE135 0EC801 ldd ,x++00FFE137 0EDA01 std ,y++00FFE139 08C000000 cmpx #000FFE13C 026FF7 bne romToRam100FFE13E 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:00FFE13F 086050 lda #'P' ; indicate prime00FFE141 0150F6FFFFFFFE0 ldb COREID ; find out which core we are00FFE146 0C0001 subb #FIRST_CORE00FFE148 08E000000 ldx #0 ; start at first char of screen00FFE14B 03A abxmulti_sieve3:00FFE14C 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE150 030008 leax 8,x ; advance to next position00FFE152 08C000FFF cmpx #409500FFE155 025FF5 blo multi_sieve300FFE157 0BDFFE129 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE15A 0CB002 addb #2 ; start sieve at 2 (core id)00FFE15C 08604E lda #'N' ; flag position value of 'N' for non-primemulti_sieve2:00FFE15E 08E000000 ldx #000FFE161 03A abx ; skip the first position - might be primemulti_sieve1:00FFE162 03A abx ; increment00FFE163 0A7809E00000 sta TEXTSCR,x00FFE167 08C000FFF cmpx #409500FFE16A 025FF6 blo multi_sieve100FFE16C 0BDFFE129 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE16F 0CB008 addb #8 ; number of cores working on it00FFE171 0C1FF0 cmpb #408000FFE173 025FE9 blo multi_sieve2multi_sieve4: ; hang machine00FFE175 013 sync00FFE176 0160017B5 lbra Monitor;------------------------------------------------------------------------------; Single core sieve.;------------------------------------------------------------------------------sieve:00FFE179 086050 lda #'P' ; indicate prime00FFE17B 08E000000 ldx #0 ; start at first char of screensieve3:00FFE17E 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE182 030001 inx ; advance to next position00FFE184 08C000FFF cmpx #409500FFE187 025FF5 blo sieve300FFE189 0C6002 ldb #2 ; start sieve at 200FFE18B 08604E lda #'N' ; flag position value of 'N' for non-primesieve2:00FFE18D 08E000000 ldx #000FFE190 03A abx ; skip the first position - might be primesieve1:00FFE191 03A abx ; increment00FFE192 0A7809E00000 sta TEXTSCR,x00FFE196 08C000FFF cmpx #409500FFE199 025FC7 blo multi_sieve100FFE19B 05C incb ; number of cores working on it00FFE19C 0C1FF0 cmpb #408000FFE19E 025FED blo sieve2sieve4: ; hang machine00FFE1A0 039 rts;------------------------------------------------------------------------------; Three second delay for user convenience and to allow some devices time to; reset.;------------------------------------------------------------------------------Delay3s:00FFE1A1 0CC895440 ldd #9000000dly3s1:00FFE1A4 0C10FF cmpb #$FF00FFE1A6 026000 bne dly3s2dly3s2:00FFE1A8 0150B7FFFE60001 sta LEDS00FFE1AD 083000001 subd #100FFE1B0 026FF2 bne dly3s100FFE1B2 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------ShiftLeft5:00FFE1B3 058 aslb00FFE1B4 049 rola00FFE1B5 058 aslb00FFE1B6 049 rola00FFE1B7 058 aslb00FFE1B8 049 rola00FFE1B9 058 aslb00FFE1BA 049 rola00FFE1BB 058 aslb00FFE1BC 049 rola00FFE1BD 039 rts;------------------------------------------------------------------------------; Parameters:; b = core id of core to copy;------------------------------------------------------------------------------;CopyVirtualScreenToScreen:00FFE1BE 034076 pshs d,x,y,u; Compute virtual screen location for core passed in accb.00FFE1C0 01F098 tfr b,a00FFE1C2 048 asla00FFE1C3 048 asla00FFE1C4 048 asla00FFE1C5 048 asla00FFE1C6 08AC00 ora #$C0000FFE1C8 05F clrb00FFE1C9 01F001 tfr d,x00FFE1CB 034006 pshs d00FFE1CD 18EE00000 ldy #TEXTSCR00FFE1D0 0CE00032C ldu #56*29/2cv2s1:00FFE1D3 0EC801 ldd ,x++00FFE1D5 0EDA01 std ,y++00FFE1D7 0335FF leau -1,u00FFE1D9 283000000 cmpu #000FFE1DC 026FF5 bne cv2s1; reset the cursor position in the text controller00FFE1DE 035010 puls x00FFE1E0 0E6808110 ldb CursorRow,x00FFE1E3 086038 lda #5600FFE1E5 03D mul00FFE1E6 01F002 tfr d,y00FFE1E8 0E6808111 ldb CursorCol,x00FFE1EB 01F021 tfr y,x00FFE1ED 03A abx00FFE1EE 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS00FFE1F3 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------;CopyScreenToVirtualScreen:00FFE1F5 034076 pshs d,x,y,u00FFE1F7 08D08D bsr GetScreenLocation00FFE1F9 01F002 tfr d,y00FFE1FB 08EE00000 ldx #TEXTSCR00FFE1FE 0CE00032C ldu #56*29/2cs2v1:00FFE201 0EC801 ldd ,x++00FFE203 0EDA01 std ,y++00FFE205 0335FF leau -1,u00FFE207 283000000 cmpu #000FFE20A 026FF5 bne cs2v100FFE20C 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------00FFE20E 054045058054053043052 fcb "TEXTSCR "00FFE215 02000FFE216 FFE220 fcw TextOpen00FFE218 FFE221 fcw TextClose00FFE21A FFE222 fcw TextRead00FFE21C FFE223 fcw TextWrite00FFE21E FFE224 fcw TextSeekTextOpen:00FFE220 039 rtsTextClose:00FFE221 039 rtsTextRead:00FFE222 039 rtsTextWrite:00FFE223 039 rtsTextSeek:00FFE224 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:00FFE225 034076 pshs d,x,y,u00FFE227 08E000658 ldx #56*2900FFE22A 01F013 tfr x,u00FFE22C 08D058 bsr GetScreenLocation00FFE22E 01F002 tfr d,y00FFE230 0C6020 ldb #' ' ; space charcs1:00FFE232 0E7A00 stb ,y+ ; set text to space00FFE234 0301FF leax -1,x ; decrement x00FFE236 026FFA bne cs100FFE238 0150F6FFFFFFFE0 ldb COREID ; update colors only if we have focus00FFE23D 0F1FF0010 cmpb IOFocusID00FFE240 02000D bra cs300FFE242 18EE02000 ldy #TEXTSCR+$2000; lda CharColor00FFE245 0860CE lda #$0CE00FFE247 01F031 tfr u,x ; get back countcs2:00FFE249 0A7A00 sta ,y+00FFE24B 0301FF dex ; decrement x00FFE24D 026FFA bne cs2cs3:00FFE24F 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Scroll text on the screen upwards;; Modifies:; none;------------------------------------------------------------------------------ScrollUp:00FFE251 034076 pshs d,x,y,u00FFE253 18E00032B ldy #(56*29-1)/2 ; y = num chars/2 to move00FFE256 08D02E bsr GetScreenLocation00FFE258 01F001 tfr d,x00FFE25A 01F003 tfr d,u00FFE25C 030038 leax 56,x ; x = index to source rowscrup1:00FFE25E 0EC801 ldd ,x++ ; move 2 characters00FFE260 0EDC01 std ,u++00FFE262 0313FF dey00FFE264 026FF8 bne scrup100FFE266 08601D lda #2900FFE268 08D002 bsr BlankLine00FFE26A 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Blank out a line on the display;; Modifies:; none; Parameters:; acca = line number to blank;------------------------------------------------------------------------------BlankLine:00FFE26C 034016 pshs d,x00FFE26E 034002 pshs a00FFE270 08D014 bsr GetScreenLocation00FFE272 01F001 tfr d,x00FFE274 035002 puls a00FFE276 0C6038 ldb #56 ; b = # chars to blank out from video controller00FFE278 03D mul ; d = screen index (row# * #cols)00FFE279 03080B leax d,x00FFE27B 086020 lda #' '00FFE27D 0C6038 ldb #56 ; b = # chars to blank out from video controllerblnkln1:00FFE27F 0A7800 sta ,x+00FFE281 05A decb00FFE282 026FFB bne blnkln100FFE284 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:00FFE286 0150B6FFFFFFFE0 lda COREID ; which core are we?00FFE28B 0B1FF0010 cmpa IOFocusID ; do we have the IO focus00FFE28E 026004 bne gsl1 ; no, go pick virtual screen address00FFE290 0CCE00000 ldd #TEXTSCR ; yes, we update the real screen00FFE293 039 rtsgsl1:00FFE294 0CC007800 ldd #$780000FFE297 039 rts;------------------------------------------------------------------------------; HomeCursor; Set the cursor location to the top left of the screen.;; Modifies:; none;------------------------------------------------------------------------------HomeCursor:00FFE298 034016 pshs d,x00FFE29A 00F110 clr CursorRow00FFE29C 00F111 clr CursorCol00FFE29E 0150F6FFFFFFFE0 ldb COREID00FFE2A3 0F1FF0010 cmpb IOFocusID00FFE2A6 026006 bne hc100FFE2A8 04F clra00FFE2A9 0150B7FFFE0DF22 sta TEXTREG+TEXT_CURPOShc1:00FFE2AE 035096 puls d,x,pc;------------------------------------------------------------------------------; Update the cursor position in the text controller based on the; CursorRow,CursorCol.;; Modifies:; none;------------------------------------------------------------------------------;UpdateCursorPos:00FFE2B0 034016 pshs d,x00FFE2B2 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2B7 0F1FF0010 cmpb IOFocusID ; only for the task with the output focus00FFE2BA 026014 bne ucp100FFE2BC 096110 lda CursorRow00FFE2BE 08403F anda #$3F ; limit of 63 rows00FFE2C0 0150F6FFFE0DF00 ldb TEXTREG+TEXT_COLS00FFE2C5 03D mul00FFE2C6 01F001 tfr d,x00FFE2C8 0D6111 ldb CursorCol00FFE2CA 03A abx00FFE2CB 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOSucp1:00FFE2D0 035096 puls d,x,pc;------------------------------------------------------------------------------; Calculate screen memory location from CursorRow,CursorCol.; Also refreshes the cursor location.;; Modifies:; d; Returns:; d = screen location;------------------------------------------------------------------------------;CalcScreenLoc:00FFE2D2 034010 pshs x00FFE2D4 096110 lda CursorRow00FFE2D6 0C6038 ldb #5600FFE2D8 03D mul00FFE2D9 01F001 tfr d,x00FFE2DB 0D6111 ldb CursorCol00FFE2DD 03A abx00FFE2DE 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2E3 0F1FF0010 cmpb IOFocusID ; only for the task with the output focus00FFE2E6 026005 bne csl100FFE2E8 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOScsl1:00FFE2ED 08DF97 bsr GetScreenLocation00FFE2EF 03080B leax d,x00FFE2F1 01F010 tfr x,d00FFE2F3 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:00FFE2F5 017000910 lbsr SerialPutChar00FFE2F8 034016 pshs d,x00FFE2FA 0C100D cmpb #CR ; carriage return ?00FFE2FC 026007 bne dccr00FFE2FE 00F111 clr CursorCol ; just set cursor column to zero on a CR00FFE300 08DFAE bsr UpdateCursorPosdcx14:00FFE302 01600008C lbra dcx4dccr:00FFE305 0C1091 cmpb #$91 ; cursor right ?00FFE307 02600D bne dcx600FFE309 096111 lda CursorCol00FFE30B 081038 cmpa #5600FFE30D 024003 bhs dcx700FFE30F 04C inca00FFE310 097111 sta CursorColdcx7:00FFE312 08DF9C bsr UpdateCursorPos00FFE314 035096 puls d,x,pcdcx6:00FFE316 0C1090 cmpb #$90 ; cursor up ?00FFE318 026009 bne dcx800FFE31A 096110 lda CursorRow00FFE31C 027FF4 beq dcx700FFE31E 04A deca00FFE31F 097110 sta CursorRow00FFE321 020FEF bra dcx7dcx8:00FFE323 0C1093 cmpb #$93 ; cursor left ?00FFE325 026009 bne dcx900FFE327 096111 lda CursorCol00FFE329 027FE7 beq dcx700FFE32B 04A deca00FFE32C 097111 sta CursorCol00FFE32E 020FE2 bra dcx7dcx9:00FFE330 0C1092 cmpb #$92 ; cursor down ?00FFE332 02600B bne dcx1000FFE334 096110 lda CursorRow00FFE336 08101D cmpa #2900FFE338 027FD8 beq dcx700FFE33A 04C inca00FFE33B 097110 sta CursorRow00FFE33D 020FD3 bra dcx7dcx10:00FFE33F 0C1094 cmpb #$94 ; cursor home ?00FFE341 02600C bne dcx1100FFE343 096111 lda CursorCol00FFE345 027004 beq dcx1200FFE347 00F111 clr CursorCol00FFE349 020FC7 bra dcx7dcx12:00FFE34B 00F110 clr CursorRow00FFE34D 020FC3 bra dcx7dcx11:00FFE34F 0C1099 cmpb #$99 ; delete ?00FFE351 026008 bne dcx1300FFE353 08DF7D bsr CalcScreenLoc00FFE355 01F001 tfr d,x00FFE357 096111 lda CursorCol ; acc = cursor column00FFE359 020011 bra dcx5dcx1300FFE35B 0C1008 cmpb #CTRLH ; backspace ?00FFE35D 02601E bne dcx300FFE35F 096111 lda CursorCol00FFE361 02702E beq dcx400FFE363 04A deca00FFE364 097111 sta CursorCol00FFE366 08DF6A bsr CalcScreenLoc00FFE368 01F001 tfr d,x00FFE36A 096111 lda CursorColdcx5:00FFE36C 0E6001 ldb 1,x00FFE36E 0E7801 stb ,x++00FFE370 04C inca00FFE371 081038 cmpa #5600FFE373 025FF7 blo dcx500FFE375 0C6020 ldb #' '00FFE377 0301FF dex00FFE379 0E7804 stb ,x00FFE37B 020014 bra dcx4dcx3:00FFE37D 0C100A cmpb #LF ; linefeed ?00FFE37F 02700E beq dclf00FFE381 034004 pshs b00FFE383 08DF4D bsr CalcScreenLoc00FFE385 01F001 tfr d,x00FFE387 035004 puls b00FFE389 0E7804 stb ,x; ToDo character color; lda CharColor; sta $2000,x00FFE38B 08D006 bsr IncCursorPos00FFE38D 020002 bra dcx4dclf:00FFE38F 08D011 bsr IncCursorRowdcx4:00FFE391 035096 puls d,x,pc;------------------------------------------------------------------------------; Increment the cursor position, scroll the screen if needed.;; Modifies:; none;------------------------------------------------------------------------------IncCursorPos:00FFE393 034016 pshs d,x00FFE395 096111 lda CursorCol00FFE397 04C inca00FFE398 097111 sta CursorCol00FFE39A 081038 cmpa #5600FFE39C 025014 blo icc100FFE39E 00F111 clr CursorCol ; column = 000FFE3A0 020002 bra icr1IncCursorRow:00FFE3A2 034016 pshs d,xicr1:00FFE3A4 096110 lda CursorRow00FFE3A6 04C inca00FFE3A7 097110 sta CursorRow00FFE3A9 08101D cmpa #2900FFE3AB 025005 blo icc100FFE3AD 04A deca ; backup the cursor row, we are scrolling up00FFE3AE 097110 sta CursorRow00FFE3B0 08DE9F bsr ScrollUpicc1:00FFE3B2 08DEFC bsr UpdateCursorPosicc2:00FFE3B4 035096 puls d,x,pc;------------------------------------------------------------------------------; Display a string on the screen.;; Modifies:; none; Parameters:; d = pointer to string;------------------------------------------------------------------------------;DisplayString:00FFE3B6 034016 pshs d,x00FFE3B8 01F001 tfr d,xdspj2: ; lock semaphore for access00FFE3BA 0B6EF0001 lda OUTSEMA+100FFE3BD 027FFB beq dspj2dspj1B:00FFE3BF 0E6800 ldb ,x+ ; move string char into acc00FFE3C1 027005 beq dsretB ; is it end of string ?00FFE3C3 01700094C lbsr OUTCH ; display character00FFE3C6 020FF7 bra dspj1BdsretB:00FFE3C8 07FEF0001 clr OUTSEMA+1 ; unlock semaphore00FFE3CB 035096 puls d,x,pcDisplayStringCRLF:00FFE3CD 034006 pshs d00FFE3CF 08DFE5 bsr DisplayString00FFE3D1 0C600D ldb #CR00FFE3D3 01700093C lbsr OUTCH00FFE3D6 0C600A ldb #LF00FFE3D8 017000937 lbsr OUTCH00FFE3DB 035086 puls d,pc;; PRINT CR, LF, STRING;PSTRNG00FFE3DD 08D002 BSR PCRLF00FFE3DF 02000D BRA PDATAPCRLF00FFE3E1 034010 PSHS X00FFE3E3 08EFFE3F5 LDX #CRLFST00FFE3E6 08D006 BSR PDATA00FFE3E8 035010 PULS X00FFE3EA 039 RTS00FFE3EB 0BDFFED12 JSR OUTCHPDATA00FFE3EE 0E6800 LDB ,X+00FFE3F0 0C1004 CMPB #$0400FFE3F2 026FF7 BNE PRINT00FFE3F4 039 RTSCRLFST00FFE3F5 00D00A004 fcb CR,LF,4DispDWordAsHex:00FFE3F8 08D007 bsr DispWordAsHex00FFE3FA 01E001 exg d,x00FFE3FC 08D003 bsr DispWordAsHex00FFE3FE 01E001 exg d,x00FFE400 039 rtsDispWordAsHex:00FFE401 01E089 exg a,b00FFE403 08D005 bsr DispByteAsHex00FFE405 01E089 exg a,b00FFE407 08D001 bsr DispByteAsHex00FFE409 039 rtsDispByteAsHex:00FFE40A 034004 pshs b00FFE40C 054 lsrb00FFE40D 054 lsrb00FFE40E 054 lsrb00FFE40F 054 lsrb00FFE410 054 lsrb00FFE411 054 lsrb00FFE412 054 lsrb00FFE413 054 lsrb00FFE414 08D00C bsr DispNyb00FFE416 035004 puls b00FFE418 034004 pshs b00FFE41A 054 lsrb00FFE41B 054 lsrb00FFE41C 054 lsrb00FFE41D 054 lsrb00FFE41E 08D002 bsr DispNyb00FFE420 035004 puls bDispNyb00FFE422 034004 pshs b00FFE424 0C400F andb #$0F00FFE426 0C100A cmpb #1000FFE428 025007 blo DispNyb100FFE42A 0CB037 addb #'A'-1000FFE42C 0170008E3 lbsr OUTCH00FFE42F 035084 puls b,pcDispNyb100FFE431 0CB030 addb #'0'00FFE433 0170008DC lbsr OUTCH00FFE436 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:00FFE438 0CC061A80 ldd #$61A80 ; compare to 400000 (100 Hz assuming 40MHz clock)00FFE43B 0150F7FFFE60014 stb VIA+VIA_T3CMPL00FFE440 0150B7FFFE60015 sta VIA+VIA_T3CMPH00FFE445 01507FFFFE60012 clr VIA+VIA_T3LL00FFE44A 01507FFFFE60013 clr VIA+VIA_T3LH00FFE44F 0150B6FFFE6000B lda VIA+VIA_ACR ; set continuous mode for timer00FFE454 08A100 ora #$10000FFE456 0150B7FFFE6000B sta VIA+VIA_ACR ; enable timer #3 interrupts00FFE45B 086810 lda #$81000FFE45D 0150B7FFFE6000E sta VIA+VIA_IER00FFE462 039 rtsTimerIRQ:; Reset the edge sense circuit in the PIC00FFE463 08601F lda #31 ; Timer is IRQ #3100FFE465 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()00FFE468 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFE46D 0150B6FFFE6000D lda VIA+VIA_IFR00FFE472 02A011 bpl notTimerIRQ00FFE474 085800 bita #$80000FFE476 02700D beq notTimerIRQ00FFE478 01507FFFFE60012 clr VIA+VIA_T3LL00FFE47D 01507FFFFE60013 clr VIA+VIA_T3LH00FFE482 07CE00037 inc $E00037 ; update timer IRQ screen flagnotTimerIRQ:00FFE485 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:00FFE486 034004 pshs b00FFE488 0C6004 ldb #4 ; setup prescale for 400kHz clock00FFE48A 0E7804 stb I2C_PREL,x00FFE48C 06F001 clr I2C_PREH,x00FFE48E 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for I2C transfer to complete;; Parameters; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_tip:00FFE490 034004 pshs bi2cw1:00FFE492 0E6004 ldb I2C_STAT,x ; would use lvb, but lb is okay since its the I/O area00FFE494 0C5001 bitb #1 ; wait for tip to clear00FFE496 026FFA bne i2cw100FFE498 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Write command to i2c;; Parameters; accb - data to transmit; acca - command value; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wr_cmd:00FFE49A 0E7003 stb I2C_TXR,x00FFE49C 0A7004 sta I2C_CMD,x00FFE49E 08DFF0 bsr i2c_wait_tip00FFE4A0 0E6004 ldb I2C_STAT,x00FFE4A2 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Parameters; x - I2C controller base address; accb - data to send; Returns: none; Stack space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -_i2c_xmit1:00FFE4A3 034006 pshs d ; save data value00FFE4A5 034006 pshs d ; and save it again00FFE4A7 0C6001 ldb #100FFE4A9 0E7002 stb I2C_CTRL,x ; enable the core00FFE4AB 0C6076 ldb #$76 ; set slave address = %011101100FFE4AD 086090 lda #$90 ; set STA, WR00FFE4AF 08DFE9 bsr i2c_wr_cmd00FFE4B1 08D00A bsr i2c_wait_rx_nack00FFE4B3 035006 puls d ; get back data value00FFE4B5 086050 lda #$50 ; set STO, WR00FFE4B7 08DFE1 bsr i2c_wr_cmd00FFE4B9 08D002 bsr i2c_wait_rx_nack00FFE4BB 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_rx_nack:00FFE4BD 034004 pshs b ; save off accbi2cwr1:00FFE4BF 0E6004 ldb I2C_STAT,x ; wait for RXack = 000FFE4C1 0C5080 bitb #$80 ; test for nack00FFE4C3 026FFA bne i2cwr100FFE4C5 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:00FFE4C7 08EE30500 ldx #RTC00FFE4CA 18E007FC0 ldy #RTCBuf00FFE4CD 0C6080 ldb #$8000FFE4CF 0E7002 stb I2C_CTRL,x ; enable I2C00FFE4D1 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE4D4 08DFC4 bsr i2c_wr_cmd00FFE4D6 0C5080 bitb #$8000FFE4D8 02603C bne rtc_rxerr00FFE4DA 0CC010000 ldd #$10000 ; address zero, wr bit00FFE4DD 08DFBB bsr i2c_wr_cmd00FFE4DF 0C5080 bitb #$8000FFE4E1 026033 bne rtc_rxerr00FFE4E3 0CC0900DF ldd #$900DF ; read address, read op, STA + wr bit00FFE4E6 08DFB2 bsr i2c_wr_cmd00FFE4E8 0C5080 bitb #$8000FFE4EA 02602A bne rtc_rxerr00FFE4EC 05F clrbrtcr0001:00FFE4ED 086020 lda #$2000FFE4EF 0A7004 sta I2C_CMD,x ; rd bit00FFE4F1 08DF9D bsr i2c_wait_tip00FFE4F3 08DFC8 bsr i2c_wait_rx_nack00FFE4F5 0A6004 lda I2C_STAT,x00FFE4F7 085080 bita #$8000FFE4F9 02601B bne rtc_rxerr00FFE4FB 0A6003 lda I2C_RXR,x00FFE4FD 0A7A07 sta b,y00FFE4FF 05C incb00FFE500 0C105F cmpb #$5F00FFE502 025FE9 blo rtcr000100FFE504 086068 lda #$6800FFE506 0A7004 sta I2C_CMD,x ; STO, rd bit + nack00FFE508 08DF86 bsr i2c_wait_tip00FFE50A 0A6004 lda I2C_STAT,x00FFE50C 085080 bita #$8000FFE50E 026006 bne rtc_rxerr00FFE510 0A6003 lda I2C_RXR,x00FFE512 0A7A07 sta b,y00FFE514 04F05F clrd ; return 0rtc_rxerr:00FFE516 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE518 04F clra00FFE519 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:00FFE51A 08EE30500 ldx #RTC00FFE51D 18E007FC0 ldy #RTCBuf00FFE520 0C6080 ldb #$8000FFE522 0E7002 stb I2C_CTRL,x ; enable I2C00FFE524 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE527 08DF71 bsr i2c_wr_cmd00FFE529 0C5080 bitb #$8000FFE52B 026FE9 bne rtc_rxerr00FFE52D 0CC010000 ldd #$10000 ; address zero, wr bit00FFE530 08DF68 bsr i2c_wr_cmd00FFE532 0C5080 bitb #$8000FFE534 026FE0 bne rtc_rxerr00FFE536 0C6000 ldb #0rtcw0001:00FFE538 034004 pshs b00FFE53A 0E6A05 ldb b,y00FFE53C 086010 lda #$1000FFE53E 08DF5A bsr i2c_wr_cmd00FFE540 0C5080 bitb #$8000FFE542 035004 puls b00FFE544 026FD0 bne rtc_rxerr00FFE546 05C incb00FFE547 0C105F cmpb #$5F00FFE549 025FED blo rtcw000100FFE54B 0E6A05 ldb b,y00FFE54D 086050 lda #$50 ; STO, wr bit00FFE54F 08DF49 bsr i2c_wr_cmd00FFE551 0C5080 bitb #$8000FFE553 026FC1 bne rtc_rxerr00FFE555 04F05F clrd ; return 000FFE557 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE559 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 017FFFA41 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 0C601F ldb #$1F ; baud 9600, 1 stop bit, 8 bit, internal baud gen00FFEB90 0150F7FFFE30103 stb ACIA+ACIA_CTRL00FFEB95 0C60A6 ldb #$0A6 ; diable fifos, reset fifos00FFEB97 0150F7FFFE3010B stb ACIA+ACIA_CTRL200FFEB9C 039 rts;------------------------------------------------------------------------------; SerialGetChar;; Check the serial port buffer to see if there's a char available. If there's; a char available then return it. If the buffer is almost empty then send an; XON.;; Stack Space:; 2 words; Parameters:; none; Modifies:; none; Returns:; d = character or -1;------------------------------------------------------------------------------SerialGetChar:00FFEB9D 034030 pshs x,y00FFEB9F 18E000000 ldy #000FFEBA2 01A010 sei ; disable interrupts00FFEBA4 08D082 bsr SerialRcvCount ; check number of chars in receive buffer00FFEBA6 0C1008 cmpb #8 ; less than 8?00FFEBA8 02200C bhi sgc200FFEBAA 0D6139 ldb SerRcvXon ; skip sending XON if already sent00FFEBAC 026008 bne sgc2 ; XON already sent?00FFEBAE 0C6011 ldb #XON ; if <8 send an XON00FFEBB0 00F140 clr SerRcvXoff ; clear XOFF status00FFEBB2 0D7139 stb SerRcvXon ; flag so we don't send it multiple times00FFEBB4 08D052 bsr SerialPutCharsgc2:00FFEBB6 0D6131 ldb SerHeadRcv ; check if anything is in buffer00FFEBB8 0D1133 cmpb SerTailRcv00FFEBBA 02700A beq sgcNoChars ; no?00FFEBBC 08EBFF000 ldx #SerRcvBuf00FFEBBF 04F clra00FFEBC0 0E6835 ldb b,x ; get byte from buffer00FFEBC2 00C131 inc SerHeadRcv ; 4k wrap around00FFEBC4 020003 bra sgcXitsgcNoChars:00FFEBC6 0CCFFFFFF ldd #-1sgcXit:00FFEBC9 01C0EF cli00FFEBCB 0350B0 puls x,y,pc;------------------------------------------------------------------------------; SerialPeekChar;; Check the serial port buffer to see if there's a char available. If there's; a char available then return it. But don't update the buffer indexes. No need; to send an XON here.;; Stack Space:; 0 words; Parameters:; none; Modifies:; none; Returns:; d = character or -1;------------------------------------------------------------------------------SerialPeekChar:00FFEBCD 034011 pshs x,ccr00FFEBCF 01A010 sei00FFEBD1 0D6131 ldb SerHeadRcv ; check if anything is in buffer00FFEBD3 0D1133 cmpb SerTailRcv00FFEBD5 027008 beq spcNoChars ; no?00FFEBD7 08EBFF000 ldx #SerRcvBuf00FFEBDA 04F clra00FFEBDB 0E6815 ldb b,x ; get byte from buffer00FFEBDD 020003 bra spcXitspcNoChars:00FFEBDF 0CCFFFFFF ldd #-1spcXit:00FFEBE2 035091 puls x,ccr,pc;------------------------------------------------------------------------------; SerialPeekChar; Get a character directly from the I/O port. This bypasses the input; buffer.;; Stack Space:; 0 words; Parameters:; none; Modifies:; d; Returns:; d = character or -1;------------------------------------------------------------------------------SerialPeekCharDirect:00FFEBE4 0150B6FFFFFFFE0 lda COREID ; Ensure we have the IO Focus00FFEBE9 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 017FFF709 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 017FFF5E4 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 017FFF463 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 017FFF40D 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 8TFREXG EQU 9distbl1:; 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 045058047020009 fcb "EXG ", TFREXG00FFEE4F 054046052020009 fcb "TFR ", TFREXG; 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 00F15F clr farflag00FFF3B6 0170006AD lbsr GetRange00FFF3B9 017FFDD16 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF3BC 1BE000922 ldy mon_r1+2disLoop1:00FFF3BF 01F020 tfr y,d00FFF3C1 017FFF03D lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF3C4 0C6020 ldb #' '00FFF3C6 017FFF949 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3C9 0E6A00 ldb ,y+00FFF3CB 0C5300 bitb #$30000FFF3CD 12600041F lbne dis100FFF3D0 0C40FF andb #$FF ; mask off extra bits00FFF3D2 0C1015 cmpb #$1500FFF3D4 026004 bne dis2000FFF3D6 0D715F stb farflag00FFF3D8 020FE5 bra disLoop1dis20:00FFF3DA 08EFFEDB4 ldx #distbl1dis23:00FFF3DD 086005 lda #500FFF3DF 03D mul00FFF3E0 03A abx00FFF3E1 0E6800 ldb ,x+00FFF3E3 017FFF92C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3E6 0E6800 ldb ,x+00FFF3E8 017FFF927 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3EB 0E6800 ldb ,x+00FFF3ED 017FFF922 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3F0 0E6800 ldb ,x+00FFF3F2 017FFF91D lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3F5 0C6020 ldb #' '00FFF3F7 017FFF918 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF3FA 0E6800 ldb ,x+00FFF3FC 127000443 lbeq disNextLine00FFF3FF 0C1001 cmpb #DIRECT00FFF401 026008 bne disNotDirect00FFF403 0E6A00 ldb ,y+00FFF405 017FFF002 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF408 016000437 lbra disNextLinedisNotDirect:00FFF40B 0C1002 cmpb #LSREL00FFF40D 02600C bne disNotLReldis21:00FFF40F 0ECA01 ldd ,y++dis2:00FFF411 030A0B leax d,y00FFF413 01F010 tfr x,d00FFF415 017FFEFE9 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF418 016000427 lbra disNextLinedisNotLRel:00FFF41B 0C1004 cmpb #SREL00FFF41D 026005 bne disNotRel00FFF41F 0E6A00 ldb ,y+00FFF421 04F clra00FFF422 020FED bra dis2disNotRel:00FFF424 0C1005 cmpb #NDX00FFF426 026385 bne disNotNdx00FFF428 0E6A00 ldb ,y+00FFF42A 0C5800 bitb #$80000FFF42C 02601E bne disNot9 ; test for offset 9 mode00FFF42E 034004 pshs b00FFF430 0C41FF andb #$1FF ; mask to offset bits00FFF432 04F clra ;00FFF433 0C5100 bitb #$100 ; test for negative offset00FFF435 027003 beq dis300FFF437 04A deca ; sign extend offset00FFF438 0CAE00 orb #$E00dis3:00FFF43A 017FFEFC4 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF43D 0C602C ldb #','00FFF43F 017FFF8D0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF442 035004 puls b00FFF444 08D42E bsr disNdxReg00FFF446 017FFF8C9 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF449 0160003F6 lbra disNextLinedisNot9:00FFF44C 034004 pshs b00FFF44E 0C5100 bitb #$100 ; check if indirect00FFF450 027005 beq dis400FFF452 0C605B ldb #'['00FFF454 017FFF8BB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis4:00FFF457 0E6E04 ldb ,s ; get back b00FFF459 0C400F andb #1500FFF45B 026030 bne disNotRplus00FFF45D 0E6E04 ldb ,s00FFF45F 0C5080 bitb #$80 ; outer indexed?00FFF461 027005 beq dis500FFF463 0C605D ldb #']'00FFF465 017FFF8AA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis5:00FFF468 0C602C ldb #','00FFF46A 017FFF8A5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF46D 0E6E04 ldb ,s00FFF46F 08D403 bsr disNdxReg00FFF471 017FFF89E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF474 0C602B ldb #'+'00FFF476 017FFF899 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF479 035004 puls b00FFF47B 0C5100 bitb #$10000FFF47D 1270003C2 lbeq disNextLine00FFF480 0C5080 bitb #$8000FFF482 1260003BD lbne disNextLine00FFF485 0C605D ldb #']'00FFF487 017FFF888 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF48A 0160003B5 lbra disNextLinedisNotRplus:00FFF48D 0C1001 cmpb #100FFF48F 026033 bne disNotRplusplus00FFF491 0E6E04 ldb ,s00FFF493 0C5080 bitb #$80 ; outer indexed?00FFF495 027005 beq dis600FFF497 0C605D ldb #']'00FFF499 017FFF876 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis6:00FFF49C 0C602C ldb #','00FFF49E 017FFF871 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4A1 0E6E04 ldb ,s00FFF4A3 08D3CF bsr disNdxReg00FFF4A5 017FFF86A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4A8 0C602B ldb #'+'00FFF4AA 017FFF865 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4AD 017FFF862 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4B0 035004 puls b00FFF4B2 0C5100 bitb #$10000FFF4B4 12700038B lbeq disNextLine00FFF4B7 0C5080 bitb #$8000FFF4B9 126000386 lbne disNextLine00FFF4BC 0C605D ldb #']'00FFF4BE 017FFF851 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4C1 01600037E lbra disNextLinedisNotRplusplus:00FFF4C4 0C1002 cmpb #200FFF4C6 026030 bne disNotRminus00FFF4C8 0E6E04 ldb ,s00FFF4CA 0C5080 bitb #$80 ; outer indexed?00FFF4CC 027005 beq dis700FFF4CE 0C605D ldb #']'00FFF4D0 017FFF83F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis7:00FFF4D3 0C602C ldb #','00FFF4D5 017FFF83A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4D8 0E6E04 ldb ,s00FFF4DA 08D398 bsr disNdxReg00FFF4DC 017FFF833 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4DF 0C602D ldb #'-'00FFF4E1 017FFF82E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4E4 035004 puls b00FFF4E6 0C5100 bitb #$10000FFF4E8 127000357 lbeq disNextLine00FFF4EB 0C5080 bitb #$8000FFF4ED 126000352 lbne disNextLine00FFF4F0 0C605D ldb #']'00FFF4F2 017FFF81D lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF4F5 01600034A lbra disNextLinedisNotRminus:00FFF4F8 0C1003 cmpb #300FFF4FA 026033 bne disNotRminusminus00FFF4FC 0E6E04 ldb ,s00FFF4FE 0C5080 bitb #$80 ; outer indexed?00FFF500 027005 beq dis800FFF502 0C605D ldb #']'00FFF504 017FFF80B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis8:00FFF507 0C602C ldb #','00FFF509 017FFF806 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF50C 0E6E04 ldb ,s00FFF50E 08D364 bsr disNdxReg00FFF510 017FFF7FF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF513 0C602D ldb #'-'00FFF515 017FFF7FA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF518 017FFF7F7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF51B 035004 puls b00FFF51D 0C5100 bitb #$10000FFF51F 127000320 lbeq disNextLine00FFF522 0C5080 bitb #$8000FFF524 12600031B lbne disNextLine00FFF527 0C605D ldb #']'00FFF529 017FFF7E6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF52C 016000313 lbra disNextLinedisNotRminusminus:00FFF52F 0C1004 cmpb #400FFF531 02602B bne disNotR00FFF533 0E6E04 ldb ,s00FFF535 0C5080 bitb #$80 ; outer indexed?00FFF537 027005 beq dis900FFF539 0C605D ldb #']'00FFF53B 017FFF7D4 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis9:00FFF53E 0C602C ldb #','00FFF540 017FFF7CF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF543 0E6E04 ldb ,s00FFF545 08D32D bsr disNdxReg00FFF547 017FFF7C8 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF54A 035004 puls b00FFF54C 0C5100 bitb #$10000FFF54E 1270002F1 lbeq disNextLine00FFF551 0C5080 bitb #$8000FFF553 1260002EC lbne disNextLine00FFF556 0C605D ldb #']'00FFF558 017FFF7B7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF55B 0160002E4 lbra disNextLinedisNotR:00FFF55E 0C1005 cmpb #500FFF560 026038 bne disNotBOffs00FFF562 0C6042 ldb #'B'00FFF564 017FFF7AB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF567 0E6E04 ldb ,s00FFF569 0C5080 bitb #$80 ; outer indexed?00FFF56B 027005 beq dis1000FFF56D 0C605D ldb #']'00FFF56F 017FFF7A0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis10:00FFF572 0C602C ldb #','00FFF574 017FFF79B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF577 0E6E04 ldb ,s00FFF579 08D2F9 bsr disNdxReg00FFF57B 017FFF794 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF57E 0C602D ldb #'-'00FFF580 017FFF78F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF583 017FFF78C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF586 035004 puls b00FFF588 0C5100 bitb #$10000FFF58A 1270002B5 lbeq disNextLine00FFF58D 0C5080 bitb #$8000FFF58F 1260002B0 lbne disNextLine00FFF592 0C605D ldb #']'00FFF594 017FFF77B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF597 0160002A8 lbra disNextLinedisNotBOffs:00FFF59A 0C1006 cmpb #600FFF59C 026038 bne disNotAOffs00FFF59E 0C6041 ldb #'A'00FFF5A0 017FFF76F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5A3 0E6E04 ldb ,s00FFF5A5 0C5080 bitb #$80 ; outer indexed?00FFF5A7 027005 beq dis1100FFF5A9 0C605D ldb #']'00FFF5AB 017FFF764 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis11:00FFF5AE 0C602C ldb #','00FFF5B0 017FFF75F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5B3 0E6E04 ldb ,s00FFF5B5 08D2BD bsr disNdxReg00FFF5B7 017FFF758 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5BA 0C602D ldb #'-'00FFF5BC 017FFF753 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5BF 017FFF750 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5C2 035004 puls b00FFF5C4 0C5100 bitb #$10000FFF5C6 127000279 lbeq disNextLine00FFF5C9 0C5080 bitb #$8000FFF5CB 126000274 lbne disNextLine00FFF5CE 0C605D ldb #']'00FFF5D0 017FFF73F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5D3 01600026C lbra disNextLinedisNotAOffs:00FFF5D6 0C1008 cmpb #800FFF5D8 026039 bne disNotBO00FFF5DA 0E6A00 ldb ,y+00FFF5DC 01D sex00FFF5DD 017FFEE21 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF5E0 0E6E04 ldb ,s00FFF5E2 0C5080 bitb #$80 ; outer indexed?00FFF5E4 027005 beq dis1200FFF5E6 0C605D ldb #']'00FFF5E8 017FFF727 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis12:00FFF5EB 0C602C ldb #','00FFF5ED 017FFF722 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5F0 0E6E04 ldb ,s00FFF5F2 08D280 bsr disNdxReg00FFF5F4 017FFF71B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5F7 0C602D ldb #'-'00FFF5F9 017FFF716 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5FC 017FFF713 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF5FF 035004 puls b00FFF601 0C5100 bitb #$10000FFF603 12700023C lbeq disNextLine00FFF606 0C5080 bitb #$8000FFF608 126000237 lbne disNextLine00FFF60B 0C605D ldb #']'00FFF60D 017FFF702 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF610 01600022F lbra disNextLinedisNotBO:00FFF613 0C1009 cmpb #900FFF615 026038 bne disNotWO00FFF617 0ECA01 ldd ,y++00FFF619 017FFEDE5 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF61C 0E6E04 ldb ,s00FFF61E 0C5080 bitb #$80 ; outer indexed?00FFF620 027005 beq dis1300FFF622 0C605D ldb #']'00FFF624 017FFF6EB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis13:00FFF627 0C602C ldb #','00FFF629 017FFF6E6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF62C 0E6E04 ldb ,s00FFF62E 08D244 bsr disNdxReg00FFF630 017FFF6DF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF633 0C602D ldb #'-'00FFF635 017FFF6DA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF638 017FFF6D7 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF63B 035004 puls b00FFF63D 0C5100 bitb #$10000FFF63F 127000200 lbeq disNextLine00FFF642 0C5080 bitb #$8000FFF644 1260001FB lbne disNextLine00FFF647 0C605D ldb #']'00FFF649 017FFF6C6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF64C 0160001F3 lbra disNextLinedisNotWO:00FFF64F 0C100A cmpb #1000FFF651 02603D bne disNotTO00FFF653 0E6A01 ldb ,y++00FFF655 017FFEDB2 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF658 0ECA01 ldd ,y++00FFF65A 017FFEDA4 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF65D 0E6E04 ldb ,s00FFF65F 0C5080 bitb #$80 ; outer indexed?00FFF661 027005 beq dis1400FFF663 0C605D ldb #']'00FFF665 017FFF6AA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis14:00FFF668 0C602C ldb #','00FFF66A 017FFF6A5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF66D 0E6E04 ldb ,s00FFF66F 08D203 bsr disNdxReg00FFF671 017FFF69E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF674 0C602D ldb #'-'00FFF676 017FFF699 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF679 017FFF696 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF67C 035004 puls b00FFF67E 0C5100 bitb #$10000FFF680 1270001BF lbeq disNextLine00FFF683 0C5080 bitb #$8000FFF685 1260001BA lbne disNextLine00FFF688 0C605D ldb #']'00FFF68A 017FFF685 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF68D 0160001B2 lbra disNextLinedisNotTO:00FFF690 0C100B cmpb #1100FFF692 026038 bne disNotDOffs00FFF694 0C6044 ldb #'D'00FFF696 017FFF679 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF699 0E6E04 ldb ,s00FFF69B 0C5080 bitb #$80 ; outer indexed?00FFF69D 027005 beq dis1500FFF69F 0C605D ldb #']'00FFF6A1 017FFF66E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis15:00FFF6A4 0C602C ldb #','00FFF6A6 017FFF669 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6A9 0E6E04 ldb ,s00FFF6AB 08D1C7 bsr disNdxReg00FFF6AD 017FFF662 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6B0 0C602D ldb #'-'00FFF6B2 017FFF65D lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6B5 017FFF65A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6B8 035004 puls b00FFF6BA 0C5100 bitb #$10000FFF6BC 127000183 lbeq disNextLine00FFF6BF 0C5080 bitb #$8000FFF6C1 12600017E lbne disNextLine00FFF6C4 0C605D ldb #']'00FFF6C6 017FFF649 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6C9 016000176 lbra disNextLinedisNotDOffs:00FFF6CC 0C100C cmpb #1200FFF6CE 026040 bne disNotPBO00FFF6D0 0E6A00 ldb ,y+00FFF6D2 01D sex00FFF6D3 017FFED2B lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF6D6 0E6E04 ldb ,s00FFF6D8 0C5080 bitb #$80 ; outer indexed?00FFF6DA 027005 beq dis1600FFF6DC 0C605D ldb #']'00FFF6DE 017FFF631 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis16:00FFF6E1 0C602C ldb #','00FFF6E3 017FFF62C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6E6 0E6E04 ldb ,s00FFF6E8 08D18A bsr disNdxReg00FFF6EA 0C6050 ldb #'P'00FFF6EC 017FFF623 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6EF 0C6043 ldb #'C'00FFF6F1 017FFF61E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6F4 0C602D ldb #'-'00FFF6F6 017FFF619 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6F9 017FFF616 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF6FC 035004 puls b00FFF6FE 0C5100 bitb #$10000FFF700 12700013F lbeq disNextLine00FFF703 0C5080 bitb #$8000FFF705 12600013A lbne disNextLine00FFF708 0C605D ldb #']'00FFF70A 017FFF605 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF70D 016000132 lbra disNextLinedisNotPBO:00FFF710 0C100D cmpb #1300FFF712 02603F bne disNotPWO00FFF714 0ECA01 ldd ,y++00FFF716 017FFECE8 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF719 0E6E04 ldb ,s00FFF71B 0C5080 bitb #$80 ; outer indexed?00FFF71D 027005 beq dis1700FFF71F 0C605D ldb #']'00FFF721 017FFF5EE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis17:00FFF724 0C602C ldb #','00FFF726 017FFF5E9 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF729 0E6E04 ldb ,s00FFF72B 08D147 bsr disNdxReg00FFF72D 0C6050 ldb #'P'00FFF72F 017FFF5E0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF732 0C6043 ldb #'C'00FFF734 017FFF5DB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF737 0C602D ldb #'-'00FFF739 017FFF5D6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF73C 017FFF5D3 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF73F 035004 puls b00FFF741 0C5100 bitb #$10000FFF743 1270000FC lbeq disNextLine00FFF746 0C5080 bitb #$8000FFF748 1260000F7 lbne disNextLine00FFF74B 0C605D ldb #']'00FFF74D 017FFF5C2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF750 0160000EF lbra disNextLinedisNotPWO:00FFF753 0C100E cmpb #1400FFF755 026044 bne disNotPTO00FFF757 0E6A00 ldb ,y+00FFF759 017FFECAE lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF75C 0ECA01 ldd ,y++00FFF75E 017FFECA0 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF761 0E6E04 ldb ,s00FFF763 0C5080 bitb #$80 ; outer indexed?00FFF765 027005 beq dis1800FFF767 0C605D ldb #']'00FFF769 017FFF5A6 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddis18:00FFF76C 0C602C ldb #','00FFF76E 017FFF5A1 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF771 0E6E04 ldb ,s00FFF773 08D0FF bsr disNdxReg00FFF775 0C6050 ldb #'P'00FFF777 017FFF598 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF77A 0C6043 ldb #'C'00FFF77C 017FFF593 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF77F 0C602D ldb #'-'00FFF781 017FFF58E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF784 017FFF58B lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF787 035004 puls b00FFF789 0C5100 bitb #$10000FFF78B 1270000B4 lbeq disNextLine00FFF78E 0C5080 bitb #$8000FFF790 1260000AF lbne disNextLine00FFF793 0C605D ldb #']'00FFF795 017FFF57A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF798 0160000A7 lbra disNextLinedisNotPTO:00FFF79B 0C605B ldb #'['00FFF79D 017FFF572 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7A0 0ECA01 ldd ,y++00FFF7A2 017FFEC5C lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7A5 0C605D ldb #']'00FFF7A7 017FFF568 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7AA 016000095 lbra disNextLinedisNotNdx:00FFF7AD 0C1006 cmpb #EXT00FFF7AF 026013 bne disNotExt00FFF7B1 00D15F tst farflag00FFF7B3 027005 beq dis3000FFF7B5 0E6A01 ldb ,y++00FFF7B7 017FFEC50 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimizeddis30:00FFF7BA 0ECA01 ldd ,y++00FFF7BC 017FFEC42 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7BF 00F15F clr farflag00FFF7C1 01600007E lbra disNextLinedisNotExt:00FFF7C4 0C1003 cmpb #IMMB00FFF7C6 02600D bne disNotIMMB00FFF7C8 0C6023 ldb #'#'00FFF7CA 017FFF545 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7CD 0E6A00 ldb ,y+00FFF7CF 017FFEC38 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7D2 01600006D lbra disNextLinedisNotIMMB:00FFF7D5 0C1007 cmpb #IMMW00FFF7D7 02600C bne disNotIMMW00FFF7D9 0C6023 ldb #'#'00FFF7DB 017FFF534 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7DE 0ECA01 ldd ,y++00FFF7E0 017FFEC1E lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7E3 02005D bra disNextLinedisNotIMMW:00FFF7E5 0C1009 cmpb #TFREXG00FFF7E7 026006 bne disNotTfr00FFF7E9 0E6A00 ldb ,y+00FFF7EB 08D0B8 bsr disTfrExg00FFF7ED 020053 bra disNextLinedisNotTfr:dis1:00FFF7EF 0C1121 cmpb #$12100FFF7F1 025028 blo dis1900FFF7F3 0C112F cmpb #$12F00FFF7F5 022024 bhi dis1900FFF7F7 0C40FF andb #$FF00FFF7F9 08EFFF2B4 ldx #distbl200FFF7FC 058 aslb00FFF7FD 058 aslb00FFF7FE 03A abx00FFF7FF 0E6800 ldb ,x+00FFF801 017FFF50E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF804 0E6800 ldb ,x+00FFF806 017FFF509 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF809 0E6800 ldb ,x+00FFF80B 017FFF504 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF80E 0E6800 ldb ,x+00FFF810 017FFF4FF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF813 0C6020 ldb #' '00FFF815 017FFF4FA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF818 016FFFBF4 lbra dis21*** warning 1: Long branch within short branch range could be optimizeddis19:00FFF81B 08E000000 ldx #0dis24:00FFF81E 0E180A000FFF2F4 cmpb distbl3,x00FFF823 026006 bne dis2500FFF825 08EFFF314 ldx #distbl400FFF828 016FFFBB2 lbra dis23*** warning 1: Long branch within short branch range could be optimizeddis25:00FFF82B 030001 inx00FFF82D 08C00001F cmpx #3100FFF830 025FEC blo dis2400FFF832 0C603F ldb #'?'00FFF834 017FFF4DB lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF837 017FFF4D8 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF83A 017FFF4D5 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF83D 017FFF4D2 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF840 020000 bra disNextLinedisNextLine:00FFF842 00F15F clr farflag00FFF844 017FFD88B lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF847 1BC000926 cmpy mon_r2+200FFF84A 125FFFB72 lblo disLoop1*** warning 1: Long branch within short branch range could be optimized00FFF84D 0160000DE lbra MonitordisNdxRegs:00FFF850 058059053055 fcb 'X','Y','S','U'disTfrRegs:00FFF854 044020058020059020055 fcb "D X Y U S PC A B CCDP "00FFF85B 02005302005004302002000FFF862 02002004102004202004300FFF869 04304405002002002002000FFF870 020020020020disNdxReg:00FFF874 0C4600 andb #$60000FFF876 059 rolb00FFF877 059 rolb00FFF878 059 rolb00FFF879 059 rolb00FFF87A 04F clra00FFF87B 034040 pshs u00FFF87D 01F003 tfr d,u00FFF87F 0A6C0A000FFF850 lda disNdxRegs,u00FFF884 035040 puls u00FFF886 01E089 exg a,b00FFF888 039 rtsdisTfrReg:00FFF889 034014 pshs b,x00FFF88B 08EFFF854 ldx #disTfrRegs00FFF88E 058 aslb00FFF88F 0A6815 lda b,x00FFF891 01E089 exg a,b00FFF893 017FFF47C lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF896 01E089 exg a,b00FFF898 030001 inx00FFF89A 0E688D ldb b,x00FFF89C 0C1020 cmpb #' '00FFF89E 027003 beq disTfr100FFF8A0 017FFF46F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddisTfr1:00FFF8A3 035094 puls b,x,pcdisTfrExg:00FFF8A5 034004 pshs b00FFF8A7 059 rolb00FFF8A8 059 rolb00FFF8A9 059 rolb00FFF8AA 059 rolb00FFF8AB 0C400F andb #1500FFF8AD 08DFDA bsr disTfrReg00FFF8AF 0C602C ldb #','00FFF8B1 017FFF45E lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF8B4 0E6E04 ldb ,s00FFF8B6 0C400F andb #1500FFF8B8 08DFCF bsr disTfrReg00FFF8BA 035084 puls b,pcASMO:00FFF8BC 034006 pshs d00FFF8BE 0CCFFF8D0 ldd #ASMOUTCH00FFF8C1 0FD000800 std CharOutVec00FFF8C4 035086 puls d,pcASMOO:00FFF8C6 034006 pshs d00FFF8C8 0CCFFE2F5 ldd #DisplayChar00FFF8CB 0FD000800 std CharOutVec00FFF8CE 035086 puls d,pcASMOUTCH:00FFF8D0 0E7C00 stb ,u+00FFF8D2 039 rtsDumpAsmbuf:00FFF8D3 0CE000160 ldu #asmbufdab2:00FFF8D6 0E6C00 ldb ,u+00FFF8D8 027005 beq dab100FFF8DA 017FFF435 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF8DD 020FF7 bra dab2dab1:00FFF8DF 039 rts;==============================================================================; System Monitor;==============================================================================CmdPrompt:00FFF8E0 017FFD7EF lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF8E3 0C6024 ldb #'$'00FFF8E5 017FFF42A lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF8E8 016FFF427 lbra OUTCH*** warning 1: Long branch within short branch range could be optimizedmsgF09Starting:00FFF8EB 04606506D07406906B069 fcb "Femtiki F09 Multi-core OS Starting",CR,LF,000FFF8F2 02004603003902004D07500FFF8F9 06C07406902D06306F07200FFF900 06502004F05302005307400FFF907 06107207406906E06700D00FFF90E 00A000MonitorStart:00FFF910 0CCFFF8EB ldd #msgF09Starting00FFF913 017FFEAA0 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF916 0CCFFFB0E ldd #HelpMsg00FFF919 017FFEA9A lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF91C 0CCFFF8E0 ldd #CmdPrompt00FFF91F 0FD000808 std CmdPromptJI00FFF922 0CCFFFAF5 ldd #DisplayErr00FFF925 0FD00080C std MonErrVec00FFF928 0CC0063FF ldd #$63FF ; default app stack00FFF92B 0FD000908 std mon_SSAVEMonitor:00FFF92E 03280F006FFF leas $6FFF ; reset stack pointer00FFF932 05F clrb ; turn off keyboard echo00FFF933 017FFF3E0 lbsr SetKeyboardEcho*** warning 1: Long branch within short branch range could be optimized; Reset IO vectors00FFF936 0CCFFEBE4 ldd #SerialPeekCharDirect00FFF939 0FD000804 std CharInVec00FFF93C 0CCFFE2F5 ldd #DisplayChar00FFF93F 0FD000800 std CharOutVec00FFF942 0CCFFF8E0 ldd #CmdPrompt00FFF945 0FD000808 std CmdPromptJI; jsr RequestIOFocusPromptLn:00FFF948 0AD90F000808 jsr [CmdPromptJI]; Get characters until a CR is keyedPrompt3:00FFF94C 0CCFFFFFF ldd #-1 ; block until key present00FFF94F 017FFF388 lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF952 0C100D cmpb #CR00FFF954 027005 beq Prompt100FFF956 017FFF3B9 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF959 020FF1 bra Prompt3; Process the screen line that the CR was keyed on;Prompt1:00FFF95B 0CC005050 ldd #$505000FFF95E 0150FDFFFE60001 std LEDS; ldb RunningID; cmpb #61; bhi Prompt300FFF963 0CC005151 ldd #$515100FFF966 0150FDFFFE60001 std LEDS00FFF96B 00F111 clr CursorCol ; go back to the start of the line00FFF96D 017FFE962 lbsr CalcScreenLoc ; calc screen memory location*** warning 1: Long branch within short branch range could be optimized00FFF970 01F002 tfr d,y00FFF972 0CC005252 ldd #$525200FFF975 0150FDFFFE60001 std LEDSskipDollar:00FFF97A 08D0B9 bsr MonGetNonSpace00FFF97C 0C1024 cmpb #'$'00FFF97E 027FFA beq skipDollar ; skip over '$' prompt character00FFF980 086353 lda #$535300FFF982 0150FDFFFE60001 std LEDS; Dispatch based on command character;Prompt2:00FFF987 0C103C cmpb #'<'00FFF989 02602C bne PromptHelp00FFF98B 08D0A3 bsr MonGetch00FFF98D 0C103E cmpb #'>'00FFF98F 026F9D bne Monitor00FFF991 08D09D bsr MonGetch00FFF993 0C1073 cmpb #'s'00FFF995 02600E bne Prompt2a00FFF997 0CCFFEBE4 ldd #SerialPeekCharDirect00FFF99A 0FD000804 std CharInVec00FFF99D 0CCFFEC08 ldd #SerialPutChar00FFF9A0 0FD000800 std CharOutVec00FFF9A3 020F89 bra MonitorPrompt2a:00FFF9A5 0C1063 cmpb #'c'00FFF9A7 026F85 bne Monitor00FFF9A9 0CCFFEA12 ldd #GetKey00FFF9AC 0FD000804 std CharInVec00FFF9AF 0CCFFE2F5 ldd #DisplayChar00FFF9B2 0FD000800 std CharOutVec00FFF9B5 020F77 bra MonitorPromptHelp:00FFF9B7 0C103F cmpb #'?' ; $? - display help00FFF9B9 026008 bne PromptC00FFF9BB 0CCFFFB0E ldd #HelpMsg00FFF9BE 017FFE9F5 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF9C1 020F6B bra MonitorPromptC:00FFF9C3 0C1043 cmpb #'C'00FFF9C5 026008 bne PromptD00FFF9C7 017FFE85B lbsr ClearScreen*** warning 1: Long branch within short branch range could be optimized00FFF9CA 017FFE8CB lbsr HomeCursor*** warning 1: Long branch within short branch range could be optimized00FFF9CD 020F5F bra MonitorPromptD:00FFF9CF 0C1044 cmpb #'D'00FFF9D1 026008 bne PromptColon00FFF9D3 08D05B bsr MonGetch00FFF9D5 0C1052 cmpb #'R'00FFF9D7 02626F bne DumpMemory00FFF9D9 020309 bra DumpRegsPromptColon:00FFF9DB 0C103A cmpb #':'00FFF9DD 026003 bne PromptF00FFF9DF 0160002C2 lbra EditMemoryPromptF:00FFF9E2 0C1046 cmpb #'F'00FFF9E4 026016 bne PromptJ00FFF9E6 08D048 bsr MonGetch00FFF9E8 0C1049 cmpb #'I'00FFF9EA 026009 bne PromptFL00FFF9EC 08D042 bsr MonGetch00FFF9EE 0C1047 cmpb #'G'00FFF9F0 026F3C bne Monitor00FFF9F2 07EFE0000 jmp $FE0000PromptFL:00FFF9F5 0C104C cmpb #'L'00FFF9F7 026F35 bne Monitor00FFF9F9 0160003A9 lbra DumpIOFocusListPromptJ:00FFF9FC 0C104A cmpb #'J'00FFF9FE 12700032E lbeq jump_to_codePromptR:00FFFA01 0C1052 cmpb #'R'00FFFA03 026006 bne Prompt_s00FFFA05 0CEFFF92E ldu #Monitor00FFFA08 016FFD9F5 lbra ramtest*** warning 1: Long branch within short branch range could be optimizedPrompt_s:00FFFA0B 0C1073 cmpb #'s'00FFFA0D 026005 bne PromptT00FFFA0F 017FFF293 lbsr SerialOutputTest*** warning 1: Long branch within short branch range could be optimized00FFFA12 020F1A bra MonitorPromptT:00FFFA14 0C1054 cmpb #'T'00FFFA16 026011 bne PromptU00FFFA18 08D016 bsr MonGetch00FFFA1A 0C1049 cmpb #'I'00FFFA1C 026F10 bne Monitor00FFFA1E 08D010 bsr MonGetch00FFFA20 0C1052 cmpb #'R'00FFFA22 026F0A bne Monitor00FFFA24 017FFEAA0 lbsr rtc_read*** warning 1: Long branch within short branch range could be optimized00FFFA27 020F05 bra MonitorPromptU:00FFFA29 0C1055 cmpb #'U'00FFFA2B 026F01 bne Monitor00FFFA2D 016FFF984 lbra disassem*** warning 1: Long branch within short branch range could be optimizedMonGetch:00FFFA30 0E6A04 ldb ,y00FFFA32 031201 iny00FFFA34 039 rtsMonGetNonSpace:00FFFA35 08DFF9 bsr MonGetCh00FFFA37 0C1020 cmpb #' '00FFFA39 027FFA beq MonGetNonSpace00FFFA3B 039 rts;------------------------------------------------------------------------------; Ignore blanks in the input; Y = text pointer; D destroyed;------------------------------------------------------------------------------;ignBlanks:ignBlanks1:00FFFA3C 08DFF2 bsr MonGetch00FFFA3E 0C1020 cmpb #' '00FFFA40 027FFA beq ignBlanks100FFFA42 0313FF dey00FFFA44 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------GetTwoParams:00FFFA45 08DFF5 bsr ignBlanks00FFFA47 08D046 bsr GetHexNumber ; get start address of dump00FFFA49 0FC000910 ldd mon_numwka00FFFA4C 0FD000920 std mon_r100FFFA4F 0FC000912 ldd mon_numwka+200FFFA52 0FD000922 std mon_r1+200FFFA55 08DFE5 bsr ignBlanks00FFFA57 08D036 bsr GetHexNumber ; get end address of dump00FFFA59 0FC000910 ldd mon_numwka00FFFA5C 0FD000924 std mon_r200FFFA5F 0FC000912 ldd mon_numwka+200FFFA62 0FD000926 std mon_r2+200FFFA65 039 rts;------------------------------------------------------------------------------; Get a range, the end must be greater or equal to the start.;------------------------------------------------------------------------------GetRange:00FFFA66 08DFDD bsr GetTwoParams00FFFA68 0FC000926 ldd mon_r2+200FFFA6B 0B3000922 subd mon_r1+200FFFA6E 0FC000924 ldd mon_r200FFFA71 0F2000921 sbcb mon_r1+100FFFA74 0B2000920 sbca mon_r100FFFA77 124000007 lbcc grng100FFFA7A 0AD90F00080C jsr [MonErrVec]00FFFA7E 016FFFEAD lbra Monitor*** warning 1: Long branch within short branch range could be optimizedgrng1:00FFFA81 039 rtsshl_numwka:00FFFA82 078000913 asl mon_numwka+300FFFA85 079000912 rol mon_numwka+200FFFA88 079000911 rol mon_numwka+100FFFA8B 079000910 rol mon_numwka00FFFA8E 039 rts;------------------------------------------------------------------------------; Get a hexidecimal number. Maximum of twelve digits.;; Modifies:; Y = text pointer (updated); D = number of digits; mon_numwka contains number;------------------------------------------------------------------------------;GetHexNumber:00FFFA8F 04F05F clrd00FFFA91 0FD000910 std mon_numwka ; zero out work area00FFFA94 0FD000912 std mon_numwka+200FFFA97 034010 pshs x00FFFA99 08E000000 ldx #0 ; max 12 eight digitsgthxn2:00FFFA9C 08DF92 bsr MonGetch00FFFA9E 08D01F bsr AsciiToHexNybble00FFFAA0 0C1FFF cmpb #-100FFFAA2 027017 beq gthxn100FFFAA4 08DFDC bsr shl_numwka00FFFAA6 08DFDA bsr shl_numwka00FFFAA8 08DFD8 bsr shl_numwka00FFFAAA 08DFD6 bsr shl_numwka00FFFAAC 0C400F andb #$0f00FFFAAE 0FA000913 orb mon_numwka+300FFFAB1 0F7000913 stb mon_numwka+300FFFAB4 030001 inx00FFFAB6 08C00000C cmpx #1200FFFAB9 025FE1 blo gthxn2gthxn1:00FFFABB 01F010 tfr x,d00FFFABD 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:00FFFABF 0C1030 cmpb #'0'00FFFAC1 025021 blo gthx300FFFAC3 0C1039 cmpb #'9'00FFFAC5 022003 bhi gthx500FFFAC7 0C0030 subb #'0'00FFFAC9 039 rtsgthx5:00FFFACA 0C1041 cmpb #'A'00FFFACC 025016 blo gthx300FFFACE 0C1046 cmpb #'F'00FFFAD0 022005 bhi gthx600FFFAD2 0C0041 subb #'A'00FFFAD4 0CB00A addb #1000FFFAD6 039 rtsgthx6:00FFFAD7 0C1061 cmpb #'a'00FFFAD9 025009 blo gthx300FFFADB 0C107A cmpb #'z'00FFFADD 022005 bhi gthx300FFFADF 0C0061 subb #'a'00FFFAE1 0CB00A addb #1000FFFAE3 039 rtsgthx3:00FFFAE4 0C6FFF ldb #-1 ; not a hex number00FFFAE6 039 rtsAsciiToDecNybble:00FFFAE7 0C1030 cmpb #'0'00FFFAE9 024007 bcc gtdc300FFFAEB 0C103A cmpb #'9'+100FFFAED 025003 bcs gtdc300FFFAEF 0C0030 subb #'0'00FFFAF1 039 rtsgtdc3:00FFFAF2 0C6FFF ldb #-100FFFAF4 039 rtsDisplayErr:00FFFAF5 0CCFFFB06 ldd #msgErr00FFFAF8 017FFE8BB lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFFAFB 07EFFF92E jmp MonitorDisplayStringDX00FFFAFE 0DD024 std Strptr00FFFB00 09F026 stx Strptr+200FFFB02 0BDFFE3B6 jsr DisplayString00FFFB05 039 rtsmsgErr:00FFFB06 02A02A04507207200D00A fcb "**Err",CR,LF,000FFFB0D 000HelpMsg:00FFFB0E 03F02003D020044069073 fcb "? = Display help",CR,LF00FFFB15 07006C06107902006806500FFFB1C 06C07000D00A00FFFB20 04304C05302003D020063 fcb "CLS = clear screen",CR,LF00FFFB27 06C06506107202007306300FFFB2E 07206506506E00D00A; db "S = Boot from SD Card",CR,LF00FFFB34 03A02003D020045064069 fcb ": = Edit memory bytes",CR,LF00FFFB3B 07402006D06506D06F07200FFFB42 07902006207907406507300FFFB49 00D00A; db "L = Load sector",CR,LF; db "W = Write sector",CR,LF00FFFB4B 04405202003D020044075 fcb "DR = Dump registers",CR,LF00FFFB52 06D07002007206506706900FFFB59 07307406507207300D00A00FFFB60 04402003D02004407506D fcb "D = Dump memory",CR,LF00FFFB67 07002006D06506D06F07200FFFB6E 07900D00A; db "F = Fill memory",CR,LF00FFFB71 04604C02003D020044075 fcb "FL = Dump I/O Focus List",CR,LF00FFFB78 06D07002004902F04F02000FFFB7F 04606F06307507302004C00FFFB86 06907307400D00A00FFFB8B 04604904702003D020073 fcb "FIG = start FIG Forth",CR,LF00FFFB92 07406107207402004604900FFFB99 04702004606F07207406800FFFBA0 00D00A; db "KILL n = kill task #n",CR,LF; db "B = start tiny basic",CR,LF; db "b = start EhBasic 6502",CR,LF00FFFBA2 04A02003D02004A07506D fcb "J = Jump to code",CR,LF00FFFBA9 07002007406F02006306F00FFFBB0 06406500D00A00FFFBB4 05204104D02003D020074 fcb "RAM = test RAM",CR,LF00FFFBBB 06507307402005204104D00FFFBC2 00D00A; db "R[n] = Set register value",CR,LF; db "r = random lines - test bitmap",CR,LF; db "e = ethernet test",CR,LF00FFFBC4 07302003D020073065072 fcb "s = serial output test",CR,LF00FFFBCB 06906106C02006F07507400FFFBD2 07007507402007406507300FFFBD9 07400D00A; db "T = Dump task list",CR,LF; db "TO = Dump timeout list",CR,LF00FFFBDC 05404902003D020064069 fcb "TI = display date/time",CR,LF00FFFBE3 07307006C06107902006400FFFBEA 06107406502F07406906D00FFFBF1 06500D00A; db "TEMP = display temperature",CR,LF00FFFBF4 05502003D02007506E061 fcb "U = unassemble",CR,LF00FFFBFB 07307306506D06206C06500FFFC02 00D00A; db "P = Piano",CR,LF,000FFFC04 000 fcb 0msgRegHeadings00FFFC05 00D00A02002004402F041 fcb CR,LF," D/AB X Y U S PC DP CCR",CR,LF,000FFFC0C 04202002002002002005800FFFC13 02002002002002002005900FFFC1A 02002002002002002005500FFFC21 02002002002002002005300FFFC28 02002002002002002002000FFFC2F 05004302002002002004400FFFC36 05002002004304305200D00FFFC3D 00A000nHEX4:00FFFC3F 0BDFFD2D2 jsr HEX400FFFC42 039 rtsnXBLANK:00FFFC43 0C6020 ldb #' '00FFFC45 016FFF0CA lbra OUTCH*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Memory;; Usage:; $D FFFC12 FFFC20;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------DumpMemory:00FFFC48 08DE1C bsr GetRange00FFFC4A 18E000000 ldy #000FFFC4D 1BE000922 ldy mon_r1+2dmpm2:00FFFC50 017FFD47F lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFFC53 0C603A ldb #':'00FFFC55 017FFF0BA lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFC58 01F020 tfr y,d;addd mon_r1+2 ; output the address00FFFC5A 017FFE7A4 lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFFC5D 0C6020 ldb #' '00FFFC5F 017FFF0B0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFC62 08E000008 ldx #8 ; number of bytes to displaydmpm1:; ldb far [mon_r1+1],y;ldb [mon_r1+2],y00FFFC65 0E6A04 ldb ,y00FFFC67 031201 iny00FFFC69 017FFE79E lbsr DispByteAsHex ; display byte*** warning 1: Long branch within short branch range could be optimized00FFFC6C 0C6020 ldb #' ' ; followed by a space00FFFC6E 017FFF0A1 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFC71 05F clrb00FFFC72 04F clra00FFFC73 017FFF064 lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFFC76 0C1003 cmpb #CTRLC00FFFC78 027024 beq dmpm300FFFC7A 0301FF dex00FFFC7C 026FE7 bne dmpm1; Now output ascii00FFFC7E 0C6020 ldb #' '00FFFC80 017FFF08F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFC83 08E000008 ldx #8 ; 8 chars to output00FFFC86 0313F8 leay -8,y ; backup pointerdmpm5:; ldb far [mon_r1+1],y ; get the char; ldb [mon_r1+2],y ; get the char00FFFC88 0E6A04 ldb ,y00FFFC8A 0C1020 cmpb #$20 ; is it a control char?00FFFC8C 024002 bhs dmpm400FFFC8E 0C602E ldb #'.'dmpm4:00FFFC90 017FFF07F lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFFC93 031201 iny00FFFC95 0301FF dex00FFFC97 026FEF bne dmpm500FFFC99 1BC000926 cmpy mon_r2+200FFFC9C 025FB2 blo dmpm2dmpm3:00FFFC9E 017FFD431 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFFCA1 016FFFC8A lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Edit Memory;; Usage:; $$:FFFC12 8 "Hello World!" 0;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------EditMemory:00FFFCA4 0CE000008 ldu #8 ; set max byte count00FFFCA7 017FFFDE5 lbsr GetHexNumber ; get the start address*** warning 1: Long branch within short branch range could be optimized00FFFCAA 0BE000922 ldx mon_r1+2EditMem2:00FFFCAD 017FFFD8C lbsr ignBlanks ; skip over blanks*** warning 1: Long branch within short branch range could be optimized00FFFCB0 017FFFDDC lbsr GetHexNumber ; get the byte value*** warning 1: Long branch within short branch range could be optimized00FFFCB3 05D tstb ; check for valid value00FFFCB4 02B00C bmi EditMem1 ; if invalid, quit00FFFCB6 0F6000923 ldb mon_r1+3 ; get value00FFFCB9 0E7800 stb ,x+ ; update memory at address00FFFCBB 0335FF leau -1,u ; decremeent byte count00FFFCBD 283000000 cmpu #000FFFCC0 026FEB bne EditMem2 ; go back for annother byteEditMem1:00FFFCC2 017FFFD6B lbsr MonGetch ; see if a string is being entered*** warning 1: Long branch within short branch range could be optimized00FFFCC5 0C1022 cmpb #'"'00FFFCC7 026018 bne EditMem3 ; no string, we're done00FFFCC9 0CE000028 ldu #40 ; string must be less than 40 charsEditMem4:00FFFCCC 017FFFD61 lbsr MonGetch ; look for close quote*** warning 1: Long branch within short branch range could be optimized00FFFCCF 0C1022 cmpb #'"'00FFFCD1 026005 bne EditMem6 ; end of string?00FFFCD3 0CE000008 ldu #8 ; reset the byte count00FFFCD6 020FD5 bra EditMem2EditMem6:00FFFCD8 0E7800 stb ,x+ ; store the character in memory00FFFCDA 0335FF leau -1,u ; decrement byte count00FFFCDC 283000000 cmpu #000FFFCDF 022FEB bhi EditMem4 ; max 40 charsEditMem3:00FFFCE1 016FFFC4A lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Registers;; Usage:; $DR;------------------------------------------------------------------------------DumpRegs:00FFFCE4 0CCFFFC05 ldd #msgRegHeadings00FFFCE7 017FFE6CC lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFFCEA 08DF57 bsr nXBLANK00FFFCEC 0FC000900 ldd mon_DSAVE00FFFCEF 08DF4E bsr nHEX400FFFCF1 08DF50 bsr nXBLANK00FFFCF3 0FC000902 ldd mon_XSAVE00FFFCF6 08DF47 bsr nHEX400FFFCF8 08DF49 bsr nXBLANK00FFFCFA 0FC000904 ldd mon_YSAVE00FFFCFD 08DF40 bsr nHEX400FFFCFF 08DF42 bsr nXBLANK00FFFD01 0FC000906 ldd mon_USAVE00FFFD04 08DF39 bsr nHEX400FFFD06 08DF3B bsr nXBLANK00FFFD08 0FC000908 ldd mon_SSAVE00FFFD0B 08DF32 bsr nHEX400FFFD0D 08DF34 bsr nXBLANK00FFFD0F 0F600090B ldb mon_PCSAVE+100FFFD12 017FFE6F5 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFFD15 0FC00090C ldd mon_PCSAVE+200FFFD18 08DF25 bsr nHEX400FFFD1A 08DF27 bsr nXBLANK00FFFD1C 0FC00090E ldd mon_DPRSAVE00FFFD1F 0BDFFD2CE jsr HEX200FFFD22 08DF1F bsr nXBLANK00FFFD24 0B600090F lda mon_CCRSAVE00FFFD27 017FFD5A4 lbsr HEX2*** warning 1: Long branch within short branch range could be optimized00FFFD2A 08DF17 bsr nXBLANK00FFFD2C 016FFFBFF 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:00FFFD2F 08DD5E bsr GetHexNumber00FFFD31 01A010 sei00FFFD33 1FE000908 lds mon_SSAVE00FFFD36 0CCFFFD6A ldd #<jtc_exit ; setup stack for RTS back to monitor00FFFD39 034006 pshs d00FFFD3B 0C6000 ldb #>jtc_exit00FFFD3D 034004 pshs b00FFFD3F 0FC000912 ldd mon_numwka+2 ; get the address parameter00FFFD42 034006 pshs d00FFFD44 0F6000911 ldb mon_numwka+100FFFD47 034004 pshs b00FFFD49 0FC000906 ldd mon_USAVE00FFFD4C 034006 pshs d00FFFD4E 0FC000904 ldd mon_YSAVE00FFFD51 034006 pshs d00FFFD53 0FC000902 ldd mon_XSAVE00FFFD56 034006 pshs d00FFFD58 0B600090E lda mon_DPRSave00FFFD5B 034002 pshs a00FFFD5D 0FC000900 ldd mon_DSAVE00FFFD60 034006 pshs d00FFFD62 0B600090F lda mon_CCRSAVE00FFFD65 034002 pshs a00FFFD67 0150350FF puls far ccr,d,dpr,x,y,u,pcjtc_exit:00FFFD6A 1FF000908 sts >mon_SSAVE ; need to use extended addressing, no direct page setting00FFFD6D 03280F006FFF leas $6FFF ; reset stack to system area, dont modify flags register!00FFFD71 034001 pshs ccr ; now the stack can be used00FFFD73 034002 pshs a ; save acca register so we can use it00FFFD75 01F0B8 tfr dpr,a ; a = outgoing dpr value00FFFD77 0B700090E sta >mon_DPRSAVE ; force extended addressing mode usage here dpr is not set00FFFD7A 04F clra ; dpg register must be set to zero before values are00FFFD7B 01F08B tfr a,dpr ; saved in the monitor register save area.00FFFD7D 035002 puls a ; get back acca00FFFD7F 0FD000900 std mon_DSAVE ; save regsters, can use direct addressing now00FFFD82 0BF000902 stx mon_XSAVE00FFFD85 1BF000904 sty mon_YSAVE00FFFD88 0FF000906 stu mon_USAVE00FFFD8B 035002 puls a ; get back ccr00FFFD8D 0B700090F sta mon_CCRSAVE ; and save it too; Reset vectors in case they got toasted.00FFFD90 0CCFFEBE4 ldd #SerialPeekCharDirect00FFFD93 0FD000804 std CharInVec00FFFD96 0CCFFE2F5 ldd #DisplayChar00FFFD99 0FD000800 std CharOutVec00FFFD9C 0FCFFFAF5 ldd DisplayErr00FFFD9F 0FD00080C std MonErrVec; todo set according to coreid00FFFDA2 016FFFF3F lbra DumpRegs ; now go do a register dump*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------DumpIOFocusList:00FFFDA5 08E000000 ldx #0dfl2:00FFFDA8 0E680A000FF0000 ldb IOFocusList,x00FFFDAD 0C1018 cmpb #2400FFFDAF 02600A bne dfl100FFFDB1 01F010 tfr x,d00FFFDB3 017FFE654 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFFDB6 0C6020 ldb #' '00FFFDB8 017FFEF57 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddfl1:00FFFDBB 030001 inx00FFFDBD 08C000010 cmpx #1600FFFDC0 025FE6 blo dfl200FFFDC2 017FFD30D lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFFDC5 016FFFB66 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------swi3_rout:00FFFDC8 01A010 sei00FFFDCA 035002 puls a00FFFDCC 0B700090F sta mon_CCRSAVE00FFFDCF 03507E puls D,DPR,X,Y,U00FFFDD1 0FD000900 std mon_DSAVE00FFFDD4 0BF000902 stx mon_XSAVE00FFFDD7 1BF000904 sty mon_YSAVE00FFFDDA 0FF000906 stu mon_USAVE00FFFDDD 01F0B8 tfr dpr,a00FFFDDF 0B700090E sta mon_DPRSAVE00FFFDE2 035002 puls a00FFFDE4 0B700090A sta mon_PCSAVE00FFFDE7 035006 puls D00FFFDE9 0FD00090B std mon_PCSAVE+100FFFDEC 1FF000908 sts mon_SSAVE00FFFDEF 1CE003FFF lds #$3FFF00FFFDF2 01C0EF cli00FFFDF4 07EFFFCE4 jmp DumpRegsswi3_exit:00FFFDF7 01A010 sei00FFFDF9 1FE000908 lds mon_SSAVE00FFFDFC 0FC00090B ldd mon_PCSAVE+100FFFDFF 034006 pshs d00FFFE01 0B600090A lda mon_PCSAVE00FFFE04 034002 pshs a00FFFE06 0FE000906 ldu mon_USAVE00FFFE09 1BE000904 ldy mon_YSAVE00FFFE0C 0BE000902 ldx mon_XSAVE00FFFE0F 034070 pshs x,y,u00FFFE11 0B600090E lda mon_DPRSAVE00FFFE14 034002 pshs a00FFFE16 0FC000900 ldd mon_DSAVE00FFFE19 034006 pshs d00FFFE1B 0B600090F lda mon_CCRSAVE00FFFE1E 034002 pshs a00FFFE20 01F08A tfr a,ccr00FFFE22 01C0EF cli00FFFE24 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------firq_rout:00FFFE25 03B rtiirq_rout:; lbsr SerialIRQ ; check for recieved character; lbsr TimerIRQ; Reset the edge sense circuit in the PIC00FFFE26 08601F lda #31 ; Timer is IRQ #3100FFFE28 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()00FFFE2B 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFFE30 0150B6FFFE6000D lda VIA+VIA_IFR00FFFE35 02A011 bpl notTimerIRQ200FFFE37 085800 bita #$80000FFFE39 02700D beq notTimerIRQ200FFFE3B 01507FFFFE60012 clr VIA+VIA_T3LL00FFFE40 01507FFFFE60013 clr VIA+VIA_T3LH00FFFE45 07CE00037 inc $E00037 ; update timer IRQ screen flagnotTimerIRQ2:00FFFE48 0B6FF0014 lda IrqBase ; get the IRQ flag byte00FFFE4B 044 lsra00FFFE4C 0BAFF0014 ora IrqBase00FFFE4F 0840E0 anda #$E000FFFE51 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:00FFFE54 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------nmi_rout:00FFFE55 0150F6FFFFFFFE0 ldb COREID00FFFE5A 086049 lda #'I'00FFFE5C 08EE00028 ldx #TEXTSCR+4000FFFE5F 0A788F sta b,xrti_insn:00FFFE61 03B rti; Special Register Areaorg $FFFFE0; Interrupt vector tableorg $FFFFF000FFFFF0 FFFE61 fcw rti_insn ; reserved00FFFFF2 FFFDC8 fcw swi3_rout ; SWI300FFFFF4 FFFE61 fcw rti_insn ; SWI200FFFFF6 FFFE25 fcw firq_rout ; FIRQ00FFFFF8 FFFE26 fcw irq_rout ; IRQ00FFFFFA FFE023 fcw start ; SWI00FFFFFC FFFE55 fcw nmi_rout ; NMI00FFFFFE FFE023 fcw start ; RST192 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 00FFFAE7ASCIITOHEXNYBBLE 02 00FFFABF ASMBUF 00 00000160 ASMO 02 00FFF8BC ASMOO 02 00FFF8C6ASMOUTCH 02 00FFF8D0 BIOS_SCREENS 00 17000000 BLANKLINE 02 00FFE26C BLKCPYDST 00 00000020BLKCPYSRC 00 0000001C BLNKLN1 02 00FFE27F CALCSCREENLOC 02 00FFE2D2 CHARCOLOR 00 00000112CHARINVEC 00 00000804 CHAROUTVEC 00 00000800 CHECKPOINT 02 00FFE129 CLEARSCREEN 02 00FFE225CLEARSCREENJMP 02 00FFD300 CMDPROMPT 02 00FFF8E0 CMDPROMPTJI 00 00000808 COLORCODELOCATION 00 00000014COPYSCREENTOVIRTUALSCREEN 02 00FFE1F5 COPYVIRTUALSCREENTOSCREEN 02 00FFE1BE COREID 00 FFFFFFE0 CR 00 0000000DCRLF 02 00FFD0D2 CRLF1 02 00FFD0D2 CRLFST 02 00FFE3F5 CS1 02 00FFE232CS2 02 00FFE249 CS2V1 02 00FFE201 CS3 02 00FFE24F CSL1 02 00FFE2EDCTRLC 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 00FFE1D3 DAB1 02 00FFF8DF DAB2 02 00FFF8D6 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 00FFE305DCLF 02 00FFE38F DCX10 02 00FFE33F DCX11 02 00FFE34F DCX12 02 00FFE34BDCX13 02 00FFE35B DCX14 02 00FFE302 DCX3 02 00FFE37D DCX4 02 00FFE391DCX5 02 00FFE36C DCX6 02 00FFE316 DCX7 02 00FFE312 DCX8 02 00FFE323DCX9 02 00FFE330 DELAY3S 02 00FFE1A1 DFL1 02 00FFFDBB DFL2 02 00FFFDA8DIRECT 00 00000001 DIS1 02 00FFF7EF DIS10 02 00FFF572 DIS11 02 00FFF5AEDIS12 02 00FFF5EB DIS13 02 00FFF627 DIS14 02 00FFF668 DIS15 02 00FFF6A4DIS16 02 00FFF6E1 DIS17 02 00FFF724 DIS18 02 00FFF76C DIS19 02 00FFF81BDIS2 02 00FFF411 DIS20 02 00FFF3DA DIS21 02 00FFF40F DIS23 02 00FFF3DDDIS24 02 00FFF81E DIS25 02 00FFF82B DIS3 02 00FFF43A DIS30 02 00FFF7BADIS4 02 00FFF457 DIS5 02 00FFF468 DIS6 02 00FFF49C DIS7 02 00FFF4D3DIS8 02 00FFF507 DIS9 02 00FFF53E DISASSEM 02 00FFF3B4 DISLOOP1 02 00FFF3BFDISNDXREG 02 00FFF874 DISNDXREGS 02 00FFF850 DISNEXTLINE 02 00FFF842 DISNOT9 02 00FFF44CDISNOTAOFFS 02 00FFF5D6 DISNOTBO 02 00FFF613 DISNOTBOFFS 02 00FFF59A DISNOTDIRECT 02 00FFF40BDISNOTDOFFS 02 00FFF6CC DISNOTEXT 02 00FFF7C4 DISNOTIMMB 02 00FFF7D5 DISNOTIMMW 02 00FFF7E5DISNOTLREL 02 00FFF41B DISNOTNDX 02 00FFF7AD DISNOTPBO 02 00FFF710 DISNOTPTO 02 00FFF79BDISNOTPWO 02 00FFF753 DISNOTR 02 00FFF55E DISNOTREL 02 00FFF424 DISNOTRMINUS 02 00FFF4F8DISNOTRMINUSMINUS 02 00FFF52F DISNOTRPLUS 02 00FFF48D DISNOTRPLUSPLUS 02 00FFF4C4 DISNOTTFR 02 00FFF7EFDISNOTTO 02 00FFF690 DISNOTWO 02 00FFF64F DISPBYTEASHEX 02 00FFE40A DISPDWORDASHEX 02 00FFE3F8DISPLAYCHAR 02 00FFE2F5 DISPLAYERR 02 00FFFAF5 DISPLAYSTRING 02 00FFE3B6 DISPLAYSTRINGCRLF 02 00FFE3CDDISPLAYSTRINGDX 02 00FFFAFE DISPNYB 02 00FFE422 DISPNYB1 02 00FFE431 DISPWORDASHEX 02 00FFE401DISTBL1 02 00FFEDB4 DISTBL2 02 00FFF2B4 DISTBL3 02 00FFF2F4 DISTBL4 02 00FFF314DISTFR1 02 00FFF8A3 DISTFREXG 02 00FFF8A5 DISTFRREG 02 00FFF889 DISTFRREGS 02 00FFF854DLY3S1 02 00FFE1A4 DLY3S2 02 00FFE1A8 DMPM1 02 00FFFC65 DMPM2 02 00FFFC50DMPM3 02 00FFFC9E DMPM4 02 00FFFC90 DMPM5 02 00FFFC88 DRAM_BASE 00 10000000DSPJ1B 02 00FFE3BF DSPJ2 02 00FFE3BA DSRETB 02 00FFE3C8 DUMPASMBUF 02 00FFF8D3DUMPIOFOCUSLIST 02 00FFFDA5 DUMPMEMORY 02 00FFFC48 DUMPREGS 02 00FFFCE4 DUMRTS 02 00FFE022EDITMEM1 02 00FFFCC2 EDITMEM2 02 00FFFCAD EDITMEM3 02 00FFFCE1 EDITMEM4 02 00FFFCCCEDITMEM6 02 00FFFCD8 EDITMEMORY 02 00FFFCA4 EXT 00 00000006 FAREXT 00 00000008FARFLAG 00 0000015F FIRQ_ROUT 02 00FFFE25 FIRST_CORE 00 00000001 FREEMBX 02 00000002FREEMSG 02 00000006 FREETCB 00 0000078A GETHEXNUMBER 02 00FFFA8F GETKEY 02 00FFEA12GETRANGE 02 00FFFA66 GETSCREENLOCATION 02 00FFE286 GETTWOPARAMS 02 00FFFA45 GRNG1 02 00FFFA81GSL1 02 00FFE294 GTDC3 02 00FFFAF2 GTHX3 02 00FFFAE4 GTHX5 02 00FFFACAGTHX6 02 00FFFAD7 GTHXN1 02 00FFFABB GTHXN2 02 00FFFA9C HC1 02 00FFE2AEHELPMSG 02 00FFFB0E HEX2 02 00FFD2CE HEX4 02 00FFD2D2 HOMECURSOR 02 00FFE298HOMECURSORJMP 02 00FFD308 I2CW1 02 00FFE492 I2CWR1 02 00FFE4BF I2C_CMD 00 00000004I2C_CTRL 00 00000002 I2C_PREH 00 00000001 I2C_PREL 00 00000000 I2C_RXR 00 00000003I2C_STAT 00 00000004 I2C_TXR 00 00000003 I2C_WAIT_RX_NACK 02 00FFE4BD I2C_WAIT_TIP 02 00FFE490I2C_WR_CMD 02 00FFE49A ICC1 02 00FFE3B2 ICC2 02 00FFE3B4 ICR1 02 00FFE3A4IGNBLANKS 02 00FFFA3C IGNBLANKS1 02 00FFFA3C IMMB 00 00000003 IMMW 00 00000007INCCURSORPOS 02 00FFE393 INCCURSORROW 02 00FFE3A2 INCH 02 00FFECDA INCH1 02 00FFECEFINCH2 02 00FFECDC INCHE 02 00FFECF8 INCHEK 02 00FFECFC INCHEK1 02 00FFED11INCHEK2 02 00FFED0E INCHEK3 02 00FFED05 INIT 02 00FFE09A INIT1 02 00FFE0A2INITSERIAL 02 00FFEB6F IOFOCUSID 00 00FF0010 IOFOCUSLIST 00 00FF0000 IOFOCUSNDX 00 00000100IRQBASE 00 00FF0014 IRQFLAG 00 00FF0012 IRQSOURCE 00 00FF0011 IRQ_ROUT 02 00FFFE26JTC_EXIT 02 00FFFD6A JUMP_TO_CODE 02 00FFFD2F KBDBUFFULL 02 00FFEA0D KBDFIFO 00 00000040KBDFIFOALIAS 00 00C00040 KBDHEADRCV 00 00000127 KBDI0002 02 00FFE949 KBDI0004 02 00FFE98EKBDITRYAGAIN 02 00FFE982 KBDRCVCOUNT 02 00FFE9BD KBDTAILRCV 00 00000128 KBGS1 02 00FFE8F8KBGS2 02 00FFE8F0 KBGS3 02 00FFE8E1 KEYBD 00 FFE30400 KEYBDACK 00 FFFFCC00KEYBDBAD 00 FFFFCB00 KEYBDBLOCK 00 00000126 KEYBDBUFFER 00 FFFFC000 KEYBDCHECKFORKEYDIRECT 02 00FFECD8KEYBDCLOSE 02 00FFEB6B KEYBDCLR 00 FFE30402 KEYBDCONTROLCODES 02 00FFE780 KEYBDECHO 00 FFFFCA00KEYBDEXTENDEDCODES 02 00FFE800 KEYBDGETID 02 00FFE91C KEYBDGETSCANCODE 02 00FFE8FD KEYBDGETSTATUS 02 00FFE8E1KEYBDHEAD 00 FFFFC800 KEYBDID 00 00000124 KEYBDINIT 02 00FFE940 KEYBDIRQ 02 00FFE9CFKEYBDLOCKS 00 FFFFCD00 KEYBDOPEN 02 00FFEB6A KEYBDREAD 02 00FFEB6C KEYBDRECVBYTE 02 00FFE880KEYBDSEEK 02 00FFEB6E KEYBDSENDBYTE 02 00FFE899 KEYBDSETLED 02 00FFE909 KEYBDTAIL 00 FFFFC900KEYBDWAITTX 02 00FFE89F KEYBDWRITE 02 00FFEB6D KEYLED 00 00000122 KEYSTATE1 00 00000120KEYSTATE2 00 00000121 KGID1 02 00FFE939 KGNOTKBD 02 00FFE93C KRB3 02 00FFE885KRB4 02 00FFE895 KRCXIT 02 00FFE9CE KWT1 02 00FFE8A4 KWT2 02 00FFE8B5LEDS 00 FFE60001 LEDXIT 02 00FFE9A2 LETTER 02 00FFD2C1 LF 00 0000000ALSREL 00 00000002 MAX_TASKNO 00 0000003F MONERRVEC 00 0000080C MONGETCH 02 00FFFA30MONGETNONSPACE 02 00FFFA35 MONITOR 02 00FFF92E MONITORSTART 02 00FFF910 MON_CCRSAVE 00 0000090FMON_DPRSAVE 00 0000090E MON_DSAVE 00 00000900 MON_NUMWKA 00 00000910 MON_PCSAVE 00 0000090AMON_R1 00 00000920 MON_R2 00 00000924 MON_SSAVE 00 00000908 MON_USAVE 00 00000906MON_XSAVE 00 00000902 MON_YSAVE 00 00000904 MSCOUNT 00 FFFFFFE4 MSGBADKEYBD 02 00FFE9AEMSGERR 02 00FFFB06 MSGF09STARTING 02 00FFF8EB MSGREGHEADINGS 02 00FFFC05 MSGSERIALTEST 02 00FFECC5MSGSTARTUP 02 00FFE108 MULTI_SIEVE 02 00FFE13F MULTI_SIEVE1 02 00FFE162 MULTI_SIEVE2 02 00FFE15EMULTI_SIEVE3 02 00FFE14C MULTI_SIEVE4 02 00FFE175 NDX 00 00000005 NHEX4 02 00FFFC3FNMAILBOX 02 00000004 NMESERIAL 02 00FFEC8E NMIBASE 00 00FF0013 NMI_ROUT 02 00FFFE55NMSGBLK 02 00000008 NOTKBDIRQ 02 00FFEA0C NOTRXINT 02 00FFEC8D NOTTIMERIRQ 02 00FFE485NOTTIMERIRQ2 02 00FFFE48 NXBLANK 02 00FFFC43 ONEKEY 02 00FFD1DC OSC1 02 00FFED59OSCALL 02 00FFED59 OSCALLTBL 02 00FFED27 OSCX 02 00FFED69 OSSEMA 00 00EF0010OUTCH 02 00FFED12 OUTSEMA 00 00EF0000 PCRLF 02 00FFE3E1 PDATA 02 00FFE3EEPIC 00 FFE3F000 PICPTR 00 00000028 PRINT 02 00FFE3EB PROMPT1 02 00FFF95BPROMPT2 02 00FFF987 PROMPT2A 02 00FFF9A5 PROMPT3 02 00FFF94C PROMPTC 02 00FFF9C3PROMPTCOLON 02 00FFF9DB PROMPTD 02 00FFF9CF PROMPTF 02 00FFF9E2 PROMPTFL 02 00FFF9F5PROMPTHELP 02 00FFF9B7 PROMPTJ 02 00FFF9FC PROMPTLN 02 00FFF948 PROMPTR 02 00FFFA01PROMPTT 02 00FFFA14 PROMPTU 02 00FFFA29 PROMPT_S 02 00FFFA0B PSTRNG 02 00FFE3DDQNDX0 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 00FFE12F ROMTORAM1 02 00FFE135 RTC 00 FFE30500RTCBUF 00 00007FC0 RTCR0001 02 00FFE4ED RTCW0001 02 00FFE538 RTC_READ 02 00FFE4C7RTC_RXERR 02 00FFE516 RTC_WRITE 02 00FFE51A RTI_INSN 02 00FFFE61 RUNNINGID 00 00800000RUNNINGTCB 06 00000000 SCREENCOLOR 00 00000113 SCREENLOCATION 00 00000010 SCREENLOCATION2 00 00000018SCROLLUP 02 00FFE251 SCRUP1 02 00FFE25E 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 00FFE1B3 SHL_NUMWKA 02 00FFFA82 SHOWSPRITES 02 00FFED1C SIEVE 02 00FFE179SIEVE1 02 00FFE191 SIEVE2 02 00FFE18D SIEVE3 02 00FFE17E SIEVE4 02 00FFE1A0SINI1 02 00FFEB82 SIRQ0001 02 00FFEC4D SIRQNXTBYTE 02 00FFEC3B SIRQRXFULL 02 00FFEC8DSKIPDOLLAR 02 00FFF97A SKIP_INIT 02 00FFE0D5 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 00FFE0B4 ST3 02 00FFE091 ST6 02 00FFE03CST7 02 00FFE046 ST8 02 00FFE046 ST9 02 00FFE05A START 02 00FFE023STRPTR 00 00000024 SWI3_EXIT 02 00FFFDF7 SWI3_ROUT 02 00FFFDC8 TAB 00 00000009TCB_CURSORCOL 00 00000021 TCB_CURSORROW 00 00000020 TCB_HJCB 00 0000001C TCB_HWAITMBX 00 00000022TCB_IOF_NEXT 00 0000002C TCB_IOF_PREV 00 00000030 TCB_MBQ_NEXT 00 00000024 TCB_MBQ_PREV 00 00000028TCB_MMU_MAP 00 00000038 TCB_MSGPTR_D1 00 00000014 TCB_MSGPTR_D2 00 00000018 TCB_NXTRDY 00 00000000TCB_NXTTCB 00 00000008 TCB_PRIORITY 00 00000010 TCB_PRVRDY 00 00000004 TCB_SPSAVE 00 00000034TCB_STATUS 00 0000001E TCB_TIMEOUT 00 0000000C TEXTCLOSE 02 00FFE221 TEXTOPEN 02 00FFE220TEXTREAD 02 00FFE222 TEXTREG 00 FFE0DF00 TEXTSCR 00 FFE00000 TEXTSEEK 02 00FFE224TEXTWRITE 02 00FFE223 TEXT_COLS 00 00000000 TEXT_CURPOS 00 00000022 TEXT_ROWS 00 00000001TFREXG 00 00000009 TIMEOUTLIST 00 0000078C TIMERINIT 02 00FFE438 TIMERIRQ 02 00FFE463TR1A 02 00FFFE54 UCP1 02 00FFE2D0 UNSHIFTEDSCANCODES 02 00FFE580 UPDATECURSORPOS 02 00FFE2B0VIA 00 FFE60000 VIA_ACR 00 0000000B VIA_DDRA 00 00000003 VIA_IER 00 0000000EVIA_IFR 00 0000000D VIA_PA 00 00000001 VIA_T3CMPH 00 00000015 VIA_T3CMPL 00 00000014VIA_T3LH 00 00000013 VIA_T3LL 00 00000012 W10_0001 02 00FFE8C0 W300_0001 02 00FFE8D4WAIT10MS 02 00FFE8B9 WAIT300MS 02 00FFE8CD XBLANK 02 00FFD0AF XOFF 00 00000013XON 00 00000011545 SYMBOLS0 error(s), 1726 warning(s)
Go to most recent revision | Compare with Previous | Blame | View Log