URL https://opencores.org/ocsvn/rf6809/rf6809/trunk

Subversion Repositories rf6809

[/] [rf6809/] [trunk/] [software/] [boot/] [boot_rom.lst] - Diff between revs 4 and 13

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 4	Rev 13
Line 1...	Line 1...
`0 error(s), 62 warning(s) unlisted in pass 1`	`0 error(s), 1406 warning(s) unlisted in pass 1`
`; ============================================================================`	`; ============================================================================`
`; __`	`; __`
`; \\__/ o\ (C) 2013-2022 Robert Finch, Stratford`	`; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo`
`; \ __ / All rights reserved.`	`; \ __ / All rights reserved.`
`; \/_// robfinch@opencores.org`	`; \/_// robfinch@opencores.org`
`; \|\|`	`; \|\|`
`;`	`;`
`;`	`;`
`; This source file is free software: you can redistribute it and/or modify`	`; BSD 3-Clause License`
`; it under the terms of the GNU Lesser General Public License as published`	`; Redistribution and use in source and binary forms, with or without`
`; by the Free Software Foundation, either version 3 of the License, or`	`; modification, are permitted provided that the following conditions are met:`
`; (at your option) any later version.`	`;`
`;`	`; 1. Redistributions of source code must retain the above copyright notice, this`
`; This source file is distributed in the hope that it will be useful,`	`; list of conditions and the following disclaimer.`
`; but WITHOUT ANY WARRANTY; without even the implied warranty of`	`;`
`; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`	`; 2. Redistributions in binary form must reproduce the above copyright notice,`
`; GNU General Public License for more details.`	`; this list of conditions and the following disclaimer in the documentation`
`;`	`; and/or other materials provided with the distribution.`
`; You should have received a copy of the GNU General Public License`	`;`
`; along with this program. If not, see .`	`; 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 equates`	`CR EQU $0D ;ASCII equates`
`LF EQU $0A`	`LF EQU $0A`
Line 30...	Line 43...
`CTRLI EQU $09`	`CTRLI EQU $09`
`CTRLJ EQU $0A`	`CTRLJ EQU $0A`
`CTRLK EQU $0B`	`CTRLK EQU $0B`
`CTRLM EQU $0D`	`CTRLM EQU $0D`
`CTRLS EQU $13`	`CTRLS EQU $13`
	`CTRLT EQU $14`
`CTRLX EQU $18`	`CTRLX EQU $18`
`XON EQU $11`	`XON EQU $11`
`XOFF EQU $13`	`XOFF EQU $13`

`FIRST_CORE EQU 1`	`FIRST_CORE EQU 1`
Line 80...	Line 94...
`KeybdLocks EQU $FFFFFCD00`	`KeybdLocks EQU $FFFFFCD00`
`KeybdBuffer EQU $FFFFFC000 ; buffer is 16 chars`	`KeybdBuffer EQU $FFFFFC000 ; buffer is 16 chars`

`COREID EQU $FFFFFFFE0`	`COREID EQU $FFFFFFFE0`
`MSCOUNT EQU $FFFFFFFE4`	`MSCOUNT EQU $FFFFFFFE4`
`LEDS EQU $FFFE60000`	`LEDS EQU $FFFE60001`
	`VIA EQU $FFFE60000`
	`VIA_PA EQU 1`
	`VIA_DDRA EQU 3`
	`VIA_ACR EQU 11`
	`VIA_IFR EQU 13`
	`VIA_IER EQU 14`
	`VIA_T3LL EQU 18`
	`VIA_T3LH EQU 19`
	`VIA_T3CMPL EQU 20`
	`VIA_T3CMPH EQU 21`
`TEXTSCR EQU $FFFE00000`	`TEXTSCR EQU $FFFE00000`
`TEXTREG EQU $FFFE0DF00`	`TEXTREG EQU $FFFE0DF00`
`TEXT_COLS EQU 0`	`TEXT_COLS EQU 0`
`TEXT_ROWS EQU 1`	`TEXT_ROWS EQU 1`
`TEXT_CURPOS EQU 34`	`TEXT_CURPOS EQU 34`
	`ACIA EQU $FFFE30100`
	`ACIA_TX EQU 0`
	`ACIA_RX EQU 0`
	`ACIA_STAT EQU 1`
	`ACIA_CMD EQU 2`
	`ACIA_CTRL EQU 3`
	`ACIA_CTRL2 EQU 11`
	`RTC EQU $FFFE30500 ; I2C`
	`RTCBuf EQU $7FC0`

`KEYBD EQU $FFFE30400`	`KEYBD EQU $FFFE30400`
`KEYBDCLR EQU $FFFE30402`	`KEYBDCLR EQU $FFFE30402`
`PIC EQU $FFFE3F000`	`PIC EQU $FFFE3F000`
`SPRITE_CTRL EQU $FFFE10000`	`SPRITE_CTRL EQU $FFFE10000`
`SPRITE_EN EQU $3C0`	`SPRITE_EN EQU $3C0`

	`OUTSEMA EQU $EF0000`
	`SEMAABS EQU $1000`
	`OSSEMA EQU $EF0010`

`BIOS_SCREENS EQU $17000000 ; $17000000 to $171FFFFF`	`BIOS_SCREENS EQU $17000000 ; $17000000 to $171FFFFF`

`; EhBASIC vars:`	`; EhBASIC vars:`
`;`	`;`
`NmiBase EQU $DC`	`NmiBase EQU $FF0013`
`IrqBase EQU $DF`	`IrqBase EQU $FF0014`

`; The IO focus list is a doubly linked list formed into a ring.`
`;`
`IOFocusNdx EQU $100`	`IOFocusNdx EQU $100`
`IOFocusID EQU $100`
	`; These variables in global OS storage area`

	`IOFocusList EQU $FF0000 ; to $FF000F`
	`IOFocusID EQU $FF0010`
	`IrqSource EQU $FF0011`
	`IRQFlag EQU $FF0012`

`; These variables use direct page access`	`; These variables use direct page access`
`CursorRow EQU $110`	`CursorRow EQU $110`
`CursorCol EQU $111`	`CursorCol EQU $111`
`CharColor EQU $112`	`CharColor EQU $112`
Line 114...	Line 156...
`CursorFlash EQU $114`	`CursorFlash EQU $114`
`KeyState1 EQU $120`	`KeyState1 EQU $120`
`KeyState2 EQU $121`	`KeyState2 EQU $121`
`KeyLED EQU $122`	`KeyLED EQU $122`
`KeybdID EQU $124`	`KeybdID EQU $124`
	`KeybdBlock EQU $126`
	`kbdHeadRcv EQU $127`
	`kbdTailRcv EQU $128`
	`kbdFifo EQU $40 ; in local RAM`
	`kbdFifoAlias EQU $C00040 ; to $C0007F ; alias for $40 to $7F`
	`SerhZero EQU $130`
	`SerHeadRcv EQU $131`
	`SertZero EQU $132`
	`SerTailRcv EQU $133`
	`SerHeadXmit EQU $136`
	`SerTailXmit EQU $138`
	`SerRcvXon EQU $139`
	`SerRcvXoff EQU $140`
	`SerRcvBuf EQU $BFF000 ; 4kB serial recieve buffer`

	`asmbuf EQU $160 ; to $17F`

`QNdx0 EQU $780`	`QNdx0 EQU $780`
`QNdx1 EQU QNdx0+2`	`QNdx1 EQU QNdx0+2`
`QNdx2 EQU QNdx1+2`	`QNdx2 EQU QNdx1+2`
`QNdx3 EQU QNdx2+2`	`QNdx3 EQU QNdx2+2`
Line 127...	Line 185...
`FreeMbx EQU RunningTCB + 2`	`FreeMbx EQU RunningTCB + 2`
`nMailbox EQU FreeMbx + 2`	`nMailbox EQU FreeMbx + 2`
`FreeMsg EQU nMailbox + 2`	`FreeMsg EQU nMailbox + 2`
`nMsgBlk EQU FreeMsg + 2`	`nMsgBlk EQU FreeMsg + 2`

`IrqSource EQU $79A`

`IRQFlag EQU $7C6`

`CharOutVec EQU $800`	`CharOutVec EQU $800`
`CharInVec EQU $804`	`CharInVec EQU $804`
	`CmdPromptJI EQU $808`

`; Register save area for monitor`	`; Register save area for monitor`
`mon_DSAVE EQU $900`	`mon_DSAVE EQU $900`
`mon_XSAVE EQU $902`	`mon_XSAVE EQU $902`
`mon_YSAVE EQU $904`	`mon_YSAVE EQU $904`
Line 146...	Line 202...
`mon_DPRSAVE EQU $90E`	`mon_DPRSAVE EQU $90E`
`mon_CCRSAVE EQU $90F`	`mon_CCRSAVE EQU $90F`

`mon_numwka EQU $910`	`mon_numwka EQU $910`
`mon_r1 EQU $920`	`mon_r1 EQU $920`
`mon_r2 EQU $922`	`mon_r2 EQU $924`

`; The ORG directive must set an address a multiple of 4 in order for the Verilog`	`; The ORG directive must set an address a multiple of 4 in order for the Verilog`
`; output to work correctly.`	`; output to work correctly.`

`org $FFD0AC`	`org $FFD0AC`
`00FFD0AC 012 nop`	`00FFD0AC 012 nop`
`00FFD0AD 012 nop`	`00FFD0AD 012 nop`
`00FFD0AE 012 nop`	`00FFD0AE 012 nop`
`XBLANK`	`XBLANK`
`00FFD0AF 0C6020 ldb #' '`	`00FFD0AF 0C6020 ldb #' '`
`00FFD0B1 0170028C8 lbsr OUTCH`	`00FFD0B1 017001C5E lbsr OUTCH`
`00FFD0B4 039 rts`	`00FFD0B4 039 rts`

`org $FFD0D0`	`org $FFD0D0`
`00FFD0D0 012 nop`	`00FFD0D0 012 nop`
`00FFD0D1 012 nop`	`00FFD0D1 012 nop`
`CRLF`	`CRLF`
`CRLF1:`	`CRLF1:`
`00FFD0D2 0C600D ldb #CR`	`00FFD0D2 0C600D ldb #CR`
`00FFD0D4 0170028A5 lbsr OUTCH`	`00FFD0D4 017001C3B lbsr OUTCH`
`00FFD0D7 0C600A ldb #LF`	`00FFD0D7 0C600A ldb #LF`
`00FFD0D9 0170028A0 lbsr OUTCH`	`00FFD0D9 017001C36 lbsr OUTCH`
`00FFD0DC 039 rts`	`00FFD0DC 039 rts`

`org $FFD0F0`	`org $FFD0F0`
`00FFD0F0 012 nop`	`00FFD0F0 012 nop`
`00FFD0F1 020FDF bra CRLF1`	`00FFD0F1 020FDF bra CRLF1`
Line 182...	Line 238...
`00FFD1DC 06E90F000804 jmp [CharInVec]`	`00FFD1DC 06E90F000804 jmp [CharInVec]`

`org $FFD2C0`	`org $FFD2C0`
`00FFD2C0 012 nop`	`00FFD2C0 012 nop`
`LETTER`	`LETTER`
`00FFD2C1 0170026B8 lbsr OUTCH`	`00FFD2C1 017001A4E lbsr OUTCH`
`00FFD2C4 039 rts`	`00FFD2C4 039 rts`

`org $FFD2CC`	`org $FFD2CC`
`00FFD2CC 012 nop`	`00FFD2CC 012 nop`
`00FFD2CD 012 nop`	`00FFD2CD 012 nop`
`HEX2`	`HEX2`
`00FFD2CE 0170020CC lbsr DispByteAsHex`	`00FFD2CE 017001125 lbsr DispByteAsHex`
`00FFD2D1 039 rts`	`00FFD2D1 039 rts`
`HEX4`	`HEX4`
`00FFD2D2 0170020BF lbsr DispWordAsHex`	`00FFD2D2 017001118 lbsr DispWordAsHex`
`00FFD2D5 039 rts`	`00FFD2D5 039 rts`

`org $FFD300`	`org $FFD300`
`ClearScreenJmp`	`ClearScreenJmp`
`00FFD300 016001ECD lbra ClearScreen`	`00FFD300 016000F0E lbra ClearScreen`
`org $FFD308`	`org $FFD308`
`HomeCursorJmp`	`HomeCursorJmp`
`00FFD308 016001F36 lbra HomeCursor`	`00FFD308 016000F79 lbra HomeCursor`

`org $FFE000`	`org $FFD400`

`; Local RAM test routine`	`; Local RAM test routine`
`; Checkerboard testing.`	`; Checkerboard testing.`
`; There is 70kB of local RAM`	`; There is 70kB of local RAM`
`; Does not use any RAM including no stack`	`; Does not use any RAM including no stack`

`ramtest:`	`ramtest:`
`00FFE000 18E000000 ldy #0`	`00FFD400 18E000000 ldy #0`
`00FFE003 086001 lda #1`	`00FFD403 086001 lda #1`
`00FFE005 0150B7FFFE60000 sta LEDS`	`00FFD405 0150B7FFFE60001 sta LEDS`
`00FFE00A 0CCAAA555 ldd #$AAA555`	`00FFD40A 0CCAAA555 ldd #$AAA555`
`ramtest1:`	`ramtest1:`
`00FFE00D 0EDA01 std ,y++`	`00FFD40D 0EDA01 std ,y++`
`00FFE00F 18CC00000 cmpy #$C00000`	`00FFD40F 18C008000 cmpy #$8000`
`00FFE012 025FF9 blo ramtest1`	`00FFD412 025FF9 blo ramtest1`
`; now readback values and compare`	`; now readback values and compare`
`00FFE014 18E000000 ldy #0`	`00FFD414 18E000000 ldy #0`
`ramtest3:`	`ramtest3:`
`00FFE017 0ECA01 ldd ,y++`	`00FFD417 0ECA01 ldd ,y++`
`00FFE019 183AAA555 cmpd #$AAA555`	`00FFD419 183AAA555 cmpd #$AAA555`
`00FFE01C 02600E bne ramerr`	`00FFD41C 02600E bne ramerr`
`00FFE01E 18CC00000 cmpy #$C00000`	`00FFD41E 18C008000 cmpy #$8000`
`00FFE021 025FF4 blo ramtest3`	`00FFD421 025FF4 blo ramtest3`
`00FFE023 086002 lda #2`	`00FFD423 086002 lda #2`
`00FFE025 0150B7FFFE60000 sta LEDS`	`00FFD425 0150B7FFFE60001 sta LEDS`
`00FFE02A 06EC04 jmp ,u`	`00FFD42A 06EC04 jmp ,u`
`ramerr:`	`ramerr:`
`00FFE02C 086080 lda #$80`	`00FFD42C 086080 lda #$80`
`00FFE02E 0150B7FFFE60000 sta LEDS`	`00FFD42E 0150B7FFFE60001 sta LEDS`
`00FFE033 08EE00000 ldx #TEXTSCR`	`00FFD433 08EE00000 ldx #TEXTSCR`
`00FFE036 0150F6FFFFFFFE0 ldb COREID`	`00FFD436 0150F6FFFFFFFE0 ldb COREID`
`00FFE03B 03A abx`	`00FFD43B 03A abx`
`00FFE03C 086046 lda #'F'`	`00FFD43C 086046 lda #'F'`
`00FFE03E 0A7804 sta ,x`	`00FFD43E 0A7804 sta ,x`
`00FFE040 013 sync`	`00FFD440 013 sync`
`00FFE041 06EC04 jmp ,u`	`00FFD441 06EC04 jmp ,u`

`org $FFF000`	`org $FFE000`
`00FFF000 FFF996 FDB Monitor`	`00FFE000 FFF8AC FDB Monitor`
`00FFF002 FFF022 FDB DumRts ; NEXTCMD`	`00FFE002 FFE022 FDB DumRts ; NEXTCMD`
`00FFF004 FFF95E FDB INCH`	`00FFE004 FFECDA FDB INCH`
`00FFF006 FFF963 FDB INCHE`	`00FFE006 FFECF8 FDB INCHE`
`00FFF008 FFF967 FDB INCHEK`	`00FFE008 FFECFC FDB INCHEK`
`00FFF00A FFF97C FDB OUTCH`	`00FFE00A FFED12 FDB OUTCH`
`00FFF00C FFF381 FDB PDATA`	`00FFE00C FFE3DA FDB PDATA`
`00FFF00E FFF374 FDB PCRLF`	`00FFE00E FFE3CD FDB PCRLF`
`00FFF010 FFF370 FDB PSTRNG`	`00FFE010 FFE3C9 FDB PSTRNG`
`00FFF012 FFF022 FDB DumRts ; LRA`	`00FFE012 FFE022 FDB DumRts ; LRA`
`00FFF014 FFF022 FDB DumRts`	`00FFE014 FFE022 FDB DumRts`
`00FFF016 FFF022 FDB DumRts`	`00FFE016 FFE022 FDB DumRts`
`00FFF018 FFF022 FDB DumRts`	`00FFE018 FFE022 FDB DumRts`
`00FFF01A FFF022 FDB DumRts ; VINIZ`	`00FFE01A FFE022 FDB DumRts ; VINIZ`
`00FFF01C FFF29B FDB DisplayChar ; VOUTCH`	`00FFE01C FFE2E1 FDB DisplayChar ; VOUTCH`
`00FFF01E FFF022 FDB DumRts ; ACINIZ`	`00FFE01E FFE022 FDB DumRts ; ACINIZ`
`00FFF020 FFF022 FDB DumRts ; AOUTCH`	`00FFE020 FFE022 FDB DumRts ; AOUTCH`

`DumRts:`	`DumRts:`
`00FFF022 039 rts`	`00FFE022 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`start:`	`start:`
`00FFF023 086055 lda #$55 ; see if we can at least set LEDs`	`00FFE023 086FFF lda #$FFF ; all cores can do this`
`00FFF025 0150B7FFFE60000 sta LEDS`	`00FFE025 0150B7FFFE60003 sta VIA+VIA_DDRA`
`00FFF02A 0CEFFF030 ldu #st6 ; U = return address`	`00FFE02A 086055 lda #$55 ; see if we can at least set LEDs`
`00FFF02D 07EFFE000 jmp ramtest ; JMP dont JSR`	`00FFE02C 0150B7FFFE60001 sta LEDS`
	`00FFE031 086001 lda #1 ; prime OS semaphore`
	`00FFE033 0B7EF1010 sta OSSEMA+$1000`
	`00FFE036 0CEFFE03C ldu #st6 ; U = return address`
	`00FFE039 07EFFD400 jmp ramtest ; JMP dont JSR`
`st6:`	`st6:`
`00FFF030 1CE003FFF lds #$3FFF ; boot up stack area`	`00FFE03C 1CE006FFF lds #$6FFF ; boot up stack area`
`00FFF033 0150B6FFFFFFFE0 lda COREID`	`00FFE03F 0150B6FFFFFFFE0 lda COREID`
`00FFF038 081001 cmpa #FIRST_CORE`	`00FFE044 081001 cmpa #FIRST_CORE`
`; beq st8`	`; beq st8`
`; sync ; halt cores other than 2`	`; sync ; halt cores other than 2`
`st8:`	`st8:`
`; bne skip_init`	`; bne skip_init`
`; bsr romToRam`	`; bsr romToRam`
`; ldd #st7 & $FFFF`	`; ldd #st7 & $FFFF`
`; tfr d,x`	`; tfr d,x`
`; jmp ,x ; jump to the BIOS now in local RAM`	`; jmp ,x ; jump to the BIOS now in local RAM`
`st7:`	`st7:`
`00FFF03A 08D11F bsr Delay3s ; give some time for devices to reset`	`00FFE046 08D145 bsr Delay3s ; give some time for devices to reset`
`00FFF03C 0860AA lda #$AA`	`00FFE048 0860AA lda #$AA`
`00FFF03E 0150B7FFFE60000 sta LEDS`	`00FFE04A 0150B7FFFE60001 sta LEDS`
`00FFF043 086002 lda #2`	`00FFE04F 086001 lda #FIRST_CORE`
`00FFF045 097100 sta IOFocusID ; core #2 has focus`	`00FFE051 0B7FF0010 sta IOFocusID ; core #2 has focus`
`00FFF047 0B7800000 sta RunningID`	`00FFE054 0B7800000 sta RunningID`
`00FFF04A 0860CE lda #$0CE`	`00FFE057 0860CE lda #$0CE`
`00FFF04C 097113 sta ScreenColor`	`00FFE059 097113 sta ScreenColor`
`00FFF04E 097112 sta CharColor`	`00FFE05B 097112 sta CharColor`
`00FFF050 08D17E bsr ClearScreen`	`00FFE05D 08D1B2 bsr ClearScreen`
`00FFF052 0CCFFF29B ldd #DisplayChar`	`00FFE05F 0CCFFE2E1 ldd #DisplayChar`
`00FFF055 0DD800 std CharOutVec`	`00FFE062 0FD000800 std CharOutVec`
`00FFF057 0CCFFF83B ldd #DBGGetKey`	`00FFE065 0CCFFEBE4 ldd #SerialPeekCharDirect`
`00FFF05A 0DD804 std CharInVec`	`00FFE068 0FD000804 std CharInVec`
`00FFF05C 0150F6FFFFFFFE0 ldb COREID`	`00FFE06B 0C6018 ldb #24 ; request IO focus`
`00FFF061 0C1001 cmpb #FIRST_CORE`	`00FFE06D 017000CE9 lbsr OSCall`
`00FFF063 02700D beq init`	`00FFE070 0150F6FFFFFFFE0 ldb COREID`
`00FFF065 020025 bra skip_init`	`00FFE075 0C1001 cmpb #FIRST_CORE`
`00FFF067 02008D bra multi_sieve`	`00FFE077 02700D beq init`
	`00FFE079 020046 bra skip_init`
	`00FFE07B 0200AE bra multi_sieve`
`st3:`	`st3:`
`00FFF069 0860FF lda #$FF`	`00FFE07D 0860FF lda #$FF`
`00FFF06B 0150B7FFFE60000 sta LEDS`	`00FFE07F 0150B7FFFE60001 sta LEDS`
`00FFF070 020FF7 bra st3`	`00FFE084 020FF7 bra st3`

`; initialize interrupt controller`	`; initialize interrupt controller`
`; first, zero out all the vectors`	`; first, zero out all the vectors`
`init:`	`init:`
`00FFF072 08E000080 ldx #128`	`00FFE086 01700042A lbsr rtc_read ; get clock values`
`00FFF075 086001 lda #1 ; set irq(bit0), clear firq (bit1), disable int (bit 6), clear edge sense(bit 7)`	`00FFE089 08E000127 ldx #kbdHeadRcv`
`00FFF077 0C6001 ldb #FIRST_CORE ; serving core id`	`00FFE08C 0C6020 ldb #32 ; number of bytes to zero out`
	`init1:`
	`00FFE08E 06F800 clr ,x+`
	`00FFE090 05A decb`
	`00FFE091 026FFB bne init1`
	`00FFE093 01700038E lbsr TimerInit`
	`00FFE096 017000AD6 lbsr InitSerial`
	`00FFE099 08E000080 ldx #128`
	`00FFE09C 086001 lda #1 ; set irq(bit0), clear firq (bit1), disable int (bit 6), clear edge sense(bit 7)`
	`00FFE09E 0C6001 ldb #FIRST_CORE ; serving core id`
`st1:`	`st1:`
`00FFF079 06F809E3F000 clr PIC,x ; cause code`	`00FFE0A0 06F809E3F000 clr PIC,x ; cause code`
`00FFF07D 0A7809E3F001 sta PIC+1,x`	`00FFE0A4 0A7809E3F001 sta PIC+1,x`
`00FFF081 0E7809E3F002 stb PIC+2,x`	`00FFE0A8 0E7809E3F002 stb PIC+2,x`
`00FFF085 030004 leax 4,x`	`00FFE0AC 030004 leax 4,x`
`00FFF087 08C000100 cmpx #256`	`00FFE0AE 08C000100 cmpx #256`
`00FFF08A 025FED blo st1`	`00FFE0B1 025FED blo st1`
`; lda #4 ; make the timer interrupt edge sensitive`	`; lda #4 ; make the timer interrupt edge sensitive`
`; sta PIC+4 ; reg #4 is the edge sensitivity setting`	`; sta PIC+4 ; reg #4 is the edge sensitivity setting`
`; sta PIC ; reg #0 is interrupt enable`	`; sta PIC ; reg #0 is interrupt enable`
	`00FFE0B3 086081 lda #$81 ; make irq edge sensitive`
	`00FFE0B5 0150B7FFFE3F0FD sta PIC+$FD`
	`00FFE0BA 08601F lda #31 ; enable timer interrupt`
	`; sta PIC+9`
	`00FFE0BC 0C6001 ldb #1`
	`00FFE0BE 0F7EF1000 stb OUTSEMA+SEMAABS ; set semaphore to 1 available slot`
`skip_init:`	`skip_init:`
`00FFF08C 01C0EF andcc #$EF ; unmask irq`	`00FFE0C1 01C0EF andcc #$EF ; unmask irq`
`00FFF08E 086038 lda #56`	`00FFE0C3 086038 lda #56`
`00FFF090 0150B7FFFE0DF00 sta TEXTREG+TEXT_COLS`	`00FFE0C5 0150B7FFFE0DF00 sta TEXTREG+TEXT_COLS`
`00FFF095 08601D lda #29`	`00FFE0CA 08601D lda #29`
`00FFF097 0150B7FFFE0DF01 sta TEXTREG+TEXT_ROWS`	`00FFE0CC 0150B7FFFE0DF01 sta TEXTREG+TEXT_ROWS`
`00FFF09C 08D132 bsr ClearScreen`	`00FFE0D1 08D13E bsr ClearScreen`
`00FFF09E 08D1A1 bsr HomeCursor`	`00FFE0D3 08D1AF bsr HomeCursor`
`00FFF0A0 086005 lda #5`	`00FFE0D5 086005 lda #5`
`00FFF0A2 0150B7FFFE60000 sta LEDS`	`00FFE0D7 0150B7FFFE60001 sta LEDS`
`00FFF0A7 0CCFFF0BF ldd #msgStartup`	`00FFE0DC 0CCFFE0F4 ldd #msgStartup`
`00FFF0AA 08D2A8 bsr DisplayString`	`00FFE0DF 08D2C1 bsr DisplayString`
`00FFF0AC 08E000000 ldx #0`	`00FFE0E1 08E000000 ldx #0`
`00FFF0AF 0CC000000 ldd #0`	`00FFE0E4 0CC000000 ldd #0`
`00FFF0B2 0170008D1 lbsr ShowSprites`	`00FFE0E7 017000C32 lbsr ShowSprites`
`00FFF0B5 017000708 lbsr KeybdInit`	`00FFE0EA 017000853 lbsr KeybdInit`
`00FFF0B8 0DC124 ldd KeybdID`	`00FFE0ED 0DC124 ldd KeybdID`
`00FFF0BA 08D2D8 bsr DispWordAsHex`	`00FFE0EF 08D2FC bsr DispWordAsHex`
`00FFF0BC 07EFFF991 jmp MonitorStart`	`00FFE0F1 07EFFF89A jmp MonitorStart`

`msgStartup`	`msgStartup`
`00FFF0BF 072066036038030039020 fcb "rf6809 12-bit System Starting.",CR,LF,0`	`00FFE0F4 072066036038030039020 fcb "rf6809 12-bit System Starting.",CR,LF,0`
`00FFF0C6 03103202D062069074020`	`00FFE0FB 03103202D062069074020`
`00FFF0CD 05307907307406506D020`	`00FFE102 05307907307406506D020`
`00FFF0D4 05307406107207406906E`	`00FFE109 05307406107207406906E`
`00FFF0DB 06702E00D00A000`	`00FFE110 06702E00D00A000`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; The checkpoint register must be cleared within 1 second or a NMI interrupt`	`; 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`	`; will occur. checkpoint should be called with a JSR so that the global ROM`
`; routine is called.`	`; routine is called.`
Line 361...	Line 437...
`; Modifies:`	`; Modifies:`
`; none`	`; none`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`checkpoint:`	`checkpoint:`
`00FFF0E0 01507FFFFFFFFE1 clr $FFFFFFFE1 ; writing any value will do`	`00FFE115 01507FFFFFFFFE1 clr $FFFFFFFE1 ; writing any value will do`
`00FFF0E5 039 rts`	`00FFE11A 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Copy the system ROM to local RAM`	`; Copy the system ROM to local RAM`
`; Running the code from local RAM is probably an order of magnitude faster`	`; 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`	`; then running from the global ROM. It also reduces the network traffic to`
Line 375...	Line 451...
`; Modifies:`	`; Modifies:`
`; d,x,y`	`; d,x,y`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`romToRam:`	`romToRam:`
`00FFF0E6 08EFFC000 ldx #$FFC000`	`00FFE11B 08EFFC000 ldx #$FFC000`
`00FFF0E9 18E00C000 ldy #$00C000`	`00FFE11E 18E00C000 ldy #$00C000`
`romToRam1:`	`romToRam1:`
`00FFF0EC 0EC801 ldd ,x++`	`00FFE121 0EC801 ldd ,x++`
`00FFF0EE 0EDA01 std ,y++`	`00FFE123 0EDA01 std ,y++`
`00FFF0F0 08C000000 cmpx #0`	`00FFE125 08C000000 cmpx #0`
`00FFF0F3 026FF7 bne romToRam1`	`00FFE128 026FF7 bne romToRam1`
`00FFF0F5 039 rts`	`00FFE12A 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Multi-core sieve program.`	`; Multi-core sieve program.`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`; First fill screen chars with 'P' indicating prime positions`	`; First fill screen chars with 'P' indicating prime positions`
`; Each core is responsible for the Nth position where N is the`	`; Each core is responsible for the Nth position where N is the`
`; core number minus two.`	`; core number minus two.`
`;`	`;`
`multi_sieve:`	`multi_sieve:`
`00FFF0F6 086050 lda #'P' ; indicate prime`	`00FFE12B 086050 lda #'P' ; indicate prime`
`00FFF0F8 0150F6FFFFFFFE0 ldb COREID ; find out which core we are`	`00FFE12D 0150F6FFFFFFFE0 ldb COREID ; find out which core we are`
`00FFF0FD 0C0001 subb #FIRST_CORE`	`00FFE132 0C0001 subb #FIRST_CORE`
`00FFF0FF 08E000000 ldx #0 ; start at first char of screen`	`00FFE134 08E000000 ldx #0 ; start at first char of screen`
`00FFF102 03A abx`	`00FFE137 03A abx`
`multi_sieve3:`	`multi_sieve3:`
`00FFF103 0A7809E00000 sta TEXTSCR,x ; store 'P'`	`00FFE138 0A7809E00000 sta TEXTSCR,x ; store 'P'`
`00FFF107 030008 leax 8,x ; advance to next position`	`00FFE13C 030008 leax 8,x ; advance to next position`
`00FFF109 08C000FFF cmpx #4095`	`00FFE13E 08C000FFF cmpx #4095`
`00FFF10C 025FF5 blo multi_sieve3`	`00FFE141 025FF5 blo multi_sieve3`
`00FFF10E 0BDFFF0E0 jsr checkpoint`	`00FFE143 0BDFFE115 jsr checkpoint`
`*** warning 1: Long branch within short branch range could be optimized`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF111 0CB002 addb #2 ; start sieve at 2 (core id)`	`00FFE146 0CB002 addb #2 ; start sieve at 2 (core id)`
`00FFF113 08604E lda #'N' ; flag position value of 'N' for non-prime`	`00FFE148 08604E lda #'N' ; flag position value of 'N' for non-prime`
`multi_sieve2:`	`multi_sieve2:`
`00FFF115 08E000000 ldx #0`	`00FFE14A 08E000000 ldx #0`
`00FFF118 03A abx ; skip the first position - might be prime`	`00FFE14D 03A abx ; skip the first position - might be prime`
`multi_sieve1:`	`multi_sieve1:`
`00FFF119 03A abx ; increment`	`00FFE14E 03A abx ; increment`
`00FFF11A 0A7809E00000 sta TEXTSCR,x`	`00FFE14F 0A7809E00000 sta TEXTSCR,x`
`00FFF11E 08C000FFF cmpx #4095`	`00FFE153 08C000FFF cmpx #4095`
`00FFF121 025FF6 blo multi_sieve1`	`00FFE156 025FF6 blo multi_sieve1`
`00FFF123 0BDFFF0E0 jsr checkpoint`	`00FFE158 0BDFFE115 jsr checkpoint`
`*** warning 1: Long branch within short branch range could be optimized`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF126 0CB008 addb #8 ; number of cores working on it`	`00FFE15B 0CB008 addb #8 ; number of cores working on it`
`00FFF128 0C1FF0 cmpb #4080`	`00FFE15D 0C1FF0 cmpb #4080`
`00FFF12A 025FE9 blo multi_sieve2`	`00FFE15F 025FE9 blo multi_sieve2`
`multi_sieve4: ; hang machine`	`multi_sieve4: ; hang machine`
`00FFF12C 013 sync`	`00FFE161 013 sync`
`00FFF12D 016000866 lbra Monitor`	`00FFE162 016001747 lbra Monitor`

	`;------------------------------------------------------------------------------`
	`; Single core sieve.`
	`;------------------------------------------------------------------------------`

`sieve:`	`sieve:`
`00FFF130 086050 lda #'P' ; indicate prime`	`00FFE165 086050 lda #'P' ; indicate prime`
`00FFF132 08E000000 ldx #0 ; start at first char of screen`	`00FFE167 08E000000 ldx #0 ; start at first char of screen`
`sieve3:`	`sieve3:`
`00FFF135 0A7809E00000 sta TEXTSCR,x ; store 'P'`	`00FFE16A 0A7809E00000 sta TEXTSCR,x ; store 'P'`
`00FFF139 030001 inx ; advance to next position`	`00FFE16E 030001 inx ; advance to next position`
`00FFF13B 08C000FFF cmpx #4095`	`00FFE170 08C000FFF cmpx #4095`
`00FFF13E 025FF5 blo sieve3`	`00FFE173 025FF5 blo sieve3`
`00FFF140 0C6002 ldb #2 ; start sieve at 2`	`00FFE175 0C6002 ldb #2 ; start sieve at 2`
`00FFF142 08604E lda #'N' ; flag position value of 'N' for non-prime`	`00FFE177 08604E lda #'N' ; flag position value of 'N' for non-prime`
`sieve2:`	`sieve2:`
`00FFF144 08E000000 ldx #0`	`00FFE179 08E000000 ldx #0`
`00FFF147 03A abx ; skip the first position - might be prime`	`00FFE17C 03A abx ; skip the first position - might be prime`
`sieve1:`	`sieve1:`
`00FFF148 03A abx ; increment`	`00FFE17D 03A abx ; increment`
`00FFF149 0A7809E00000 sta TEXTSCR,x`	`00FFE17E 0A7809E00000 sta TEXTSCR,x`
`00FFF14D 08C000FFF cmpx #4095`	`00FFE182 08C000FFF cmpx #4095`
`00FFF150 025FC7 blo multi_sieve1`	`00FFE185 025FC7 blo multi_sieve1`
`00FFF152 05C incb ; number of cores working on it`	`00FFE187 05C incb ; number of cores working on it`
`00FFF153 0C1FF0 cmpb #4080`	`00FFE188 0C1FF0 cmpb #4080`
`00FFF155 025FED blo sieve2`	`00FFE18A 025FED blo sieve2`
`sieve4: ; hang machine`	`sieve4: ; hang machine`
`00FFF157 013 sync`	`00FFE18C 039 rts`
`00FFF158 016000836 lbra MonitorStart`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Three second delay for user convenience and to allow some devices time to`	`; Three second delay for user convenience and to allow some devices time to`
`; reset.`	`; reset.`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`Delay3s:`	`Delay3s:`
`00FFF15B 0CC895440 ldd #9000000`	`00FFE18D 0CC895440 ldd #9000000`
`dly3s1:`	`dly3s1:`
`00FFF15E 0C10FF cmpb #$FF`	`00FFE190 0C10FF cmpb #$FF`
`00FFF160 026000 bne dly3s2`	`00FFE192 026000 bne dly3s2`
`dly3s2:`	`dly3s2:`
`00FFF162 0150B7FFFE60000 sta LEDS`	`00FFE194 0150B7FFFE60001 sta LEDS`
`00FFF167 083000001 subd #1`	`00FFE199 083000001 subd #1`
`00FFF16A 026FF2 bne dly3s1`	`00FFE19C 026FF2 bne dly3s1`
`00FFF16C 039 rts`	`00FFE19E 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`ShiftLeft5:`	`ShiftLeft5:`
`00FFF16D 058 aslb`	`00FFE19F 058 aslb`
`00FFF16E 049 rola`	`00FFE1A0 049 rola`
`00FFF16F 058 aslb`	`00FFE1A1 058 aslb`
`00FFF170 049 rola`	`00FFE1A2 049 rola`
`00FFF171 058 aslb`	`00FFE1A3 058 aslb`
`00FFF172 049 rola`	`00FFE1A4 049 rola`
`00FFF173 058 aslb`	`00FFE1A5 058 aslb`
`00FFF174 049 rola`	`00FFE1A6 049 rola`
`00FFF175 058 aslb`	`00FFE1A7 058 aslb`
`00FFF176 049 rola`	`00FFE1A8 049 rola`
`00FFF177 039 rts`	`00FFE1A9 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
	`; Parameters:`
	`; b = core id of core to copy`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`CopyVirtualScreenToScreen:`	`CopyVirtualScreenToScreen:`
`00FFF178 034076 pshs d,x,y,u`	`00FFE1AA 034076 pshs d,x,y,u`
`00FFF17A 08D0B4 bsr GetScreenLocation`	`; Compute virtual screen location for core passed in accb.`
`00FFF17C 01F001 tfr d,x`	`00FFE1AC 01F098 tfr b,a`
`00FFF17E 18EE00000 ldy #TEXTSCR`	`00FFE1AE 048 asla`
`00FFF181 0CE00032C ldu #56*29/2`	`00FFE1AF 048 asla`
	`00FFE1B0 048 asla`
	`00FFE1B1 048 asla`
	`00FFE1B2 08AC00 ora #$C00`
	`00FFE1B4 05F clrb`
	`00FFE1B5 01F001 tfr d,x`
	`00FFE1B7 034006 pshs d`
	`00FFE1B9 18EE00000 ldy #TEXTSCR`
	`00FFE1BC 0CE00032C ldu #56*29/2`
`cv2s1:`	`cv2s1:`
`00FFF184 0EC801 ldd ,x++`	`00FFE1BF 0EC801 ldd ,x++`
`00FFF186 0EDA01 std ,y++`	`00FFE1C1 0EDA01 std ,y++`
`00FFF188 0335FF leau -1,u`	`00FFE1C3 0335FF leau -1,u`
`00FFF18A 283000000 cmpu #0`	`00FFE1C5 283000000 cmpu #0`
`00FFF18D 026FF5 bne cv2s1`	`00FFE1C8 026FF5 bne cv2s1`
`; reset the cursor position in the text controller`	`; reset the cursor position in the text controller`
`00FFF18F 0D6110 ldb CursorRow`	`00FFE1CA 035010 puls x`
`00FFF191 086038 lda #56`	`00FFE1CC 0E6808110 ldb CursorRow,x`
`00FFF193 03D mul`	`00FFE1CF 086038 lda #56`
`00FFF194 01F001 tfr d,x`	`00FFE1D1 03D mul`
`00FFF196 0D6111 ldb CursorCol`	`00FFE1D2 01F002 tfr d,y`
`00FFF198 03A abx`	`00FFE1D4 0E6808111 ldb CursorCol,x`
`00FFF199 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS`	`00FFE1D7 01F021 tfr y,x`
`00FFF19E 0350F6 puls d,x,y,u,pc`	`00FFE1D9 03A abx`
	`00FFE1DA 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS`
	`00FFE1DF 0350F6 puls d,x,y,u,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`CopyScreenToVirtualScreen:`	`CopyScreenToVirtualScreen:`
`00FFF1A0 034076 pshs d,x,y,u`	`00FFE1E1 034076 pshs d,x,y,u`
`00FFF1A2 08D08C bsr GetScreenLocation`	`00FFE1E3 08D08D bsr GetScreenLocation`
`00FFF1A4 01F002 tfr d,y`	`00FFE1E5 01F002 tfr d,y`
`00FFF1A6 08EE00000 ldx #TEXTSCR`	`00FFE1E7 08EE00000 ldx #TEXTSCR`
`00FFF1A9 0CE00032C ldu #56*29/2`	`00FFE1EA 0CE00032C ldu #56*29/2`
`cs2v1:`	`cs2v1:`
`00FFF1AC 0EC801 ldd ,x++`	`00FFE1ED 0EC801 ldd ,x++`
`00FFF1AE 0EDA01 std ,y++`	`00FFE1EF 0EDA01 std ,y++`
`00FFF1B0 0335FF leau -1,u`	`00FFE1F1 0335FF leau -1,u`
`00FFF1B2 283000000 cmpu #0`	`00FFE1F3 283000000 cmpu #0`
`00FFF1B5 026FF5 bne cs2v1`	`00FFE1F6 026FF5 bne cs2v1`
`00FFF1B7 0350F6 puls d,x,y,u,pc`	`00FFE1F8 0350F6 puls d,x,y,u,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`00FFF1B9 054045058054053043052 fcb "TEXTSCR "`	`00FFE1FA 054045058054053043052 fcb "TEXTSCR "`
`00FFF1C0 020`	`00FFE201 020`
`00FFF1C1 FFF1CB fcw TextOpen`	`00FFE202 FFE20C fcw TextOpen`
`00FFF1C3 FFF1CC fcw TextClose`	`00FFE204 FFE20D fcw TextClose`
`00FFF1C5 FFF1CD fcw TextRead`	`00FFE206 FFE20E fcw TextRead`
`00FFF1C7 FFF1CE fcw TextWrite`	`00FFE208 FFE20F fcw TextWrite`
`00FFF1C9 FFF1CF fcw TextSeek`	`00FFE20A FFE210 fcw TextSeek`

`TextOpen:`	`TextOpen:`
`00FFF1CB 039 rts`	`00FFE20C 039 rts`
`TextClose:`	`TextClose:`
`00FFF1CC 039 rts`	`00FFE20D 039 rts`
`TextRead:`	`TextRead:`
`00FFF1CD 039 rts`	`00FFE20E 039 rts`
`TextWrite:`	`TextWrite:`
`00FFF1CE 039 rts`	`00FFE20F 039 rts`
`TextSeek:`	`TextSeek:`
`00FFF1CF 039 rts`	`00FFE210 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Clear the screen and the screen color memory`	`; Clear the screen and the screen color memory`
`; We clear the screen to give a visual indication that the system`	`; We clear the screen to give a visual indication that the system`
`; is working at all.`	`; is working at all.`
Line 553...	Line 644...
`; Modifies:`	`; Modifies:`
`; none`	`; none`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`ClearScreen:`	`ClearScreen:`
`00FFF1D0 034076 pshs d,x,y,u`	`00FFE211 034076 pshs d,x,y,u`
`00FFF1D2 08E000658 ldx #56*29`	`00FFE213 08E000658 ldx #56*29`
`00FFF1D5 01F013 tfr x,u`	`00FFE216 01F013 tfr x,u`
`00FFF1D7 08D057 bsr GetScreenLocation`	`00FFE218 08D058 bsr GetScreenLocation`
`00FFF1D9 01F002 tfr d,y`	`00FFE21A 01F002 tfr d,y`
`00FFF1DB 0C6020 ldb #' ' ; space char`	`00FFE21C 0C6020 ldb #' ' ; space char`
`cs1:`	`cs1:`
`00FFF1DD 0E7A00 stb ,y+ ; set text to space`	`00FFE21E 0E7A00 stb ,y+ ; set text to space`
`00FFF1DF 0301FF leax -1,x ; decrement x`	`00FFE220 0301FF leax -1,x ; decrement x`
`00FFF1E1 026FFA bne cs1`	`00FFE222 026FFA bne cs1`
`00FFF1E3 0150F6FFFFFFFE0 ldb COREID ; update colors only if we have focus`	`00FFE224 0150F6FFFFFFFE0 ldb COREID ; update colors only if we have focus`
`00FFF1E8 0D1100 cmpb IOFocusID`	`00FFE229 0F1FF0010 cmpb IOFocusID`
`00FFF1EA 02000D bra cs3`	`00FFE22C 02000D bra cs3`
`00FFF1EC 18EE02000 ldy #TEXTSCR+$2000`	`00FFE22E 18EE02000 ldy #TEXTSCR+$2000`
`; lda CharColor`	`; lda CharColor`
`00FFF1EF 0860CE lda #$0CE`	`00FFE231 0860CE lda #$0CE`
`00FFF1F1 01F031 tfr u,x ; get back count`	`00FFE233 01F031 tfr u,x ; get back count`
`cs2:`	`cs2:`
`00FFF1F3 0A7A00 sta ,y+`	`00FFE235 0A7A00 sta ,y+`
`00FFF1F5 0301FF leax -1,x ; decrement x`	`00FFE237 0301FF dex ; decrement x`
`00FFF1F7 026FFA bne cs2`	`00FFE239 026FFA bne cs2`
`cs3:`	`cs3:`
`00FFF1F9 0350F6 puls d,x,y,u,pc`	`00FFE23B 0350F6 puls d,x,y,u,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Scroll text on the screen upwards`	`; Scroll text on the screen upwards`
`;`	`;`
`; Modifies:`	`; Modifies:`
`; none`	`; none`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`ScrollUp:`	`ScrollUp:`
`00FFF1FB 034076 pshs d,x,y,u`	`00FFE23D 034076 pshs d,x,y,u`
`00FFF1FD 18E00032B ldy #(56*29-1)/2 ; y = num chars/2 to move`	`00FFE23F 18E00032B ldy #(56*29-1)/2 ; y = num chars/2 to move`
`00FFF200 08D02E bsr GetScreenLocation`	`00FFE242 08D02E bsr GetScreenLocation`
`00FFF202 01F001 tfr d,x`	`00FFE244 01F001 tfr d,x`
`00FFF204 01F003 tfr d,u`	`00FFE246 01F003 tfr d,u`
`00FFF206 030038 leax 56,x ; x = index to source row`	`00FFE248 030038 leax 56,x ; x = index to source row`
`scrup1:`	`scrup1:`
`00FFF208 0EC801 ldd ,x++ ; move 2 characters`	`00FFE24A 0EC801 ldd ,x++ ; move 2 characters`
`00FFF20A 0EDC01 std ,u++`	`00FFE24C 0EDC01 std ,u++`
`00FFF20C 0313FF leay -1,y`	`00FFE24E 0313FF dey`
`00FFF20E 026FF8 bne scrup1`	`00FFE250 026FF8 bne scrup1`
`00FFF210 08601E lda #30`	`00FFE252 08601D lda #29`
`00FFF212 08D002 bsr BlankLine`	`00FFE254 08D002 bsr BlankLine`
`00FFF214 0350F6 puls d,x,y,u,pc`	`00FFE256 0350F6 puls d,x,y,u,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Blank out a line on the display`	`; Blank out a line on the display`
`;`	`;`
`; Modifies:`	`; Modifies:`
Line 610...	Line 701...
`; Parameters:`	`; Parameters:`
`; acca = line number to blank`	`; acca = line number to blank`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`BlankLine:`	`BlankLine:`
`00FFF216 034016 pshs d,x`	`00FFE258 034016 pshs d,x`
`00FFF218 034002 pshs a`	`00FFE25A 034002 pshs a`
`00FFF21A 08D014 bsr GetScreenLocation`	`00FFE25C 08D014 bsr GetScreenLocation`
`00FFF21C 01F001 tfr d,x`	`00FFE25E 01F001 tfr d,x`
`00FFF21E 035002 puls a`	`00FFE260 035002 puls a`
`00FFF220 0C6038 ldb #56 ; b = # chars to blank out from video controller`	`00FFE262 0C6038 ldb #56 ; b = # chars to blank out from video controller`
`00FFF222 03D mul ; d = screen index (row# * #cols)`	`00FFE264 03D mul ; d = screen index (row# * #cols)`
`00FFF223 03080B leax d,x`	`00FFE265 03080B leax d,x`
`00FFF225 086020 lda #' '`	`00FFE267 086020 lda #' '`
`00FFF227 0C6038 ldb #56 ; b = # chars to blank out from video controller`	`00FFE269 0C6038 ldb #56 ; b = # chars to blank out from video controller`
`blnkln1:`	`blnkln1:`
`00FFF229 0A7800 sta ,x+`	`00FFE26B 0A7800 sta ,x+`
`00FFF22B 05A decb`	`00FFE26D 05A decb`
`00FFF22C 026FFB bne blnkln1`	`00FFE26E 026FFB bne blnkln1`
`00FFF22E 035096 puls d,x,pc`	`00FFE270 035096 puls d,x,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Get the location of the screen memory. The location`	`; Get the location of the screen memory. The location`
`; depends on whether or not the task has the output focus.`	`; depends on whether or not the task has the output focus.`
`;`	`;`
Line 637...	Line 728...
`; Retuns:`	`; Retuns:`
`; d = screen location`	`; d = screen location`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`GetScreenLocation:`	`GetScreenLocation:`
`00FFF230 0150B6FFFFFFFE0 lda COREID ; which core are we?`	`00FFE272 0150B6FFFFFFFE0 lda COREID ; which core are we?`
`00FFF235 091100 cmpa IOFocusID ; do we have the IO focus`	`00FFE277 0B1FF0010 cmpa IOFocusID ; do we have the IO focus`
`00FFF237 026004 bne gsl1 ; no, go pick virtual screen address`	`00FFE27A 026004 bne gsl1 ; no, go pick virtual screen address`
`00FFF239 0CCE00000 ldd #TEXTSCR ; yes, we update the real screen`	`00FFE27C 0CCE00000 ldd #TEXTSCR ; yes, we update the real screen`
`00FFF23C 039 rts`	`00FFE27F 039 rts`
`gsl1:`	`gsl1:`
`00FFF23D 0CC007800 ldd #$7800`	`00FFE280 0CC007800 ldd #$7800`
`00FFF240 039 rts`	`00FFE283 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; HomeCursor`	`; HomeCursor`
`; Set the cursor location to the top left of the screen.`	`; Set the cursor location to the top left of the screen.`
`;`	`;`
`; Modifies:`	`; Modifies:`
`; none`	`; none`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`HomeCursor:`	`HomeCursor:`
`00FFF241 034016 pshs d,x`	`00FFE284 034016 pshs d,x`
`00FFF243 00F110 clr CursorRow`	`00FFE286 00F110 clr CursorRow`
`00FFF245 00F111 clr CursorCol`	`00FFE288 00F111 clr CursorCol`
`00FFF247 0150F6FFFFFFFE0 ldb COREID`	`00FFE28A 0150F6FFFFFFFE0 ldb COREID`
`00FFF24C 0D1100 cmpb IOFocusID`	`00FFE28F 0F1FF0010 cmpb IOFocusID`
`00FFF24E 026006 bne hc1`	`00FFE292 026006 bne hc1`
`00FFF250 04F clra`	`00FFE294 04F clra`
`00FFF251 0150B7FFFE0DF22 sta TEXTREG+TEXT_CURPOS`	`00FFE295 0150B7FFFE0DF22 sta TEXTREG+TEXT_CURPOS`
`hc1:`	`hc1:`
`00FFF256 035096 puls d,x,pc`	`00FFE29A 035096 puls d,x,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Update the cursor position in the text controller based on the`	`; Update the cursor position in the text controller based on the`
`; CursorRow,CursorCol.`	`; CursorRow,CursorCol.`
`;`	`;`
`; Modifies:`	`; Modifies:`
`; none`	`; none`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`UpdateCursorPos:`	`UpdateCursorPos:`
`00FFF258 034016 pshs d,x`	`00FFE29C 034016 pshs d,x`
`00FFF25A 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller`	`00FFE29E 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller`
`00FFF25F 0D1100 cmpb IOFocusID ; only for the task with the output focus`	`00FFE2A3 0F1FF0010 cmpb IOFocusID ; only for the task with the output focus`
`00FFF261 026014 bne ucp1`	`00FFE2A6 026014 bne ucp1`
`00FFF263 096110 lda CursorRow`	`00FFE2A8 096110 lda CursorRow`
`00FFF265 08403F anda #$3F ; limit of 63 rows`	`00FFE2AA 08403F anda #$3F ; limit of 63 rows`
`00FFF267 0150F6FFFE0DF00 ldb TEXTREG+TEXT_COLS`	`00FFE2AC 0150F6FFFE0DF00 ldb TEXTREG+TEXT_COLS`
`00FFF26C 03D mul`	`00FFE2B1 03D mul`
`00FFF26D 01F001 tfr d,x`	`00FFE2B2 01F001 tfr d,x`
`00FFF26F 0D6111 ldb CursorCol`	`00FFE2B4 0D6111 ldb CursorCol`
`00FFF271 03A abx`	`00FFE2B6 03A abx`
`00FFF272 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS`	`00FFE2B7 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS`
`ucp1:`	`ucp1:`
`00FFF277 035096 puls d,x,pc`	`00FFE2BC 035096 puls d,x,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Calculate screen memory location from CursorRow,CursorCol.`	`; Calculate screen memory location from CursorRow,CursorCol.`
`; Also refreshes the cursor location.`	`; Also refreshes the cursor location.`
`;`	`;`
Line 701...	Line 792...
`; Returns:`	`; Returns:`
`; d = screen location`	`; d = screen location`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`CalcScreenLoc:`	`CalcScreenLoc:`
`00FFF279 034010 pshs x`	`00FFE2BE 034010 pshs x`
`00FFF27B 096110 lda CursorRow`	`00FFE2C0 096110 lda CursorRow`
`00FFF27D 0C6038 ldb #56`	`00FFE2C2 0C6038 ldb #56`
`00FFF27F 03D mul`	`00FFE2C4 03D mul`
`00FFF280 01F001 tfr d,x`	`00FFE2C5 01F001 tfr d,x`
`00FFF282 0D6111 ldb CursorCol`	`00FFE2C7 0D6111 ldb CursorCol`
`00FFF284 03A abx`	`00FFE2C9 03A abx`
`00FFF285 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller`	`00FFE2CA 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller`
`00FFF28A 0D1100 cmpb IOFocusID ; only for the task with the output focus`	`00FFE2CF 0F1FF0010 cmpb IOFocusID ; only for the task with the output focus`
`00FFF28C 026005 bne csl1`	`00FFE2D2 026005 bne csl1`
`00FFF28E 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS`	`00FFE2D4 0150BFFFFE0DF22 stx TEXTREG+TEXT_CURPOS`
`csl1:`	`csl1:`
`00FFF293 08DF9B bsr GetScreenLocation`	`00FFE2D9 08DF97 bsr GetScreenLocation`
`00FFF295 03080B leax d,x`	`00FFE2DB 03080B leax d,x`
`00FFF297 01F010 tfr x,d`	`00FFE2DD 01F010 tfr x,d`
`00FFF299 035090 puls x,pc`	`00FFE2DF 035090 puls x,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Display a character on the screen.`	`; Display a character on the screen.`
`; If the task doesn't have the I/O focus then the character is written to`	`; If the task doesn't have the I/O focus then the character is written to`
`; the virtual screen.`	`; the virtual screen.`
Line 730...	Line 821...
`; Parameters:`	`; Parameters:`
`; accb = char to display`	`; accb = char to display`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`DisplayChar:`	`DisplayChar:`
`00FFF29B 034016 pshs d,x`	`00FFE2E1 017000924 lbsr SerialPutChar`
`00FFF29D 0C100D cmpb #CR ; carriage return ?`	`00FFE2E4 034016 pshs d,x`
`00FFF29F 026006 bne dccr`	`00FFE2E6 0C100D cmpb #CR ; carriage return ?`
`00FFF2A1 00F111 clr CursorCol ; just set cursor column to zero on a CR`	`00FFE2E8 026007 bne dccr`
`00FFF2A3 08DFB3 bsr UpdateCursorPos`	`00FFE2EA 00F111 clr CursorCol ; just set cursor column to zero on a CR`
	`00FFE2EC 08DFAE bsr UpdateCursorPos`
`dcx14:`	`dcx14:`
`00FFF2A5 035096 puls d,x,pc`	`00FFE2EE 01600008C lbra dcx4`
`dccr:`	`dccr:`
`00FFF2A7 0C1091 cmpb #$91 ; cursor right ?`	`00FFE2F1 0C1091 cmpb #$91 ; cursor right ?`
`00FFF2A9 02600D bne dcx6`	`00FFE2F3 02600D bne dcx6`
`00FFF2AB 096111 lda CursorCol`	`00FFE2F5 096111 lda CursorCol`
`00FFF2AD 081038 cmpa #56`	`00FFE2F7 081038 cmpa #56`
`00FFF2AF 024003 bhs dcx7`	`00FFE2F9 024003 bhs dcx7`
`00FFF2B1 04C inca`	`00FFE2FB 04C inca`
`00FFF2B2 097111 sta CursorCol`	`00FFE2FC 097111 sta CursorCol`
`dcx7:`	`dcx7:`
`00FFF2B4 08DFA2 bsr UpdateCursorPos`	`00FFE2FE 08DF9C bsr UpdateCursorPos`
`00FFF2B6 035096 puls d,x,pc`	`00FFE300 035096 puls d,x,pc`
`dcx6:`	`dcx6:`
`00FFF2B8 0C1090 cmpb #$90 ; cursor up ?`	`00FFE302 0C1090 cmpb #$90 ; cursor up ?`
`00FFF2BA 026009 bne dcx8`	`00FFE304 026009 bne dcx8`
`00FFF2BC 096110 lda CursorRow`	`00FFE306 096110 lda CursorRow`
`00FFF2BE 027FF4 beq dcx7`	`00FFE308 027FF4 beq dcx7`
`00FFF2C0 04A deca`	`00FFE30A 04A deca`
`00FFF2C1 097110 sta CursorRow`	`00FFE30B 097110 sta CursorRow`
`00FFF2C3 020FEF bra dcx7`	`00FFE30D 020FEF bra dcx7`
`dcx8:`	`dcx8:`
`00FFF2C5 0C1093 cmpb #$93 ; cursor left ?`	`00FFE30F 0C1093 cmpb #$93 ; cursor left ?`
`00FFF2C7 026009 bne dcx9`	`00FFE311 026009 bne dcx9`
`00FFF2C9 096111 lda CursorCol`	`00FFE313 096111 lda CursorCol`
`00FFF2CB 027FE7 beq dcx7`	`00FFE315 027FE7 beq dcx7`
`00FFF2CD 04A deca`	`00FFE317 04A deca`
`00FFF2CE 097111 sta CursorCol`	`00FFE318 097111 sta CursorCol`
`00FFF2D0 020FE2 bra dcx7`	`00FFE31A 020FE2 bra dcx7`
`dcx9:`	`dcx9:`
`00FFF2D2 0C1092 cmpb #$92 ; cursor down ?`	`00FFE31C 0C1092 cmpb #$92 ; cursor down ?`
`00FFF2D4 02600B bne dcx10`	`00FFE31E 02600B bne dcx10`
`00FFF2D6 096110 lda CursorRow`	`00FFE320 096110 lda CursorRow`
`00FFF2D8 08101D cmpa #29`	`00FFE322 08101D cmpa #29`
`00FFF2DA 027FD8 beq dcx7`	`00FFE324 027FD8 beq dcx7`
`00FFF2DC 04C inca`	`00FFE326 04C inca`
`00FFF2DD 097110 sta CursorRow`	`00FFE327 097110 sta CursorRow`
`00FFF2DF 020FD3 bra dcx7`	`00FFE329 020FD3 bra dcx7`
`dcx10:`	`dcx10:`
`00FFF2E1 0C1094 cmpb #$94 ; cursor home ?`	`00FFE32B 0C1094 cmpb #$94 ; cursor home ?`
`00FFF2E3 02600C bne dcx11`	`00FFE32D 02600C bne dcx11`
`00FFF2E5 096111 lda CursorCol`	`00FFE32F 096111 lda CursorCol`
`00FFF2E7 027004 beq dcx12`	`00FFE331 027004 beq dcx12`
`00FFF2E9 00F111 clr CursorCol`	`00FFE333 00F111 clr CursorCol`
`00FFF2EB 020FC7 bra dcx7`	`00FFE335 020FC7 bra dcx7`
`dcx12:`	`dcx12:`
`00FFF2ED 00F110 clr CursorRow`	`00FFE337 00F110 clr CursorRow`
`00FFF2EF 020FC3 bra dcx7`	`00FFE339 020FC3 bra dcx7`
`dcx11:`	`dcx11:`
`00FFF2F1 0C1099 cmpb #$99 ; delete ?`	`00FFE33B 0C1099 cmpb #$99 ; delete ?`
`00FFF2F3 026008 bne dcx13`	`00FFE33D 026008 bne dcx13`
`00FFF2F5 08DF82 bsr CalcScreenLoc`	`00FFE33F 08DF7D bsr CalcScreenLoc`
`00FFF2F7 01F001 tfr d,x`	`00FFE341 01F001 tfr d,x`
`00FFF2F9 096111 lda CursorCol ; acc = cursor column`	`00FFE343 096111 lda CursorCol ; acc = cursor column`
`00FFF2FB 02000D bra dcx5`	`00FFE345 020011 bra dcx5`
`dcx13`	`dcx13`
`00FFF2FD 0C1008 cmpb #CTRLH ; backspace ?`	`00FFE347 0C1008 cmpb #CTRLH ; backspace ?`
`00FFF2FF 02601A bne dcx3`	`00FFE349 02601E bne dcx3`
`00FFF301 096111 lda CursorCol`	`00FFE34B 096111 lda CursorCol`
`00FFF303 02702A beq dcx4`	`00FFE34D 02702E beq dcx4`
`00FFF305 04A deca`	`00FFE34F 04A deca`
`00FFF306 097111 sta CursorCol`	`00FFE350 097111 sta CursorCol`
`00FFF308 08DF6F bsr CalcScreenLoc`	`00FFE352 08DF6A bsr CalcScreenLoc`
	`00FFE354 01F001 tfr d,x`
	`00FFE356 096111 lda CursorCol`
`dcx5:`	`dcx5:`
`00FFF30A 0E6001 ldb 1,x`	`00FFE358 0E6001 ldb 1,x`
`00FFF30C 0E7801 stb ,x++`	`00FFE35A 0E7801 stb ,x++`
`00FFF30E 04C inca`	`00FFE35C 04C inca`
`00FFF30F 081038 cmpa #56`	`00FFE35D 081038 cmpa #56`
`00FFF311 025FF7 blo dcx5`	`00FFE35F 025FF7 blo dcx5`
`00FFF313 0C6020 ldb #' '`	`00FFE361 0C6020 ldb #' '`
`00FFF315 0301FF leax -1,x`	`00FFE363 0301FF dex`
`00FFF317 0E7804 stb ,x`	`00FFE365 0E7804 stb ,x`
`00FFF319 03509E puls d,x,dp,pc`	`00FFE367 020014 bra dcx4`
`dcx3:`	`dcx3:`
`00FFF31B 0C100A cmpb #LF ; linefeed ?`	`00FFE369 0C100A cmpb #LF ; linefeed ?`
`00FFF31D 02700E beq dclf`	`00FFE36B 02700E beq dclf`
`00FFF31F 034004 pshs b`	`00FFE36D 034004 pshs b`
`00FFF321 08DF56 bsr CalcScreenLoc`	`00FFE36F 08DF4D bsr CalcScreenLoc`
`00FFF323 01F001 tfr d,x`	`00FFE371 01F001 tfr d,x`
`00FFF325 035004 puls b`	`00FFE373 035004 puls b`
`00FFF327 0E7804 stb ,x`	`00FFE375 0E7804 stb ,x`
`; ToDo character color`	`; ToDo character color`
`; lda CharColor`	`; lda CharColor`
`; sta $2000,x`	`; sta $2000,x`
`00FFF329 08D006 bsr IncCursorPos`	`00FFE377 08D006 bsr IncCursorPos`
`00FFF32B 035096 puls d,x,pc`	`00FFE379 020002 bra dcx4`
`dclf:`	`dclf:`
`00FFF32D 08D011 bsr IncCursorRow`	`00FFE37B 08D011 bsr IncCursorRow`
`dcx4:`	`dcx4:`
`00FFF32F 035096 puls d,x,pc`	`00FFE37D 035096 puls d,x,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Increment the cursor position, scroll the screen if needed.`	`; Increment the cursor position, scroll the screen if needed.`
`;`	`;`
`; Modifies:`	`; Modifies:`
`; none`	`; none`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`IncCursorPos:`	`IncCursorPos:`
`00FFF331 034016 pshs d,x`	`00FFE37F 034016 pshs d,x`
`00FFF333 096111 lda CursorCol`	`00FFE381 096111 lda CursorCol`
`00FFF335 04C inca`	`00FFE383 04C inca`
`00FFF336 097111 sta CursorCol`	`00FFE384 097111 sta CursorCol`
`00FFF338 081038 cmpa #56`	`00FFE386 081038 cmpa #56`
`00FFF33A 025014 blo icc1`	`00FFE388 025014 blo icc1`
`00FFF33C 00F111 clr CursorCol ; column = 0`	`00FFE38A 00F111 clr CursorCol ; column = 0`
`00FFF33E 020002 bra icr1`	`00FFE38C 020002 bra icr1`
`IncCursorRow:`	`IncCursorRow:`
`00FFF340 034016 pshs d,x`	`00FFE38E 034016 pshs d,x`
`icr1:`	`icr1:`
`00FFF342 096110 lda CursorRow`	`00FFE390 096110 lda CursorRow`
`00FFF344 04C inca`	`00FFE392 04C inca`
`00FFF345 097110 sta CursorRow`	`00FFE393 097110 sta CursorRow`
`00FFF347 08101D cmpa #29`	`00FFE395 08101D cmpa #29`
`00FFF349 025005 blo icc1`	`00FFE397 025005 blo icc1`
`00FFF34B 04A deca ; backup the cursor row, we are scrolling up`	`00FFE399 04A deca ; backup the cursor row, we are scrolling up`
`00FFF34C 097110 sta CursorRow`	`00FFE39A 097110 sta CursorRow`
`00FFF34E 08DEAB bsr ScrollUp`	`00FFE39C 08DE9F bsr ScrollUp`
`icc1:`	`icc1:`
`00FFF350 08DF06 bsr UpdateCursorPos`	`00FFE39E 08DEFC bsr UpdateCursorPos`
`icc2:`	`icc2:`
`00FFF352 035096 puls d,x,pc`	`00FFE3A0 035096 puls d,x,pc`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Display a string on the screen.`	`; Display a string on the screen.`
`;`	`;`
`; Modifies:`	`; Modifies:`
Line 868...	Line 962...
`; Parameters:`	`; Parameters:`
`; d = pointer to string`	`; d = pointer to string`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`DisplayString:`	`DisplayString:`
`00FFF354 034016 pshs d,x`	`00FFE3A2 034016 pshs d,x`
`00FFF356 01F001 tfr d,x`	`00FFE3A4 01F001 tfr d,x`
	`dspj2: ; lock semaphore for access`
	`00FFE3A6 0B6EF0001 lda OUTSEMA+1`
	`00FFE3A9 027FFB beq dspj2`
`dspj1B:`	`dspj1B:`
`00FFF358 0E6800 ldb ,x+ ; move string char into acc`	`00FFE3AB 0E6800 ldb ,x+ ; move string char into acc`
`00FFF35A 027004 beq dsretB ; is it end of string ?`	`00FFE3AD 027005 beq dsretB ; is it end of string ?`
`00FFF35C 08D61E bsr OUTCH ; display character`	`00FFE3AF 017000960 lbsr OUTCH ; display character`
`00FFF35E 020FF8 bra dspj1B`	`00FFE3B2 020FF7 bra dspj1B`
`dsretB:`	`dsretB:`
`00FFF360 035096 puls d,x,pc`	`00FFE3B4 07FEF0001 clr OUTSEMA+1 ; unlock semaphore`
	`00FFE3B7 035096 puls d,x,pc`

`DisplayStringCRLF:`	`DisplayStringCRLF:`
`00FFF362 034006 pshs d`	`00FFE3B9 034006 pshs d`
`00FFF364 08DFEE bsr DisplayString`	`00FFE3BB 08DFE5 bsr DisplayString`
`00FFF366 0C600D ldb #CR`	`00FFE3BD 0C600D ldb #CR`
`00FFF368 08D612 bsr OUTCH`	`00FFE3BF 017000950 lbsr OUTCH`
`00FFF36A 0C600A ldb #LF`	`00FFE3C2 0C600A ldb #LF`
`00FFF36C 08D60E bsr OUTCH`	`00FFE3C4 01700094B lbsr OUTCH`
`00FFF36E 035086 puls d,pc`	`00FFE3C7 035086 puls d,pc`

`;`	`;`
`; PRINT CR, LF, STRING`	`; PRINT CR, LF, STRING`
`;`	`;`
`PSTRNG`	`PSTRNG`
`00FFF370 08D002 BSR PCRLF`	`00FFE3C9 08D002 BSR PCRLF`
`00FFF372 02000D BRA PDATA`	`00FFE3CB 02000D BRA PDATA`
`PCRLF`	`PCRLF`
`00FFF374 034010 PSHS X`	`00FFE3CD 034010 PSHS X`
`00FFF376 08EFFF388 LDX #CRLFST`	`00FFE3CF 08EFFE3E1 LDX #CRLFST`
`00FFF379 08D006 BSR PDATA`	`00FFE3D2 08D006 BSR PDATA`
`00FFF37B 035010 PULS X`	`00FFE3D4 035010 PULS X`
`00FFF37D 039 RTS`	`00FFE3D6 039 RTS`

`PRINT`	`PRINT`
`00FFF37E 0BDFFF97C JSR OUTCH`	`00FFE3D7 0BDFFED12 JSR OUTCH`
`PDATA`	`PDATA`
`00FFF381 0E6800 LDB ,X+`	`00FFE3DA 0E6800 LDB ,X+`
`00FFF383 0C1004 CMPB #$04`	`00FFE3DC 0C1004 CMPB #$04`
`00FFF385 026FF7 BNE PRINT`	`00FFE3DE 026FF7 BNE PRINT`
`00FFF387 039 RTS`	`00FFE3E0 039 RTS`

`CRLFST`	`CRLFST`
`00FFF388 00D00A004 fcb CR,LF,4`	`00FFE3E1 00D00A004 fcb CR,LF,4`

`DispDWordAsHex:`	`DispDWordAsHex:`
`00FFF38B 08D007 bsr DispWordAsHex`	`00FFE3E4 08D007 bsr DispWordAsHex`
`00FFF38D 01E001 exg d,x`	`00FFE3E6 01E001 exg d,x`
`00FFF38F 08D003 bsr DispWordAsHex`	`00FFE3E8 08D003 bsr DispWordAsHex`
`00FFF391 01E001 exg d,x`	`00FFE3EA 01E001 exg d,x`
`00FFF393 039 rts`	`00FFE3EC 039 rts`

`DispWordAsHex:`	`DispWordAsHex:`
`00FFF394 01E089 exg a,b`	`00FFE3ED 01E089 exg a,b`
`00FFF396 08D005 bsr DispByteAsHex`	`00FFE3EF 08D005 bsr DispByteAsHex`
`00FFF398 01E089 exg a,b`	`00FFE3F1 01E089 exg a,b`
`00FFF39A 08D001 bsr DispByteAsHex`	`00FFE3F3 08D001 bsr DispByteAsHex`
`00FFF39C 039 rts`	`00FFE3F5 039 rts`

`DispByteAsHex:`	`DispByteAsHex:`
`00FFF39D 034004 pshs b`	`00FFE3F6 034004 pshs b`
`00FFF39F 054 lsrb`	`00FFE3F8 054 lsrb`
`00FFF3A0 054 lsrb`	`00FFE3F9 054 lsrb`
`00FFF3A1 054 lsrb`	`00FFE3FA 054 lsrb`
`00FFF3A2 054 lsrb`	`00FFE3FB 054 lsrb`
`00FFF3A3 054 lsrb`	`00FFE3FC 054 lsrb`
`00FFF3A4 054 lsrb`	`00FFE3FD 054 lsrb`
`00FFF3A5 054 lsrb`	`00FFE3FE 054 lsrb`
`00FFF3A6 054 lsrb`	`00FFE3FF 054 lsrb`
`00FFF3A7 08D00C bsr DispNyb`	`00FFE400 08D00C bsr DispNyb`
`00FFF3A9 035004 puls b`	`00FFE402 035004 puls b`
`00FFF3AB 034004 pshs b`	`00FFE404 034004 pshs b`
`00FFF3AD 054 lsrb`	`00FFE406 054 lsrb`
`00FFF3AE 054 lsrb`	`00FFE407 054 lsrb`
`00FFF3AF 054 lsrb`	`00FFE408 054 lsrb`
`00FFF3B0 054 lsrb`	`00FFE409 054 lsrb`
`00FFF3B1 08D002 bsr DispNyb`	`00FFE40A 08D002 bsr DispNyb`
`00FFF3B3 035004 puls b`	`00FFE40C 035004 puls b`

`DispNyb`	`DispNyb`
`00FFF3B5 034004 pshs b`	`00FFE40E 034004 pshs b`
`00FFF3B7 0C400F andb #$0F`	`00FFE410 0C400F andb #$0F`
`00FFF3B9 0C100A cmpb #10`	`00FFE412 0C100A cmpb #10`
`00FFF3BB 025006 blo DispNyb1`	`00FFE414 025007 blo DispNyb1`
`00FFF3BD 0CB037 addb #'A'-10`	`00FFE416 0CB037 addb #'A'-10`
`00FFF3BF 08D5BB bsr OUTCH`	`00FFE418 0170008F7 lbsr OUTCH`
`00FFF3C1 035084 puls b,pc`	`00FFE41B 035084 puls b,pc`
`DispNyb1`	`DispNyb1`
`00FFF3C3 0CB030 addb #'0'`	`00FFE41D 0CB030 addb #'0'`
`00FFF3C5 08D5B5 bsr OUTCH`	`00FFE41F 0170008F0 lbsr OUTCH`
`00FFF3C7 035084 puls b,pc`	`00FFE422 035084 puls b,pc`

	`;==============================================================================`
	`; Timer`
	`;==============================================================================`

	`; ============================================================================`
	`; __`
	`; \\__/ o\ (C) 2022 Robert Finch, Waterloo`
	`; \ __ / All rights reserved.`
	`; \/_// robfinch@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 .`
	`;`
	`; ============================================================================`
	`;`
	`TimerInit:`
	`00FFE424 0CC061A80 ldd #$61A80 ; compare to 400000 (100 Hz assuming 40MHz clock)`
	`00FFE427 0150F7FFFE60014 stb VIA+VIA_T3CMPL`
	`00FFE42C 0150B7FFFE60015 sta VIA+VIA_T3CMPH`
	`00FFE431 01507FFFFE60012 clr VIA+VIA_T3LL`
	`00FFE436 01507FFFFE60013 clr VIA+VIA_T3LH`
	`00FFE43B 0150B6FFFE6000B lda VIA+VIA_ACR ; set continuous mode for timer`
	`00FFE440 08A100 ora #$100`
	`00FFE442 0150B7FFFE6000B sta VIA+VIA_ACR ; enable timer #3 interrupts`
	`00FFE447 086810 lda #$810`
	`00FFE449 0150B7FFFE6000E sta VIA+VIA_IER`
	`00FFE44E 039 rts`

	`TimerIRQ:`
	`; Reset the edge sense circuit in the PIC`
	`00FFE44F 08601F lda #31 ; Timer is IRQ #31`
	`00FFE451 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()`
	`00FFE454 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg`
	`00FFE459 0150B6FFFE6000D lda VIA+VIA_IFR`
	`00FFE45E 02A011 bpl notTimerIRQ`
	`00FFE460 085800 bita #$800`
	`00FFE462 02700D beq notTimerIRQ`
	`00FFE464 01507FFFFE60012 clr VIA+VIA_T3LL`
	`00FFE469 01507FFFFE60013 clr VIA+VIA_T3LH`
	`00FFE46E 07CE00037 inc $E00037 ; update timer IRQ screen flag`
	`notTimerIRQ:`
	`00FFE471 039 rts`



	`; ============================================================================`
	`; __`
	`; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo`
	`; \ __ / All rights reserved.`
	`; \/_// robfinch@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 $0`
	`I2C_PREH EQU $1`
	`I2C_CTRL EQU $2`
	`I2C_RXR EQU $3`
	`I2C_TXR EQU $3`
	`I2C_CMD EQU $4`
	`I2C_STAT EQU $4`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; i2c initialization, sets the clock prescaler`
	`;`
	`; Parameters:`
	`; x = I2C controller address`
	`; Returns: none`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`_i2c_init:`
	`00FFE472 034004 pshs b`
	`00FFE474 0C6004 ldb #4 ; setup prescale for 400kHz clock`
	`00FFE476 0E7804 stb I2C_PREL,x`
	`00FFE478 06F001 clr I2C_PREH,x`
	`00FFE47A 035084 puls b,pc`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; Wait for I2C transfer to complete`
	`;`
	`; Parameters`
	`; x - I2C controller base address`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`i2c_wait_tip:`
	`00FFE47C 034004 pshs b`
	`i2cw1:`
	`00FFE47E 0E6004 ldb I2C_STAT,x ; would use lvb, but lb is okay since its the I/O area`
	`00FFE480 0C5001 bitb #1 ; wait for tip to clear`
	`00FFE482 026FFA bne i2cw1`
	`00FFE484 035084 puls b,pc`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; Write command to i2c`
	`;`
	`; Parameters`
	`; accb - data to transmit`
	`; acca - command value`
	`; x - I2C controller base address`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`i2c_wr_cmd:`
	`00FFE486 0E7003 stb I2C_TXR,x`
	`00FFE488 0A7004 sta I2C_CMD,x`
	`00FFE48A 08DFF0 bsr i2c_wait_tip`
	`00FFE48C 0E6004 ldb I2C_STAT,x`
	`00FFE48E 039 rts`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; Parameters`
	`; x - I2C controller base address`
	`; accb - data to send`
	`; Returns: none`
	`; Stack space: 2 words`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`_i2c_xmit1:`
	`00FFE48F 034006 pshs d ; save data value`
	`00FFE491 034006 pshs d ; and save it again`
	`00FFE493 0C6001 ldb #1`
	`00FFE495 0E7002 stb I2C_CTRL,x ; enable the core`
	`00FFE497 0C6076 ldb #$76 ; set slave address = %0111011`
	`00FFE499 086090 lda #$90 ; set STA, WR`
	`00FFE49B 08DFE9 bsr i2c_wr_cmd`
	`00FFE49D 08D00A bsr i2c_wait_rx_nack`
	`00FFE49F 035006 puls d ; get back data value`
	`00FFE4A1 086050 lda #$50 ; set STO, WR`
	`00FFE4A3 08DFE1 bsr i2c_wr_cmd`
	`00FFE4A5 08D002 bsr i2c_wait_rx_nack`
	`00FFE4A7 035086 puls d,pc`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`i2c_wait_rx_nack:`
	`00FFE4A9 034004 pshs b ; save off accb`
	`i2cwr1:`
	`00FFE4AB 0E6004 ldb I2C_STAT,x ; wait for RXack = 0`
	`00FFE4AD 0C5080 bitb #$80 ; test for nack`
	`00FFE4AF 026FFA bne i2cwr1`
	`00FFE4B1 035084 puls b,pc`

	`; ============================================================================`
	`; __`
	`; \\__/ o\ (C) 2022 Robert Finch, Waterloo`
	`; \ __ / All rights reserved.`
	`; \/_// robfinch@opencores.org`
	`; \|\|`
	`;`
	`;`
	`; BSD 3-Clause License`
	`; Redistribution and use in source and binary forms, with or without`
	`; modification, are permitted provided that the following conditions are met:`
	`;`
	`; 1. Redistributions of source code must retain the above copyright notice, this`
	`; list of conditions and the following disclaimer.`
	`;`
	`; 2. Redistributions in binary form must reproduce the above copyright notice,`
	`; this list of conditions and the following disclaimer in the documentation`
	`; and/or other materials provided with the distribution.`
	`;`
	`; 3. Neither the name of the copyright holder nor the names of its`
	`; contributors may be used to endorse or promote products derived from`
	`; this software without specific prior written permission.`
	`;`
	`; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"`
	`; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE`
	`; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE`
	`; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE`
	`; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL`
	`; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR`
	`; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER`
	`; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,`
	`; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE`
	`; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.`
	`;`
	`; ============================================================================`

	`;===============================================================================`
	`; Realtime clock routines`
	`;===============================================================================`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; Read the real-time-clock chip.`
	`;`
	`; The entire contents of the clock registers and sram are read into a buffer`
	`; in one-shot rather than reading the registers individually.`
	`;`
	`; Parameters: none`
	`; Returns: d = 0 on success, otherwise non-zero`
	`; Modifies: d and RTCBuf`
	`; Stack space: 6 words`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`rtc_read:`
	`00FFE4B3 08EE30500 ldx #RTC`
	`00FFE4B6 18E007FC0 ldy #RTCBuf`
	`00FFE4B9 0C6080 ldb #$80`
	`00FFE4BB 0E7002 stb I2C_CTRL,x ; enable I2C`
	`00FFE4BD 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit`
	`00FFE4C0 08DFC4 bsr i2c_wr_cmd`
	`00FFE4C2 0C5080 bitb #$80`
	`00FFE4C4 02603C bne rtc_rxerr`
	`00FFE4C6 0CC010000 ldd #$10000 ; address zero, wr bit`
	`00FFE4C9 08DFBB bsr i2c_wr_cmd`
	`00FFE4CB 0C5080 bitb #$80`
	`00FFE4CD 026033 bne rtc_rxerr`
	`00FFE4CF 0CC0900DF ldd #$900DF ; read address, read op, STA + wr bit`
	`00FFE4D2 08DFB2 bsr i2c_wr_cmd`
	`00FFE4D4 0C5080 bitb #$80`
	`00FFE4D6 02602A bne rtc_rxerr`

	`00FFE4D8 05F clrb`
	`rtcr0001:`
	`00FFE4D9 086020 lda #$20`
	`00FFE4DB 0A7004 sta I2C_CMD,x ; rd bit`
	`00FFE4DD 08DF9D bsr i2c_wait_tip`
	`00FFE4DF 08DFC8 bsr i2c_wait_rx_nack`
	`00FFE4E1 0A6004 lda I2C_STAT,x`
	`00FFE4E3 085080 bita #$80`
	`00FFE4E5 02601B bne rtc_rxerr`
	`00FFE4E7 0A6003 lda I2C_RXR,x`
	`00FFE4E9 0A7A07 sta b,y`
	`00FFE4EB 05C incb`
	`00FFE4EC 0C105F cmpb #$5F`
	`00FFE4EE 025FE9 blo rtcr0001`
	`00FFE4F0 086068 lda #$68`
	`00FFE4F2 0A7004 sta I2C_CMD,x ; STO, rd bit + nack`
	`00FFE4F4 08DF86 bsr i2c_wait_tip`
	`00FFE4F6 0A6004 lda I2C_STAT,x`
	`00FFE4F8 085080 bita #$80`
	`00FFE4FA 026006 bne rtc_rxerr`
	`00FFE4FC 0A6003 lda I2C_RXR,x`
	`00FFE4FE 0A7A07 sta b,y`
	`00FFE500 04F05F clrd ; return 0`
	`rtc_rxerr:`
	`00FFE502 06F002 clr I2C_CTRL,x ; disable I2C and return status`
	`00FFE504 04F clra`
	`00FFE505 039 rts`

	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; Write the real-time-clock chip.`
	`;`
	`; The entire contents of the clock registers and sram are written from a`
	`; buffer (RTCBuf) in one-shot rather than writing the registers individually.`
	`;`
	`; Parameters: none`
	`; Returns: r1 = 0 on success, otherwise non-zero`
	`; Modifies: r1 and RTCBuf`
	`; Stack space: 6 words`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`rtc_write:`
	`00FFE506 08EE30500 ldx #RTC`
	`00FFE509 18E007FC0 ldy #RTCBuf`

	`00FFE50C 0C6080 ldb #$80`
	`00FFE50E 0E7002 stb I2C_CTRL,x ; enable I2C`
	`00FFE510 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit`
	`00FFE513 08DF71 bsr i2c_wr_cmd`
	`00FFE515 0C5080 bitb #$80`
	`00FFE517 026FE9 bne rtc_rxerr`
	`00FFE519 0CC010000 ldd #$10000 ; address zero, wr bit`
	`00FFE51C 08DF68 bsr i2c_wr_cmd`
	`00FFE51E 0C5080 bitb #$80`
	`00FFE520 026FE0 bne rtc_rxerr`

	`00FFE522 0C6000 ldb #0`
	`rtcw0001:`
	`00FFE524 034004 pshs b`
	`00FFE526 0E6A05 ldb b,y`
	`00FFE528 086010 lda #$10`
	`00FFE52A 08DF5A bsr i2c_wr_cmd`
	`00FFE52C 0C5080 bitb #$80`
	`00FFE52E 035004 puls b`
	`00FFE530 026FD0 bne rtc_rxerr`
	`00FFE532 05C incb`
	`00FFE533 0C105F cmpb #$5F`
	`00FFE535 025FED blo rtcw0001`
	`00FFE537 0E6A05 ldb b,y`
	`00FFE539 086050 lda #$50 ; STO, wr bit`
	`00FFE53B 08DF49 bsr i2c_wr_cmd`
	`00FFE53D 0C5080 bitb #$80`
	`00FFE53F 026FC1 bne rtc_rxerr`
	`00FFE541 04F05F clrd ; return 0`
	`00FFE543 06F002 clr I2C_CTRL,x ; disable I2C and return status`
	`00FFE545 039 rts`

`;==============================================================================`	`;==============================================================================`
`; Keyboard I/O`	`; Keyboard I/O`
`;==============================================================================`	`;==============================================================================`

Line 969...	Line 1403...
`;--------------------------------------------------------------------------`	`;--------------------------------------------------------------------------`
`;`	`;`
`org (* + 127) & $FFFFFF80`	`org (* + 127) & $FFFFFF80`

`unshiftedScanCodes:`	`unshiftedScanCodes:`
`00FFF400 02E0A902E0A50A30A10A2 fcb $2e,$a9,$2e,$a5,$a3,$a1,$a2,$ac`	`00FFE580 02E0A902E0A50A30A10A2 fcb $2e,$a9,$2e,$a5,$a3,$a1,$a2,$ac`
`00FFF407 0AC`	`00FFE587 0AC`
`00FFF408 02E0AA0A80A60A4009060 fcb $2e,$aa,$a8,$a6,$a4,$09,$60,$2e`	`00FFE588 02E0AA0A80A60A4009060 fcb $2e,$aa,$a8,$a6,$a4,$09,$60,$2e`
`00FFF40F 02E`	`00FFE58F 02E`
`00FFF410 02E02E02E02E02E071031 fcb $2e,$2e,$2e,$2e,$2e,$71,$31,$2e`	`00FFE590 02E02E02E02E02E071031 fcb $2e,$2e,$2e,$2e,$2e,$71,$31,$2e`
`00FFF417 02E`	`00FFE597 02E`
`00FFF418 02E02E07A073061077032 fcb $2e,$2e,$7a,$73,$61,$77,$32,$2e`	`00FFE598 02E02E07A073061077032 fcb $2e,$2e,$7a,$73,$61,$77,$32,$2e`
`00FFF41F 02E`	`00FFE59F 02E`
`00FFF420 02E063078064065034033 fcb $2e,$63,$78,$64,$65,$34,$33,$2e`	`00FFE5A0 02E063078064065034033 fcb $2e,$63,$78,$64,$65,$34,$33,$2e`
`00FFF427 02E`	`00FFE5A7 02E`
`00FFF428 02E020076066074072035 fcb $2e,$20,$76,$66,$74,$72,$35,$2e`	`00FFE5A8 02E020076066074072035 fcb $2e,$20,$76,$66,$74,$72,$35,$2e`
`00FFF42F 02E`	`00FFE5AF 02E`
`00FFF430 02E06E062068067079036 fcb $2e,$6e,$62,$68,$67,$79,$36,$2e`	`00FFE5B0 02E06E062068067079036 fcb $2e,$6e,$62,$68,$67,$79,$36,$2e`
`00FFF437 02E`	`00FFE5B7 02E`
`00FFF438 02E02E06D06A075037038 fcb $2e,$2e,$6d,$6a,$75,$37,$38,$2e`	`00FFE5B8 02E02E06D06A075037038 fcb $2e,$2e,$6d,$6a,$75,$37,$38,$2e`
`00FFF43F 02E`	`00FFE5BF 02E`
`00FFF440 02E02C06B06906F030039 fcb $2e,$2c,$6b,$69,$6f,$30,$39,$2e`	`00FFE5C0 02E02C06B06906F030039 fcb $2e,$2c,$6b,$69,$6f,$30,$39,$2e`
`00FFF447 02E`	`00FFE5C7 02E`
`00FFF448 02E02E02F06C03B07002D fcb $2e,$2e,$2f,$6c,$3b,$70,$2d,$2e`	`00FFE5C8 02E02E02F06C03B07002D fcb $2e,$2e,$2f,$6c,$3b,$70,$2d,$2e`
`00FFF44F 02E`	`00FFE5CF 02E`
`00FFF450 02E02E02702E05B03D02E fcb $2e,$2e,$27,$2e,$5b,$3d,$2e,$2e`	`00FFE5D0 02E02E02702E05B03D02E fcb $2e,$2e,$27,$2e,$5b,$3d,$2e,$2e`
`00FFF457 02E`	`00FFE5D7 02E`
`00FFF458 0AD02E00D05D02E05C02E fcb $ad,$2e,$0d,$5d,$2e,$5c,$2e,$2e`	`00FFE5D8 0AD02E00D05D02E05C02E fcb $ad,$2e,$0d,$5d,$2e,$5c,$2e,$2e`
`00FFF45F 02E`	`00FFE5DF 02E`
`00FFF460 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e`	`00FFE5E0 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e`
`00FFF467 02E`	`00FFE5E7 02E`
`00FFF468 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e`	`00FFE5E8 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e`
`00FFF46F 02E`	`00FFE5EF 02E`
`00FFF470 09807F09202E09109001B fcb $98,$7f,$92,$2e,$91,$90,$1b,$af`	`00FFE5F0 09807F09202E09109001B fcb $98,$7f,$92,$2e,$91,$90,$1b,$af`
`00FFF477 0AF`	`00FFE5F7 0AF`
`00FFF478 0AB02E09702E02E0960AE fcb $ab,$2e,$97,$2e,$2e,$96,$ae,$2e`	`00FFE5F8 0AB02E09702E02E0960AE fcb $ab,$2e,$97,$2e,$2e,$96,$ae,$2e`
`00FFF47F 02E`	`00FFE5FF 02E`

`00FFF480 02E02E02E0A702E02E02E fcb $2e,$2e,$2e,$a7,$2e,$2e,$2e,$2e`	`00FFE600 02E02E02E0A702E02E02E fcb $2e,$2e,$2e,$a7,$2e,$2e,$2e,$2e`
`00FFF487 02E`	`00FFE607 02E`
`00FFF488 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE608 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF48F 02E`	`00FFE60F 02E`
`00FFF490 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE610 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF497 02E`	`00FFE617 02E`
`00FFF498 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE618 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF49F 02E`	`00FFE61F 02E`
`00FFF4A0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE620 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4A7 02E`	`00FFE627 02E`
`00FFF4A8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE628 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4AF 02E`	`00FFE62F 02E`
`00FFF4B0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE630 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4B7 02E`	`00FFE637 02E`
`00FFF4B8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE638 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4BF 02E`	`00FFE63F 02E`
`00FFF4C0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE640 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4C7 02E`	`00FFE647 02E`
`00FFF4C8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE648 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4CF 02E`	`00FFE64F 02E`
`00FFF4D0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE650 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4D7 02E`	`00FFE657 02E`
`00FFF4D8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE658 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4DF 02E`	`00FFE65F 02E`
`00FFF4E0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE660 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4E7 02E`	`00FFE667 02E`
`00FFF4E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE668 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4EF 02E`	`00FFE66F 02E`
`00FFF4F0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE670 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF4F7 02E`	`00FFE677 02E`
`00FFF4F8 02E02E0FA02E02E02E02E fcb $2e,$2e,$fa,$2e,$2e,$2e,$2e,$2e`	`00FFE678 02E02E0FA02E02E02E02E fcb $2e,$2e,$fa,$2e,$2e,$2e,$2e,$2e`
`00FFF4FF 02E`	`00FFE67F 02E`

`shiftedScanCodes:`	`shiftedScanCodes:`
`00FFF500 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE680 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF507 02E`	`00FFE687 02E`
`00FFF508 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e`	`00FFE688 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e`
`00FFF50F 02E`	`00FFE68F 02E`
`00FFF510 02E02E02E02E02E051021 fcb $2e,$2e,$2e,$2e,$2e,$51,$21,$2e`	`00FFE690 02E02E02E02E02E051021 fcb $2e,$2e,$2e,$2e,$2e,$51,$21,$2e`
`00FFF517 02E`	`00FFE697 02E`
`00FFF518 02E02E05A053041057040 fcb $2e,$2e,$5a,$53,$41,$57,$40,$2e`	`00FFE698 02E02E05A053041057040 fcb $2e,$2e,$5a,$53,$41,$57,$40,$2e`
`00FFF51F 02E`	`00FFE69F 02E`
`00FFF520 02E043058044045024023 fcb $2e,$43,$58,$44,$45,$24,$23,$2e`	`00FFE6A0 02E043058044045024023 fcb $2e,$43,$58,$44,$45,$24,$23,$2e`
`00FFF527 02E`	`00FFE6A7 02E`
`00FFF528 02E020056046054052025 fcb $2e,$20,$56,$46,$54,$52,$25,$2e`	`00FFE6A8 02E020056046054052025 fcb $2e,$20,$56,$46,$54,$52,$25,$2e`
`00FFF52F 02E`	`00FFE6AF 02E`
`00FFF530 02E04E04204804705905E fcb $2e,$4e,$42,$48,$47,$59,$5e,$2e`	`00FFE6B0 02E04E04204804705905E fcb $2e,$4e,$42,$48,$47,$59,$5e,$2e`
`00FFF537 02E`	`00FFE6B7 02E`
`00FFF538 02E02E04D04A05502602A fcb $2e,$2e,$4d,$4a,$55,$26,$2a,$2e`	`00FFE6B8 02E02E04D04A05502602A fcb $2e,$2e,$4d,$4a,$55,$26,$2a,$2e`
`00FFF53F 02E`	`00FFE6BF 02E`
`00FFF540 02E03C04B04904F029028 fcb $2e,$3c,$4b,$49,$4f,$29,$28,$2e`	`00FFE6C0 02E03C04B04904F029028 fcb $2e,$3c,$4b,$49,$4f,$29,$28,$2e`
`00FFF547 02E`	`00FFE6C7 02E`
`00FFF548 02E03E03F04C03A05005F fcb $2e,$3e,$3f,$4c,$3a,$50,$5f,$2e`	`00FFE6C8 02E03E03F04C03A05005F fcb $2e,$3e,$3f,$4c,$3a,$50,$5f,$2e`
`00FFF54F 02E`	`00FFE6CF 02E`
`00FFF550 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e`	`00FFE6D0 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e`
`00FFF557 02E`	`00FFE6D7 02E`
`00FFF558 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e`	`00FFE6D8 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e`
`00FFF55F 02E`	`00FFE6DF 02E`
`00FFF560 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e`	`00FFE6E0 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e`
`00FFF567 02E`	`00FFE6E7 02E`
`00FFF568 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE6E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF56F 02E`	`00FFE6EF 02E`
`00FFF570 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e`	`00FFE6F0 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e`
`00FFF577 02E`	`00FFE6F7 02E`
`00FFF578 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE6F8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF57F 02E`	`00FFE6FF 02E`

`00FFF580 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE700 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF587 02E`	`00FFE707 02E`
`00FFF588 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE708 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF58F 02E`	`00FFE70F 02E`
`00FFF590 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE710 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF597 02E`	`00FFE717 02E`
`00FFF598 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE718 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF59F 02E`	`00FFE71F 02E`
`00FFF5A0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE720 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5A7 02E`	`00FFE727 02E`
`00FFF5A8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE728 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5AF 02E`	`00FFE72F 02E`
`00FFF5B0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE730 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5B7 02E`	`00FFE737 02E`
`00FFF5B8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE738 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5BF 02E`	`00FFE73F 02E`
`00FFF5C0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE740 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5C7 02E`	`00FFE747 02E`
`00FFF5C8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE748 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5CF 02E`	`00FFE74F 02E`
`00FFF5D0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE750 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5D7 02E`	`00FFE757 02E`
`00FFF5D8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE758 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5DF 02E`	`00FFE75F 02E`
`00FFF5E0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE760 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5E7 02E`	`00FFE767 02E`
`00FFF5E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE768 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5EF 02E`	`00FFE76F 02E`
`00FFF5F0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE770 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5F7 02E`	`00FFE777 02E`
`00FFF5F8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE778 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF5FF 02E`	`00FFE77F 02E`

`; control`	`; control`
`keybdControlCodes:`	`keybdControlCodes:`
`00FFF600 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE780 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF607 02E`	`00FFE787 02E`
`00FFF608 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e`	`00FFE788 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e`
`00FFF60F 02E`	`00FFE78F 02E`
`00FFF610 02E02E02E02E02E011021 fcb $2e,$2e,$2e,$2e,$2e,$11,$21,$2e`	`00FFE790 02E02E02E02E02E011021 fcb $2e,$2e,$2e,$2e,$2e,$11,$21,$2e`
`00FFF617 02E`	`00FFE797 02E`
`00FFF618 02E02E01A013001017040 fcb $2e,$2e,$1a,$13,$01,$17,$40,$2e`	`00FFE798 02E02E01A013001017040 fcb $2e,$2e,$1a,$13,$01,$17,$40,$2e`
`00FFF61F 02E`	`00FFE79F 02E`
`00FFF620 02E003018004005024023 fcb $2e,$03,$18,$04,$05,$24,$23,$2e`	`00FFE7A0 02E003018004005024023 fcb $2e,$03,$18,$04,$05,$24,$23,$2e`
`00FFF627 02E`	`00FFE7A7 02E`
`00FFF628 02E020016006014012025 fcb $2e,$20,$16,$06,$14,$12,$25,$2e`	`00FFE7A8 02E020016006014012025 fcb $2e,$20,$16,$06,$14,$12,$25,$2e`
`00FFF62F 02E`	`00FFE7AF 02E`
`00FFF630 02E00E00200800701905E fcb $2e,$0e,$02,$08,$07,$19,$5e,$2e`	`00FFE7B0 02E00E00200800701905E fcb $2e,$0e,$02,$08,$07,$19,$5e,$2e`
`00FFF637 02E`	`00FFE7B7 02E`
`00FFF638 02E02E00D00A01502602A fcb $2e,$2e,$0d,$0a,$15,$26,$2a,$2e`	`00FFE7B8 02E02E00D00A01502602A fcb $2e,$2e,$0d,$0a,$15,$26,$2a,$2e`
`00FFF63F 02E`	`00FFE7BF 02E`
`00FFF640 02E03C00B00900F029028 fcb $2e,$3c,$0b,$09,$0f,$29,$28,$2e`	`00FFE7C0 02E03C00B00900F029028 fcb $2e,$3c,$0b,$09,$0f,$29,$28,$2e`
`00FFF647 02E`	`00FFE7C7 02E`
`00FFF648 02E03E03F00C03A01005F fcb $2e,$3e,$3f,$0c,$3a,$10,$5f,$2e`	`00FFE7C8 02E03E03F00C03A01005F fcb $2e,$3e,$3f,$0c,$3a,$10,$5f,$2e`
`00FFF64F 02E`	`00FFE7CF 02E`
`00FFF650 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e`	`00FFE7D0 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e`
`00FFF657 02E`	`00FFE7D7 02E`
`00FFF658 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e`	`00FFE7D8 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e`
`00FFF65F 02E`	`00FFE7DF 02E`
`00FFF660 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e`	`00FFE7E0 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e`
`00FFF667 02E`	`00FFE7E7 02E`
`00FFF668 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE7E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF66F 02E`	`00FFE7EF 02E`
`00FFF670 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e`	`00FFE7F0 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e`
`00FFF677 02E`	`00FFE7F7 02E`
`00FFF678 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE7F8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF67F 02E`	`00FFE7FF 02E`

`keybdExtendedCodes:`	`keybdExtendedCodes:`
`00FFF680 02E02E02E02E0A30A10A2 fcb $2e,$2e,$2e,$2e,$a3,$a1,$a2,$2e`	`00FFE800 02E02E02E02E0A30A10A2 fcb $2e,$2e,$2e,$2e,$a3,$a1,$a2,$2e`
`00FFF687 02E`	`00FFE807 02E`
`00FFF688 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE808 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF68F 02E`	`00FFE80F 02E`
`00FFF690 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE810 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF697 02E`	`00FFE817 02E`
`00FFF698 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE818 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF69F 02E`	`00FFE81F 02E`
`00FFF6A0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE820 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6A7 02E`	`00FFE827 02E`
`00FFF6A8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE828 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6AF 02E`	`00FFE82F 02E`
`00FFF6B0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE830 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6B7 02E`	`00FFE837 02E`
`00FFF6B8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE838 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6BF 02E`	`00FFE83F 02E`
`00FFF6C0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE840 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6C7 02E`	`00FFE847 02E`
`00FFF6C8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE848 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6CF 02E`	`00FFE84F 02E`
`00FFF6D0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE850 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6D7 02E`	`00FFE857 02E`
`00FFF6D8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE858 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6DF 02E`	`00FFE85F 02E`
`00FFF6E0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`	`00FFE860 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e`
`00FFF6E7 02E`	`00FFE867 02E`
`00FFF6E8 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e`	`00FFE868 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e`
`00FFF6EF 02E`	`00FFE86F 02E`
`00FFF6F0 09809909202E09109002E fcb $98,$99,$92,$2e,$91,$90,$2e,$2e`	`00FFE870 09809909202E09109002E fcb $98,$99,$92,$2e,$91,$90,$2e,$2e`
`00FFF6F7 02E`	`00FFE877 02E`
`00FFF6F8 02E02E09702E02E09602E fcb $2e,$2e,$97,$2e,$2e,$96,$2e,$2e`	`00FFE878 02E02E09702E02E09602E fcb $2e,$2e,$97,$2e,$2e,$96,$2e,$2e`
`00FFF6FF 02E`	`00FFE87F 02E`

`; ============================================================================`	`; ============================================================================`
`; __`	`; __`
`; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo`	`; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo`
`; \ __ / All rights reserved.`	`; \ __ / All rights reserved.`
Line 1228...	Line 1662...
`; Modifies: acc`	`; Modifies: acc`
`; Stack Space: 2 words`	`; Stack Space: 2 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdRecvByte:`	`KeybdRecvByte:`
`00FFF700 034010 pshs x`	`00FFE880 034010 pshs x`
`00FFF702 08E000064 ldx #100 ; wait up to 1s`	`00FFE882 08E000064 ldx #100 ; wait up to 1s`
`krb3:`	`krb3:`
`00FFF705 08D05A bsr KeybdGetStatus ; wait for response from keyboard`	`00FFE885 08D05A bsr KeybdGetStatus ; wait for response from keyboard`
`00FFF707 05D tstb`	`00FFE887 05D tstb`
`00FFF708 02B00B bmi krb4 ; is input buffer full ? yes, branch`	`00FFE888 02B00B bmi krb4 ; is input buffer full ? yes, branch`
`00FFF70A 08D02D bsr Wait10ms ; wait a bit`	`00FFE88A 08D02D bsr Wait10ms ; wait a bit`
`00FFF70C 0301FF leax -1,x`	`00FFE88C 0301FF dex`
`00FFF70E 026FF5 bne krb3 ; go back and try again`	`00FFE88E 026FF5 bne krb3 ; go back and try again`
`00FFF710 0CCFFFFFF ldd #-1 ; return -1`	`00FFE890 0CCFFFFFF ldd #-1 ; return -1`
`00FFF713 035090 puls x,pc`	`00FFE893 035090 puls x,pc`
`krb4:`	`krb4:`
`00FFF715 08D066 bsr KeybdGetScancode`	`00FFE895 08D066 bsr KeybdGetScancode`
`00FFF717 035090 puls x,pc`	`00FFE897 035090 puls x,pc`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Send a byte to the keyboard.`	`; Send a byte to the keyboard.`
`;`	`;`
`; Parameters: accb byte to send`	`; Parameters: accb byte to send`
Line 1253...	Line 1687...
`; Modifies: none`	`; Modifies: none`
`; Stack Space: 0 words`	`; Stack Space: 0 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdSendByte:`	`KeybdSendByte:`
`00FFF719 0150F7FFFE30400 stb KEYBD`	`00FFE899 0150F7FFFE30400 stb KEYBD`
`00FFF71E 039 rts`	`00FFE89E 039 rts`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Wait until the keyboard transmit is complete`	`; Wait until the keyboard transmit is complete`
`;`	`;`
`; Parameters: none`	`; Parameters: none`
Line 1266...	Line 1700...
`; Modifies: r1`	`; Modifies: r1`
`; Stack Space: 3 words`	`; Stack Space: 3 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdWaitTx:`	`KeybdWaitTx:`
`00FFF71F 034010 pshs x`	`00FFE89F 034010 pshs x`
`00FFF721 08E000064 ldx #100 ; wait a max of 1s`	`00FFE8A1 08E000064 ldx #100 ; wait a max of 1s`
`kwt1:`	`kwt1:`
`00FFF724 08D03B bsr KeybdGetStatus`	`00FFE8A4 08D03B bsr KeybdGetStatus`
`00FFF726 0C4040 andb #$40 ; check for transmit complete bit; branch if bit set`	`00FFE8A6 0C4040 andb #$40 ; check for transmit complete bit; branch if bit set`
`00FFF728 02600B bne kwt2`	`00FFE8A8 02600B bne kwt2`
`00FFF72A 08D00D bsr Wait10ms ; delay a little bit`	`00FFE8AA 08D00D bsr Wait10ms ; delay a little bit`
`00FFF72C 0301FF leax -1,x`	`00FFE8AC 0301FF dex`
`00FFF72E 026FF4 bne kwt1 ; go back and try again`	`00FFE8AE 026FF4 bne kwt1 ; go back and try again`
`00FFF730 0CCFFFFFF ldd #-1 ; timed out, return -1`	`00FFE8B0 0CCFFFFFF ldd #-1 ; timed out, return -1`
`00FFF733 035090 puls x,pc`	`00FFE8B3 035090 puls x,pc`
`kwt2:`	`kwt2:`
`00FFF735 04F clra ; wait complete, return 0`	`00FFE8B5 04F clra ; wait complete, return 0`
`00FFF736 05F clrb`	`00FFE8B6 05F clrb`
`00FFF737 035090 puls x,pc`	`00FFE8B7 035090 puls x,pc`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Wait for 10 ms`	`; Wait for 10 ms`
`;`	`;`
`; Parameters: none`	`; Parameters: none`
Line 1292...	Line 1726...
`; Modifies: none`	`; Modifies: none`
`; Stack Space: 2 words`	`; Stack Space: 2 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`Wait10ms:`	`Wait10ms:`
`00FFF739 034006 pshs d`	`00FFE8B9 034006 pshs d`
`00FFF73B 0150B6FFFFFFFE7 lda MSCOUNT+3`	`00FFE8BB 0150B6FFFFFFFE7 lda MSCOUNT+3`
`W10_0001:`	`W10_0001:`
`00FFF740 01F089 tfr a,b`	`00FFE8C0 01F089 tfr a,b`
`00FFF742 0150F0FFFFFFFE7 subb MSCOUNT+3`	`00FFE8C2 0150F0FFFFFFFE7 subb MSCOUNT+3`
`00FFF747 0C1FFA cmpb #$FFA`	`00FFE8C7 0C1FFA cmpb #$FFA`
`00FFF749 022FF5 bhi W10_0001`	`00FFE8C9 022FF5 bhi W10_0001`
`00FFF74B 035086 puls d,pc`	`00FFE8CB 035086 puls d,pc`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Wait for 300 ms (256 ms)`	`; Wait for 300 ms (256 ms)`
`;`	`;`
`; Parameters: none`	`; Parameters: none`
Line 1311...	Line 1745...
`; Modifies: none`	`; Modifies: none`
`; Stack Space: 2 words`	`; Stack Space: 2 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`Wait300ms:`	`Wait300ms:`
`00FFF74D 034006 pshs d`	`00FFE8CD 034006 pshs d`
`00FFF74F 0150B6FFFFFFFE7 lda MSCOUNT+3`	`00FFE8CF 0150B6FFFFFFFE7 lda MSCOUNT+3`
`W300_0001:`	`W300_0001:`
`00FFF754 01F089 tfr a,b`	`00FFE8D4 01F089 tfr a,b`
`00FFF756 0150F0FFFFFFFE7 subb MSCOUNT+3`	`00FFE8D6 0150F0FFFFFFFE7 subb MSCOUNT+3`
`00FFF75B 0C1F00 cmpb #$F00`	`00FFE8DB 0C1F00 cmpb #$F00`
`00FFF75D 022FF5 bhi W300_0001`	`00FFE8DD 022FF5 bhi W300_0001`
`00FFF75F 035086 puls d,pc`	`00FFE8DF 035086 puls d,pc`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Get the keyboard status`	`; Get the keyboard status`
`;`	`;`
`; Parameters: none`	`; Parameters: none`
`; Returns: d = status`	`; Returns: d = status`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdGetStatus:`	`KeybdGetStatus:`
`kbgs3:`	`kbgs3:`
`00FFF761 0150F6FFFE30401 ldb KEYBD+1`	`00FFE8E1 0150F6FFFE30401 ldb KEYBD+1`
`00FFF766 0C5080 bitb #$80`	`00FFE8E6 0C5080 bitb #$80`
`00FFF768 02600E bne kbgs1`	`00FFE8E8 02600E bne kbgs1`
`00FFF76A 0C5001 bitb #$01 ; check parity error flag`	`00FFE8EA 0C5001 bitb #$01 ; check parity error flag`
`00FFF76C 026002 bne kbgs2`	`00FFE8EC 026002 bne kbgs2`
`00FFF76E 04F clra`	`00FFE8EE 04F clra`
`00FFF76F 039 rts`	`00FFE8EF 039 rts`
`kbgs2:`	`kbgs2:`
`00FFF770 0C60FE ldb #$FE ; request resend`	`00FFE8F0 0C60FE ldb #$FE ; request resend`
`00FFF772 08DFA5 bsr KeybdSendByte`	`00FFE8F2 08DFA5 bsr KeybdSendByte`
`00FFF774 08DFA9 bsr KeybdWaitTx`	`00FFE8F4 08DFA9 bsr KeybdWaitTx`
`00FFF776 020FE9 bra kbgs3`	`00FFE8F6 020FE9 bra kbgs3`
`kbgs1: ; return negative status`	`kbgs1: ; return negative status`
`00FFF778 0CAF00 orb #$F00`	`00FFE8F8 0CAF00 orb #$F00`
`00FFF77A 086FFF lda #-1`	`00FFE8FA 086FFF lda #-1`
`00FFF77C 039 rts`	`00FFE8FC 039 rts`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Get the scancode from the keyboard port`	`; Get the scancode from the keyboard port`
`;`	`;`
`; Parameters: none`	`; Parameters: none`
`; Returns: acca = scancode`	`; Returns: acca = scancode`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdGetScancode:`	`KeybdGetScancode:`
`00FFF77D 04F clra`	`00FFE8FD 04F clra`
`00FFF77E 0150F6FFFE30400 ldb KEYBD ; get the scan code`	`00FFE8FE 0150F6FFFE30400 ldb KEYBD ; get the scan code`
`00FFF783 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)`	`00FFE903 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)`
`; The following useful during debug.`	`00FFE908 039 rts`
`; lbsr DispByteAsHex`
`; pshs b`
`; ldb #' '`
`; lbsr OUTCH`
`; puls b`
`00FFF788 039 rts`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Set the LEDs on the keyboard.`	`; Set the LEDs on the keyboard.`
`;`	`;`
`; Parameters: d LED status to set`	`; Parameters: d LED status to set`
Line 1375...	Line 1803...
`; Modifies: none`	`; Modifies: none`
`; Stack Space: 2 words`	`; Stack Space: 2 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdSetLED:`	`KeybdSetLED:`
`00FFF789 034004 pshs b`	`00FFE909 034004 pshs b`
`00FFF78B 0C60ED ldb #$ED ; set LEDs command`	`00FFE90B 0C60ED ldb #$ED ; set LEDs command`
`00FFF78D 08DF8A bsr KeybdSendByte`	`00FFE90D 08DF8A bsr KeybdSendByte`
`00FFF78F 08DF8E bsr KeybdWaitTx`	`00FFE90F 08DF8E bsr KeybdWaitTx`
`00FFF791 08DF6D bsr KeybdRecvByte ; should be an ack`	`00FFE911 08DF6D bsr KeybdRecvByte ; should be an ack`
`00FFF793 035004 puls b`	`00FFE913 035004 puls b`
`00FFF795 08DF82 bsr KeybdSendByte`	`00FFE915 08DF82 bsr KeybdSendByte`
`00FFF797 08DF86 bsr KeybdWaitTx`	`00FFE917 08DF86 bsr KeybdWaitTx`
`00FFF799 08DF65 bsr KeybdRecvByte ; should be an ack`	`00FFE919 08DF65 bsr KeybdRecvByte ; should be an ack`
`00FFF79B 039 rts`	`00FFE91B 039 rts`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Get ID - get the keyboards identifier code.`	`; Get ID - get the keyboards identifier code.`
`;`	`;`
`; Parameters: none`	`; Parameters: none`
Line 1396...	Line 1824...
`; Modifies: d, KeybdID updated`	`; Modifies: d, KeybdID updated`
`; Stack Space: 2 words`	`; Stack Space: 2 words`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdGetID:`	`KeybdGetID:`
`00FFF79C 0C60F2 ldb #$F2`	`00FFE91C 0C60F2 ldb #$F2`
`00FFF79E 08DF79 bsr KeybdSendByte`	`00FFE91E 08DF79 bsr KeybdSendByte`
`00FFF7A0 08DF7D bsr KeybdWaitTx`	`00FFE920 08DF7D bsr KeybdWaitTx`
`00FFF7A2 08DF5C bsr KeybdRecvByte`	`00FFE922 08DF5C bsr KeybdRecvByte`
`00FFF7A4 0C5080 bitb #$80`	`00FFE924 0C5080 bitb #$80`
`00FFF7A6 026014 bne kgnotKbd`	`00FFE926 026014 bne kgnotKbd`
`00FFF7A8 0C10AB cmpb #$AB`	`00FFE928 0C10AB cmpb #$AB`
`00FFF7AA 026010 bne kgnotKbd`	`00FFE92A 026010 bne kgnotKbd`
`00FFF7AC 08DF52 bsr KeybdRecvByte`	`00FFE92C 08DF52 bsr KeybdRecvByte`
`00FFF7AE 0C5080 bitb #$80`	`00FFE92E 0C5080 bitb #$80`
`00FFF7B0 02600A bne kgnotKbd`	`00FFE930 02600A bne kgnotKbd`
`00FFF7B2 0C1083 cmpb #$83`	`00FFE932 0C1083 cmpb #$83`
`00FFF7B4 026006 bne kgnotKbd`	`00FFE934 026006 bne kgnotKbd`
`00FFF7B6 0CC00AB83 ldd #$AB83`	`00FFE936 0CC00AB83 ldd #$AB83`
`kgid1:`	`kgid1:`
`00FFF7B9 0DD124 std KeybdID`	`00FFE939 0DD124 std KeybdID`
`00FFF7BB 039 rts`	`00FFE93B 039 rts`
`kgnotKbd:`	`kgnotKbd:`
`00FFF7BC 04F clra`	`00FFE93C 04F clra`
`00FFF7BD 05F clrb`	`00FFE93D 05F clrb`
`00FFF7BE 020FF9 bra kgid1`	`00FFE93E 020FF9 bra kgid1`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Initialize the keyboard.`	`; Initialize the keyboard.`
`;`	`;`
`; Parameters:`	`; Parameters:`
Line 1430...	Line 1858...
`; Returns:`	`; Returns:`
`; none`	`; none`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`KeybdInit:`	`KeybdInit:`
`00FFF7C0 034026 pshs d,y`	`00FFE940 034026 pshs d,y`
`00FFF7C2 18E000005 ldy #5`	`00FFE942 18E000005 ldy #5`
	`00FFE945 00F120 clr KeyState1 ; records key up/down state`
	`00FFE947 00F121 clr KeyState2 ; records shift,ctrl,alt state`
`kbdi0002:`	`kbdi0002:`
`00FFF7C5 08DF72 bsr Wait10ms`	`00FFE949 08DF6E bsr Wait10ms`
`00FFF7C7 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)`	`00FFE94B 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)`
`00FFF7CC 0C6FFF ldb #-1 ; send reset code to keyboard`	`00FFE950 0C6FFF ldb #-1 ; send reset code to keyboard`
`00FFF7CE 0150F7FFFE30401 stb KEYBD+1 ; write $FF to status reg to clear TX state`	`00FFE952 0150F7FFFE30401 stb KEYBD+1 ; write $FF to status reg to clear TX state`
`00FFF7D3 08DF44 bsr KeybdSendByte ; now write to transmit register`	`00FFE957 08DF40 bsr KeybdSendByte ; now write to transmit register`
`00FFF7D5 08DF48 bsr KeybdWaitTx ; wait until no longer busy`	`00FFE959 08DF44 bsr KeybdWaitTx ; wait until no longer busy`
`00FFF7D7 08DF27 bsr KeybdRecvByte ; look for an ACK ($FA)`	`00FFE95B 08DF23 bsr KeybdRecvByte ; look for an ACK ($FA)`
`00FFF7D9 0C10FA cmpb #$FA`	`00FFE95D 0C10FA cmpb #$FA`
`00FFF7DB 026021 bne kbdiTryAgain`	`00FFE95F 026021 bne kbdiTryAgain`
`00FFF7DD 08DF21 bsr KeybdRecvByte ; look for BAT completion code ($AA)`	`00FFE961 08DF1D bsr KeybdRecvByte ; look for BAT completion code ($AA)`
`00FFF7DF 0C10FC cmpb #$FC ; reset error ?`	`00FFE963 0C10FC cmpb #$FC ; reset error ?`
`00FFF7E1 02701B beq kbdiTryAgain`	`00FFE965 02701B beq kbdiTryAgain`
`00FFF7E3 0C10AA cmpb #$AA ; reset complete okay ?`	`00FFE967 0C10AA cmpb #$AA ; reset complete okay ?`
`00FFF7E5 026017 bne kbdiTryAgain`	`00FFE969 026017 bne kbdiTryAgain`

`; After a reset, scan code set #2 should be active`	`; After a reset, scan code set #2 should be active`
`.config:`	`.config:`
`00FFF7E7 0C60F0 ldb #$F0 ; send scan code select`	`00FFE96B 0C60F0 ldb #$F0 ; send scan code select`
`00FFF7E9 0150F7FFFE60000 stb LEDS`	`00FFE96D 0150F7FFFE60001 stb LEDS`
`00FFF7EE 08DF29 bsr KeybdSendByte`	`00FFE972 08DF25 bsr KeybdSendByte`
`00FFF7F0 08DF2D bsr KeybdWaitTx`	`00FFE974 08DF29 bsr KeybdWaitTx`
`00FFF7F2 05D tstb`	`00FFE976 05D tstb`
`00FFF7F3 02B009 bmi kbdiTryAgain`	`00FFE977 02B009 bmi kbdiTryAgain`
`00FFF7F5 08DF09 bsr KeybdRecvByte ; wait for response from keyboard`	`00FFE979 08DF05 bsr KeybdRecvByte ; wait for response from keyboard`
`00FFF7F7 04D tsta`	`00FFE97B 04D tsta`
`00FFF7F8 02B004 bmi kbdiTryAgain`	`00FFE97C 02B004 bmi kbdiTryAgain`
`00FFF7FA 0C10FA cmpb #$FA ; ACK`	`00FFE97E 0C10FA cmpb #$FA ; ACK`
`00FFF7FC 02700C beq kbdi0004`	`00FFE980 02700C beq kbdi0004`
`kbdiTryAgain:`	`kbdiTryAgain:`
`00FFF7FE 0313FF dey`	`00FFE982 0313FF dey`
`00FFF800 026FC3 bne kbdi0002`	`00FFE984 026FC3 bne kbdi0002`
`.keybdErr:`	`.keybdErr:`
`00FFF802 0CCFFF82A ldd #msgBadKeybd`	`00FFE986 0CCFFE9AE ldd #msgBadKeybd`
`00FFF805 017FFFB5A lbsr DisplayStringCRLF`	`00FFE989 017FFFA2D lbsr DisplayStringCRLF`
`*** warning 1: Long branch within short branch range could be optimized`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF808 020014 bra ledxit`	`00FFE98C 020014 bra ledxit`
`kbdi0004:`	`kbdi0004:`
`00FFF80A 0C6002 ldb #2 ; select scan code set #2`	`00FFE98E 0C6002 ldb #2 ; select scan code set #2`
`00FFF80C 08DF0B bsr KeybdSendByte`	`00FFE990 08DF07 bsr KeybdSendByte`
`00FFF80E 08DF0F bsr KeybdWaitTx`	`00FFE992 08DF0B bsr KeybdWaitTx`
`00FFF810 05D tstb`	`00FFE994 05D tstb`
`00FFF811 02BFEB bmi kbdiTryAgain`	`00FFE995 02BFEB bmi kbdiTryAgain`
`00FFF813 08DEEB bsr KeybdRecvByte ; wait for response from keyboard`	`00FFE997 08DEE7 bsr KeybdRecvByte ; wait for response from keyboard`
`00FFF815 04D tsta`	`00FFE999 04D tsta`
`00FFF816 02BFE6 bmi kbdiTryAgain`	`00FFE99A 02BFE6 bmi kbdiTryAgain`
`00FFF818 0C10FA cmpb #$FA`	`00FFE99C 0C10FA cmpb #$FA`
`00FFF81A 026FE2 bne kbdiTryAgain`	`00FFE99E 026FE2 bne kbdiTryAgain`
`00FFF81C 08DF7E bsr KeybdGetID`	`00FFE9A0 08DF7A bsr KeybdGetID`
`ledxit:`	`ledxit:`
`00FFF81E 0C6007 ldb #$07`	`00FFE9A2 0C6007 ldb #$07`
`00FFF820 08DF67 bsr KeybdSetLED`	`00FFE9A4 08DF63 bsr KeybdSetLED`
`00FFF822 08DF29 bsr Wait300ms`	`00FFE9A6 08DF25 bsr Wait300ms`
`00FFF824 0C6000 ldb #$00`	`00FFE9A8 0C6000 ldb #$00`
`00FFF826 08DF61 bsr KeybdSetLED`	`00FFE9AA 08DF5D bsr KeybdSetLED`
`00FFF828 0350A6 puls d,y,pc`	`00FFE9AC 0350A6 puls d,y,pc`

`msgBadKeybd:`	`msgBadKeybd:`
`00FFF82A 04B06507906206F061072 fcb "Keyboard error",0`	`00FFE9AE 04B06507906206F061072 fcb "Keyboard error",0`
`00FFF831 06402006507207206F072`	`00FFE9B5 06402006507207206F072`
`00FFF838 000`	`00FFE9BC 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 clra`
	`00FFE9BE 0E6A08128 ldb kbdTailRcv,y`
	`00FFE9C1 0E0A08127 subb kbdHeadRcv,y`
	`00FFE9C4 02C008 bge krcXit`
	`00FFE9C6 0C6040 ldb #$40`
	`00FFE9C8 0E0A08127 subb kbdHeadRcv,y`
	`00FFE9CB 0EBA08128 addb kbdTailRcv,y`
	`krcXit:`
	`00FFE9CE 039 rts`


	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

	`KeybdIRQ:`
	`00FFE9CF 0150B6FFFE30401 lda KEYBD+1 ; check status`
	`00FFE9D4 085080 bita #$80 ; was key pressed?`
	`00FFE9D6 027034 beq notKbdIRQ ; if not, exit`
	`00FFE9D8 0150F6FFFE30400 ldb KEYBD ; get the scan code`
	`00FFE9DD 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)`
	`00FFE9E2 034004 pshs b ; save it off`
	`00FFE9E4 0B6FF0010 lda IOFocusID ; compute core memory address $Cn0000`
	`00FFE9E7 05F clrb`
	`00FFE9E8 048 asla`
	`00FFE9E9 048 asla`
	`00FFE9EA 048 asla`
	`00FFE9EB 048 asla`
	`00FFE9EC 08AC00 ora #$C00 ; address $Cn0000`
	`00FFE9EE 01F002 tfr d,y ; y =`
	`00FFE9F0 08DFCB bsr kbdRcvCount ; get count of scan codes in buffer`
	`00FFE9F2 0C1040 cmpb #64 ; check if buffer full?`
	`00FFE9F4 024017 bhs kbdBufFull ; if buffer full, ignore new keystroke`
	`00FFE9F6 01F021 tfr y,x ; compute fifo address`
	`00FFE9F8 0E6A08128 ldb kbdTailRcv,y ; b = buffer index`
	`00FFE9FB 035002 puls a ; get back scancode`
	`00FFE9FD 030040 leax kbdFifo,x ; x = base address for fifo`
	`00FFE9FF 0A7845 sta b,x ; store in buffer`
	`00FFEA01 05C incb ; increment buffer index`
	`00FFEA02 0C403F andb #$3f ; wrap around at 64 chars`
	`00FFEA04 0E7A08128 stb kbdTailRcv,y ; update it`
	`00FFEA07 08601C lda #28 ; Keyboard is IRQ #28`
	`00FFEA09 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()`
	`notKbdIRQ:`
	`00FFEA0C 039 rts`
	`kbdBufFull:`
	`00FFEA0D 032601 leas 1,s ; get rid of saved scancode`
	`00FFEA0F 039 rts`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`DBGCheckForKey:`	`DBGCheckForKey:`
`00FFF839 020F26 bra KeybdGetStatus`	`00FFEA10 020ECF bra KeybdGetStatus`


`; KeyState2 variable bit meanings`	`; KeyState2 variable bit meanings`
`;1176543210`	`;1176543210`
`; \|\|\|\|\|\|\|\|+ = shift`	`; \|\|\|\|\|\|\|\|+ = shift`
Line 1517...	Line 2005...
`; \| = "`	`; \| = "`
`; \| = "`	`; \| = "`
`; +-------- = extended`	`; +-------- = extended`

`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
`; Debug versison of keyboard get routine.`	`; 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:`	`; Parameters:`
`; b: 0 = non blocking, otherwise blocking`	`; b: bit 11 = blocking status 1=blocking, 0=non blocking`
	`; b: bit 1 = scancode source 1=scancode buffer, 0=direct`
`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`	`; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`

`DBGGetKey:`	`GetKey:`
`00FFF83B 034010 pshs x`	`00FFEA12 034030 pshs x,y`
	`00FFEA14 0D7126 stb KeybdBlock ; save off blocking status`
`dbgk2:`	`dbgk2:`
`00FFF83D 034004 pshs b`	`00FFEA16 0D6126 ldb KeybdBlock`
`00FFF83F 08DF20 bsr KeybdGetStatus`	`00FFEA18 034004 pshs b`
`00FFF841 0C4080 andb #$80 ; is key available?`	`00FFEA1A 0C5001 bitb #1 ; what is the scancode source`
`00FFF843 035004 puls b`	`00FFEA1C 02701A beq dbgk20 ; branch if direct read`
`00FFF845 026008 bne dbgk1 ; branch if key`	`00FFEA1E 0150B6FFFFFFFE0 lda COREID ; compute core memory address`
`00FFF847 05D tstb ; block?`	`00FFEA23 05F clrb`
`00FFF848 026FF3 bne dbgk2 ; If no key and blocking - loop`	`00FFEA24 048 asla`
`00FFF84A 0CCFFFFFF ldd #-1 ; return -1 if no block and no key`	`00FFEA25 048 asla`
`00FFF84D 035090 puls x,pc`	`00FFEA26 048 asla`
	`00FFEA27 048 asla`
	`00FFEA28 08AC00 ora #$C00`
	`00FFEA2A 01F002 tfr d,y ; y = $Cn0000`
	`00FFEA2C 08DF8F bsr kbdRcvCount`
	`00FFEA2E 05D tstb ; anything in buffer?`
	`00FFEA2F 035004 puls b`
	`00FFEA31 026018 bne dbgk1 ; branch if something in buffer`
	`00FFEA33 05D tstb`
	`00FFEA34 02BFE0 bmi dbgk2 ; if no key and blocking - loop`
	`00FFEA36 02000E bra dbgk24`
	`dbgk20:`
	`00FFEA38 18E000000 ldy #0`
	`00FFEA3B 08DEA4 bsr KeybdGetStatus`
	`00FFEA3D 0C4080 andb #$80 ; is key available?`
	`00FFEA3F 035004 puls b`
	`00FFEA41 026008 bne dbgk1 ; branch if key`
	`00FFEA43 05D tstb ; block?`
	`00FFEA44 02BFD0 bmi dbgk2 ; If no key and blocking - loop`
	`dbgk24:`
	`00FFEA46 0CCFFFFFF ldd #-1 ; return -1 if no block and no key`
	`00FFEA49 0350B0 puls x,y,pc`
`dbgk1:`	`dbgk1:`
`00FFF84F 08DF2C bsr KeybdGetScancode`	`00FFEA4B 18C000000 cmpy #0`
	`00FFEA4E 026004 bne dbgk22`
	`00FFEA50 08DEAB bsr KeybdGetScancode ; get scancode directly`
	`00FFEA52 020011 bra dbgk23`
	`dbgk22:`
	`; Retrieve value from scancode buffer`
	`00FFEA54 01F021 tfr y,x`
	`00FFEA56 030040 leax kbdFifo,x ; x = fifo address`
	`00FFEA58 0E6A08127 ldb kbdHeadRcv,y ; b = buffer index`
	`00FFEA5B 0A6A0D lda b,x ; get the scancode`
	`00FFEA5D 05C incb ; increment fifo index`
	`00FFEA5E 0C403F andb #$3f ; and wrap around`
	`00FFEA60 0E7A08127 stb kbdHeadRcv,y ; save it back`
	`00FFEA63 01F089 tfr a,b ; the scancode is needed in accb`
	`dbgk23:`
`; lbsr DispByteAsHex`	`; lbsr DispByteAsHex`
`; Make sure there is a small delay between scancode reads`	`; Make sure there is a small delay between scancode reads`
`00FFF851 08E000014 ldx #20`	`00FFEA65 08E000014 ldx #20`
`dbgk3:`	`dbgk3:`
`00FFF854 0301FF dex`	`00FFEA68 0301FF dex`
`00FFF856 026FFC bne dbgk3`	`00FFEA6A 026FFC bne dbgk3`
`; switch on scan code`	`; switch on scan code`
`00FFF858 0C10F0 cmpb #SC_KEYUP`	`00FFEA6C 0C10F0 cmpb #SC_KEYUP`
`00FFF85A 026006 bne dbgk4`	`00FFEA6E 026004 bne dbgk4`
`00FFF85C 00F120 clr KeyState1 ; make KeyState1 = -1`	`00FFEA70 0D7120 stb KeyState1 ; make KeyState1 <> 0`
`00FFF85E 000120 neg KeyState1`	`00FFEA72 020FA2 bra dbgk2 ; loop back`
`00FFF860 020FDB bra dbgk2 ; loop back`
`dbgk4:`	`dbgk4:`
`00FFF862 0C10E0 cmpb #SC_EXTEND`	`00FFEA74 0C10E0 cmpb #SC_EXTEND`
`00FFF864 026008 bne dbgk5`	`00FFEA76 026008 bne dbgk5`
`00FFF866 096121 lda KeyState2`	`00FFEA78 096121 lda KeyState2`
`00FFF868 08A800 ora #$800`	`00FFEA7A 08A800 ora #$800`
`00FFF86A 097121 sta KeyState2`	`00FFEA7C 097121 sta KeyState2`
`00FFF86C 020FCF bra dbgk2`	`00FFEA7E 020F96 bra dbgk2`
`dbgk5:`	`dbgk5:`
`00FFF86E 0C1014 cmpb #SC_CTRL`	`00FFEA80 0C1014 cmpb #SC_CTRL`
`00FFF870 026016 bne dbgkNotCtrl`	`00FFEA82 026016 bne dbgkNotCtrl`
`00FFF872 00D120 tst KeyState1`	`00FFEA84 00D120 tst KeyState1`
`00FFF874 02B008 bmi dbgk7`	`00FFEA86 026008 bne dbgk7`
`00FFF876 096121 lda KeyState2`	`00FFEA88 096121 lda KeyState2`
`00FFF878 08A004 ora #4`	`00FFEA8A 08A004 ora #4`
`00FFF87A 097121 sta KeyState2`	`00FFEA8C 097121 sta KeyState2`
`00FFF87C 020006 bra dbgk8`	`00FFEA8E 020006 bra dbgk8`
`dbgk7:`	`dbgk7:`
`00FFF87E 096121 lda KeyState2`	`00FFEA90 096121 lda KeyState2`
`00FFF880 084FFB anda #~4`	`00FFEA92 084FFB anda #~4`
`00FFF882 097121 sta KeyState2`	`00FFEA94 097121 sta KeyState2`
`dbgk8:`	`dbgk8:`
`00FFF884 00F120 clr KeyState1`	`00FFEA96 00F120 clr KeyState1`
`00FFF886 020FB5 bra dbgk2`	`00FFEA98 020F7C bra dbgk2`
`dbgkNotCtrl:`	`dbgkNotCtrl:`
`00FFF888 0C1059 cmpb #SC_RSHIFT`	`00FFEA9A 0C1059 cmpb #SC_RSHIFT`
`00FFF88A 026016 bne dbgkNotRshift`	`00FFEA9C 026016 bne dbgkNotRshift`
`00FFF88C 00D120 tst KeyState1`	`00FFEA9E 00D120 tst KeyState1`
`00FFF88E 02B008 bmi dbgk9`	`00FFEAA0 026008 bne dbgk9`
`00FFF890 096121 lda KeyState2`	`00FFEAA2 096121 lda KeyState2`
`00FFF892 08A001 ora #1`	`00FFEAA4 08A001 ora #1`
`00FFF894 097121 sta KeyState2`	`00FFEAA6 097121 sta KeyState2`
`00FFF896 020006 bra dbgk10`	`00FFEAA8 020006 bra dbgk10`
`dbgk9:`	`dbgk9:`
`00FFF898 096121 lda KeyState2`	`00FFEAAA 096121 lda KeyState2`
`00FFF89A 084FFE anda #~1`	`00FFEAAC 084FFE anda #~1`
`00FFF89C 097121 sta KeyState2`	`00FFEAAE 097121 sta KeyState2`
`dbgk10:`	`dbgk10:`
`00FFF89E 00F120 clr KeyState1`	`00FFEAB0 00F120 clr KeyState1`
`00FFF8A0 020F9B bra dbgk2`	`00FFEAB2 020F62 bra dbgk2`
`dbgkNotRshift:`	`dbgkNotRshift:`
`00FFF8A2 0C1077 cmpb #SC_NUMLOCK`	`00FFEAB4 0C1077 cmpb #SC_NUMLOCK`
`00FFF8A4 026013 bne dbgkNotNumlock`	`00FFEAB6 026013 bne dbgkNotNumlock`
`00FFF8A6 096121 lda KeyState2`	`00FFEAB8 096121 lda KeyState2`
`00FFF8A8 088010 eora #16`	`00FFEABA 088010 eora #16`
`00FFF8AA 097121 sta KeyState2`	`00FFEABC 097121 sta KeyState2`
`00FFF8AC 096122 lda KeyLED`	`00FFEABE 096122 lda KeyLED`
`00FFF8AE 088002 eora #2`	`00FFEAC0 088002 eora #2`
`00FFF8B0 097122 sta KeyLED`	`00FFEAC2 097122 sta KeyLED`
`00FFF8B2 01F089 tfr a,b`	`00FFEAC4 01F089 tfr a,b`
`00FFF8B4 04F clra`	`00FFEAC6 04F clra`
`00FFF8B5 08DED2 bsr KeybdSetLED`	`00FFEAC7 08DE40 bsr KeybdSetLED`
`00FFF8B7 020F84 bra dbgk2`	`00FFEAC9 020F4B bra dbgk2`
`dbgkNotNumlock:`	`dbgkNotNumlock:`
`00FFF8B9 0C1058 cmpb #SC_CAPSLOCK`	`00FFEACB 0C1058 cmpb #SC_CAPSLOCK`
`00FFF8BB 026013 bne dbgkNotCapslock`	`00FFEACD 026013 bne dbgkNotCapslock`
`00FFF8BD 096121 lda KeyState2`	`00FFEACF 096121 lda KeyState2`
`00FFF8BF 088020 eora #32`	`00FFEAD1 088020 eora #32`
`00FFF8C1 097121 sta KeyState2`	`00FFEAD3 097121 sta KeyState2`
`00FFF8C3 096122 lda KeyLED`	`00FFEAD5 096122 lda KeyLED`
`00FFF8C5 088004 eora #4`	`00FFEAD7 088004 eora #4`
`00FFF8C7 097122 sta KeyLED`	`00FFEAD9 097122 sta KeyLED`
`00FFF8C9 01F089 tfr a,b`	`00FFEADB 01F089 tfr a,b`
`00FFF8CB 04F clra`	`00FFEADD 04F clra`
`00FFF8CC 08DEBB bsr KeybdSetLED`	`00FFEADE 08DE29 bsr KeybdSetLED`
`00FFF8CE 020F6D bra dbgk2`	`00FFEAE0 020F34 bra dbgk2`
`dbgkNotCapslock:`	`dbgkNotCapslock:`
`00FFF8D0 0C107E cmpb #SC_SCROLLLOCK`	`00FFEAE2 0C107E cmpb #SC_SCROLLLOCK`
`00FFF8D2 026013 bne dbgkNotScrolllock`	`00FFEAE4 026013 bne dbgkNotScrolllock`
`00FFF8D4 096121 lda KeyState2`	`00FFEAE6 096121 lda KeyState2`
`00FFF8D6 088040 eora #64`	`00FFEAE8 088040 eora #64`
`00FFF8D8 097121 sta KeyState2`	`00FFEAEA 097121 sta KeyState2`
`00FFF8DA 096122 lda KeyLED`	`00FFEAEC 096122 lda KeyLED`
`00FFF8DC 088001 eora #1`	`00FFEAEE 088001 eora #1`
`00FFF8DE 097122 sta KeyLED`	`00FFEAF0 097122 sta KeyLED`
`00FFF8E0 01F089 tfr a,b`	`00FFEAF2 01F089 tfr a,b`
`00FFF8E2 04F clra`	`00FFEAF4 04F clra`
`00FFF8E3 08DEA4 bsr KeybdSetLED`	`00FFEAF5 08DE12 bsr KeybdSetLED`
`00FFF8E5 020F56 bra dbgk2`	`00FFEAF7 020F1D bra dbgk2`
`dbgkNotScrolllock:`	`dbgkNotScrolllock:`
`00FFF8E7 0C1011 cmpb #SC_ALT`	`00FFEAF9 0C1011 cmpb #SC_ALT`
`00FFF8E9 026016 bne dbgkNotAlt`	`00FFEAFB 026016 bne dbgkNotAlt`
`00FFF8EB 00D120 tst KeyState1`	`00FFEAFD 00D120 tst KeyState1`
`00FFF8ED 02B008 bmi dbgk11`	`00FFEAFF 026008 bne dbgk11`
`00FFF8EF 096121 lda KeyState2`	`00FFEB01 096121 lda KeyState2`
`00FFF8F1 08A002 ora #2`	`00FFEB03 08A002 ora #2`
`00FFF8F3 097121 sta KeyState2`	`00FFEB05 097121 sta KeyState2`
`00FFF8F5 020006 bra dbgk12`	`00FFEB07 020006 bra dbgk12`
`dbgk11:`	`dbgk11:`
`00FFF8F7 096121 lda KeyState2`	`00FFEB09 096121 lda KeyState2`
`00FFF8F9 084FFD anda #~2`	`00FFEB0B 084FFD anda #~2`
`00FFF8FB 097121 sta KeyState2`	`00FFEB0D 097121 sta KeyState2`
`dbgk12:`	`dbgk12:`
`00FFF8FD 00F120 clr KeyState1`	`00FFEB0F 00F120 clr KeyState1`
`00FFF8FF 020F3C bra dbgk2`	`00FFEB11 020F03 bra dbgk2`
`dbgkNotAlt:`	`dbgkNotAlt:`
`00FFF901 00D120 tst KeyState1`	`00FFEB13 00D120 tst KeyState1`
`00FFF903 027004 beq dbgk13`	`00FFEB15 027004 beq dbgk13`
`00FFF905 00F120 clr KeyState1`	`00FFEB17 00F120 clr KeyState1`
`00FFF907 020F34 bra dbgk2`	`00FFEB19 020EFB bra dbgk2`
`dbgk13:`	`dbgk13:`
`00FFF909 096121 lda KeyState2 ; Check for CTRL-ALT-DEL`	`00FFEB1B 096121 lda KeyState2 ; Check for CTRL-ALT-DEL`
`00FFF90B 084006 anda #6`	`00FFEB1D 084006 anda #6`
`00FFF90D 081006 cmpa #6`	`00FFEB1F 081006 cmpa #6`
`00FFF90F 026008 bne dbgk14`	`00FFEB21 026008 bne dbgk14`
`00FFF911 0C1071 cmpb #SC_DEL`	`00FFEB23 0C1071 cmpb #SC_DEL`
`00FFF913 026004 bne dbgk14`	`00FFEB25 026004 bne dbgk14`
`00FFF915 06E90FFFFFFE jmp [$FFFFFE] ; jump to reset vector`	`00FFEB27 06E90FFFFFFC jmp [$FFFFFC] ; jump to NMI vector`
`dbgk14:`	`dbgk14:`
`00FFF919 00D121 tst KeyState2 ; extended code?`	`00FFEB2B 00D121 tst KeyState2 ; extended code?`
`00FFF91B 02A00B bpl dbgk15`	`00FFEB2D 02A00B bpl dbgk15`
`00FFF91D 096121 lda KeyState2`	`00FFEB2F 096121 lda KeyState2`
`00FFF91F 0847FF anda #$7FF`	`00FFEB31 0847FF anda #$7FF`
`00FFF921 097121 sta KeyState2`	`00FFEB33 097121 sta KeyState2`
`00FFF923 08EFFF680 ldx #keybdExtendedCodes`	`00FFEB35 08EFFE800 ldx #keybdExtendedCodes`
`00FFF926 020017 bra dbgk18`	`00FFEB38 020017 bra dbgk18`
`dbgk15:`	`dbgk15:`
`00FFF928 096121 lda KeyState2 ; Is CTRL down?`	`00FFEB3A 096121 lda KeyState2 ; Is CTRL down?`
`00FFF92A 085004 bita #4`	`00FFEB3C 085004 bita #4`
`00FFF92C 027005 beq dbgk16`	`00FFEB3E 027005 beq dbgk16`
`00FFF92E 08EFFF600 ldx #keybdControlCodes`	`00FFEB40 08EFFE780 ldx #keybdControlCodes`
`00FFF931 02000C bra dbgk18`	`00FFEB43 02000C bra dbgk18`
`dbgk16:`	`dbgk16:`
`00FFF933 085001 bita #1 ; Is shift down?`	`00FFEB45 085001 bita #1 ; Is shift down?`
`00FFF935 027005 beq dbgk17`	`00FFEB47 027005 beq dbgk17`
`00FFF937 08EFFF500 ldx #shiftedScanCodes`	`00FFEB49 08EFFE680 ldx #shiftedScanCodes`
`00FFF93A 020003 bra dbgk18`	`00FFEB4C 020003 bra dbgk18`
`dbgk17:`	`dbgk17:`
`00FFF93C 08EFFF400 ldx #unshiftedScanCodes`	`00FFEB4E 08EFFE580 ldx #unshiftedScanCodes`
`dbgk18:`	`dbgk18:`
`00FFF93F 03A abx`	`00FFEB51 0E690FFFE580 ldb b,x ; load accb with ascii from table`
`00FFF940 0E6804 ldb ,x`	`00FFEB55 04F clra`
`00FFF942 04F clra`	`00FFEB56 0350B0 puls x,y,pc ; and return`
`00FFF943 035090 puls x,pc ; and return`


`00FFF945 04B04505904204F041052 fcb "KEYBOARD"`	`00FFEB58 04B04505904204F041052 fcb "KEYBOARD"`
`00FFF94C 044`	`00FFEB5F 044`
`00FFF94D FFF957 fcw KeybdOpen`	`00FFEB60 FFEB6A fcw KeybdOpen`
`00FFF94F FFF958 fcw KeybdClose`	`00FFEB62 FFEB6B fcw KeybdClose`
`00FFF951 FFF959 fcw KeybdRead`	`00FFEB64 FFEB6C fcw KeybdRead`
`00FFF953 FFF95A fcw KeybdWrite`	`00FFEB66 FFEB6D fcw KeybdWrite`
`00FFF955 FFF95B fcw KeybdSeek`	`00FFEB68 FFEB6E fcw KeybdSeek`

`; Keyboard Open:`	`; Keyboard Open:`
`; Initialize the keyboard buffer head and tail indexes`	`; Initialize the keyboard buffer head and tail indexes`
`;`	`;`
`KeybdOpen:`	`KeybdOpen:`
`00FFF957 039 rts`	`00FFEB6A 039 rts`

`; Keyboard Close:`	`; Keyboard Close:`
`; Nothing to do except maybe clear the keyboard buffer`	`; Nothing to do except maybe clear the keyboard buffer`
`;`	`;`
`KeybdClose:`	`KeybdClose:`
`00FFF958 039 rts`	`00FFEB6B 039 rts`
`;`	`;`
`KeybdRead:`	`KeybdRead:`
`00FFF959 039 rts`	`00FFEB6C 039 rts`
`;`	`;`
`KeybdWrite:`	`KeybdWrite:`
`00FFF95A 039 rts`	`00FFEB6D 039 rts`

`KeybdSeek:`	`KeybdSeek:`
`00FFF95B 039 rts`	`00FFEB6E 039 rts`

	`;==============================================================================`
	`; Serial I/O`
	`;==============================================================================`

	`; ============================================================================`
	`; __`
	`; \\__/ o\ (C) 2022 Robert Finch, Waterloo`
	`; \ __ / All rights reserved.`
	`; \/_// robfinch@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 .`
	`;`
	`; ============================================================================`
	`;`
	`;------------------------------------------------------------------------------`
	`; 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 clra`
	`00FFEB70 05F clrb`
	`00FFEB71 0DD130 std SerHeadRcv-1`
	`00FFEB73 0DD132 std SerTailRcv-1`
	`00FFEB75 0DD135 std SerHeadXmit-1`
	`00FFEB77 0DD137 std SerTailXmit-1`
	`00FFEB79 00F139 clr SerRcvXon`
	`00FFEB7B 00F140 clr SerRcvXoff`
	`00FFEB7D 0150B6FFFFFFFE0 lda COREID`
	`sini1:`
	`00FFEB82 0B1FF0010 cmpa IOFocusID`
	`00FFEB85 026FFB bne sini1`
	`00FFEB87 0C6009 ldb #$09 ; dtr,rts active, rxint enabled, no parity`
	`00FFEB89 0150F7FFFE30102 stb ACIA+ACIA_CMD`
	`00FFEB8E 0C601E ldb #$1E ; baud 9600, 1 stop bit, 8 bit, internal baud gen`
	`00FFEB90 0150F7FFFE30103 stb ACIA+ACIA_CTRL`
	`00FFEB95 0C60A6 ldb #$0A6 ; diable fifos, reset fifos`
	`00FFEB97 0150F7FFFE3010B stb ACIA+ACIA_CTRL2`
	`00FFEB9C 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,y`
	`00FFEB9F 18E000000 ldy #0`
	`00FFEBA2 01A010 sei ; disable interrupts`
	`00FFEBA4 08D082 bsr SerialRcvCount ; check number of chars in receive buffer`
	`00FFEBA6 0C1008 cmpb #8 ; less than 8?`
	`00FFEBA8 02200C bhi sgc2`
	`00FFEBAA 0D6139 ldb SerRcvXon ; skip sending XON if already sent`
	`00FFEBAC 026008 bne sgc2 ; XON already sent?`
	`00FFEBAE 0C6011 ldb #XON ; if <8 send an XON`
	`00FFEBB0 00F140 clr SerRcvXoff ; clear XOFF status`
	`00FFEBB2 0D7139 stb SerRcvXon ; flag so we don't send it multiple times`
	`00FFEBB4 08D052 bsr SerialPutChar`
	`sgc2:`
	`00FFEBB6 0D6131 ldb SerHeadRcv ; check if anything is in buffer`
	`00FFEBB8 0D1133 cmpb SerTailRcv`
	`00FFEBBA 02700A beq sgcNoChars ; no?`
	`00FFEBBC 08EBFF000 ldx #SerRcvBuf`
	`00FFEBBF 04F clra`
	`00FFEBC0 0E6835 ldb b,x ; get byte from buffer`
	`00FFEBC2 00C131 inc SerHeadRcv ; 4k wrap around`
	`00FFEBC4 020003 bra sgcXit`
	`sgcNoChars:`
	`00FFEBC6 0CCFFFFFF ldd #-1`
	`sgcXit:`
	`00FFEBC9 01C0EF cli`
	`00FFEBCB 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,ccr`
	`00FFEBCF 01A010 sei`
	`00FFEBD1 0D6131 ldb SerHeadRcv ; check if anything is in buffer`
	`00FFEBD3 0D1133 cmpb SerTailRcv`
	`00FFEBD5 027008 beq spcNoChars ; no?`
	`00FFEBD7 08EBFF000 ldx #SerRcvBuf`
	`00FFEBDA 04F clra`
	`00FFEBDB 0E6815 ldb b,x ; get byte from buffer`
	`00FFEBDD 020003 bra spcXit`
	`spcNoChars:`
	`00FFEBDF 0CCFFFFFF ldd #-1`
	`spcXit:`
	`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 Focus`
	`00FFEBE9 0B1FF0010 cmpa IOFocusID`
	`00FFEBEC 026014 bne spcd0001`
	`; Disallow interrupts between status read and rx read.`
	`00FFEBEE 01A010 sei`
	`00FFEBF0 0150F6FFFE30101 ldb ACIA+ACIA_STAT`
	`00FFEBF5 0C5008 bitb #8 ; look for Rx not empty`
	`00FFEBF7 027009 beq spcd0001`
	`00FFEBF9 04F clra`
	`00FFEBFA 0150F6FFFE30100 ldb ACIA+ACIA_RX`
	`00FFEBFF 01C0EF cli`
	`00FFEC01 039 rts`
	`spcd0001:`
	`00FFEC02 0CCFFFFFF ldd #-1`
	`00FFEC05 01C0EF cli`
	`00FFEC07 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,ccr`
	`spc0001:`
	`00FFEC0A 0150B6FFFFFFFE0 lda COREID ; Ensure we have the IO Focus`
	`00FFEC0F 0B1FF0010 cmpa IOFocusID`
	`00FFEC12 026FF6 bne spc0001`
	`00FFEC14 01C0EF cli ; provide a window for an interrupt to occur`
	`00FFEC16 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 empty`
	`00FFEC1D 085010 bita #16 ; bit #4 of the status reg`
	`00FFEC1F 027FE9 beq spc0001 ; branch if transmitter is not empty`
	`00FFEC21 0150F7FFFE30100 stb ACIA+ACIA_TX ; send the byte`
	`00FFEC26 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 clra`
	`00FFEC29 0E6A08133 ldb SerTailRcv,y`
	`00FFEC2C 0E0A08131 subb SerHeadRcv,y`
	`00FFEC2F 02C009 bge srcXit`
	`00FFEC31 0CC001000 ldd #$1000`
	`00FFEC34 0A3A08131 subd SerHeadRcv,y`
	`00FFEC37 0E3A08133 addd SerTailRcv,y`
	`srcXit:`
	`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 status`
	`00FFEC40 0C5008 bitb #$08 ; bit 3 = rx full`
	`00FFEC42 027049 beq notRxInt`
	`00FFEC44 0150F6FFFE30100 ldb ACIA+ACIA_RX ; get data from Rx buffer to clear interrupt`
	`00FFEC49 0C1014 cmpb #CTRLT ; detect special keystroke`
	`00FFEC4B 026000 bne sirq0001`
	`; bsr DumpTraceQueue`
	`sirq0001:`
	`00FFEC4D 034004 pshs b`
	`; Compute receive buffer address`
	`00FFEC4F 0B6FF0010 lda IOFocusID`
	`00FFEC52 048 asla`
	`00FFEC53 048 asla`
	`00FFEC54 048 asla`
	`00FFEC55 048 asla`
	`00FFEC56 08AC00 ora #$C00`
	`00FFEC58 05F clrb`
	`00FFEC59 01F002 tfr d,y`
	`00FFEC5B 035004 puls b`
	`00FFEC5D 0A6A08133 lda SerTailRcv,y ; check if recieve buffer full`
	`00FFEC60 04C inca`
	`00FFEC61 0A1A08131 cmpa SerHeadRcv,y`
	`00FFEC64 027027 beq sirqRxFull`
	`00FFEC66 0A7A08133 sta SerTailRcv,y ; update tail pointer`
	`00FFEC69 04A deca ; backup`
	`00FFEC6A 01E089 exg a,b`
	`00FFEC6C 030A0A000BFF000 leax SerRcvBuf,y ; x = buffer address`
	`00FFEC71 0A7A0F sta b,x ; store recieved byte in buffer`
	`00FFEC73 06DA08140 tst SerRcvXoff,y ; check if xoff already sent`
	`00FFEC76 026FC3 bne sirqNxtByte`
	`00FFEC78 08DFAE bsr SerialRcvCount ; if more than 4080 chars in buffer`
	`00FFEC7A 0C1FF0 cmpb #4080`
	`00FFEC7C 025FBD blo sirqNxtByte`
	`00FFEC7E 0C6013 ldb #XOFF ; send an XOFF`
	`00FFEC80 06FA08139 clr SerRcvXon,y ; clear XON status`
	`00FFEC83 0E7A08140 stb SerRcvXoff,y ; set XOFF status`
	`00FFEC86 0150F7FFFE30100 stb ACIA+ACIA_TX`
	`00FFEC8B 020FAE bra sirqNxtByte ; check the status for another byte`
	`sirqRxFull:`
	`notRxInt:`
	`00FFEC8D 039 rts`

	`nmeSerial:`
	`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,x`
	`00FFEC97 01F001 tfr d,x`
	`sps2:`
	`00FFEC99 0E6804 ldb ,x`
	`00FFEC9B 027006 beq spsXit`
	`00FFEC9D 030001 inx`
	`00FFEC9F 08DF67 bsr SerialPutChar`
	`00FFECA1 020FF6 bra sps2`
	`spsXit:`
	`00FFECA3 035096 puls d,x,pc`

	`;------------------------------------------------------------------------------`
	`; A little routine to test serial output.`
	`;`
	`; Parameters:`
	`; none`
	`; Modifies:`
	`; none`
	`; Returns:`
	`; none`
	`;------------------------------------------------------------------------------`

	`SerialOutputTest:`
	`00FFECA5 034006 pshs d`
	`00FFECA7 0CCFFECC5 ldd #msgSerialTest`
	`00FFECAA 017FFF6F5 lbsr DisplayString`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFECAD 08DEC0 bsr SerialInit`
	`sotst1:`
	`00FFECAF 0C6011 ldb #XON`
	`00FFECB1 08DF55 bsr SerialPutChar`
	`00FFECB3 08DF53 bsr SerialPutChar`
	`00FFECB5 08DF51 bsr SerialPutChar`
	`00FFECB7 0CCFFECC5 ldd #msgSerialTest`
	`00FFECBA 08DFD9 bsr SerialPutString`
	`00FFECBC 01700001B lbsr INCH`
	`00FFECBF 0C1003 cmpb #CTRLC`
	`00FFECC1 026FEC bne sotst1`
	`00FFECC3 035086 puls d,pc`

	`msgSerialTest:`
	`00FFECC5 05306507206906106C020 fcb "Serial port test",CR,LF,0`
	`00FFECCC 07006F072074020074065`
	`00FFECD3 07307400D00A000`


`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Check if there is a keyboard character available. If so return true (<0)`	`; Check if there is a keyboard character available. If so return true (<0)`
`; otherwise return false (0) in accb.`	`; otherwise return false (0) in accb.`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`KeybdCheckForKeyDirect:`	`KeybdCheckForKeyDirect:`
`00FFF95C 020EDB bra DBGCheckForKey`	`00FFECD8 020D36 bra DBGCheckForKey`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`INCH:`	`INCH:`
`00FFF95E 0CCFFFFFF ldd #-1 ; block if no key available`	`00FFECDA 034004 pshs b`
`00FFF961 020ED8 bra DBGGetKey`	`INCH2:`
	`00FFECDC 0150F6FFFFFFFE0 ldb COREID`
	`00FFECE1 0F1FF0010 cmpb IOFocusID ; if we do not have focus, block`
	`00FFECE4 026FF6 bne INCH2`
	`; ldb #$800 ; block if no key available, get scancode directly`
	`; bra GetKey`
	`; jsr [CharInVec] ; vector is being overwritten somehow`
	`00FFECE6 017FFFEFB lbsr SerialPeekCharDirect`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFECE9 04D tsta`
	`00FFECEA 02B003 bmi INCH1 ; block if no key available`
	`00FFECEC 032601 leas 1,s ; get rid of blocking status`
	`00FFECEE 039 rts`
	`INCH1:`
	`00FFECEF 035004 puls b ; check blocking status`
	`00FFECF1 05D tstb`
	`00FFECF2 02BFE6 bmi INCH ; if blocking, loop`
	`00FFECF4 0CCFFFFFF ldd #-1 ; return -1 if no char available`
	`00FFECF7 039 rts`

`INCHE:`	`INCHE:`
`00FFF963 08DFF9 bsr INCH`	`00FFECF8 08DFE0 bsr INCH`
`00FFF965 020009 bra INCHEK3`	`00FFECFA 020009 bra INCHEK3`

`INCHEK:`	`INCHEK:`
`00FFF967 08DFF5 bsr INCH`	`00FFECFC 08DFDC bsr INCH`
`00FFF969 01507DFFFFFCA00 tst KeybdEcho`	`00FFECFE 01507DFFFFFCA00 tst KeybdEcho`
`00FFF96E 02700B beq INCHEK1`	`00FFED03 02700C beq INCHEK1`
`INCHEK3:`	`INCHEK3:`
`00FFF970 08100D cmpa #CR`	`00FFED05 08100D cmpa #CR`
`00FFF972 026005 bne INCHEK2`	`00FFED07 026005 bne INCHEK2`
`00FFF974 017FFD75B lbsr CRLF`	`00FFED09 017FFE3C6 lbsr CRLF`
`*** warning 1: Long branch within short branch range could be optimized`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF977 020002 bra INCHEK1`	`00FFED0C 020003 bra INCHEK1`
`INCHEK2:`	`INCHEK2:`
`00FFF979 08D920 bsr DisplayChar`	`00FFED0E 017FFF5D0 lbsr DisplayChar`
	`*** warning 1: Long branch within short branch range could be optimized`
`INCHEK1:`	`INCHEK1:`
`00FFF97B 039 rts`	`00FFED11 039 rts`

`OUTCH:`	`OUTCH:`
`00FFF97C 06E90F000800 jmp [CharOutVec]`	`00FFED12 06E90F000800 jmp [CharOutVec]`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; r1 0=echo off, non-zero = echo on`	`; r1 0=echo off, non-zero = echo on`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`SetKeyboardEcho:`	`SetKeyboardEcho:`
`00FFF980 0150F7FFFFFCA00 stb KeybdEcho`	`00FFED16 0150F7FFFFFCA00 stb KeybdEcho`
`00FFF985 039 rts`	`00FFED1B 039 rts`


`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Parameters:`	`; Parameters:`
`; x,d bitmap of sprites to enable`	`; x,d bitmap of sprites to enable`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`

`ShowSprites:`	`ShowSprites:`
`00FFF986 0150BFFFFE103C0 stx SPRITE_CTRL+SPRITE_EN`	`00FFED1C 0150BFFFFE103C0 stx SPRITE_CTRL+SPRITE_EN`
`00FFF98B 0150FDFFFE103C2 std SPRITE_CTRL+SPRITE_EN+2`	`00FFED21 0150FDFFFE103C2 std SPRITE_CTRL+SPRITE_EN+2`
`00FFF990 039 rts`	`00FFED26 039 rts`

`;==============================================================================`	`;==============================================================================`
`; System Monitor`	`; Femtiki Operating System.`
`;==============================================================================`	`;==============================================================================`

	`OSCallTbl:`
	`00FFED27 000000 fcw 0`
	`00FFED29 000000 fcw 0`
	`00FFED2B 000000 fcw 0`
	`00FFED2D 000000 fcw 0`
	`00FFED2F 000000 fcw 0`
	`00FFED31 000000 fcw 0`
	`00FFED33 000000 fcw 0`
	`00FFED35 000000 fcw 0`
	`00FFED37 000000 fcw 0`
	`00FFED39 000000 fcw 0`
	`00FFED3B 000000 fcw 0`
	`00FFED3D 000000 fcw 0`
	`00FFED3F 000000 fcw 0`
	`00FFED41 000000 fcw 0`
	`00FFED43 000000 fcw 0`
	`00FFED45 000000 fcw 0`
	`00FFED47 000000 fcw 0`
	`00FFED49 000000 fcw 0`
	`00FFED4B 000000 fcw 0`
	`00FFED4D 000000 fcw 0`
	`00FFED4F 000000 fcw 0`
	`00FFED51 000000 fcw 0`
	`00FFED53 FFED84 fcw ReleaseIOFocus`
	`00FFED55 000000 fcw 0`
	`00FFED57 FFED6D fcw RequestIOFocus`

	`OSCall:`
	`; wait for availability`
	`osc1:`
	`00FFED59 07DEF0011 tst OSSEMA+1`
	`00FFED5C 027FFB beq osc1`
	`00FFED5E 058 aslb`
	`00FFED5F 08EFFED27 ldx #OSCallTbl`
	`00FFED62 03A abx`
	`00FFED63 06D804 tst ,x`
	`00FFED65 027002 beq oscx`
	`00FFED67 06E904 jmp [,x]`
	`oscx:`
	`00FFED69 07FEF0011 clr OSSEMA+1`
	`00FFED6C 039 rts`

	`RequestIOFocus:`
	`00FFED6D 0150F6FFFFFFFE0 ldb COREID`
	`00FFED72 08EFF0000 ldx #IOFocusList`
	`00FFED75 03A abx`
	`00FFED76 0A7804 sta ,x`
	`00FFED78 07DFF0010 tst IOFocusID`
	`00FFED7B 126FFFFEB lbne oscx`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFED7E 0F7FF0010 stb IOFocusID`
	`00FFED81 016FFFFE5 lbra oscx`
	`*** warning 1: Long branch within short branch range could be optimized`

	`ReleaseIOFocus:`
	`00FFED84 0150F6FFFFFFFE0 ldb COREID`
	`00FFED89 08EFF0000 ldx #IOFocusList`
	`00FFED8C 03A abx`
	`00FFED8D 06F804 clr ,x ; clear the request indicator`
	`00FFED8F 017FFF44F lbsr CopyScreenToVirtualScreen`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFED92 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 #15`
	`riof2:`
	`00FFED9A 05C incb`
	`00FFED9B 0C400F andb #15`
	`00FFED9D 03A abx`
	`00FFED9E 06D804 tst ,x`
	`00FFEDA0 026009 bne riof1`
	`00FFEDA2 04A deca`
	`00FFEDA3 026FF5 bne riof2`
	`; If no focus is requested by anyone, give to core #1`
	`00FFEDA5 0C6001 ldb #1`
	`00FFEDA7 086018 lda #24`
	`00FFEDA9 0A7804 sta ,x`
	`riof1:`
	`00FFEDAB 0F7FF0010 stb IOFocusID`
	`00FFEDAE 017FFF3F9 lbsr CopyVirtualScreenToScreen`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFEDB1 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@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 1`
	`LSREL EQU 2`
	`IMMB EQU 3`
	`SREL EQU 4`
	`NDX EQU 5`
	`EXT EQU 6`
	`IMMW EQU 7`
	`FAREXT EQU 8`

	`distbl1:`
	`; 00 to 0F`
	`00FFEDB4 04E045047020001 fcb "NEG ", DIRECT`
	`00FFEDB9 020020020020000 fcb " ", 0`
	`00FFEDBE 020020020020000 fcb " ", 0`
	`00FFEDC3 04304F04D020001 fcb "COM ", DIRECT`
	`00FFEDC8 04C053052020001 fcb "LSR ", DIRECT`
	`00FFEDCD 020020020020000 fcb " ", 0`
	`00FFEDD2 05204F052020001 fcb "ROR ", DIRECT`
	`00FFEDD7 041053052020001 fcb "ASR ", DIRECT`
	`00FFEDDC 04105304C020001 fcb "ASL ", DIRECT`
	`00FFEDE1 05204F04C020001 fcb "ROL ", DIRECT`
	`00FFEDE6 044045043020001 fcb "DEC ", DIRECT`
	`00FFEDEB 020020020020000 fcb " ", 0`
	`00FFEDF0 04904E043020001 fcb "INC ", DIRECT`
	`00FFEDF5 054053054020001 fcb "TST ", DIRECT`
	`00FFEDFA 04A04D050020001 fcb "JMP ", DIRECT`
	`00FFEDFF 04304C052020001 fcb "CLR ", DIRECT`

	`; 10 to 1F`
	`00FFEE04 020020020020000 fcb " ", 0`
	`00FFEE09 020020020020000 fcb " ", 0`
	`00FFEE0E 04E04F050020000 fcb "NOP ", 0`
	`00FFEE13 05305904E043000 fcb "SYNC", 0`
	`00FFEE18 020020020020000 fcb " ", 0`
	`00FFEE1D 046041052020000 fcb "FAR ", 0`
	`00FFEE22 04C042052041002 fcb "LBRA", LSREL`
	`00FFEE27 04C042053052002 fcb "LBSR", LSREL`
	`00FFEE2C 020020020020000 fcb " ", 0`
	`00FFEE31 044041041020000 fcb "DAA ", 0`
	`00FFEE36 04F052043043003 fcb "ORCC", IMMB`
	`00FFEE3B 020020020020000 fcb " ", 0`
	`00FFEE40 04104E044043003 fcb "ANDC", IMMB`
	`00FFEE45 053045058020000 fcb "SEX ", 0`
	`00FFEE4A 045058047020003 fcb "EXG ", IMMB`
	`00FFEE4F 054046052020003 fcb "TFR ", IMMB`

	`; 20 to 2F`
	`00FFEE54 042052041020004 fcb "BRA ", SREL`
	`00FFEE59 04205204E020004 fcb "BRN ", SREL`
	`00FFEE5E 042048049020004 fcb "BHI ", SREL`
	`00FFEE63 04204C053020004 fcb "BLS ", SREL`
	`00FFEE68 042048053020004 fcb "BHS ", SREL`
	`00FFEE6D 04204C04F020004 fcb "BLO ", SREL`
	`00FFEE72 04204E045020004 fcb "BNE ", SREL`
	`00FFEE77 042045051020004 fcb "BEQ ", SREL`
	`00FFEE7C 042056043020004 fcb "BVC ", SREL`
	`00FFEE81 042056053020004 fcb "BVS ", SREL`
	`00FFEE86 04205004C020004 fcb "BPL ", SREL`
	`00FFEE8B 04204D049020004 fcb "BMI ", SREL`
	`00FFEE90 042047045020004 fcb "BGE ", SREL`
	`00FFEE95 04204C054020004 fcb "BLT ", SREL`
	`00FFEE9A 042047054020004 fcb "BGT ", SREL`
	`00FFEE9F 04204C045020004 fcb "BLE ", SREL`

	`; 30 to 3F`
	`00FFEEA4 04C045041058005 fcb "LEAX", NDX`
	`00FFEEA9 04C045041059005 fcb "LEAY", NDX`
	`00FFEEAE 04C045041053005 fcb "LEAS", NDX`
	`00FFEEB3 04C045041055005 fcb "LEAU", NDX`
	`00FFEEB8 050053048053003 fcb "PSHS", IMMB`
	`00FFEEBD 05005504C053003 fcb "PULS", IMMB`
	`00FFEEC2 050053048055003 fcb "PSHU", IMMB`
	`00FFEEC7 05005504C055003 fcb "PULU", IMMB`
	`00FFEECC 052054046020000 fcb "RTF ", 0`
	`00FFEED1 052054053020000 fcb "RTS ", 0`
	`00FFEED6 041042058020000 fcb "ABX ", 0`
	`00FFEEDB 052054049020000 fcb "RTI ", 0`
	`00FFEEE0 043057041049003 fcb "CWAI", IMMB`
	`00FFEEE5 04D05504C020000 fcb "MUL ", 0`
	`00FFEEEA 020020020020000 fcb " ", 0`
	`00FFEEEF 053057049020000 fcb "SWI ", 0`

	`; 40 to 4F`
	`00FFEEF4 04E045047041000 fcb "NEGA", 0`
	`00FFEEF9 020020020020000 fcb " ", 0`
	`00FFEEFE 020020020020000 fcb " ", 0`
	`00FFEF03 04304F04D041000 fcb "COMA", 0`
	`00FFEF08 04C053052041000 fcb "LSRA", 0`
	`00FFEF0D 020020020020000 fcb " ", 0`
	`00FFEF12 05204F052041000 fcb "RORA", 0`
	`00FFEF17 041053052041000 fcb "ASRA", 0`
	`00FFEF1C 04105304C041000 fcb "ASLA", 0`
	`00FFEF21 05204F04C041000 fcb "ROLA", 0`
	`00FFEF26 044045043041000 fcb "DECA", 0`
	`00FFEF2B 020020020020000 fcb " ", 0`
	`00FFEF30 04904E043041000 fcb "INCA", 0`
	`00FFEF35 054053054041000 fcb "TSTA", 0`
	`00FFEF3A 020020020020000 fcb " ", 0`
	`00FFEF3F 04304C052041000 fcb "CLRA", 0`

	`; 50 to 5F`
	`00FFEF44 04E045047042000 fcb "NEGB", 0`
	`00FFEF49 020020020020000 fcb " ", 0`
	`00FFEF4E 020020020020000 fcb " ", 0`
	`00FFEF53 04304F04D042000 fcb "COMB", 0`
	`00FFEF58 04C053052042000 fcb "LSRB", 0`
	`00FFEF5D 020020020020000 fcb " ", 0`
	`00FFEF62 05204F052042000 fcb "RORB", 0`
	`00FFEF67 041053052042000 fcb "ASRB", 0`
	`00FFEF6C 04105304C042000 fcb "ASLB", 0`
	`00FFEF71 05204F04C042000 fcb "ROLB", 0`
	`00FFEF76 044045043042000 fcb "DECB", 0`
	`00FFEF7B 020020020020000 fcb " ", 0`
	`00FFEF80 04904E043042000 fcb "INCB", 0`
	`00FFEF85 054053054042000 fcb "TSTB", 0`
	`00FFEF8A 020020020020000 fcb " ", 0`
	`00FFEF8F 04304C052042000 fcb "CLRB", 0`

	`; 60 to 6F`
	`00FFEF94 04E045047020005 fcb "NEG ", NDX`
	`00FFEF99 020020020020000 fcb " ", 0`
	`00FFEF9E 020020020020000 fcb " ", 0`
	`00FFEFA3 04304F04D020005 fcb "COM ", NDX`
	`00FFEFA8 04C053052020005 fcb "LSR ", NDX`
	`00FFEFAD 020020020020000 fcb " ", 0`
	`00FFEFB2 05204F052020005 fcb "ROR ", NDX`
	`00FFEFB7 041053052020005 fcb "ASR ", NDX`
	`00FFEFBC 04105304C020005 fcb "ASL ", NDX`
	`00FFEFC1 05204F04C020005 fcb "ROL ", NDX`
	`00FFEFC6 044045043020005 fcb "DEC ", NDX`
	`00FFEFCB 020020020020000 fcb " ", 0`
	`00FFEFD0 04904E043020005 fcb "INC ", NDX`
	`00FFEFD5 054053054020005 fcb "TST ", NDX`
	`00FFEFDA 04A04D050020005 fcb "JMP ", NDX`
	`00FFEFDF 04304C052020005 fcb "CLR ", NDX`

	`; 70 to 7F`
	`00FFEFE4 04E045047020006 fcb "NEG ", EXT`
	`00FFEFE9 020020020020000 fcb " ", 0`
	`00FFEFEE 020020020020000 fcb " ", 0`
	`00FFEFF3 04304F04D020006 fcb "COM ", EXT`
	`00FFEFF8 04C053052020006 fcb "LSR ", EXT`
	`00FFEFFD 020020020020000 fcb " ", 0`
	`00FFF002 05204F052020006 fcb "ROR ", EXT`
	`00FFF007 041053052020006 fcb "ASR ", EXT`
	`00FFF00C 04105304C020006 fcb "ASL ", EXT`
	`00FFF011 05204F04C020006 fcb "ROL ", EXT`
	`00FFF016 044045043020006 fcb "DEC ", EXT`
	`00FFF01B 020020020020000 fcb " ", 0`
	`00FFF020 04904E043020006 fcb "INC ", EXT`
	`00FFF025 054053054020006 fcb "TST ", EXT`
	`00FFF02A 04A04D050020006 fcb "JMP ", EXT`
	`00FFF02F 04304C052020006 fcb "CLR ", EXT`

	`; 80 to 8F`
	`00FFF034 053055042041003 fcb "SUBA", IMMB`
	`00FFF039 04304D050041003 fcb "CMPA", IMMB`
	`00FFF03E 053042043041003 fcb "SBCA", IMMB`
	`00FFF043 053055042044007 fcb "SUBD", IMMW`
	`00FFF048 04104E044041003 fcb "ANDA", IMMB`
	`00FFF04D 042049054041003 fcb "BITA", IMMB`
	`00FFF052 04C044041020003 fcb "LDA ", IMMB`
	`00FFF057 020020020020000 fcb " ", 0`
	`00FFF05C 04504F052041003 fcb "EORA", IMMB`
	`00FFF061 041044043041003 fcb "ADCA", IMMB`
	`00FFF066 04F052041020003 fcb "ORA ", IMMB`
	`00FFF06B 041044044041003 fcb "ADDA", IMMB`
	`00FFF070 04304D050058007 fcb "CMPX", IMMW`
	`00FFF075 042053052020004 fcb "BSR ", SREL`
	`00FFF07A 04C044058020007 fcb "LDX ", IMMW`
	`00FFF07F 04A04D046020008 fcb "JMF ", FAREXT`

	`; 90 to 9F`
	`00FFF084 053055042041001 fcb "SUBA", DIRECT`
	`00FFF089 04304D050041001 fcb "CMPA", DIRECT`
	`00FFF08E 053042043041001 fcb "SBCA", DIRECT`
	`00FFF093 053055042044001 fcb "SUBD", DIRECT`
	`00FFF098 04104E044041001 fcb "ANDA", DIRECT`
	`00FFF09D 042049054041001 fcb "BITA", DIRECT`
	`00FFF0A2 04C044041020001 fcb "LDA ", DIRECT`
	`00FFF0A7 053054041020001 fcb "STA ", DIRECT`
	`00FFF0AC 04504F052041001 fcb "EORA", DIRECT`
	`00FFF0B1 041044043041001 fcb "ADCA", DIRECT`
	`00FFF0B6 04F052041020001 fcb "ORA ", DIRECT`
	`00FFF0BB 041044044041001 fcb "ADDA", DIRECT`
	`00FFF0C0 04304D050058001 fcb "CMPX", DIRECT`
	`00FFF0C5 04A053052020001 fcb "JSR ", DIRECT`
	`00FFF0CA 04C044058020001 fcb "LDX ", DIRECT`
	`00FFF0CF 053054058020001 fcb "STX ", DIRECT`

	`; A0 to AF`
	`00FFF0D4 053055042041005 fcb "SUBA", NDX`
	`00FFF0D9 04304D050041005 fcb "CMPA", NDX`
	`00FFF0DE 053042043041005 fcb "SBCA", NDX`
	`00FFF0E3 053055042044005 fcb "SUBD", NDX`
	`00FFF0E8 04104E044041005 fcb "ANDA", NDX`
	`00FFF0ED 042049054041005 fcb "BITA", NDX`
	`00FFF0F2 04C044041020005 fcb "LDA ", NDX`
	`00FFF0F7 053054041020005 fcb "STA ", NDX`
	`00FFF0FC 04504F052041005 fcb "EORA", NDX`
	`00FFF101 041044043041005 fcb "ADCA", NDX`
	`00FFF106 04F052041020005 fcb "ORA ", NDX`
	`00FFF10B 041044044041005 fcb "ADDA", NDX`
	`00FFF110 04304D050058005 fcb "CMPX", NDX`
	`00FFF115 04A053052020005 fcb "JSR ", NDX`
	`00FFF11A 04C044058020005 fcb "LDX ", NDX`
	`00FFF11F 053054058020005 fcb "STX ", NDX`

	`; B0 to BF`
	`00FFF124 053055042041006 fcb "SUBA", EXT`
	`00FFF129 04304D050041006 fcb "CMPA", EXT`
	`00FFF12E 053042043041006 fcb "SBCA", EXT`
	`00FFF133 053055042044006 fcb "SUBD", EXT`
	`00FFF138 04104E044041006 fcb "ANDA", EXT`
	`00FFF13D 042049054041006 fcb "BITA", EXT`
	`00FFF142 04C044041020006 fcb "LDA ", EXT`
	`00FFF147 053054041020006 fcb "STA ", EXT`
	`00FFF14C 04504F052041006 fcb "EORA", EXT`
	`00FFF151 041044043041006 fcb "ADCA", EXT`
	`00FFF156 04F052041020006 fcb "ORA ", EXT`
	`00FFF15B 041044044041006 fcb "ADDA", EXT`
	`00FFF160 04304D050058006 fcb "CMPX", EXT`
	`00FFF165 04A053052020006 fcb "JSR ", EXT`
	`00FFF16A 04C044058020006 fcb "LDX ", EXT`
	`00FFF16F 053054058020006 fcb "STX ", EXT`

	`; C0 to CF`
	`00FFF174 053055042042003 fcb "SUBB", IMMB`
	`00FFF179 04304D050042003 fcb "CMPB", IMMB`
	`00FFF17E 053042043062003 fcb "SBCb", IMMB`
	`00FFF183 041044044044007 fcb "ADDD", IMMW`
	`00FFF188 04104E044042003 fcb "ANDB", IMMB`
	`00FFF18D 042049054042003 fcb "BITB", IMMB`
	`00FFF192 04C044042020003 fcb "LDB ", IMMB`
	`00FFF197 020020020020000 fcb " ", 0`
	`00FFF19C 04504F052042003 fcb "EORB", IMMB`
	`00FFF1A1 041044043042003 fcb "ADCB", IMMB`
	`00FFF1A6 04F052042020003 fcb "ORB ", IMMB`
	`00FFF1AB 041044044042003 fcb "ADDB", IMMB`
	`00FFF1B0 04C044044020007 fcb "LDD ", IMMW`
	`00FFF1B5 020020020020004 fcb " ", SREL`
	`00FFF1BA 04C044055020007 fcb "LDU ", IMMW`
	`00FFF1BF 04A053046020008 fcb "JSF ", FAREXT`

	`; D0 to DF`
	`00FFF1C4 053055042042001 fcb "SUBB", DIRECT`
	`00FFF1C9 04304D050042001 fcb "CMPB", DIRECT`
	`00FFF1CE 053042043042001 fcb "SBCB", DIRECT`
	`00FFF1D3 041044044044001 fcb "ADDD", DIRECT`
	`00FFF1D8 04104E044042001 fcb "ANDB", DIRECT`
	`00FFF1DD 042049054042001 fcb "BITB", DIRECT`
	`00FFF1E2 04C044042020001 fcb "LDB ", DIRECT`
	`00FFF1E7 053054042020001 fcb "STB ", DIRECT`
	`00FFF1EC 04504F052042001 fcb "EORB", DIRECT`
	`00FFF1F1 041044043042001 fcb "ADCB", DIRECT`
	`00FFF1F6 04F052042020001 fcb "ORB ", DIRECT`
	`00FFF1FB 041044044042001 fcb "ADDB", DIRECT`
	`00FFF200 04C044044020001 fcb "LDD ", DIRECT`
	`00FFF205 053054044020001 fcb "STD ", DIRECT`
	`00FFF20A 04C044055020001 fcb "LDU ", DIRECT`
	`00FFF20F 053054055020001 fcb "STU ", DIRECT`

	`; E0 to EF`
	`00FFF214 053055042042005 fcb "SUBB", NDX`
	`00FFF219 04304D050042005 fcb "CMPB", NDX`
	`00FFF21E 053042043042005 fcb "SBCB", NDX`
	`00FFF223 041044044044005 fcb "ADDD", NDX`
	`00FFF228 04104E044042005 fcb "ANDB", NDX`
	`00FFF22D 042049054042005 fcb "BITB", NDX`
	`00FFF232 04C044042020005 fcb "LDB ", NDX`
	`00FFF237 053054042020005 fcb "STB ", NDX`
	`00FFF23C 04504F052042005 fcb "EORB", NDX`
	`00FFF241 041044043042005 fcb "ADCB", NDX`
	`00FFF246 04F052042020005 fcb "ORB ", NDX`
	`00FFF24B 041044044042005 fcb "ADDB", NDX`
	`00FFF250 04C044044020005 fcb "LDD ", NDX`
	`00FFF255 053054044020005 fcb "STD ", NDX`
	`00FFF25A 04C044055020005 fcb "LDU ", NDX`
	`00FFF25F 053054055020005 fcb "STU ", NDX`

	`; F0 to FF`
	`00FFF264 053055042042006 fcb "SUBB", EXT`
	`00FFF269 04304D050042006 fcb "CMPB", EXT`
	`00FFF26E 053042043042006 fcb "SBCB", EXT`
	`00FFF273 041044044044006 fcb "ADDD", EXT`
	`00FFF278 04104E044042006 fcb "ANDB", EXT`
	`00FFF27D 042049054042006 fcb "BITB", EXT`
	`00FFF282 04C044042020006 fcb "LDB ", EXT`
	`00FFF287 053054042020006 fcb "STB ", EXT`
	`00FFF28C 04504F052042006 fcb "EORB", EXT`
	`00FFF291 041044043042006 fcb "ADCB", EXT`
	`00FFF296 04F052042020006 fcb "ORB ", EXT`
	`00FFF29B 041044044042006 fcb "ADDB", EXT`
	`00FFF2A0 04C044044020006 fcb "LDD ", EXT`
	`00FFF2A5 053054044020006 fcb "STD ", EXT`
	`00FFF2AA 04C044055020006 fcb "LDU ", EXT`
	`00FFF2AF 053054055020006 fcb "STU ", EXT`

	`; 120 to 12F`
	`distbl2:`
	`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 $13F`
	`00FFF2F5 183 fcb $183`
	`00FFF2F6 18C fcb $18C`
	`00FFF2F7 18E fcb $18E`
	`00FFF2F8 193 fcb $193`
	`00FFF2F9 19C fcb $19C`
	`00FFF2FA 19E fcb $19E`
	`00FFF2FB 19F fcb $19F`
	`00FFF2FC 1A3 fcb $1A3`
	`00FFF2FD 1AC fcb $1AC`
	`00FFF2FE 1AE fcb $1AE`
	`00FFF2FF 1AF fcb $1AF`
	`00FFF300 1B3 fcb $1B3`
	`00FFF301 1BC fcb $1BC`
	`00FFF302 1BE fcb $1BE`
	`00FFF303 1BF fcb $1BF`
	`00FFF304 1CE fcb $1CE`
	`00FFF305 1DE fcb $1DE`
	`00FFF306 1DF fcb $1DF`
	`00FFF307 1EE fcb $1EE`
	`00FFF308 1EF fcb $1EF`
	`00FFF309 1FE fcb $1FE`
	`00FFF30A 1FF fcb $1FF`
	`00FFF30B 23F fcb $23F`
	`00FFF30C 283 fcb $283`
	`00FFF30D 28C fcb $28C`
	`00FFF30E 293 fcb $293`
	`00FFF30F 29C fcb $29C`
	`00FFF310 2A3 fcb $2A3`
	`00FFF311 2AC fcb $2AC`
	`00FFF312 2B3 fcb $2B3`
	`00FFF313 2BC fcb $2BC`

	`distbl4:`
	`00FFF314 053057049032000 fcb "SWI2", 0`
	`00FFF319 04304D050044007 fcb "CMPD", IMMW`
	`00FFF31E 04304D050059007 fcb "CMPY", IMMW`
	`00FFF323 04C044059020007 fcb "LDY ", IMMW`
	`00FFF328 04304D050044001 fcb "CMPD", DIRECT`
	`00FFF32D 04304D050059001 fcb "CMPY", DIRECT`
	`00FFF332 04C044059020001 fcb "LDY ", DIRECT`
	`00FFF337 053054059020001 fcb "STY ", DIRECT`
	`00FFF33C 04304D050044005 fcb "CMPD", NDX`
	`00FFF341 04304D050059005 fcb "CMPY", NDX`
	`00FFF346 04C044059020005 fcb "LDY ", NDX`
	`00FFF34B 053054059020005 fcb "STY ", NDX`
	`00FFF350 04304D050044006 fcb "CMPD", EXT`
	`00FFF355 04304D050059006 fcb "CMPY", EXT`
	`00FFF35A 04C044059020006 fcb "LDY ", EXT`
	`00FFF35F 053054059020006 fcb "STY ", EXT`
	`00FFF364 04C044053020007 fcb "LDS ", IMMW`
	`00FFF369 04C044053020001 fcb "LDS ", DIRECT`
	`00FFF36E 053054053020001 fcb "STS ", DIRECT`
	`00FFF373 04C044053020005 fcb "LDS ", NDX`
	`00FFF378 053054053020005 fcb "STS ", NDX`
	`00FFF37D 04C044053020006 fcb "LDS ", EXT`
	`00FFF382 053054053020006 fcb "STS ", EXT`
	`00FFF387 053057049033000 fcb "SWI3", 0`
	`00FFF38C 04304D050055007 fcb "CMPU", IMMW`
	`00FFF391 04304D050053007 fcb "CMPS", IMMW`
	`00FFF396 04304D050055001 fcb "CMPU", DIRECT`
	`00FFF39B 04304D050053001 fcb "CMPS", DIRECT`
	`00FFF3A0 04304D050055005 fcb "CMPU", NDX`
	`00FFF3A5 04304D050053005 fcb "CMPS", NDX`
	`00FFF3AA 04304D050055006 fcb "CMPU", EXT`
	`00FFF3AF 04304D050053006 fcb "CMPS", EXT`

	`disassem:`
	`00FFF3B4 0170005FE lbsr GetTwoParams`
	`00FFF3B7 017FFDD18 lbsr CRLF`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3BA 1BE000922 ldy mon_r1+2`
	`disLoop1:`
	`00FFF3BD 01F020 tfr y,d`
	`00FFF3BF 017FFF02B lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3C2 0C6020 ldb #' '`
	`00FFF3C4 017FFF94B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3C7 0E6A00 ldb ,y+`
	`00FFF3C9 0C5300 bitb #$300`
	`00FFF3CB 126000400 lbne dis1`
	`dis20:`
	`00FFF3CE 08EFFEDB4 ldx #distbl1`
	`dis23:`
	`00FFF3D1 086005 lda #5`
	`00FFF3D3 03D mul`
	`00FFF3D4 03A abx`
	`00FFF3D5 0E6800 ldb ,x+`
	`00FFF3D7 017FFF938 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3DA 0E6800 ldb ,x+`
	`00FFF3DC 017FFF933 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3DF 0E6800 ldb ,x+`
	`00FFF3E1 017FFF92E lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3E4 0E6800 ldb ,x+`
	`00FFF3E6 017FFF929 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3E9 0C6020 ldb #' '`
	`00FFF3EB 017FFF924 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3EE 0E6800 ldb ,x+`
	`00FFF3F0 12700042E lbeq disNextLine`
	`00FFF3F3 0C1001 cmpb #DIRECT`
	`00FFF3F5 026008 bne disNotDirect`
	`00FFF3F7 0E6A00 ldb ,y+`
	`00FFF3F9 017FFEFFA lbsr DispByteAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF3FC 016000422 lbra disNextLine`
	`disNotDirect:`
	`00FFF3FF 0C1002 cmpb #LSREL`
	`00FFF401 02600C bne disNotLRel`
	`dis21:`
	`00FFF403 0ECA01 ldd ,y++`
	`dis2:`
	`00FFF405 030A0B leax d,y`
	`00FFF407 01F010 tfr x,d`
	`00FFF409 017FFEFE1 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF40C 016000412 lbra disNextLine`
	`disNotLRel:`
	`00FFF40F 0C1004 cmpb #SREL`
	`00FFF411 026005 bne disNotRel`
	`00FFF413 0E6A00 ldb ,y+`
	`00FFF415 04F clra`
	`00FFF416 020FED bra dis2`
	`disNotRel:`
	`00FFF418 0C1005 cmpb #NDX`
	`00FFF41A 026385 bne disNotNdx`
	`00FFF41C 0E6A00 ldb ,y+`
	`00FFF41E 0C5800 bitb #$800`
	`00FFF420 02601E bne disNot9 ; test for offset 9 mode`
	`00FFF422 034004 pshs b`
	`00FFF424 0C41FF andb #$1FF ; mask to offset bits`
	`00FFF426 04F clra ;`
	`00FFF427 0C5100 bitb #$100 ; test for negative offset`
	`00FFF429 027003 beq dis3`
	`00FFF42B 04A deca ; sign extend offset`
	`00FFF42C 0CAE00 orb #$E00`
	`dis3:`
	`00FFF42E 017FFEFBC lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF431 0C602C ldb #','`
	`00FFF433 017FFF8DC lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF436 035004 puls b`
	`00FFF438 08D3F7 bsr disNdxReg`
	`00FFF43A 017FFF8D5 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF43D 0160003E1 lbra disNextLine`
	`disNot9:`
	`00FFF440 034004 pshs b`
	`00FFF442 0C5100 bitb #$100 ; check if indirect`
	`00FFF444 026005 bne dis4`
	`00FFF446 0C605B ldb #'['`
	`00FFF448 017FFF8C7 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis4:`
	`00FFF44B 0E6E04 ldb ,s ; get back b`
	`00FFF44D 0C400F andb #15`
	`00FFF44F 026030 bne disNotRplus`
	`00FFF451 0E6E04 ldb ,s`
	`00FFF453 0C5080 bitb #$80 ; outer indexed?`
	`00FFF455 026005 bne dis5`
	`00FFF457 0C605D ldb #']'`
	`00FFF459 017FFF8B6 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis5:`
	`00FFF45C 0C602C ldb #','`
	`00FFF45E 017FFF8B1 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF461 0E6E04 ldb ,s`
	`00FFF463 08D3CC bsr disNdxReg`
	`00FFF465 017FFF8AA lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF468 0C602B ldb #'+'`
	`00FFF46A 017FFF8A5 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF46D 035004 puls b`
	`00FFF46F 0C5100 bitb #$100`
	`00FFF471 1260003AD lbne disNextLine`
	`00FFF474 0C5080 bitb #$80`
	`00FFF476 1260003A8 lbne disNextLine`
	`00FFF479 0C605D ldb #']'`
	`00FFF47B 017FFF894 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF47E 0160003A0 lbra disNextLine`
	`disNotRplus:`
	`00FFF481 0C1001 cmpb #1`
	`00FFF483 026033 bne disNotRplusplus`
	`00FFF485 0E6E04 ldb ,s`
	`00FFF487 0C5080 bitb #$80 ; outer indexed?`
	`00FFF489 026005 bne dis6`
	`00FFF48B 0C605D ldb #']'`
	`00FFF48D 017FFF882 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis6:`
	`00FFF490 0C602C ldb #','`
	`00FFF492 017FFF87D lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF495 0E6E04 ldb ,s`
	`00FFF497 08D398 bsr disNdxReg`
	`00FFF499 017FFF876 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF49C 0C602B ldb #'+'`
	`00FFF49E 017FFF871 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4A1 017FFF86E lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4A4 035004 puls b`
	`00FFF4A6 0C5100 bitb #$100`
	`00FFF4A8 126000376 lbne disNextLine`
	`00FFF4AB 0C5080 bitb #$80`
	`00FFF4AD 126000371 lbne disNextLine`
	`00FFF4B0 0C605D ldb #']'`
	`00FFF4B2 017FFF85D lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4B5 016000369 lbra disNextLine`
	`disNotRplusplus:`
	`00FFF4B8 0C1002 cmpb #2`
	`00FFF4BA 026030 bne disNotRminus`
	`00FFF4BC 0E6E04 ldb ,s`
	`00FFF4BE 0C5080 bitb #$80 ; outer indexed?`
	`00FFF4C0 026005 bne dis7`
	`00FFF4C2 0C605D ldb #']'`
	`00FFF4C4 017FFF84B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis7:`
	`00FFF4C7 0C602C ldb #','`
	`00FFF4C9 017FFF846 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4CC 0E6E04 ldb ,s`
	`00FFF4CE 08D361 bsr disNdxReg`
	`00FFF4D0 017FFF83F lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4D3 0C602D ldb #'-'`
	`00FFF4D5 017FFF83A lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4D8 035004 puls b`
	`00FFF4DA 0C5100 bitb #$100`
	`00FFF4DC 126000342 lbne disNextLine`
	`00FFF4DF 0C5080 bitb #$80`
	`00FFF4E1 12600033D lbne disNextLine`
	`00FFF4E4 0C605D ldb #']'`
	`00FFF4E6 017FFF829 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF4E9 016000335 lbra disNextLine`
	`disNotRminus:`
	`00FFF4EC 0C1003 cmpb #3`
	`00FFF4EE 026033 bne disNotRminusminus`
	`00FFF4F0 0E6E04 ldb ,s`
	`00FFF4F2 0C5080 bitb #$80 ; outer indexed?`
	`00FFF4F4 026005 bne dis8`
	`00FFF4F6 0C605D ldb #']'`
	`00FFF4F8 017FFF817 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis8:`
	`00FFF4FB 0C602C ldb #','`
	`00FFF4FD 017FFF812 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF500 0E6E04 ldb ,s`
	`00FFF502 08D32D bsr disNdxReg`
	`00FFF504 017FFF80B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF507 0C602D ldb #'-'`
	`00FFF509 017FFF806 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF50C 017FFF803 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF50F 035004 puls b`
	`00FFF511 0C5100 bitb #$100`
	`00FFF513 12600030B lbne disNextLine`
	`00FFF516 0C5080 bitb #$80`
	`00FFF518 126000306 lbne disNextLine`
	`00FFF51B 0C605D ldb #']'`
	`00FFF51D 017FFF7F2 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF520 0160002FE lbra disNextLine`
	`disNotRminusminus:`
	`00FFF523 0C1004 cmpb #4`
	`00FFF525 02602B bne disNotR`
	`00FFF527 0E6E04 ldb ,s`
	`00FFF529 0C5080 bitb #$80 ; outer indexed?`
	`00FFF52B 026005 bne dis9`
	`00FFF52D 0C605D ldb #']'`
	`00FFF52F 017FFF7E0 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis9:`
	`00FFF532 0C602C ldb #','`
	`00FFF534 017FFF7DB lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF537 0E6E04 ldb ,s`
	`00FFF539 08D2F6 bsr disNdxReg`
	`00FFF53B 017FFF7D4 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF53E 035004 puls b`
	`00FFF540 0C5100 bitb #$100`
	`00FFF542 1260002DC lbne disNextLine`
	`00FFF545 0C5080 bitb #$80`
	`00FFF547 1260002D7 lbne disNextLine`
	`00FFF54A 0C605D ldb #']'`
	`00FFF54C 017FFF7C3 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF54F 0160002CF lbra disNextLine`
	`disNotR:`
	`00FFF552 0C1005 cmpb #5`
	`00FFF554 026038 bne disNotBOffs`
	`00FFF556 0C6042 ldb #'B'`
	`00FFF558 017FFF7B7 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF55B 0E6E04 ldb ,s`
	`00FFF55D 0C5080 bitb #$80 ; outer indexed?`
	`00FFF55F 026005 bne dis10`
	`00FFF561 0C605D ldb #']'`
	`00FFF563 017FFF7AC lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis10:`
	`00FFF566 0C602C ldb #','`
	`00FFF568 017FFF7A7 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF56B 0E6E04 ldb ,s`
	`00FFF56D 08D2C2 bsr disNdxReg`
	`00FFF56F 017FFF7A0 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF572 0C602D ldb #'-'`
	`00FFF574 017FFF79B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF577 017FFF798 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF57A 035004 puls b`
	`00FFF57C 0C5100 bitb #$100`
	`00FFF57E 1260002A0 lbne disNextLine`
	`00FFF581 0C5080 bitb #$80`
	`00FFF583 12600029B lbne disNextLine`
	`00FFF586 0C605D ldb #']'`
	`00FFF588 017FFF787 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF58B 016000293 lbra disNextLine`
	`disNotBOffs:`
	`00FFF58E 0C1006 cmpb #6`
	`00FFF590 026038 bne disNotAOffs`
	`00FFF592 0C6041 ldb #'A'`
	`00FFF594 017FFF77B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF597 0E6E04 ldb ,s`
	`00FFF599 0C5080 bitb #$80 ; outer indexed?`
	`00FFF59B 026005 bne dis11`
	`00FFF59D 0C605D ldb #']'`
	`00FFF59F 017FFF770 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis11:`
	`00FFF5A2 0C602C ldb #','`
	`00FFF5A4 017FFF76B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5A7 0E6E04 ldb ,s`
	`00FFF5A9 08D286 bsr disNdxReg`
	`00FFF5AB 017FFF764 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5AE 0C602D ldb #'-'`
	`00FFF5B0 017FFF75F lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5B3 017FFF75C lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5B6 035004 puls b`
	`00FFF5B8 0C5100 bitb #$100`
	`00FFF5BA 126000264 lbne disNextLine`
	`00FFF5BD 0C5080 bitb #$80`
	`00FFF5BF 12600025F lbne disNextLine`
	`00FFF5C2 0C605D ldb #']'`
	`00FFF5C4 017FFF74B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5C7 016000257 lbra disNextLine`
	`disNotAOffs:`
	`00FFF5CA 0C1008 cmpb #8`
	`00FFF5CC 026039 bne disNotBO`
	`00FFF5CE 0E6A00 ldb ,y+`
	`00FFF5D0 01D sex`
	`00FFF5D1 017FFEE19 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5D4 0E6E04 ldb ,s`
	`00FFF5D6 0C5080 bitb #$80 ; outer indexed?`
	`00FFF5D8 026005 bne dis12`
	`00FFF5DA 0C605D ldb #']'`
	`00FFF5DC 017FFF733 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis12:`
	`00FFF5DF 0C602C ldb #','`
	`00FFF5E1 017FFF72E lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5E4 0E6E04 ldb ,s`
	`00FFF5E6 08D249 bsr disNdxReg`
	`00FFF5E8 017FFF727 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5EB 0C602D ldb #'-'`
	`00FFF5ED 017FFF722 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5F0 017FFF71F lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF5F3 035004 puls b`
	`00FFF5F5 0C5100 bitb #$100`
	`00FFF5F7 126000227 lbne disNextLine`
	`00FFF5FA 0C5080 bitb #$80`
	`00FFF5FC 126000222 lbne disNextLine`
	`00FFF5FF 0C605D ldb #']'`
	`00FFF601 017FFF70E lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF604 01600021A lbra disNextLine`
	`disNotBO:`
	`00FFF607 0C1009 cmpb #9`
	`00FFF609 026038 bne disNotWO`
	`00FFF60B 0ECA01 ldd ,y++`
	`00FFF60D 017FFEDDD lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF610 0E6E04 ldb ,s`
	`00FFF612 0C5080 bitb #$80 ; outer indexed?`
	`00FFF614 026005 bne dis13`
	`00FFF616 0C605D ldb #']'`
	`00FFF618 017FFF6F7 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis13:`
	`00FFF61B 0C602C ldb #','`
	`00FFF61D 017FFF6F2 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF620 0E6E04 ldb ,s`
	`00FFF622 08D20D bsr disNdxReg`
	`00FFF624 017FFF6EB lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF627 0C602D ldb #'-'`
	`00FFF629 017FFF6E6 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF62C 017FFF6E3 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF62F 035004 puls b`
	`00FFF631 0C5100 bitb #$100`
	`00FFF633 1260001EB lbne disNextLine`
	`00FFF636 0C5080 bitb #$80`
	`00FFF638 1260001E6 lbne disNextLine`
	`00FFF63B 0C605D ldb #']'`
	`00FFF63D 017FFF6D2 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF640 0160001DE lbra disNextLine`
	`disNotWO:`
	`00FFF643 0C100A cmpb #10`
	`00FFF645 02603D bne disNotTO`
	`00FFF647 0E6A01 ldb ,y++`
	`00FFF649 017FFEDAA lbsr DispByteAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF64C 0ECA01 ldd ,y++`
	`00FFF64E 017FFED9C lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF651 0E6E04 ldb ,s`
	`00FFF653 0C5080 bitb #$80 ; outer indexed?`
	`00FFF655 026005 bne dis14`
	`00FFF657 0C605D ldb #']'`
	`00FFF659 017FFF6B6 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis14:`
	`00FFF65C 0C602C ldb #','`
	`00FFF65E 017FFF6B1 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF661 0E6E04 ldb ,s`
	`00FFF663 08D1CC bsr disNdxReg`
	`00FFF665 017FFF6AA lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF668 0C602D ldb #'-'`
	`00FFF66A 017FFF6A5 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF66D 017FFF6A2 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF670 035004 puls b`
	`00FFF672 0C5100 bitb #$100`
	`00FFF674 1260001AA lbne disNextLine`
	`00FFF677 0C5080 bitb #$80`
	`00FFF679 1260001A5 lbne disNextLine`
	`00FFF67C 0C605D ldb #']'`
	`00FFF67E 017FFF691 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF681 01600019D lbra disNextLine`
	`disNotTO:`
	`00FFF684 0C100B cmpb #11`
	`00FFF686 026038 bne disNotDOffs`
	`00FFF688 0C6044 ldb #'D'`
	`00FFF68A 017FFF685 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF68D 0E6E04 ldb ,s`
	`00FFF68F 0C5080 bitb #$80 ; outer indexed?`
	`00FFF691 026005 bne dis15`
	`00FFF693 0C605D ldb #']'`
	`00FFF695 017FFF67A lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis15:`
	`00FFF698 0C602C ldb #','`
	`00FFF69A 017FFF675 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF69D 0E6E04 ldb ,s`
	`00FFF69F 08D190 bsr disNdxReg`
	`00FFF6A1 017FFF66E lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6A4 0C602D ldb #'-'`
	`00FFF6A6 017FFF669 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6A9 017FFF666 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6AC 035004 puls b`
	`00FFF6AE 0C5100 bitb #$100`
	`00FFF6B0 12600016E lbne disNextLine`
	`00FFF6B3 0C5080 bitb #$80`
	`00FFF6B5 126000169 lbne disNextLine`
	`00FFF6B8 0C605D ldb #']'`
	`00FFF6BA 017FFF655 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6BD 016000161 lbra disNextLine`
	`disNotDOffs:`
	`00FFF6C0 0C100C cmpb #12`
	`00FFF6C2 026040 bne disNotPBO`
	`00FFF6C4 0E6A00 ldb ,y+`
	`00FFF6C6 01D sex`
	`00FFF6C7 017FFED23 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6CA 0E6E04 ldb ,s`
	`00FFF6CC 0C5080 bitb #$80 ; outer indexed?`
	`00FFF6CE 026005 bne dis16`
	`00FFF6D0 0C605D ldb #']'`
	`00FFF6D2 017FFF63D lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis16:`
	`00FFF6D5 0C602C ldb #','`
	`00FFF6D7 017FFF638 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6DA 0E6E04 ldb ,s`
	`00FFF6DC 08D153 bsr disNdxReg`
	`00FFF6DE 0C6050 ldb #'P'`
	`00FFF6E0 017FFF62F lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6E3 0C6043 ldb #'C'`
	`00FFF6E5 017FFF62A lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6E8 0C602D ldb #'-'`
	`00FFF6EA 017FFF625 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6ED 017FFF622 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF6F0 035004 puls b`
	`00FFF6F2 0C5100 bitb #$100`
	`00FFF6F4 12600012A lbne disNextLine`
	`00FFF6F7 0C5080 bitb #$80`
	`00FFF6F9 126000125 lbne disNextLine`
	`00FFF6FC 0C605D ldb #']'`
	`00FFF6FE 017FFF611 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF701 01600011D lbra disNextLine`
	`disNotPBO:`
	`00FFF704 0C100D cmpb #13`
	`00FFF706 02603F bne disNotPWO`
	`00FFF708 0ECA01 ldd ,y++`
	`00FFF70A 017FFECE0 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF70D 0E6E04 ldb ,s`
	`00FFF70F 0C5080 bitb #$80 ; outer indexed?`
	`00FFF711 026005 bne dis17`
	`00FFF713 0C605D ldb #']'`
	`00FFF715 017FFF5FA lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis17:`
	`00FFF718 0C602C ldb #','`
	`00FFF71A 017FFF5F5 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF71D 0E6E04 ldb ,s`
	`00FFF71F 08D110 bsr disNdxReg`
	`00FFF721 0C6050 ldb #'P'`
	`00FFF723 017FFF5EC lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF726 0C6043 ldb #'C'`
	`00FFF728 017FFF5E7 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF72B 0C602D ldb #'-'`
	`00FFF72D 017FFF5E2 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF730 017FFF5DF lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF733 035004 puls b`
	`00FFF735 0C5100 bitb #$100`
	`00FFF737 1260000E7 lbne disNextLine`
	`00FFF73A 0C5080 bitb #$80`
	`00FFF73C 1260000E2 lbne disNextLine`
	`00FFF73F 0C605D ldb #']'`
	`00FFF741 017FFF5CE lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF744 0160000DA lbra disNextLine`
	`disNotPWO:`
	`00FFF747 0C100E cmpb #14`
	`00FFF749 026044 bne disNotPTO`
	`00FFF74B 0E6A00 ldb ,y+`
	`00FFF74D 017FFECA6 lbsr DispByteAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF750 0ECA01 ldd ,y++`
	`00FFF752 017FFEC98 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF755 0E6E04 ldb ,s`
	`00FFF757 0C5080 bitb #$80 ; outer indexed?`
	`00FFF759 026005 bne dis18`
	`00FFF75B 0C605D ldb #']'`
	`00FFF75D 017FFF5B2 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis18:`
	`00FFF760 0C602C ldb #','`
	`00FFF762 017FFF5AD lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF765 0E6E04 ldb ,s`
	`00FFF767 08D0C8 bsr disNdxReg`
	`00FFF769 0C6050 ldb #'P'`
	`00FFF76B 017FFF5A4 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF76E 0C6043 ldb #'C'`
	`00FFF770 017FFF59F lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF773 0C602D ldb #'-'`
	`00FFF775 017FFF59A lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF778 017FFF597 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF77B 035004 puls b`
	`00FFF77D 0C5100 bitb #$100`
	`00FFF77F 12600009F lbne disNextLine`
	`00FFF782 0C5080 bitb #$80`
	`00FFF784 12600009A lbne disNextLine`
	`00FFF787 0C605D ldb #']'`
	`00FFF789 017FFF586 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF78C 016000092 lbra disNextLine`
	`disNotPTO:`
	`00FFF78F 0C605B ldb #'['`
	`00FFF791 017FFF57E lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF794 0ECA01 ldd ,y++`
	`00FFF796 017FFEC54 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF799 0C605D ldb #']'`
	`00FFF79B 017FFF574 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF79E 016000080 lbra disNextLine`
	`disNotNdx:`
	`00FFF7A1 0C1006 cmpb #EXT`
	`00FFF7A3 026008 bne disNotExt`
	`00FFF7A5 0ECA01 ldd ,y++`
	`00FFF7A7 017FFEC43 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7AA 016000074 lbra disNextLine`
	`disNotExt:`
	`00FFF7AD 0C1003 cmpb #IMMB`
	`00FFF7AF 02600D bne disNotIMMB`
	`00FFF7B1 0C6023 ldb #'#'`
	`00FFF7B3 017FFF55C lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7B6 0E6A00 ldb ,y+`
	`00FFF7B8 017FFEC3B lbsr DispByteAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7BB 016000063 lbra disNextLine`
	`disNotIMMB:`
	`00FFF7BE 0C1007 cmpb #IMMW`
	`00FFF7C0 02600C bne disNotIMMW`
	`00FFF7C2 0C6023 ldb #'#'`
	`00FFF7C4 017FFF54B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7C7 0ECA01 ldd ,y++`
	`00FFF7C9 017FFEC21 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7CC 020053 bra disNextLine`
	`disNotIMMW:`
	`dis1:`
	`00FFF7CE 0C1121 cmpb #$121`
	`00FFF7D0 025028 blo dis19`
	`00FFF7D2 0C112F cmpb #$12F`
	`00FFF7D4 022024 bhi dis19`
	`00FFF7D6 0C40FF andb #$FF`
	`00FFF7D8 08EFFEDB4 ldx #distbl1`
	`00FFF7DB 058 aslb`
	`00FFF7DC 058 aslb`
	`00FFF7DD 03A abx`
	`00FFF7DE 0E6800 ldb ,x+`
	`00FFF7E0 017FFF52F lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7E3 0E6800 ldb ,x+`
	`00FFF7E5 017FFF52A lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7E8 0E6800 ldb ,x+`
	`00FFF7EA 017FFF525 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7ED 0E6800 ldb ,x+`
	`00FFF7EF 017FFF520 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7F2 0C6020 ldb #' '`
	`00FFF7F4 017FFF51B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF7F7 016FFFC09 lbra dis21`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis19:`
	`00FFF7FA 08E000000 ldx #0`
	`dis24:`
	`00FFF7FD 0E180A000FFF2F4 cmpb distbl3,x`
	`00FFF802 026006 bne dis25`
	`00FFF804 08EFFF314 ldx #distbl4`
	`00FFF807 016FFFBC7 lbra dis23`
	`*** warning 1: Long branch within short branch range could be optimized`
	`dis25:`
	`00FFF80A 030001 inx`
	`00FFF80C 08C00001F cmpx #31`
	`00FFF80F 025FEC blo dis24`
	`00FFF811 0C603F ldb #'?'`
	`00FFF813 017FFF4FC lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF816 017FFF4F9 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF819 017FFF4F6 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF81C 017FFF4F3 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF81F 020000 bra disNextLine`
	`disNextLine`
	`00FFF821 017FFD8AE lbsr CRLF`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF824 1BC000926 cmpy mon_r2+2`
	`00FFF827 125FFFB93 lblo disLoop1`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF82A 01600007F lbra Monitor`

	`disNdxRegs:`
	`00FFF82D 058059053055 fcb 'X','Y','S','U'`
	`disNdxReg:`
	`00FFF831 0C4600 andb #$600`
	`00FFF833 059 rolb`
	`00FFF834 059 rolb`
	`00FFF835 059 rolb`
	`00FFF836 059 rolb`
	`00FFF837 04F clra`
	`00FFF838 034040 pshs u`
	`00FFF83A 01F003 tfr d,u`
	`00FFF83C 0A6C0A000FFF82D lda disNdxRegs,u`
	`00FFF841 035040 puls u`
	`00FFF843 01E089 exg a,b`
	`00FFF845 039 rts`

	`ASMO:`
	`00FFF846 034006 pshs d`
	`00FFF848 0CCFFF85A ldd #ASMOUTCH`
	`00FFF84B 0FD000800 std CharOutVec`
	`00FFF84E 035086 puls d,pc`

	`ASMOO:`
	`00FFF850 034006 pshs d`
	`00FFF852 0CCFFE2E1 ldd #DisplayChar`
	`00FFF855 0FD000800 std CharOutVec`
	`00FFF858 035086 puls d,pc`

	`ASMOUTCH:`
	`00FFF85A 0E7C00 stb ,u+`
	`00FFF85C 039 rts`

	`DumpAsmbuf:`
	`00FFF85D 0CE000160 ldu #asmbuf`
	`dab2:`
	`00FFF860 0E6C00 ldb ,u+`
	`00FFF862 027005 beq dab1`
	`00FFF864 017FFF4AB lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF867 020FF7 bra dab2`
	`dab1:`
	`00FFF869 039 rts`

	`;==============================================================================`
	`; System Monitor`
	`;==============================================================================`

	`CmdPrompt:`
	`00FFF86A 017FFD865 lbsr CRLF`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF86D 0C6024 ldb #'$'`
	`00FFF86F 017FFF4A0 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF872 016FFF49D lbra OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`

	`msgF09Starting:`
	`00FFF875 04606506D07406906B069 fcb "Femtiki F09 Multi-core OS Starting",CR,LF,0`
	`00FFF87C 02004603003902004D075`
	`00FFF883 06C07406902D06306F072`
	`00FFF88A 06502004F053020053074`
	`00FFF891 06107207406906E06700D`
	`00FFF898 00A000`

`MonitorStart:`	`MonitorStart:`
`00FFF991 0CCFFFAEF ldd #HelpMsg`	`00FFF89A 0CCFFF875 ldd #msgF09Starting`
`00FFF994 08D9BE bsr DisplayString`	`00FFF89D 017FFEB02 lbsr DisplayString`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF8A0 0CCFFFA78 ldd #HelpMsg`
	`00FFF8A3 017FFEAFC lbsr DisplayString`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF8A6 0CCFFF86A ldd #CmdPrompt`
	`00FFF8A9 0FD000808 std CmdPromptJI`
`Monitor:`	`Monitor:`
`00FFF996 03280F003FFF leas $3FFF ; reset stack pointer`	`00FFF8AC 03280F006FFF leas $6FFF ; reset stack pointer`
`00FFF99A 05F clrb ; turn off keyboard echo`	`00FFF8B0 05F clrb ; turn off keyboard echo`
`00FFF99B 08DFE3 bsr SetKeyboardEcho`	`00FFF8B1 017FFF462 lbsr SetKeyboardEcho`
	`*** warning 1: Long branch within short branch range could be optimized`
	`; Reset IO vectors`
	`00FFF8B4 0CCFFEBE4 ldd #SerialPeekCharDirect`
	`00FFF8B7 0FD000804 std CharInVec`
	`00FFF8BA 0CCFFE2E1 ldd #DisplayChar`
	`00FFF8BD 0FD000800 std CharOutVec`
	`00FFF8C0 0CCFFF86A ldd #CmdPrompt`
	`00FFF8C3 0FD000808 std CmdPromptJI`
`; jsr RequestIOFocus`	`; jsr RequestIOFocus`
`PromptLn:`	`PromptLn:`
`00FFF99D 017FFD732 lbsr CRLF`	`00FFF8C6 0AD90F000808 jsr [CmdPromptJI]`
`*** warning 1: Long branch within short branch range could be optimized`
`00FFF9A0 0C6024 ldb #'$'`
`00FFF9A2 08DFD8 bsr OUTCH`

`; Get characters until a CR is keyed`	`; Get characters until a CR is keyed`

`Prompt3:`	`Prompt3:`
`00FFF9A4 0CCFFFFFF ldd #-1 ; block until key present`	`00FFF8CA 0CCFFFFFF ldd #-1 ; block until key present`
`00FFF9A7 08DE92 bsr DBGGetKey`	`00FFF8CD 017FFF40A lbsr INCH`
`00FFF9A9 0C100D cmpb #CR`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF9AB 027004 beq Prompt1`	`00FFF8D0 0C100D cmpb #CR`
`00FFF9AD 08DFCD bsr OUTCH`	`00FFF8D2 027005 beq Prompt1`
`00FFF9AF 020FF3 bra Prompt3`	`00FFF8D4 017FFF43B lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF8D7 020FF1 bra Prompt3`

`; Process the screen line that the CR was keyed on`	`; Process the screen line that the CR was keyed on`
`;`	`;`
`Prompt1:`	`Prompt1:`
`00FFF9B1 0CC005050 ldd #$5050`	`00FFF8D9 0CC005050 ldd #$5050`
`00FFF9B4 0150FDFFFE60000 std LEDS`	`00FFF8DC 0150FDFFFE60001 std LEDS`
`00FFF9B9 0F6800000 ldb RunningID`	`; ldb RunningID`
`00FFF9BC 0C103D cmpb #61`	`; cmpb #61`
`00FFF9BE 022FE4 bhi Prompt3`	`; bhi Prompt3`
`00FFF9C0 0CC005151 ldd #$5151`	`00FFF8E1 0CC005151 ldd #$5151`
`00FFF9C3 0150FDFFFE60000 std LEDS`	`00FFF8E4 0150FDFFFE60001 std LEDS`
`00FFF9C8 00F111 clr CursorCol ; go back to the start of the line`	`00FFF8E9 00F111 clr CursorCol ; go back to the start of the line`
`00FFF9CA 08D8AD bsr CalcScreenLoc ; calc screen memory location`	`00FFF8EB 017FFE9D0 lbsr CalcScreenLoc ; calc screen memory location`
`00FFF9CC 01F002 tfr d,y`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF9CE 0CC005252 ldd #$5252`	`00FFF8EE 01F002 tfr d,y`
`00FFF9D1 0150FDFFFE60000 std LEDS`	`00FFF8F0 0CC005252 ldd #$5252`
`00FFF9D6 08D055 bsr MonGetNonSpace`	`00FFF8F3 0150FDFFFE60001 std LEDS`
`00FFF9D8 0C1024 cmpb #'$'`	`skipDollar:`
`00FFF9DA 026009 bne Prompt2 ; skip over '$' prompt character`	`00FFF8F8 08D0AB bsr MonGetNonSpace`
`00FFF9DC 086353 lda #$5353`	`00FFF8FA 0C1024 cmpb #'$'`
`00FFF9DE 0150FDFFFE60000 std LEDS`	`00FFF8FC 027FFA beq skipDollar ; skip over '$' prompt character`
`00FFF9E3 08D048 bsr MonGetNonSpace`	`00FFF8FE 086353 lda #$5353`
	`00FFF900 0150FDFFFE60001 std LEDS`

`; Dispatch based on command character`	`; Dispatch based on command character`
`;`	`;`
`Prompt2:`	`Prompt2:`
`00FFF9E5 0C103F cmpb #'?' ; $? - display help`	`00FFF905 0C103C cmpb #'<'`
`00FFF9E7 026007 bne PromptC`	`00FFF907 02602C bne PromptHelp`
`00FFF9E9 0CCFFFAEF ldd #HelpMsg`	`00FFF909 08D095 bsr MonGetch`
`00FFF9EC 08D966 bsr DisplayString`	`00FFF90B 0C103E cmpb #'>'`
`00FFF9EE 020FA6 bra Monitor`	`00FFF90D 026F9D bne Monitor`
	`00FFF90F 08D08F bsr MonGetch`
	`00FFF911 0C1073 cmpb #'s'`
	`00FFF913 02600E bne Prompt2a`
	`00FFF915 0CCFFEBE4 ldd #SerialPeekCharDirect`
	`00FFF918 0FD000804 std CharInVec`
	`00FFF91B 0CCFFEC08 ldd #SerialPutChar`
	`00FFF91E 0FD000800 std CharOutVec`
	`00FFF921 020F89 bra Monitor`
	`Prompt2a:`
	`00FFF923 0C1063 cmpb #'c'`
	`00FFF925 026F85 bne Monitor`
	`00FFF927 0CCFFEA12 ldd #GetKey`
	`00FFF92A 0FD000804 std CharInVec`
	`00FFF92D 0CCFFE2E1 ldd #DisplayChar`
	`00FFF930 0FD000800 std CharOutVec`
	`00FFF933 020F77 bra Monitor`
	`PromptHelp:`
	`00FFF935 0C103F cmpb #'?' ; $? - display help`
	`00FFF937 026008 bne PromptC`
	`00FFF939 0CCFFFA78 ldd #HelpMsg`
	`00FFF93C 017FFEA63 lbsr DisplayString`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF93F 020F6B bra Monitor`
`PromptC:`	`PromptC:`
`00FFF9F0 0C1043 cmpb #'C'`	`00FFF941 0C1043 cmpb #'C'`
`00FFF9F2 026007 bne PromptD`	`00FFF943 026008 bne PromptD`
`00FFF9F4 017FFF7D9 lbsr ClearScreen`	`00FFF945 017FFE8C9 lbsr ClearScreen`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF948 017FFE939 lbsr HomeCursor`
`*** warning 1: Long branch within short branch range could be optimized`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFF9F7 08D848 bsr HomeCursor`	`00FFF94B 020F5F bra Monitor`
`00FFF9F9 020F9B bra Monitor`
`PromptD:`	`PromptD:`
`00FFF9FB 0C1044 cmpb #'D'`	`00FFF94D 0C1044 cmpb #'D'`
`00FFF9FD 026008 bne PromptF`	`00FFF94F 026008 bne PromptF`
`00FFF9FF 08D027 bsr MonGetch`	`00FFF951 08D04D bsr MonGetch`
`00FFFA01 0C1052 cmpb #'R'`	`00FFF953 0C1052 cmpb #'R'`
`00FFFA03 026F9F bne Prompt3`	`00FFF955 02621A bne DumpMemory`
`00FFFA05 020193 bra DumpRegs`	`00FFF957 020274 bra DumpRegs`
`PromptF:`	`PromptF:`
`00FFFA07 0C1046 cmpb #'F'`	`00FFF959 0C1046 cmpb #'F'`
`00FFFA09 02600F bne PromptJ`	`00FFF95B 02600F bne PromptJ`
`00FFFA0B 08D01B bsr MonGetch`	`00FFF95D 08D041 bsr MonGetch`
`00FFFA0D 0C1049 cmpb #'I'`	`00FFF95F 0C1049 cmpb #'I'`
`00FFFA0F 026F85 bne Monitor`	`00FFF961 026F49 bne Monitor`
`00FFFA11 08D015 bsr MonGetch`	`00FFF963 08D03B bsr MonGetch`
`00FFFA13 0C1047 cmpb #'G'`	`00FFF965 0C1047 cmpb #'G'`
`00FFFA15 026F7F bne Monitor`	`00FFF967 026F43 bne Monitor`
`00FFFA17 07EFE0000 jmp $FE0000`	`00FFF969 07EFE0000 jmp $FE0000`
`PromptJ:`	`PromptJ:`
`00FFFA1A 0C104A cmpb #'J'`	`00FFF96C 0C104A cmpb #'J'`
`00FFFA1C 1270001BF lbeq jump_to_code`	`00FFF96E 1270002A7 lbeq jump_to_code`
`PromptR:`	`PromptR:`
`00FFFA1F 0C1052 cmpb #'R'`	`00FFF971 0C1052 cmpb #'R'`
`00FFFA21 026F73 bne Monitor`	`00FFF973 026006 bne Prompt_s`
`00FFFA23 017FFE5DA lbsr ramtest`	`00FFF975 0CEFFF8AC ldu #Monitor`
	`00FFF978 016FFDA85 lbra ramtest`
	`*** warning 1: Long branch within short branch range could be optimized`
	`Prompt_s:`
	`00FFF97B 0C1073 cmpb #'s'`
	`00FFF97D 026005 bne PromptT`
	`00FFF97F 017FFF323 lbsr SerialOutputTest`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF982 020F28 bra Monitor`
	`PromptT:`
	`00FFF984 0C1054 cmpb #'T'`
	`00FFF986 026011 bne PromptU`
	`00FFF988 08D016 bsr MonGetch`
	`00FFF98A 0C1049 cmpb #'I'`
	`00FFF98C 026F1E bne Monitor`
	`00FFF98E 08D010 bsr MonGetch`
	`00FFF990 0C1052 cmpb #'R'`
	`00FFF992 026F18 bne Monitor`
	`00FFF994 017FFEB1C lbsr rtc_read`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFF997 020F13 bra Monitor`
	`PromptU:`
	`00FFF999 0C1055 cmpb #'U'`
	`00FFF99B 026F0F bne Monitor`
	`00FFF99D 016FFFA14 lbra disassem`
`*** warning 1: Long branch within short branch range could be optimized`	`*** warning 1: Long branch within short branch range could be optimized`
`00FFFA26 020F6E bra Monitor`

`MonGetch:`	`MonGetch:`
`00FFFA28 0E6A04 ldb ,y`	`00FFF9A0 0E6A04 ldb ,y`
`00FFFA2A 031201 leay 1,y`	`00FFF9A2 031201 iny`
`00FFFA2C 039 rts`	`00FFF9A4 039 rts`

`MonGetNonSpace:`	`MonGetNonSpace:`
`00FFFA2D 08DFF9 bsr MonGetCh`	`00FFF9A5 08DFF9 bsr MonGetCh`
`00FFFA2F 0C1020 cmpb #' '`	`00FFF9A7 0C1020 cmpb #' '`
`00FFFA31 027FFA beq MonGetNonSpace`	`00FFF9A9 027FFA beq MonGetNonSpace`
`00FFFA33 0C1009 cmpb #9 ; tab`	`00FFF9AB 039 rts`
`00FFFA35 027FF6 beq MonGetNonSpace`
`00FFFA37 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Ignore blanks in the input`	`; Ignore blanks in the input`
`; Y = text pointer`	`; Y = text pointer`
`; D destroyed`	`; D destroyed`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`ignBlanks:`	`ignBlanks:`
`ignBlanks1:`	`ignBlanks1:`
`00FFFA38 08DFEE bsr MonGetch`	`00FFF9AC 08DFF2 bsr MonGetch`
`00FFFA3A 0C1020 cmpb #' '`	`00FFF9AE 0C1020 cmpb #' '`
`00FFFA3C 027FFA beq ignBlanks1`	`00FFF9B0 027FFA beq ignBlanks1`
`00FFFA3E 0313FF leay -1,y`	`00FFF9B2 0313FF dey`
`00FFFA40 039 rts`	`00FFF9B4 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`GetTwoParams:`	`GetTwoParams:`
`00FFFA41 08DFF5 bsr ignBlanks`	`00FFF9B5 08DFF5 bsr ignBlanks`
`00FFFA43 08D02E bsr GetHexNumber ; get start address of dump`	`00FFF9B7 08D03F bsr GetHexNumber ; get start address of dump`
`00FFFA45 0DC910 ldd mon_numwka`	`00FFF9B9 0FC000910 ldd mon_numwka`
`00FFFA47 0DD920 std mon_r1`	`00FFF9BC 0FD000920 std mon_r1`
`00FFFA49 0DC912 ldd mon_numwka+2`	`00FFF9BF 0FC000912 ldd mon_numwka+2`
`00FFFA4B 0DD922 std mon_r1+2`	`00FFF9C2 0FD000922 std mon_r1+2`
`00FFFA4D 08DFE9 bsr ignBlanks`	`00FFF9C5 08DFE5 bsr ignBlanks`
`00FFFA4F 08D022 bsr GetHexNumber ; get end address of dump`	`00FFF9C7 08D02F bsr GetHexNumber ; get end address of dump`
`00FFFA51 0DC910 ldd mon_numwka`	`00FFF9C9 0FC000910 ldd mon_numwka`
`00FFFA53 0DD922 std mon_r2`	`00FFF9CC 0FD000924 std mon_r2`
`00FFFA55 0DC912 ldd mon_numwka+2`	`00FFF9CF 0FC000912 ldd mon_numwka+2`
`00FFFA57 0DD924 std mon_r2+2`	`00FFF9D2 0FD000926 std mon_r2+2`
`00FFFA59 039 rts`	`00FFF9D5 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Get a range, the end must be greater or equal to the start.`	`; Get a range, the end must be greater or equal to the start.`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`GetRange:`	`GetRange:`
`00FFFA5A 08DFE5 bsr GetTwoParams`	`00FFF9D6 08DFDD bsr GetTwoParams`
`00FFFA5C 0DC924 ldd mon_r2+2`	`00FFF9D8 0FC000926 ldd mon_r2+2`
`00FFFA5E 093922 subd mon_r1+2`	`00FFF9DB 0B3000922 subd mon_r1+2`
`00FFFA60 0DC922 ldd mon_r2`	`00FFF9DE 0FC000924 ldd mon_r2`
`00FFFA62 0D2921 sbcb mon_r1+1`	`00FFF9E1 0F2000921 sbcb mon_r1+1`
`00FFFA64 092920 sbca mon_r1`	`00FFF9E4 0B2000920 sbca mon_r1`
`00FFFA66 12500006C lbcs DisplayErr`	`00FFF9E7 125000074 lbcs DisplayErr`
`00FFFA69 039 rts`	`00FFF9EA 039 rts`

`shl_numwka:`	`shl_numwka:`
`00FFFA6A 008913 asl mon_numwka+3`	`00FFF9EB 078000913 asl mon_numwka+3`
`00FFFA6C 009912 rol mon_numwka+2`	`00FFF9EE 079000912 rol mon_numwka+2`
`00FFFA6E 009911 rol mon_numwka+1`	`00FFF9F1 079000911 rol mon_numwka+1`
`00FFFA70 009910 rol mon_numwka`	`00FFF9F4 079000910 rol mon_numwka`
`00FFFA72 039 rts`	`00FFF9F7 039 rts`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`; Get a hexidecimal number. Maximum of nine digits.`	`; Get a hexidecimal number. Maximum of twelve digits.`
	`;`
	`; Modifies:`
`; Y = text pointer (updated)`	`; Y = text pointer (updated)`
`; D = number of digits`	`; D = number of digits`
`; mon_numwka contains number`	`; mon_numwka contains number`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`GetHexNumber:`	`GetHexNumber:`
`00FFFA73 04F05F clrd`	`00FFF9F8 04F05F clrd`
`00FFFA75 0DD910 std mon_numwka`	`00FFF9FA 0FD000910 std mon_numwka ; zero out work area`
`00FFFA77 0DD912 std mon_numwka+2`	`00FFF9FD 0FD000912 std mon_numwka+2`
`00FFFA79 034010 pshs x`	`00FFFA00 034010 pshs x`
`00FFFA7B 08E000000 ldx #0 ; max 9 eight digits`	`00FFFA02 08E000000 ldx #0 ; max 12 eight digits`
`gthxn2:`	`gthxn2:`
`00FFFA7E 08DFA8 bsr MonGetch`	`00FFFA05 08DF99 bsr MonGetch`
`00FFFA80 08D01D bsr AsciiToHexNybble`	`00FFFA07 08D01F bsr AsciiToHexNybble`
`00FFFA82 0C1FFF cmpb #-1`	`00FFFA09 0C1FFF cmpb #-1`
`00FFFA84 027015 beq gthxn1`	`00FFFA0B 027017 beq gthxn1`
`00FFFA86 08DFE2 bsr shl_numwka`	`00FFFA0D 08DFDC bsr shl_numwka`
`00FFFA88 08DFE0 bsr shl_numwka`	`00FFFA0F 08DFDA bsr shl_numwka`
`00FFFA8A 08DFDE bsr shl_numwka`	`00FFFA11 08DFD8 bsr shl_numwka`
`00FFFA8C 08DFDC bsr shl_numwka`	`00FFFA13 08DFD6 bsr shl_numwka`
`00FFFA8E 0C400F andb #$0f`	`00FFFA15 0C400F andb #$0f`
`00FFFA90 0DA913 orb mon_numwka+3`	`00FFFA17 0FA000913 orb mon_numwka+3`
`00FFFA92 0D7913 stb mon_numwka+3`	`00FFFA1A 0F7000913 stb mon_numwka+3`
`00FFFA94 030001 inx`	`00FFFA1D 030001 inx`
`00FFFA96 08C000009 cmpx #9`	`00FFFA1F 08C00000C cmpx #12`
`00FFFA99 025FE3 blo gthxn2`	`00FFFA22 025FE1 blo gthxn2`
`gthxn1:`	`gthxn1:`
`00FFFA9B 01F010 tfr x,d`	`00FFFA24 01F010 tfr x,d`
`00FFFA9D 035090 puls x,pc`	`00FFFA26 035090 puls x,pc`

`;GetDecNumber:`	`;GetDecNumber:`
`; phx`	`; phx`
`; push r4`	`; push r4`
`; push r5`	`; push r5`
Line 1985...	Line 4180...
`; Convert ASCII character in the range '0' to '9', 'a' to 'f' or 'A' to 'F'`	`; Convert ASCII character in the range '0' to '9', 'a' to 'f' or 'A' to 'F'`
`; to a hex nybble.`	`; to a hex nybble.`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;`	`;`
`AsciiToHexNybble:`	`AsciiToHexNybble:`
`00FFFA9F 0C1030 cmpb #'0'`	`00FFFA28 0C1030 cmpb #'0'`
`00FFFAA1 024021 bcc gthx3`	`00FFFA2A 025021 blo gthx3`
`00FFFAA3 0C103A cmpb #'9'+1`	`00FFFA2C 0C1039 cmpb #'9'`
`00FFFAA5 025003 bcs gthx5`	`00FFFA2E 022003 bhi gthx5`
`00FFFAA7 0C0030 subb #'0'`	`00FFFA30 0C0030 subb #'0'`
`00FFFAA9 039 rts`	`00FFFA32 039 rts`
`gthx5:`	`gthx5:`
`00FFFAAA 0C1041 cmpb #'A'`	`00FFFA33 0C1041 cmpb #'A'`
`00FFFAAC 024016 bcc gthx3`	`00FFFA35 025016 blo gthx3`
`00FFFAAE 0C1047 cmpb #'F'+1`	`00FFFA37 0C1046 cmpb #'F'`
`00FFFAB0 025005 bcs gthx6`	`00FFFA39 022005 bhi gthx6`
`00FFFAB2 0C0041 subb #'A'`	`00FFFA3B 0C0041 subb #'A'`
`00FFFAB4 0CB00A addb #10`	`00FFFA3D 0CB00A addb #10`
`00FFFAB6 039 rts`	`00FFFA3F 039 rts`
`gthx6:`	`gthx6:`
`00FFFAB7 0C1061 cmpb #'a'`	`00FFFA40 0C1061 cmpb #'a'`
`00FFFAB9 024009 bcc gthx3`	`00FFFA42 025009 blo gthx3`
`00FFFABB 0C107B cmpb #'z'+1`	`00FFFA44 0C107A cmpb #'z'`
`00FFFABD 025005 bcs gthx3`	`00FFFA46 022005 bhi gthx3`
`00FFFABF 0C0061 subb #'a'`	`00FFFA48 0C0061 subb #'a'`
`00FFFAC1 0CB00A addb #10`	`00FFFA4A 0CB00A addb #10`
`00FFFAC3 039 rts`	`00FFFA4C 039 rts`
`gthx3:`	`gthx3:`
`00FFFAC4 0C6FFF ldb #-1 ; not a hex number`	`00FFFA4D 0C6FFF ldb #-1 ; not a hex number`
`00FFFAC6 039 rts`	`00FFFA4F 039 rts`

`AsciiToDecNybble:`	`AsciiToDecNybble:`
`00FFFAC7 0C1030 cmpb #'0'`	`00FFFA50 0C1030 cmpb #'0'`
`00FFFAC9 024007 bcc gtdc3`	`00FFFA52 024007 bcc gtdc3`
`00FFFACB 0C103A cmpb #'9'+1`	`00FFFA54 0C103A cmpb #'9'+1`
`00FFFACD 025003 bcs gtdc3`	`00FFFA56 025003 bcs gtdc3`
`00FFFACF 0C0030 subb #'0'`	`00FFFA58 0C0030 subb #'0'`
`00FFFAD1 039 rts`	`00FFFA5A 039 rts`
`gtdc3:`	`gtdc3:`
`00FFFAD2 0C6FFF ldb #-1`	`00FFFA5B 0C6FFF ldb #-1`
`00FFFAD4 039 rts`	`00FFFA5D 039 rts`

`DisplayErr:`	`DisplayErr:`
`00FFFAD5 08EFFFAE7 ldx #msgErr`	`00FFFA5E 08EFFFA70 ldx #msgErr`
`00FFFAD8 04F05F clrd`	`00FFFA61 04F05F clrd`
`00FFFADA 08D003 bsr DisplayStringDX`	`00FFFA63 08D003 bsr DisplayStringDX`
`00FFFADC 07EFFF996 jmp Monitor`	`00FFFA65 07EFFF8AC jmp Monitor`

`DisplayStringDX`	`DisplayStringDX`
`00FFFADF 0DD024 std Strptr`	`00FFFA68 0DD024 std Strptr`
`00FFFAE1 09F026 stx Strptr+2`	`00FFFA6A 09F026 stx Strptr+2`
`00FFFAE3 0BDFFF354 jsr DisplayString`	`00FFFA6C 0BDFFE3A2 jsr DisplayString`
`00FFFAE6 039 rts`	`00FFFA6F 039 rts`

`msgErr:`	`msgErr:`
`00FFFAE7 02A02A04507207200D00A fcb "**Err",CR,LF,0`	`00FFFA70 02A02A04507207200D00A fcb "**Err",CR,LF,0`
`00FFFAEE 000`	`00FFFA77 000`

`HelpMsg:`	`HelpMsg:`
`00FFFAEF 03F02003D020044069073 fcb "? = Display help",CR,LF`	`00FFFA78 03F02003D020044069073 fcb "? = Display help",CR,LF`
`00FFFAF6 07006C061079020068065`	`00FFFA7F 07006C061079020068065`
`00FFFAFD 06C07000D00A`	`00FFFA86 06C07000D00A`
`00FFFB01 04304C05302003D020063 fcb "CLS = clear screen",CR,LF`	`00FFFA8A 04304C05302003D020063 fcb "CLS = clear screen",CR,LF`
`00FFFB08 06C065061072020073063`	`00FFFA91 06C065061072020073063`
`00FFFB0F 07206506506E00D00A`	`00FFFA98 07206506506E00D00A`
`; db "S = Boot from SD Card",CR,LF`	`; db "S = Boot from SD Card",CR,LF`
`; db ": = Edit memory bytes",CR,LF`	`; db ": = Edit memory bytes",CR,LF`
`; db "L = Load sector",CR,LF`	`; db "L = Load sector",CR,LF`
`; db "W = Write sector",CR,LF`	`; db "W = Write sector",CR,LF`
`00FFFB15 04405202003D020044075 fcb "DR = Dump registers",CR,LF`	`00FFFA9E 04405202003D020044075 fcb "DR = Dump registers",CR,LF`
`00FFFB1C 06D070020072065067069`	`00FFFAA5 06D070020072065067069`
`00FFFB23 07307406507207300D00A`	`00FFFAAC 07307406507207300D00A`
`; db "D = Dump memory",CR,LF`	`00FFFAB3 04402003D02004407506D fcb "D = Dump memory",CR,LF`
	`00FFFABA 07002006D06506D06F072`
	`00FFFAC1 07900D00A`
`; db "F = Fill memory",CR,LF`	`; db "F = Fill memory",CR,LF`
`; db "FL = Dump I/O Focus List",CR,LF`	`; db "FL = Dump I/O Focus List",CR,LF`
`00FFFB2A 04604904702003D020073 fcb "FIG = start FIG Forth",CR,LF`	`00FFFAC4 04604904702003D020073 fcb "FIG = start FIG Forth",CR,LF`
`00FFFB31 074061072074020046049`	`00FFFACB 074061072074020046049`
`00FFFB38 04702004606F072074068`	`00FFFAD2 04702004606F072074068`
`00FFFB3F 00D00A`	`00FFFAD9 00D00A`
`; db "KILL n = kill task #n",CR,LF`	`; db "KILL n = kill task #n",CR,LF`
`; db "B = start tiny basic",CR,LF`	`; db "B = start tiny basic",CR,LF`
`; db "b = start EhBasic 6502",CR,LF`	`; db "b = start EhBasic 6502",CR,LF`
`00FFFB41 04A02003D02004A07506D fcb "J = Jump to code",CR,LF`	`00FFFADB 04A02003D02004A07506D fcb "J = Jump to code",CR,LF`
`00FFFB48 07002007406F02006306F`	`00FFFAE2 07002007406F02006306F`
`00FFFB4F 06406500D00A`	`00FFFAE9 06406500D00A`
`00FFFB53 05204104D02003D020074 fcb "RAM = test RAM",CR,LF`	`00FFFAED 05204104D02003D020074 fcb "RAM = test RAM",CR,LF`
`00FFFB5A 06507307402005204104D`	`00FFFAF4 06507307402005204104D`
`00FFFB61 00D00A`	`00FFFAFB 00D00A`
`; db "R[n] = Set register value",CR,LF`	`; db "R[n] = Set register value",CR,LF`
`; db "r = random lines - test bitmap",CR,LF`	`; db "r = random lines - test bitmap",CR,LF`
`; db "e = ethernet test",CR,LF`	`; db "e = ethernet test",CR,LF`
	`00FFFAFD 07302003D020073065072 fcb "s = serial output test",CR,LF`
	`00FFFB04 06906106C02006F075074`
	`00FFFB0B 070075074020074065073`
	`00FFFB12 07400D00A`
`; db "T = Dump task list",CR,LF`	`; db "T = Dump task list",CR,LF`
`; db "TO = Dump timeout list",CR,LF`	`; db "TO = Dump timeout list",CR,LF`
`; db "TI = display date/time",CR,LF`	`00FFFB15 05404902003D020064069 fcb "TI = display date/time",CR,LF`
	`00FFFB1C 07307006C061079020064`
	`00FFFB23 06107406502F07406906D`
	`00FFFB2A 06500D00A`
`; db "TEMP = display temperature",CR,LF`	`; db "TEMP = display temperature",CR,LF`
`; db "P = Piano",CR,LF,0`	`; db "P = Piano",CR,LF,0`
`00FFFB63 000 fcb 0`	`00FFFB2D 000 fcb 0`

`msgRegHeadings`	`msgRegHeadings`
`00FFFB64 00D00A02004402F041042 fcb CR,LF," D/AB X Y U S PC DP CCR",CR,LF,0`	`00FFFB2E 00D00A02002004402F041 fcb CR,LF," D/AB X Y U S PC DP CCR",CR,LF,0`
`00FFFB6B 020020020058020020020`	`00FFFB35 042020020020020020058`
`00FFFB72 020059020020020020055`	`00FFFB3C 020020020020020020059`
`00FFFB79 020020020020053020020`	`00FFFB43 020020020020020020055`
`00FFFB80 020020020050043020020`	`00FFFB4A 020020020020020020053`
`00FFFB87 020020044050020043043`	`00FFFB51 020020020020020020020`
`00FFFB8E 05200D00A000`	`00FFFB58 050043020020020020044`
	`00FFFB5F 05002002004304305200D`
	`00FFFB66 00A000`

`nHEX4:`	`nHEX4:`
`00FFFB92 0BDFFD2D2 jsr HEX4`	`00FFFB68 0BDFFD2D2 jsr HEX4`
`00FFFB95 039 rts`	`00FFFB6B 039 rts`

`nXBLANK:`	`nXBLANK:`
`00FFFB96 0C6020 ldb #' '`	`00FFFB6C 0C6020 ldb #' '`
`00FFFB98 020DE2 bra OUTCH`	`00FFFB6E 016FFF1A1 lbra OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`

	`;------------------------------------------------------------------------------`
	`; Dump Memory`
	`;`
	`; Usage:`
	`; $D FFFC12 8`
	`;`
	`; Dump formatted to look like:`
	`; :FFFC12 012 012 012 012 555 666 777 888`
	`;`
	`;------------------------------------------------------------------------------`

	`DumpMemory:`
	`00FFFB71 08DE42 bsr GetTwoParams`
	`00FFFB73 18E000000 ldy #0`
	`00FFFB76 1BE000922 ldy mon_r1+2`
	`dmpm2:`
	`00FFFB79 017FFD556 lbsr CRLF`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB7C 0C603A ldb #':'`
	`00FFFB7E 017FFF191 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB81 01F020 tfr y,d`
	`;addd mon_r1+2 ; output the address`
	`00FFFB83 017FFE867 lbsr DispWordAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB86 0C6020 ldb #' '`
	`00FFFB88 017FFF187 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB8B 08E000008 ldx #8 ; number of bytes to display`
	`dmpm1:`
	`; ldb far [mon_r1+1],y`
	`;ldb [mon_r1+2],y`
	`00FFFB8E 0E6A04 ldb ,y`
	`00FFFB90 031201 iny`
	`00FFFB92 017FFE861 lbsr DispByteAsHex ; display byte`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB95 0C6020 ldb #' ' ; followed by a space`
	`00FFFB97 017FFF178 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB9A 05F clrb`
	`00FFFB9B 04F clra`
	`00FFFB9C 017FFF13B lbsr INCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFB9F 0C1003 cmpb #CTRLC`
	`00FFFBA1 027024 beq dmpm3`
	`00FFFBA3 0301FF dex`
	`00FFFBA5 026FE7 bne dmpm1`
	`; Now output ascii`
	`00FFFBA7 0C6020 ldb #' '`
	`00FFFBA9 017FFF166 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFBAC 08E000008 ldx #8 ; 8 chars to output`
	`00FFFBAF 0313F8 leay -8,y ; backup pointer`
	`dmpm5:`
	`; ldb far [mon_r1+1],y ; get the char`
	`; ldb [mon_r1+2],y ; get the char`
	`00FFFBB1 0E6A04 ldb ,y`
	`00FFFBB3 0C1020 cmpb #$20 ; is it a control char?`
	`00FFFBB5 024002 bhs dmpm4`
	`00FFFBB7 0C602E ldb #'.'`
	`dmpm4:`
	`00FFFBB9 017FFF156 lbsr OUTCH`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFBBC 031201 iny`
	`00FFFBBE 0301FF dex`
	`00FFFBC0 026FEF bne dmpm5`
	`00FFFBC2 1BC000926 cmpy mon_r2+2`
	`00FFFBC5 025FB2 blo dmpm2`
	`dmpm3:`
	`00FFFBC7 017FFD508 lbsr CRLF`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFBCA 016FFFCDF lbra Monitor`
	`*** warning 1: Long branch within short branch range could be optimized`

`DumpRegs`	`;------------------------------------------------------------------------------`
`00FFFB9A 08EFFFB64 ldx #msgRegHeadings`	`; Dump Registers`
`00FFFB9D 0CC0000FF ldd #msgRegHeadings>>16`	`;`
`00FFFBA0 0BDFFFADF jsr DisplayStringDX`	`; Usage:`
`00FFFBA3 08DFF1 bsr nXBLANK`	`; $DR`
`00FFFBA5 0DC900 ldd mon_DSAVE`	`;------------------------------------------------------------------------------`
`00FFFBA7 08DFE9 bsr nHEX4`
`00FFFBA9 08DFEB bsr nXBLANK`
`00FFFBAB 0DC902 ldd mon_XSAVE`
`00FFFBAD 08DFE3 bsr nHEX4`
`00FFFBAF 08DFE5 bsr nXBLANK`
`00FFFBB1 0DC904 ldd mon_YSAVE`
`00FFFBB3 08DFDD bsr nHEX4`
`00FFFBB5 08DFDF bsr nXBLANK`
`00FFFBB7 0DC906 ldd mon_USAVE`
`00FFFBB9 08DFD7 bsr nHEX4`
`00FFFBBB 08DFD9 bsr nXBLANK`
`00FFFBBD 0DC908 ldd mon_SSAVE`
`00FFFBBF 08DFD1 bsr nHEX4`
`00FFFBC1 08DFD3 bsr nXBLANK`
`00FFFBC3 0DC90A ldd mon_PCSAVE`
`00FFFBC5 08DFCB bsr nHEX4`
`00FFFBC7 0DC90C ldd mon_PCSAVE+2`
`00FFFBC9 08DFC7 bsr nHEX4`
`00FFFBCB 08DFC9 bsr nXBLANK`
`00FFFBCD 0DC90E ldd mon_DPRSAVE`
`00FFFBCF 0BDFFD2CE jsr HEX2`
`00FFFBD2 08DFC2 bsr nXBLANK`
`00FFFBD4 09690F lda mon_CCRSAVE`
`00FFFBD6 0BDFFD2CE jsr HEX2`
`00FFFBD9 08DFBB bsr nXBLANK`
`00FFFBDB 07EFFF996 jmp Monitor`

	`DumpRegs:`
	`00FFFBCD 0CCFFFB2E ldd #msgRegHeadings`
	`00FFFBD0 017FFE7CF lbsr DisplayString`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFBD3 08DF97 bsr nXBLANK`
	`00FFFBD5 0FC000900 ldd mon_DSAVE`
	`00FFFBD8 08DF8E bsr nHEX4`
	`00FFFBDA 08DF90 bsr nXBLANK`
	`00FFFBDC 0FC000902 ldd mon_XSAVE`
	`00FFFBDF 08DF87 bsr nHEX4`
	`00FFFBE1 08DF89 bsr nXBLANK`
	`00FFFBE3 0FC000904 ldd mon_YSAVE`
	`00FFFBE6 08DF80 bsr nHEX4`
	`00FFFBE8 08DF82 bsr nXBLANK`
	`00FFFBEA 0FC000906 ldd mon_USAVE`
	`00FFFBED 08DF79 bsr nHEX4`
	`00FFFBEF 08DF7B bsr nXBLANK`
	`00FFFBF1 0FC000908 ldd mon_SSAVE`
	`00FFFBF4 08DF72 bsr nHEX4`
	`00FFFBF6 08DF74 bsr nXBLANK`
	`00FFFBF8 0F600090B ldb mon_PCSAVE+1`
	`00FFFBFB 017FFE7F8 lbsr DispByteAsHex`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFBFE 0FC00090C ldd mon_PCSAVE+2`
	`00FFFC01 08DF65 bsr nHEX4`
	`00FFFC03 08DF67 bsr nXBLANK`
	`00FFFC05 0FC00090E ldd mon_DPRSAVE`
	`00FFFC08 0BDFFD2CE jsr HEX2`
	`00FFFC0B 08DF5F bsr nXBLANK`
	`00FFFC0D 0B600090F lda mon_CCRSAVE`
	`00FFFC10 017FFD6BB lbsr HEX2`
	`*** warning 1: Long branch within short branch range could be optimized`
	`00FFFC13 08DF57 bsr nXBLANK`
	`00FFFC15 016FFFC94 lbra Monitor`
	`*** warning 1: Long branch within short branch range could be optimized`

	`;------------------------------------------------------------------------------`
`; Jump to code`	`; Jump to code`
	`;`
	`; Registers are loaded with values from the monitor register save area before`
	`; the code is jumped to.`
	`;`
	`; J`
	`;------------------------------------------------------------------------------`

`jump_to_code:`	`jump_to_code:`
`00FFFBDE 08DE93 bsr GetHexNumber`	`00FFFC18 08DDDE bsr GetHexNumber`
`00FFFBE0 01A010 sei`	`00FFFC1A 01A010 sei`
`00FFFBE2 1DE908 lds mon_SSAVE`	`00FFFC1C 1FE000908 lds mon_SSAVE`
`00FFFBE4 0CCFFFC11 ldd #`	`00FFFC1F 0CCFFFC53 ldd #`
`00FFFBE7 034006 pshs d`	`00FFFC22 034006 pshs d`
`00FFFBE9 0CC000000 ldd #>jtc_exit`	`00FFFC24 0C6000 ldb #>jtc_exit`
`00FFFBEC 034004 pshs b`	`00FFFC26 034004 pshs b`
`00FFFBEE 0DC912 ldd mon_numwka+2`	`00FFFC28 0FC000912 ldd mon_numwka+2`
`00FFFBF0 034006 pshs d`	`00FFFC2B 034006 pshs d`
`00FFFBF2 0DC910 ldd mon_numwka`	`00FFFC2D 0F6000911 ldb mon_numwka+1`
`00FFFBF4 034006 pshs d`	`00FFFC30 034004 pshs b`
`00FFFBF6 0DC906 ldd mon_USAVE`	`00FFFC32 0FC000906 ldd mon_USAVE`
`00FFFBF8 034006 pshs d`	`00FFFC35 034006 pshs d`
`00FFFBFA 0DC904 ldd mon_YSAVE`	`00FFFC37 0FC000904 ldd mon_YSAVE`
`00FFFBFC 034006 pshs d`	`00FFFC3A 034006 pshs d`
`00FFFBFE 0DC902 ldd mon_XSAVE`	`00FFFC3C 0FC000902 ldd mon_XSAVE`
`00FFFC00 034006 pshs d`	`00FFFC3F 034006 pshs d`
`00FFFC02 09690E lda mon_DPRSave`	`00FFFC41 0B600090E lda mon_DPRSave`
`00FFFC04 034002 pshs a`	`00FFFC44 034002 pshs a`
`00FFFC06 0DC900 ldd mon_DSAVE`	`00FFFC46 0FC000900 ldd mon_DSAVE`
`00FFFC08 034006 pshs d`	`00FFFC49 034006 pshs d`
`00FFFC0A 09690F lda mon_CCRSAVE`	`00FFFC4B 0B600090F lda mon_CCRSAVE`
`00FFFC0C 034002 pshs a`	`00FFFC4E 034002 pshs a`
`00FFFC0E 0150350FF puls far ccr,d,dpr,x,y,u,pc`	`00FFFC50 0150350FF puls far ccr,d,dpr,x,y,u,pc`
`jtc_exit:`	`jtc_exit:`
`00FFFC11 034001 pshs ccr`	`00FFFC53 1FF000908 sts >mon_SSAVE ; need to use extended addressing, no direct page setting`
`00FFFC13 0DD900 std mon_DSAVE`	`00FFFC56 03280F006FFF leas $6FFF ; reset stack to system area, dont modify flags register!`
`00FFFC15 09F902 stx mon_XSAVE`	`00FFFC5A 034001 pshs ccr ; now the stack can be used`
`00FFFC17 19F904 sty mon_YSAVE`	`00FFFC5C 034002 pshs a ; save acca register so we can use it`
`00FFFC19 0DF906 stu mon_USAVE`	`00FFFC5E 01F0B8 tfr dpr,a ; a = outgoing dpr value`
`00FFFC1B 01F0B8 tfr dpr,a`	`00FFFC60 0B700090E sta >mon_DPRSAVE ; force extended addressing mode usage here dpr is not set`
`00FFFC1D 09790E sta mon_DPRSAVE`	`00FFFC63 04F clra ; dpg register must be set to zero before values are`
`00FFFC1F 035002 puls a`	`00FFFC64 01F08B tfr a,dpr ; saved in the monitor register save area.`
`00FFFC21 09790F sta mon_CCRSAVE`	`00FFFC66 035002 puls a ; get back acca`
`00FFFC23 1DF908 sts mon_SSAVE`	`00FFFC68 0FD000900 std mon_DSAVE ; save regsters, can use direct addressing now`
`00FFFC25 1CE003FFF lds #$3FFF`	`00FFFC6B 0BF000902 stx mon_XSAVE`
	`00FFFC6E 1BF000904 sty mon_YSAVE`
	`00FFFC71 0FF000906 stu mon_USAVE`
	`00FFFC74 035002 puls a ; get back ccr`
	`00FFFC76 0B700090F sta mon_CCRSAVE ; and save it too`
	`; Reset vectors in case they got toasted.`
	`00FFFC79 0CCFFEBE4 ldd #SerialPeekCharDirect`
	`00FFFC7C 0FD000804 std CharInVec`
	`00FFFC7F 0CCFFE2E1 ldd #DisplayChar`
	`00FFFC82 0FD000800 std CharOutVec`
`; todo set according to coreid`	`; todo set according to coreid`
`00FFFC28 07EFFFB9A jmp DumpRegs`	`00FFFC85 016FFFF45 lbra DumpRegs ; now go do a register dump`
	`*** warning 1: Long branch within short branch range could be optimized`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`swi3_rout:`	`swi3_rout:`
`00FFFC2B 01A010 sei`	`00FFFC88 01A010 sei`
`00FFFC2D 035002 puls a`	`00FFFC8A 035002 puls a`
`00FFFC2F 09790F sta mon_CCRSAVE`	`00FFFC8C 0B700090F sta mon_CCRSAVE`
`00FFFC31 03507E puls D,DPR,X,Y,U`	`00FFFC8F 03507E puls D,DPR,X,Y,U`
`00FFFC33 0DD900 std mon_DSAVE`	`00FFFC91 0FD000900 std mon_DSAVE`
`00FFFC35 09F902 stx mon_XSAVE`	`00FFFC94 0BF000902 stx mon_XSAVE`
`00FFFC37 19F904 sty mon_YSAVE`	`00FFFC97 1BF000904 sty mon_YSAVE`
`00FFFC39 0DF906 stu mon_USAVE`	`00FFFC9A 0FF000906 stu mon_USAVE`
`00FFFC3B 01F0B8 tfr dpr,a`	`00FFFC9D 01F0B8 tfr dpr,a`
`00FFFC3D 09790E sta mon_DPRSAVE`	`00FFFC9F 0B700090E sta mon_DPRSAVE`
`00FFFC3F 035006 puls D`	`00FFFCA2 035002 puls a`
`00FFFC41 0DD90A std mon_PCSAVE`	`00FFFCA4 0B700090A sta mon_PCSAVE`
`00FFFC43 035006 puls D`	`00FFFCA7 035006 puls D`
`00FFFC45 0DD90C std mon_PCSAVE+2`	`00FFFCA9 0FD00090B std mon_PCSAVE+1`
`00FFFC47 1DF908 sts mon_SSAVE`	`00FFFCAC 1FF000908 sts mon_SSAVE`
`00FFFC49 1CE003FFF lds #$3FFF`	`00FFFCAF 1CE003FFF lds #$3FFF`
`00FFFC4C 01C0EF cli`	`00FFFCB2 01C0EF cli`
`00FFFC4E 07EFFFB9A jmp DumpRegs`	`00FFFCB4 07EFFFBCD jmp DumpRegs`
`swi3_exit:`	`swi3_exit:`
`00FFFC51 01A010 sei`	`00FFFCB7 01A010 sei`
`00FFFC53 1DE908 lds mon_SSAVE`	`00FFFCB9 1FE000908 lds mon_SSAVE`
`00FFFC55 0DC90C ldd mon_PCSAVE+2`	`00FFFCBC 0FC00090B ldd mon_PCSAVE+1`
`00FFFC57 034006 pshs d`	`00FFFCBF 034006 pshs d`
`00FFFC59 0DC90A ldd mon_PCSAVE`	`00FFFCC1 0B600090A lda mon_PCSAVE`
`00FFFC5B 034006 pshs d`	`00FFFCC4 034002 pshs a`
`00FFFC5D 0DE906 ldu mon_USAVE`	`00FFFCC6 0FE000906 ldu mon_USAVE`
`00FFFC5F 19E904 ldy mon_YSAVE`	`00FFFCC9 1BE000904 ldy mon_YSAVE`
`00FFFC61 09E902 ldx mon_XSAVE`	`00FFFCCC 0BE000902 ldx mon_XSAVE`
`00FFFC63 034070 pshs x,y,u`	`00FFFCCF 034070 pshs x,y,u`
`00FFFC65 09690E lda mon_DPRSAVE`	`00FFFCD1 0B600090E lda mon_DPRSAVE`
`00FFFC67 034002 pshs a`	`00FFFCD4 034002 pshs a`
`00FFFC69 0DC900 ldd mon_DSAVE`	`00FFFCD6 0FC000900 ldd mon_DSAVE`
`00FFFC6B 034006 pshs d`	`00FFFCD9 034006 pshs d`
`00FFFC6D 09690F lda mon_CCRSAVE`	`00FFFCDB 0B600090F lda mon_CCRSAVE`
`00FFFC6F 034002 pshs a`	`00FFFCDE 034002 pshs a`
`00FFFC71 01F08A tfr a,ccr`	`00FFFCE0 01F08A tfr a,ccr`
`00FFFC73 01C0EF cli`	`00FFFCE2 01C0EF cli`
`00FFFC75 03B rti`	`00FFFCE4 03B rti`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
	`firq_rout:`
	`00FFFCE5 03B rti`

`irq_rout:`	`irq_rout:`
`; Reset the edge sense circuit in the PIC`	`; lbsr SerialIRQ ; check for recieved character`
`00FFFC76 086002 lda #2 ; Timer is IRQ #2`	`; lbsr TimerIRQ`
`00FFFC78 0150B7FFFE3F006 sta PIC+6 ; register 6 is edge sense reset reg`

`00FFFC7D 09779A sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()`	`; Reset the edge sense circuit in the PIC`
`00FFFC7F 0960DF lda IrqBase ; get the IRQ flag byte`	`00FFFCE6 08601F lda #31 ; Timer is IRQ #31`
`00FFFC81 044 lsra`	`00FFFCE8 0B7FF0011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()`
`00FFFC82 09A0DF ora IrqBase`	`00FFFCEB 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg`
`00FFFC84 0840E0 anda #$E0`	`00FFFCF0 0150B6FFFE6000D lda VIA+VIA_IFR`
`00FFFC86 0970DF sta IrqBase`	`00FFFCF5 02A011 bpl notTimerIRQ2`
	`00FFFCF7 085800 bita #$800`
	`00FFFCF9 02700D beq notTimerIRQ2`
	`00FFFCFB 01507FFFFE60012 clr VIA+VIA_T3LL`
	`00FFFD00 01507FFFFE60013 clr VIA+VIA_T3LH`
	`00FFFD05 07CE00037 inc $E00037 ; update timer IRQ screen flag`
	`notTimerIRQ2:`

	`00FFFD08 0B6FF0014 lda IrqBase ; get the IRQ flag byte`
	`00FFFD0B 044 lsra`
	`00FFFD0C 0BAFF0014 ora IrqBase`
	`00FFFD0F 0840E0 anda #$E0`
	`00FFFD11 0B7FF0014 sta IrqBase`

`00FFFC88 01507CFFFE0006E inc TEXTSCR+110 ; update IRQ live indicator on screen`	`; inc TEXTSCR+54 ; update IRQ live indicator on screen`

`; flash the cursor`	`; flash the cursor`
`; only bother to flash the cursor for the task with the IO focus.`	`; only bother to flash the cursor for the task with the IO focus.`
`00FFFC8D 0150B6FFFFFFFE0 lda COREID`	`; lda COREID`
`00FFFC92 091100 cmpa IOFocusID`	`; cmpa IOFocusID`
`00FFFC94 026021 bne tr1a`	`; bne tr1a`
`00FFFC96 096114 lda CursorFlash ; test if we want a flashing cursor`	`; lda CursorFlash ; test if we want a flashing cursor`
`00FFFC98 02701D beq tr1a`	`; beq tr1a`
`00FFFC9A 017FFF5DC lbsr CalcScreenLoc ; compute cursor location in memory`	`; lbsr CalcScreenLoc ; compute cursor location in memory`
`*** warning 1: Long branch within short branch range could be optimized`	`; tfr d,y`
`00FFFC9D 01F002 tfr d,y`	`; lda $2000,y ; get color code $2000 higher in memory`
`00FFFC9F 0A6A09002000 lda $2000,y ; get color code $2000 higher in memory`	`; ldb IRQFlag ; get counter`
`00FFFCA3 0D67C6 ldb IRQFlag ; get counter`	`; lsrb`
`00FFFCA5 054 lsrb`	`; lsra`
`00FFFCA6 044 lsra`	`; lsra`
`00FFFCA7 044 lsra`	`; lsra`
`00FFFCA8 044 lsra`	`; lsra`
`00FFFCA9 044 lsra`	`; lsrb`
`00FFFCAA 054 lsrb`	`; rola`
`00FFFCAB 049 rola`	`; lsrb`
`00FFFCAC 054 lsrb`	`; rola`
`00FFFCAD 049 rola`	`; lsrb`
`00FFFCAE 054 lsrb`	`; rola`
`00FFFCAF 049 rola`	`; lsrb`
`00FFFCB0 054 lsrb`	`; rola`
`00FFFCB1 049 rola`	`; sta $E00000,y ; store the color code back to memory`
`00FFFCB2 0A7A0A000E00000 sta $E00000,y ; store the color code back to memory`	`tr1a:`
`tr1a`	`00FFFD14 03B rti`
`00FFFCB7 03B rti`

`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`;------------------------------------------------------------------------------`	`;------------------------------------------------------------------------------`
`nmi_rout:`	`nmi_rout:`
`00FFFCB8 0150F6FFFFFFFE0 ldb COREID`	`00FFFD15 0150F6FFFFFFFE0 ldb COREID`
`00FFFCBD 086049 lda #'I'`	`00FFFD1A 086049 lda #'I'`
`00FFFCBF 08EE00028 ldx #TEXTSCR+40`	`00FFFD1C 08EE00028 ldx #TEXTSCR+40`
`00FFFCC2 03A abx`	`00FFFD1F 0A788F sta b,x`
`00FFFCC3 0A7804 sta ,x`	`rti_insn:`
`00FFFCC5 03B rti`	`00FFFD21 03B rti`

	`; Special Register Area`
	`org $FFFFE0`

	`; Interrupt vector table`

`org $FFFFF0`	`org $FFFFF0`
`00FFFFF0 012 nop`	`00FFFFF0 FFFD21 fcw rti_insn ; reserved`
`00FFFFF1 012 nop`	`00FFFFF2 FFFC88 fcw swi3_rout ; SWI3`
`00FFFFF2 FFFC2B fcw swi3_rout`	`00FFFFF4 FFFD21 fcw rti_insn ; SWI2`
	`00FFFFF6 FFFCE5 fcw firq_rout ; FIRQ`
`org $FFFFF8`	`00FFFFF8 FFFCE6 fcw irq_rout ; IRQ`
`00FFFFF8 FFFC76 fcw irq_rout`	`00FFFFFA FFE023 fcw start ; SWI`
`00FFFFFA FFF023 fcw start ; SWI`	`00FFFFFC FFFD15 fcw nmi_rout ; NMI`
`00FFFFFC FFFCB8 fcw nmi_rout ; NMI`	`00FFFFFE FFE023 fcw start ; RST`
`00FFFFFE FFF023 fcw start ; RST`

`8 warning(s) in pass 2.`	`176 warning(s) in pass 2.`

`SYMBOL TABLE`	`SYMBOL TABLE`
`ASCIITODECNYBBLE 02 00FFFAC7 ASCIITOHEXNYBBLE 02 00FFFA9F BIOS_SCREENS 00 17000000 BLANKLINE 02 00FFF216`	`ACIA 00 FFE30100 ACIA_CMD 00 00000002 ACIA_CTRL 00 00000003 ACIA_CTRL2 00 0000000B`
`BLKCPYDST 00 00000020 BLKCPYSRC 00 0000001C BLNKLN1 02 00FFF229 CALCSCREENLOC 02 00FFF279`	`ACIA_RX 00 00000000 ACIA_STAT 00 00000001 ACIA_TX 00 00000000 ASCIITODECNYBBLE 02 00FFFA50`
`CHARCOLOR 00 00000112 CHARINVEC 00 00000804 CHAROUTVEC 00 00000800 CHECKPOINT 02 00FFF0E0`	`ASCIITOHEXNYBBLE 02 00FFFA28 ASMBUF 00 00000160 ASMO 02 00FFF846 ASMOO 02 00FFF850`
`CLEARSCREEN 02 00FFF1D0 CLEARSCREENJMP 02 00FFD300 COLORCODELOCATION 00 00000014 COPYSCREENTOVIRTUALSCREEN 02 00FFF1A0`	`ASMOUTCH 02 00FFF85A BIOS_SCREENS 00 17000000 BLANKLINE 02 00FFE258 BLKCPYDST 00 00000020`
`COPYVIRTUALSCREENTOSCREEN 02 00FFF178 COREID 00 FFFFFFE0 CR 00 0000000D CRLF 02 00FFD0D2`	`BLKCPYSRC 00 0000001C BLNKLN1 02 00FFE26B CALCSCREENLOC 02 00FFE2BE CHARCOLOR 00 00000112`
`CRLF1 02 00FFD0D2 CRLFST 02 00FFF388 CS1 02 00FFF1DD CS2 02 00FFF1F3`	`CHARINVEC 00 00000804 CHAROUTVEC 00 00000800 CHECKPOINT 02 00FFE115 CLEARSCREEN 02 00FFE211`
`CS2V1 02 00FFF1AC CS3 02 00FFF1F9 CSL1 02 00FFF293 CTRLC 00 00000003`	`CLEARSCREENJMP 02 00FFD300 CMDPROMPT 02 00FFF86A CMDPROMPTJI 00 00000808 COLORCODELOCATION 00 00000014`
`CTRLH 00 00000008 CTRLI 00 00000009 CTRLJ 00 0000000A CTRLK 00 0000000B`	`COPYSCREENTOVIRTUALSCREEN 02 00FFE1E1 COPYVIRTUALSCREENTOSCREEN 02 00FFE1AA COREID 00 FFFFFFE0 CR 00 0000000D`
`CTRLM 00 0000000D CTRLS 00 00000013 CTRLX 00 00000018 CURSORCOL 00 00000111`	`CRLF 02 00FFD0D2 CRLF1 02 00FFD0D2 CRLFST 02 00FFE3E1 CS1 02 00FFE21E`
`CURSORFLASH 00 00000114 CURSORROW 00 00000110 CV2S1 02 00FFF184 DBGCHECKFORKEY 02 00FFF839`	`CS2 02 00FFE235 CS2V1 02 00FFE1ED CS3 02 00FFE23B CSL1 02 00FFE2D9`
`DBGGETKEY 02 00FFF83B DBGK1 02 00FFF84F DBGK10 02 00FFF89E DBGK11 02 00FFF8F7`	`CTRLC 00 00000003 CTRLH 00 00000008 CTRLI 00 00000009 CTRLJ 00 0000000A`
`DBGK12 02 00FFF8FD DBGK13 02 00FFF909 DBGK14 02 00FFF919 DBGK15 02 00FFF928`	`CTRLK 00 0000000B CTRLM 00 0000000D CTRLS 00 00000013 CTRLT 00 00000014`
`DBGK16 02 00FFF933 DBGK17 02 00FFF93C DBGK18 02 00FFF93F DBGK2 02 00FFF83D`	`CTRLX 00 00000018 CURSORCOL 00 00000111 CURSORFLASH 00 00000114 CURSORROW 00 00000110`
`DBGK3 02 00FFF854 DBGK4 02 00FFF862 DBGK5 02 00FFF86E DBGK7 02 00FFF87E`	`CV2S1 02 00FFE1BF DAB1 02 00FFF869 DAB2 02 00FFF860 DBGCHECKFORKEY 02 00FFEA10`
`DBGK8 02 00FFF884 DBGK9 02 00FFF898 DBGKNOTALT 02 00FFF901 DBGKNOTCAPSLOCK 02 00FFF8D0`	`DBGK1 02 00FFEA4B DBGK10 02 00FFEAB0 DBGK11 02 00FFEB09 DBGK12 02 00FFEB0F`
`DBGKNOTCTRL 02 00FFF888 DBGKNOTNUMLOCK 02 00FFF8B9 DBGKNOTRSHIFT 02 00FFF8A2 DBGKNOTSCROLLLOCK 02 00FFF8E7`	`DBGK13 02 00FFEB1B DBGK14 02 00FFEB2B DBGK15 02 00FFEB3A DBGK16 02 00FFEB45`
`DCCR 02 00FFF2A7 DCLF 02 00FFF32D DCX10 02 00FFF2E1 DCX11 02 00FFF2F1`	`DBGK17 02 00FFEB4E DBGK18 02 00FFEB51 DBGK2 02 00FFEA16 DBGK20 02 00FFEA38`
`DCX12 02 00FFF2ED DCX13 02 00FFF2FD DCX14 02 00FFF2A5 DCX3 02 00FFF31B`	`DBGK22 02 00FFEA54 DBGK23 02 00FFEA65 DBGK24 02 00FFEA46 DBGK3 02 00FFEA68`
`DCX4 02 00FFF32F DCX5 02 00FFF30A DCX6 02 00FFF2B8 DCX7 02 00FFF2B4`	`DBGK4 02 00FFEA74 DBGK5 02 00FFEA80 DBGK7 02 00FFEA90 DBGK8 02 00FFEA96`
`DCX8 02 00FFF2C5 DCX9 02 00FFF2D2 DELAY3S 02 00FFF15B DISPBYTEASHEX 02 00FFF39D`	`DBGK9 02 00FFEAAA DBGKNOTALT 02 00FFEB13 DBGKNOTCAPSLOCK 02 00FFEAE2 DBGKNOTCTRL 02 00FFEA9A`
`DISPDWORDASHEX 02 00FFF38B DISPLAYCHAR 02 00FFF29B DISPLAYERR 02 00FFFAD5 DISPLAYSTRING 02 00FFF354`	`DBGKNOTNUMLOCK 02 00FFEACB DBGKNOTRSHIFT 02 00FFEAB4 DBGKNOTSCROLLLOCK 02 00FFEAF9 DCCR 02 00FFE2F1`
`DISPLAYSTRINGCRLF 02 00FFF362 DISPLAYSTRINGDX 02 00FFFADF DISPNYB 02 00FFF3B5 DISPNYB1 02 00FFF3C3`	`DCLF 02 00FFE37B DCX10 02 00FFE32B DCX11 02 00FFE33B DCX12 02 00FFE337`
`DISPWORDASHEX 02 00FFF394 DLY3S1 02 00FFF15E DLY3S2 02 00FFF162 DRAM_BASE 00 10000000`	`DCX13 02 00FFE347 DCX14 02 00FFE2EE DCX3 02 00FFE369 DCX4 02 00FFE37D`
`DSPJ1B 02 00FFF358 DSRETB 02 00FFF360 DUMPREGS 02 00FFFB9A DUMRTS 02 00FFF022`	`DCX5 02 00FFE358 DCX6 02 00FFE302 DCX7 02 00FFE2FE DCX8 02 00FFE30F`
`FIRST_CORE 00 00000001 FREEMBX 02 00000002 FREEMSG 02 00000006 FREETCB 00 0000078A`	`DCX9 02 00FFE31C DELAY3S 02 00FFE18D DIRECT 00 00000001 DIS1 02 00FFF7CE`
`GETHEXNUMBER 02 00FFFA73 GETRANGE 02 00FFFA5A GETSCREENLOCATION 02 00FFF230 GETTWOPARAMS 02 00FFFA41`	`DIS10 02 00FFF566 DIS11 02 00FFF5A2 DIS12 02 00FFF5DF DIS13 02 00FFF61B`
`GSL1 02 00FFF23D GTDC3 02 00FFFAD2 GTHX3 02 00FFFAC4 GTHX5 02 00FFFAAA`	`DIS14 02 00FFF65C DIS15 02 00FFF698 DIS16 02 00FFF6D5 DIS17 02 00FFF718`
`GTHX6 02 00FFFAB7 GTHXN1 02 00FFFA9B GTHXN2 02 00FFFA7E HC1 02 00FFF256`	`DIS18 02 00FFF760 DIS19 02 00FFF7FA DIS2 02 00FFF405 DIS20 02 00FFF3CE`
`HELPMSG 02 00FFFAEF HEX2 02 00FFD2CE HEX4 02 00FFD2D2 HOMECURSOR 02 00FFF241`	`DIS21 02 00FFF403 DIS23 02 00FFF3D1 DIS24 02 00FFF7FD DIS25 02 00FFF80A`
`HOMECURSORJMP 02 00FFD308 ICC1 02 00FFF350 ICC2 02 00FFF352 ICR1 02 00FFF342`	`DIS3 02 00FFF42E DIS4 02 00FFF44B DIS5 02 00FFF45C DIS6 02 00FFF490`
`IGNBLANKS 02 00FFFA38 IGNBLANKS1 02 00FFFA38 INCCURSORPOS 02 00FFF331 INCCURSORROW 02 00FFF340`	`DIS7 02 00FFF4C7 DIS8 02 00FFF4FB DIS9 02 00FFF532 DISASSEM 02 00FFF3B4`
`INCH 02 00FFF95E INCHE 02 00FFF963 INCHEK 02 00FFF967 INCHEK1 02 00FFF97B`	`DISLOOP1 02 00FFF3BD DISNDXREG 02 00FFF831 DISNDXREGS 02 00FFF82D DISNEXTLINE 02 00FFF821`
`INCHEK2 02 00FFF979 INCHEK3 02 00FFF970 INIT 02 00FFF072 IOFOCUSID 00 00000100`	`DISNOT9 02 00FFF440 DISNOTAOFFS 02 00FFF5CA DISNOTBO 02 00FFF607 DISNOTBOFFS 02 00FFF58E`
`IOFOCUSNDX 00 00000100 IRQBASE 00 000000DF IRQFLAG 00 000007C6 IRQSOURCE 00 0000079A`	`DISNOTDIRECT 02 00FFF3FF DISNOTDOFFS 02 00FFF6C0 DISNOTEXT 02 00FFF7AD DISNOTIMMB 02 00FFF7BE`
`IRQ_ROUT 02 00FFFC76 JTC_EXIT 02 00FFFC11 JUMP_TO_CODE 02 00FFFBDE KBDI0002 02 00FFF7C5`	`DISNOTIMMW 02 00FFF7CE DISNOTLREL 02 00FFF40F DISNOTNDX 02 00FFF7A1 DISNOTPBO 02 00FFF704`
`KBDI0004 02 00FFF80A KBDITRYAGAIN 02 00FFF7FE KBGS1 02 00FFF778 KBGS2 02 00FFF770`	`DISNOTPTO 02 00FFF78F DISNOTPWO 02 00FFF747 DISNOTR 02 00FFF552 DISNOTREL 02 00FFF418`
`KBGS3 02 00FFF761 KEYBD 00 FFE30400 KEYBDACK 00 FFFFCC00 KEYBDBAD 00 FFFFCB00`	`DISNOTRMINUS 02 00FFF4EC DISNOTRMINUSMINUS 02 00FFF523 DISNOTRPLUS 02 00FFF481 DISNOTRPLUSPLUS 02 00FFF4B8`
`KEYBDBUFFER 00 FFFFC000 KEYBDCHECKFORKEYDIRECT 02 00FFF95C KEYBDCLOSE 02 00FFF958 KEYBDCLR 00 FFE30402`	`DISNOTTO 02 00FFF684 DISNOTWO 02 00FFF643 DISPBYTEASHEX 02 00FFE3F6 DISPDWORDASHEX 02 00FFE3E4`
`KEYBDCONTROLCODES 02 00FFF600 KEYBDECHO 00 FFFFCA00 KEYBDEXTENDEDCODES 02 00FFF680 KEYBDGETID 02 00FFF79C`	`DISPLAYCHAR 02 00FFE2E1 DISPLAYERR 02 00FFFA5E DISPLAYSTRING 02 00FFE3A2 DISPLAYSTRINGCRLF 02 00FFE3B9`
`KEYBDGETSCANCODE 02 00FFF77D KEYBDGETSTATUS 02 00FFF761 KEYBDHEAD 00 FFFFC800 KEYBDID 00 00000124`	`DISPLAYSTRINGDX 02 00FFFA68 DISPNYB 02 00FFE40E DISPNYB1 02 00FFE41D DISPWORDASHEX 02 00FFE3ED`
`KEYBDINIT 02 00FFF7C0 KEYBDLOCKS 00 FFFFCD00 KEYBDOPEN 02 00FFF957 KEYBDREAD 02 00FFF959`	`DISTBL1 02 00FFEDB4 DISTBL2 02 00FFF2B4 DISTBL3 02 00FFF2F4 DISTBL4 02 00FFF314`
`KEYBDRECVBYTE 02 00FFF700 KEYBDSEEK 02 00FFF95B KEYBDSENDBYTE 02 00FFF719 KEYBDSETLED 02 00FFF789`	`DLY3S1 02 00FFE190 DLY3S2 02 00FFE194 DMPM1 02 00FFFB8E DMPM2 02 00FFFB79`
`KEYBDTAIL 00 FFFFC900 KEYBDWAITTX 02 00FFF71F KEYBDWRITE 02 00FFF95A KEYLED 00 00000122`	`DMPM3 02 00FFFBC7 DMPM4 02 00FFFBB9 DMPM5 02 00FFFBB1 DRAM_BASE 00 10000000`
`KEYSTATE1 00 00000120 KEYSTATE2 00 00000121 KGID1 02 00FFF7B9 KGNOTKBD 02 00FFF7BC`	`DSPJ1B 02 00FFE3AB DSPJ2 02 00FFE3A6 DSRETB 02 00FFE3B4 DUMPASMBUF 02 00FFF85D`
`KRB3 02 00FFF705 KRB4 02 00FFF715 KWT1 02 00FFF724 KWT2 02 00FFF735`	`DUMPMEMORY 02 00FFFB71 DUMPREGS 02 00FFFBCD DUMRTS 02 00FFE022 EXT 00 00000006`
`LEDS 00 FFE60000 LEDXIT 02 00FFF81E LETTER 02 00FFD2C1 LF 00 0000000A`	`FAREXT 00 00000008 FIRQ_ROUT 02 00FFFCE5 FIRST_CORE 00 00000001 FREEMBX 02 00000002`
`MAX_TASKNO 00 0000003F MONGETCH 02 00FFFA28 MONGETNONSPACE 02 00FFFA2D MONITOR 02 00FFF996`	`FREEMSG 02 00000006 FREETCB 00 0000078A GETHEXNUMBER 02 00FFF9F8 GETKEY 02 00FFEA12`
`MONITORSTART 02 00FFF991 MON_CCRSAVE 00 0000090F MON_DPRSAVE 00 0000090E MON_DSAVE 00 00000900`	`GETRANGE 02 00FFF9D6 GETSCREENLOCATION 02 00FFE272 GETTWOPARAMS 02 00FFF9B5 GSL1 02 00FFE280`
`MON_NUMWKA 00 00000910 MON_PCSAVE 00 0000090A MON_R1 00 00000920 MON_R2 00 00000922`	`GTDC3 02 00FFFA5B GTHX3 02 00FFFA4D GTHX5 02 00FFFA33 GTHX6 02 00FFFA40`
	`GTHXN1 02 00FFFA24 GTHXN2 02 00FFFA05 HC1 02 00FFE29A HELPMSG 02 00FFFA78`
	`HEX2 02 00FFD2CE HEX4 02 00FFD2D2 HOMECURSOR 02 00FFE284 HOMECURSORJMP 02 00FFD308`
	`I2CW1 02 00FFE47E I2CWR1 02 00FFE4AB I2C_CMD 00 00000004 I2C_CTRL 00 00000002`
	`I2C_PREH 00 00000001 I2C_PREL 00 00000000 I2C_RXR 00 00000003 I2C_STAT 00 00000004`
	`I2C_TXR 00 00000003 I2C_WAIT_RX_NACK 02 00FFE4A9 I2C_WAIT_TIP 02 00FFE47C I2C_WR_CMD 02 00FFE486`
	`ICC1 02 00FFE39E ICC2 02 00FFE3A0 ICR1 02 00FFE390 IGNBLANKS 02 00FFF9AC`
	`IGNBLANKS1 02 00FFF9AC IMMB 00 00000003 IMMW 00 00000007 INCCURSORPOS 02 00FFE37F`
	`INCCURSORROW 02 00FFE38E INCH 02 00FFECDA INCH1 02 00FFECEF INCH2 02 00FFECDC`
	`INCHE 02 00FFECF8 INCHEK 02 00FFECFC INCHEK1 02 00FFED11 INCHEK2 02 00FFED0E`
	`INCHEK3 02 00FFED05 INIT 02 00FFE086 INIT1 02 00FFE08E INITSERIAL 02 00FFEB6F`
	`IOFOCUSID 00 00FF0010 IOFOCUSLIST 00 00FF0000 IOFOCUSNDX 00 00000100 IRQBASE 00 00FF0014`
	`IRQFLAG 00 00FF0012 IRQSOURCE 00 00FF0011 IRQ_ROUT 02 00FFFCE6 JTC_EXIT 02 00FFFC53`
	`JUMP_TO_CODE 02 00FFFC18 KBDBUFFULL 02 00FFEA0D KBDFIFO 00 00000040 KBDFIFOALIAS 00 00C00040`
	`KBDHEADRCV 00 00000127 KBDI0002 02 00FFE949 KBDI0004 02 00FFE98E KBDITRYAGAIN 02 00FFE982`
	`KBDRCVCOUNT 02 00FFE9BD KBDTAILRCV 00 00000128 KBGS1 02 00FFE8F8 KBGS2 02 00FFE8F0`
	`KBGS3 02 00FFE8E1 KEYBD 00 FFE30400 KEYBDACK 00 FFFFCC00 KEYBDBAD 00 FFFFCB00`
	`KEYBDBLOCK 00 00000126 KEYBDBUFFER 00 FFFFC000 KEYBDCHECKFORKEYDIRECT 02 00FFECD8 KEYBDCLOSE 02 00FFEB6B`
	`KEYBDCLR 00 FFE30402 KEYBDCONTROLCODES 02 00FFE780 KEYBDECHO 00 FFFFCA00 KEYBDEXTENDEDCODES 02 00FFE800`
	`KEYBDGETID 02 00FFE91C KEYBDGETSCANCODE 02 00FFE8FD KEYBDGETSTATUS 02 00FFE8E1 KEYBDHEAD 00 FFFFC800`
	`KEYBDID 00 00000124 KEYBDINIT 02 00FFE940 KEYBDIRQ 02 00FFE9CF KEYBDLOCKS 00 FFFFCD00`
	`KEYBDOPEN 02 00FFEB6A KEYBDREAD 02 00FFEB6C KEYBDRECVBYTE 02 00FFE880 KEYBDSEEK 02 00FFEB6E`
	`KEYBDSENDBYTE 02 00FFE899 KEYBDSETLED 02 00FFE909 KEYBDTAIL 00 FFFFC900 KEYBDWAITTX 02 00FFE89F`
	`KEYBDWRITE 02 00FFEB6D KEYLED 00 00000122 KEYSTATE1 00 00000120 KEYSTATE2 00 00000121`
	`KGID1 02 00FFE939 KGNOTKBD 02 00FFE93C KRB3 02 00FFE885 KRB4 02 00FFE895`
	`KRCXIT 02 00FFE9CE KWT1 02 00FFE8A4 KWT2 02 00FFE8B5 LEDS 00 FFE60001`
	`LEDXIT 02 00FFE9A2 LETTER 02 00FFD2C1 LF 00 0000000A LSREL 00 00000002`
	`MAX_TASKNO 00 0000003F MONGETCH 02 00FFF9A0 MONGETNONSPACE 02 00FFF9A5 MONITOR 02 00FFF8AC`
	`MONITORSTART 02 00FFF89A MON_CCRSAVE 00 0000090F MON_DPRSAVE 00 0000090E MON_DSAVE 00 00000900`
	`MON_NUMWKA 00 00000910 MON_PCSAVE 00 0000090A MON_R1 00 00000920 MON_R2 00 00000924`
`MON_SSAVE 00 00000908 MON_USAVE 00 00000906 MON_XSAVE 00 00000902 MON_YSAVE 00 00000904`	`MON_SSAVE 00 00000908 MON_USAVE 00 00000906 MON_XSAVE 00 00000902 MON_YSAVE 00 00000904`
`MSCOUNT 00 FFFFFFE4 MSGBADKEYBD 02 00FFF82A MSGERR 02 00FFFAE7 MSGREGHEADINGS 02 00FFFB64`	`MSCOUNT 00 FFFFFFE4 MSGBADKEYBD 02 00FFE9AE MSGERR 02 00FFFA70 MSGF09STARTING 02 00FFF875`
`MSGSTARTUP 02 00FFF0BF MULTI_SIEVE 02 00FFF0F6 MULTI_SIEVE1 02 00FFF119 MULTI_SIEVE2 02 00FFF115`	`MSGREGHEADINGS 02 00FFFB2E MSGSERIALTEST 02 00FFECC5 MSGSTARTUP 02 00FFE0F4 MULTI_SIEVE 02 00FFE12B`
`MULTI_SIEVE3 02 00FFF103 MULTI_SIEVE4 02 00FFF12C NHEX4 02 00FFFB92 NMAILBOX 02 00000004`	`MULTI_SIEVE1 02 00FFE14E MULTI_SIEVE2 02 00FFE14A MULTI_SIEVE3 02 00FFE138 MULTI_SIEVE4 02 00FFE161`
`NMIBASE 00 000000DC NMI_ROUT 02 00FFFCB8 NMSGBLK 02 00000008 NXBLANK 02 00FFFB96`	`NDX 00 00000005 NHEX4 02 00FFFB68 NMAILBOX 02 00000004 NMESERIAL 02 00FFEC8E`
`ONEKEY 02 00FFD1DC OUTCH 02 00FFF97C PCRLF 02 00FFF374 PDATA 02 00FFF381`	`NMIBASE 00 00FF0013 NMI_ROUT 02 00FFFD15 NMSGBLK 02 00000008 NOTKBDIRQ 02 00FFEA0C`
`PIC 00 FFE3F000 PICPTR 00 00000028 PRINT 02 00FFF37E PROMPT1 02 00FFF9B1`	`NOTRXINT 02 00FFEC8D NOTTIMERIRQ 02 00FFE471 NOTTIMERIRQ2 02 00FFFD08 NXBLANK 02 00FFFB6C`
`PROMPT2 02 00FFF9E5 PROMPT3 02 00FFF9A4 PROMPTC 02 00FFF9F0 PROMPTD 02 00FFF9FB`	`ONEKEY 02 00FFD1DC OSC1 02 00FFED59 OSCALL 02 00FFED59 OSCALLTBL 02 00FFED27`
`PROMPTF 02 00FFFA07 PROMPTJ 02 00FFFA1A PROMPTLN 02 00FFF99D PROMPTR 02 00FFFA1F`	`OSCX 02 00FFED69 OSSEMA 00 00EF0010 OUTCH 02 00FFED12 OUTSEMA 00 00EF0000`
`PSTRNG 02 00FFF370 QNDX0 00 00000780 QNDX1 00 00000782 QNDX2 00 00000784`	`PCRLF 02 00FFE3CD PDATA 02 00FFE3DA PIC 00 FFE3F000 PICPTR 00 00000028`
`QNDX3 00 00000786 QNDX4 00 00000788 RAMERR 02 00FFE02C RAMTEST 02 00FFE000`	`PRINT 02 00FFE3D7 PROMPT1 02 00FFF8D9 PROMPT2 02 00FFF905 PROMPT2A 02 00FFF923`
`RAMTEST1 02 00FFE00D RAMTEST3 02 00FFE017 ROMTORAM 02 00FFF0E6 ROMTORAM1 02 00FFF0EC`	`PROMPT3 02 00FFF8CA PROMPTC 02 00FFF941 PROMPTD 02 00FFF94D PROMPTF 02 00FFF959`
`RUNNINGID 00 00800000 RUNNINGTCB 06 00000000 SCREENCOLOR 00 00000113 SCREENLOCATION 00 00000010`	`PROMPTHELP 02 00FFF935 PROMPTJ 02 00FFF96C PROMPTLN 02 00FFF8C6 PROMPTR 02 00FFF971`
`SCREENLOCATION2 00 00000018 SCROLLUP 02 00FFF1FB SCRUP1 02 00FFF208 SC_ALT 00 00000011`	`PROMPTT 02 00FFF984 PROMPTU 02 00FFF999 PROMPT_S 02 00FFF97B PSTRNG 02 00FFE3C9`
`SC_C 00 00000021 SC_CAPSLOCK 00 00000058 SC_CTRL 00 00000014 SC_DEL 00 00000071`	`QNDX0 00 00000780 QNDX1 00 00000782 QNDX2 00 00000784 QNDX3 00 00000786`
`SC_EXTEND 00 000000E0 SC_F12 00 00000007 SC_KEYUP 00 000000F0 SC_NUMLOCK 00 00000077`	`QNDX4 00 00000788 RAMERR 02 00FFD42C RAMTEST 02 00FFD400 RAMTEST1 02 00FFD40D`
`SC_RSHIFT 00 00000059 SC_SCROLLLOCK 00 0000007E SC_T 00 0000002C SC_TAB 00 0000000D`	`RAMTEST3 02 00FFD417 RELEASEIOFOCUS 02 00FFED84 REQUESTIOFOCUS 02 00FFED6D RIOF1 02 00FFEDAB`
`SC_Z 00 0000001A SETKEYBOARDECHO 02 00FFF980 SHIFTEDSCANCODES 02 00FFF500 SHIFTLEFT5 02 00FFF16D`	`RIOF2 02 00FFED9A ROMTORAM 02 00FFE11B ROMTORAM1 02 00FFE121 RTC 00 FFE30500`
`SHL_NUMWKA 02 00FFFA6A SHOWSPRITES 02 00FFF986 SIEVE 02 00FFF130 SIEVE1 02 00FFF148`	`RTCBUF 00 00007FC0 RTCR0001 02 00FFE4D9 RTCW0001 02 00FFE524 RTC_READ 02 00FFE4B3`
`SIEVE2 02 00FFF144 SIEVE3 02 00FFF135 SIEVE4 02 00FFF157 SKIP_INIT 02 00FFF08C`	`RTC_RXERR 02 00FFE502 RTC_WRITE 02 00FFE506 RTI_INSN 02 00FFFD21 RUNNINGID 00 00800000`
`SPRITE_CTRL 00 FFE10000 SPRITE_EN 00 000003C0 ST1 02 00FFF079 ST3 02 00FFF069`	`RUNNINGTCB 06 00000000 SCREENCOLOR 00 00000113 SCREENLOCATION 00 00000010 SCREENLOCATION2 00 00000018`
`ST6 02 00FFF030 ST7 02 00FFF03A ST8 02 00FFF03A START 02 00FFF023`	`SCROLLUP 02 00FFE23D SCRUP1 02 00FFE24A SC_ALT 00 00000011 SC_C 00 00000021`
`STRPTR 00 00000024 SWI3_EXIT 02 00FFFC51 SWI3_ROUT 02 00FFFC2B TAB 00 00000009`	`SC_CAPSLOCK 00 00000058 SC_CTRL 00 00000014 SC_DEL 00 00000071 SC_EXTEND 00 000000E0`
`TCB_CURSORCOL 00 00000021 TCB_CURSORROW 00 00000020 TCB_HJCB 00 0000001C TCB_HWAITMBX 00 00000022`	`SC_F12 00 00000007 SC_KEYUP 00 000000F0 SC_NUMLOCK 00 00000077 SC_RSHIFT 00 00000059`
`TCB_IOF_NEXT 00 0000002C TCB_IOF_PREV 00 00000030 TCB_MBQ_NEXT 00 00000024 TCB_MBQ_PREV 00 00000028`	`SC_SCROLLLOCK 00 0000007E SC_T 00 0000002C SC_TAB 00 0000000D SC_Z 00 0000001A`
`TCB_MMU_MAP 00 00000038 TCB_MSGPTR_D1 00 00000014 TCB_MSGPTR_D2 00 00000018 TCB_NXTRDY 00 00000000`	`SEMAABS 00 00001000 SERHEADRCV 00 00000131 SERHEADXMIT 00 00000136 SERHZERO 00 00000130`
`TCB_NXTTCB 00 00000008 TCB_PRIORITY 00 00000010 TCB_PRVRDY 00 00000004 TCB_SPSAVE 00 00000034`	`SERIALGETCHAR 02 00FFEB9D SERIALINIT 02 00FFEB6F SERIALIRQ 02 00FFEC3B SERIALOUTPUTTEST 02 00FFECA5`
`TCB_STATUS 00 0000001E TCB_TIMEOUT 00 0000000C TEXTCLOSE 02 00FFF1CC TEXTOPEN 02 00FFF1CB`	`SERIALPEEKCHAR 02 00FFEBCD SERIALPEEKCHARDIRECT 02 00FFEBE4 SERIALPUTCHAR 02 00FFEC08 SERIALPUTSTRING 02 00FFEC95`
`TEXTREAD 02 00FFF1CD TEXTREG 00 FFE0DF00 TEXTSCR 00 FFE00000 TEXTSEEK 02 00FFF1CF`	`SERIALRCVCOUNT 02 00FFEC28 SERRCVBUF 00 00BFF000 SERRCVXOFF 00 00000140 SERRCVXON 00 00000139`
`TEXTWRITE 02 00FFF1CE TEXT_COLS 00 00000000 TEXT_CURPOS 00 00000022 TEXT_ROWS 00 00000001`	`SERTAILRCV 00 00000133 SERTAILXMIT 00 00000138 SERTZERO 00 00000132 SETKEYBOARDECHO 02 00FFED16`
`TIMEOUTLIST 00 0000078C TR1A 02 00FFFCB7 UCP1 02 00FFF277 UNSHIFTEDSCANCODES 02 00FFF400`	`SGC2 02 00FFEBB6 SGCNOCHARS 02 00FFEBC6 SGCXIT 02 00FFEBC9 SHIFTEDSCANCODES 02 00FFE680`
`UPDATECURSORPOS 02 00FFF258 W10_0001 02 00FFF740 W300_0001 02 00FFF754 WAIT10MS 02 00FFF739`	`SHIFTLEFT5 02 00FFE19F SHL_NUMWKA 02 00FFF9EB SHOWSPRITES 02 00FFED1C SIEVE 02 00FFE165`
`WAIT300MS 02 00FFF74D XBLANK 02 00FFD0AF XOFF 00 00000013 XON 00 00000011`	`SIEVE1 02 00FFE17D SIEVE2 02 00FFE179 SIEVE3 02 00FFE16A SIEVE4 02 00FFE18C`
`328 SYMBOLS`	`SINI1 02 00FFEB82 SIRQ0001 02 00FFEC4D SIRQNXTBYTE 02 00FFEC3B SIRQRXFULL 02 00FFEC8D`
	`SKIPDOLLAR 02 00FFF8F8 SKIP_INIT 02 00FFE0C1 SOTST1 02 00FFECAF SPC0001 02 00FFEC0A`
	`SPCD0001 02 00FFEC02 SPCNOCHARS 02 00FFEBDF SPCXIT 02 00FFEBE2 SPRITE_CTRL 00 FFE10000`
	`SPRITE_EN 00 000003C0 SPS2 02 00FFEC99 SPSXIT 02 00FFECA3 SRCXIT 02 00FFEC3A`
	`SREL 00 00000004 ST1 02 00FFE0A0 ST3 02 00FFE07D ST6 02 00FFE03C`
	`ST7 02 00FFE046 ST8 02 00FFE046 START 02 00FFE023 STRPTR 00 00000024`
	`SWI3_EXIT 02 00FFFCB7 SWI3_ROUT 02 00FFFC88 TAB 00 00000009 TCB_CURSORCOL 00 00000021`
	`TCB_CURSORROW 00 00000020 TCB_HJCB 00 0000001C TCB_HWAITMBX 00 00000022 TCB_IOF_NEXT 00 0000002C`
	`TCB_IOF_PREV 00 00000030 TCB_MBQ_NEXT 00 00000024 TCB_MBQ_PREV 00 00000028 TCB_MMU_MAP 00 00000038`
	`TCB_MSGPTR_D1 00 00000014 TCB_MSGPTR_D2 00 00000018 TCB_NXTRDY 00 00000000 TCB_NXTTCB 00 00000008`
	`TCB_PRIORITY 00 00000010 TCB_PRVRDY 00 00000004 TCB_SPSAVE 00 00000034 TCB_STATUS 00 0000001E`
	`TCB_TIMEOUT 00 0000000C TEXTCLOSE 02 00FFE20D TEXTOPEN 02 00FFE20C TEXTREAD 02 00FFE20E`
	`TEXTREG 00 FFE0DF00 TEXTSCR 00 FFE00000 TEXTSEEK 02 00FFE210 TEXTWRITE 02 00FFE20F`
	`TEXT_COLS 00 00000000 TEXT_CURPOS 00 00000022 TEXT_ROWS 00 00000001 TIMEOUTLIST 00 0000078C`
	`TIMERINIT 02 00FFE424 TIMERIRQ 02 00FFE44F TR1A 02 00FFFD14 UCP1 02 00FFE2BC`
	`UNSHIFTEDSCANCODES 02 00FFE580 UPDATECURSORPOS 02 00FFE29C VIA 00 FFE60000 VIA_ACR 00 0000000B`
	`VIA_DDRA 00 00000003 VIA_IER 00 0000000E VIA_IFR 00 0000000D VIA_PA 00 00000001`
	`VIA_T3CMPH 00 00000015 VIA_T3CMPL 00 00000014 VIA_T3LH 00 00000013 VIA_T3LL 00 00000012`
	`W10_0001 02 00FFE8C0 W300_0001 02 00FFE8D4 WAIT10MS 02 00FFE8B9 WAIT300MS 02 00FFE8CD`
	`XBLANK 02 00FFD0AF XOFF 00 00000013 XON 00 00000011`
	`523 SYMBOLS`

`0 error(s), 70 warning(s)`	`0 error(s), 1582 warning(s)`
`0 error(s), 1582 warning(s)`	`0 error(s), 1582 warning(s)`

Browse

Tools

Subversion Repositories rf6809

[/] [rf6809/] [trunk/] [software/] [boot/] [boot_rom.lst] - Diff between revs 4 and 13