URL
https://opencores.org/ocsvn/rf6809/rf6809/trunk
Subversion Repositories rf6809
[/] [rf6809/] [trunk/] [software/] [boot/] [boot_rom.lst] - Rev 21
Compare with Previous | Blame | View Log
3 error(s), 894 warning(s) unlisted in pass 1; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;; ASCII control characters.SOH equ 1EOT equ 4ACK equ 6BS equ 8NAK equ 21ETB equ $17CAN equ 24DEL equ 127CR EQU $0D ;ASCII equatesLF EQU $0ATAB EQU $09CTRLC EQU $03CTRLH EQU $08CTRLI EQU $09CTRLJ EQU $0ACTRLK EQU $0BCTRLM EQU $0DCTRLS EQU $13CTRLT EQU $14CTRLX EQU $18CTRLZ EQU $1AXON EQU $11XOFF EQU $13FIRST_CORE EQU 1MAX_TASKNO EQU 63DRAM_BASE EQU $10000000; ROM monitor functions;MF_Monitor EQU 0MF_INCH EQU 1MF_OUTCH EQU 2MF_CRLF EQU 3MF_DisplayString EQU 4MF_DisplayByteAsHex EQU 5MF_DisplayWordAsHex EQU 6MF_ShowSprites EQU 7MF_Srand EQU 8MF_Random EQU 9MF_OSCALL EQU 10MF_GetRange EQU 11 ; gets a pair of numbers last>firstMF_GetNumber EQU 12MF_SerialPutchar EQU 13mon_numwka EQU $910mon_r1 EQU $920mon_r2 EQU $924; ============================================================================; __; \\__/ o\ (C) S2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================COREID EQU $FFFFFFFE0MSCOUNT EQU $FFFFFFFE4LEDS EQU $FFFE60001VIA EQU $FFFE60000VIA_PA EQU 1VIA_DDRA EQU 3VIA_ACR EQU 11VIA_IFR EQU 13VIA_IER EQU 14VIA_T3LL EQU 18VIA_T3LH EQU 19VIA_T3CMPL EQU 20VIA_T3CMPH EQU 21TEXTSCR EQU $FFFE00000TEXTREG EQU $FFFE07F00TEXT_COLS EQU 0TEXT_ROWS EQU 1TEXT_CURPOS EQU 34COLS EQU 64ROWS EQU 32ACIA EQU $FFFE30100ACIA_TX EQU 0ACIA_RX EQU 0ACIA_STAT EQU 1ACIA_CMD EQU 2ACIA_CTRL EQU 3ACIA_IRQS EQU 4ACIA_CTRL2 EQU 11RTC EQU $FFFE30500 ; I2CRTCBuf EQU $7FC0PRNG EQU $FFFE30600KEYBD EQU $FFFE30400KEYBDCLR EQU $FFFE30402PIC EQU $FFFE3F000SPRITE_CTRL EQU $FFFE10000SPRITE_EN EQU $3C0OUTSEMA EQU $EF0000SEMAABS EQU $1000OSSEMA EQU $EF0010OPC_SWI EQU $03FScreenLocation EQU $10ColorCodeLocation EQU $14ScreenLocation2 EQU $18BlkcpySrc EQU $1CBlkcpyDst EQU $20Strptr EQU $24PICptr EQU $28; Forth Area; 0x30-0x60; Task control blocks, room for 256 tasksTCB_NxtRdy EQU $00 ; next task on ready / timeout listTCB_PrvRdy EQU $04 ; previous task on ready / timeout listTCB_NxtTCB EQU $08TCB_Timeout EQU $0CTCB_Priority EQU $10TCB_MSGPTR_D1 EQU $14TCB_MSGPTR_D2 EQU $18TCB_hJCB EQU $1CTCB_Status EQU $1ETCB_CursorRow EQU $20TCB_CursorCol EQU $21TCB_hWaitMbx EQU $22 ; handle of mailbox task is waiting atTCB_mbq_next EQU $24 ; mailbox queue nextTCB_mbq_prev EQU $28 ; mailbox queue previousTCB_iof_next EQU $2CTCB_iof_prev EQU $30TCB_SPSave EQU $34 ; TCB_SPSave areaTCB_mmu_map EQU $38KeybdHead EQU $FFFFFC800KeybdTail EQU $FFFFFC900KeybdEcho EQU $FFFFFCA00KeybdBad EQU $FFFFFCB00KeybdAck EQU $FFFFFCC00KeybdLocks EQU $FFFFFCD00KeybdBuffer EQU $FFFFFC000 ; buffer is 16 charsBIOS_SCREENS EQU $17000000 ; $17000000 to $171FFFFF; EhBASIC vars:;NmiBase EQU $FFC013IrqBase EQU $FFC014IOFocusNdx EQU $100; These variables in global OS storage areaIOFocusList EQU $FFC000 ; to $FF000FIOFocusID EQU $FFC010IrqSource EQU $FFC011IRQFlag EQU $FFC012RunningID EQU $FFC013milliseconds EQU $FFC014; One copy of serial buffer management; 1 serial buffer for system.SerHeadRcv EQU $FFC015SerTailRcv EQU $FFC016SerHeadXmit EQU $FFC017SerTailXmit EQU $FFC018SerRcvXon EQU $FFC019SerRcvXoff EQU $FFC01ASerRcvBuf EQU $FFB000 ; 4kB serial recieve buffer; Top of boot stack is at $FFC0FF; These variables use direct page accessCursorRow EQU $110CursorCol EQU $111CharColor EQU $112ScreenColor EQU $113CursorFlash EQU $114KeyState1 EQU $120KeyState2 EQU $121KeyLED EQU $122KeybdID EQU $124KeybdBlock EQU $126kbdHeadRcv EQU $127kbdTailRcv EQU $128kbdFifo EQU $40 ; in local RAMkbdFifoAlias EQU $C00040 ; to $C0007F ; alias for $40 to $7FSerhZero EQU $130SertZero EQU $132farflag EQU $15Fasmbuf EQU $160 ; to $17FQNdx0 EQU $780QNdx1 EQU QNdx0+2QNdx2 EQU QNdx1+2QNdx3 EQU QNdx2+2QNdx4 EQU QNdx3+2FreeTCB EQU QNdx4+2TimeoutList EQU FreeTCB+2FreeMbx EQU RunningTCB + 2nMailbox EQU FreeMbx + 2FreeMsg EQU nMailbox + 2nMsgBlk EQU FreeMsg + 2CharOutVec EQU $800CharInVec EQU $804CmdPromptJI EQU $808MonErrVec EQU $80CBreakpointFlag EQU $810NumSetBreakpoints EQU $811 ; to 812Breakpoints EQU $820 ; to $82FBreakpointBytes EQU $830 ; to $83Fmon_vectb EQU $880; Register save area for monitormon_DSAVE EQU $900mon_XSAVE EQU $902mon_YSAVE EQU $904mon_USAVE EQU $906mon_SSAVE EQU $908mon_PCSAVE EQU $90Amon_DPRSAVE EQU $90Emon_CCRSAVE EQU $90Fmon_numwka EQU $910mon_r1 EQU $920mon_r2 EQU $924jmpvec EQU $928mon_init EQU $92Cmon_retflag EQU $930; The ORG directive must set an address a multiple of 4 in order for the Verilog; output to work correctly.org $FFD0AC00FFD0AC 012 nop00FFD0AD 012 nop00FFD0AE 012 nopXBLANK00FFD0AF 0C6020 ldb #' '00FFD0B1 017002115 lbsr OUTCH00FFD0B4 039 rtsorg $FFD0D000FFD0D0 012 nop00FFD0D1 012 nopCRLFCRLF1:00FFD0D2 0C600D ldb #CR00FFD0D4 0170020F2 lbsr OUTCH00FFD0D7 0C600A ldb #LF00FFD0D9 0170020ED lbsr OUTCH00FFD0DC 039 rtsorg $FFD0F000FFD0F0 012 nop00FFD0F1 020FDF bra CRLF1org $FFD1DCONEKEY00FFD1DC 06E90F000804 jmp [CharInVec]org $FFD2C000FFD2C0 012 nopLETTER00FFD2C1 017001F05 lbsr OUTCH00FFD2C4 039 rtsorg $FFD2CC00FFD2CC 012 nop00FFD2CD 012 nopHEX200FFD2CE 017001169 lbsr DispByteAsHex00FFD2D1 039 rtsHEX400FFD2D2 01700115C lbsr DispWordAsHex00FFD2D5 039 rtsorg $FFD300ClearScreenJmp00FFD300 016000F39 lbra ClearScreenorg $FFD308HomeCursorJmp00FFD308 016000FA8 lbra HomeCursororg $FFD400; Local RAM test routine; Checkerboard testing.; There is 70kB of local RAM; Does not use any RAM including no stackramtest:00FFD400 18E000000 ldy #000FFD403 086001 lda #100FFD405 0150B7FFFE60001 sta LEDS00FFD40A 0CCAAA555 ldd #$AAA555ramtest1:00FFD40D 0EDA01 std ,y++00FFD40F 18C008000 cmpy #$800000FFD412 025FF9 blo ramtest1; now readback values and compare00FFD414 18E000000 ldy #0ramtest3:00FFD417 0ECA01 ldd ,y++00FFD419 183AAA555 cmpd #$AAA55500FFD41C 02600E bne ramerr00FFD41E 18C008000 cmpy #$800000FFD421 025FF4 blo ramtest300FFD423 086002 lda #200FFD425 0150B7FFFE60001 sta LEDS00FFD42A 06EC04 jmp ,uramerr:00FFD42C 086080 lda #$8000FFD42E 0150B7FFFE60001 sta LEDS00FFD433 0150F6FFFFFFFE0 ldb COREID00FFD438 0C1020 cmpb #$2000FFD43A 027009 beq ramerr100FFD43C 08EE00000 ldx #TEXTSCR00FFD43F 03A abx00FFD440 086046 lda #'F'00FFD442 0A7804 sta ,x00FFD444 013 syncramerr1:00FFD445 06EC04 jmp ,uorg $FFE00000FFE000 FFF35C FDB Monitor00FFE002 FFE022 FDB DumRts ; NEXTCMD00FFE004 FFF191 FDB INCH00FFE006 FFF1AF FDB INCHE00FFE008 FFF1B3 FDB INCHEK00FFE00A FFF1C9 FDB OUTCH00FFE00C FFE41E FDB PDATA00FFE00E FFE411 FDB PCRLF00FFE010 FFE40D FDB PSTRNG00FFE012 FFE022 FDB DumRts ; LRA00FFE014 FFE022 FDB DumRts00FFE016 FFE022 FDB DumRts00FFE018 FFE022 FDB DumRts00FFE01A FFE022 FDB DumRts ; VINIZ00FFE01C FFE31C FDB DisplayChar ; VOUTCH00FFE01E FFE022 FDB DumRts ; ACINIZ00FFE020 FFE022 FDB DumRts ; AOUTCHDumRts:00FFE022 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------start:00FFE023 086FFF lda #$FFF ; all cores can do this00FFE025 0150B7FFFE60003 sta VIA+VIA_DDRA00FFE02A 086055 lda #$55 ; see if we can at least set LEDs00FFE02C 0150B7FFFE60001 sta LEDS00FFE031 086001 lda #1 ; prime OS semaphore00FFE033 0B7EF1010 sta OSSEMA+$100000FFE036 0B7EF1000 sta OUTSEMA+$100000FFE039 0CEFFE03C ldu #st6 ; U = return address; jmp ramtest ; JMP dont JSRst6:00FFE03C 1CE006FFF lds #$6FFF ; boot up stack area00FFE03F 0150B6FFFFFFFE0 lda COREID00FFE044 081001 cmpa #FIRST_CORE; beq st8; sync ; halt cores other than 2st8:; bne skip_init; bsr romToRam; ldd #st7 & $FFFF; tfr d,x; jmp ,x ; jump to the BIOS now in local RAMst7:00FFE046 08D170 bsr Delay3s ; give some time for devices to reset00FFE048 07F000810 clr BreakpointFlag00FFE04B 07F000811 clr NumSetBreakpoints00FFE04E 0860AA lda #$AA00FFE050 0150B7FFFE60001 sta LEDS00FFE055 0150B6FFFFFFFE0 lda COREID00FFE05A 081020 cmpa #$2000FFE05C 027002 beq st1100FFE05E 086001 lda #FIRST_COREst11:00FFE060 0B7FFC010 sta IOFocusID ; core #2 has focus00FFE063 0B7FFC013 sta RunningID; Clear IO focus list00FFE066 08E000000 ldx #0st9:00FFE069 06F80A000FFC000 clr IOFocusList,x00FFE06E 030001 inx00FFE070 08C000010 cmpx #1600FFE073 025FF4 blo st900FFE075 086018 lda #2400FFE077 0B7FFC001 sta IOFocusList+FIRST_CORE00FFE07A 0860CE lda #$0CE00FFE07C 097113 sta ScreenColor00FFE07E 097112 sta CharColor00FFE080 08D1BA bsr ClearScreen00FFE082 0CCFFE31C ldd #DisplayChar00FFE085 0FD000800 std CharOutVec00FFE088 0CCFFEC73 ldd #SerialPeekCharDirect00FFE08B 0FD000804 std CharInVec; swi; fcb MF_OSCALL; fcb 24 ; request IO focus00FFE08E 0150F6FFFFFFFE0 ldb COREID00FFE093 0C1001 cmpb #FIRST_CORE00FFE095 027011 beq init00FFE097 0C1020 cmpb #$20 ; CmodA709 core?00FFE099 027060 beq init200FFE09B 020070 bra skip_init00FFE09D 0200B7 bra multi_sievest3:00FFE09F 0860FF lda #$FF00FFE0A1 0150B7FFFE60001 sta LEDS00FFE0A6 020FF7 bra st3; initialize interrupt controller; first, zero out all the vectorsinit:00FFE0A8 017000479 lbsr rtc_read ; get clock values00FFE0AB 08E000127 ldx #kbdHeadRcv00FFE0AE 0C6020 ldb #32 ; number of bytes to zero outinit1:00FFE0B0 06F800 clr ,x+00FFE0B2 05A decb00FFE0B3 026FFB bne init100FFE0B5 08E000080 ldx #128 ; register to start atst1:00FFE0B8 06F809E3F000 clr PIC,x ; cause code00FFE0BC 0A7809E3F001 sta PIC+1,x00FFE0C0 0E7809E3F002 stb PIC+2,x00FFE0C4 030004 leax 4,x00FFE0C6 08C000100 cmpx #256 ; max reg00FFE0C9 025FED blo st100FFE0CB 0860C1 lda #$C1 ; make irq edge sensitive (bit 7), enable interupt (bit 6), irq (bit 0)00FFE0CD 0150B7FFFE3F0FD sta PIC+$FD00FFE0D2 086041 lda #$41 ; level sensitive, enabled, irq00FFE0D4 0150B7FFFE3F0D1 sta PIC+$D1 ; serial irq is #2000FFE0D9 086040 lda #COLS00FFE0DB 0150B7FFFE07F00 sta TEXTREG+TEXT_COLS00FFE0E0 086020 lda #ROWS00FFE0E2 0150B7FFFE07F01 sta TEXTREG+TEXT_ROWS00FFE0E7 08D153 bsr ClearScreen00FFE0E9 08D1C8 bsr HomeCursor00FFE0EB 08E000000 ldx #000FFE0EE 0CC000000 ldd #000FFE0F1 0170010DF lbsr ShowSprites00FFE0F4 0170008C9 lbsr KeybdInit00FFE0F7 0DC124 ldd KeybdID00FFE0F9 08D336 bsr DispWordAsHexinit2:00FFE0FB 01700036A lbsr TimerInit00FFE0FE 017000AEE lbsr InitSerial00FFE101 08E000080 ldx #12800FFE104 086001 lda #1 ; set irq(bit0), clear firq (bit1), disable int (bit 6), clear edge sense(bit 7)00FFE106 0C6001 ldb #FIRST_CORE ; serving core id; lda #4 ; make the timer interrupt edge sensitive; sta PIC+4 ; reg #4 is the edge sensitivity setting; sta PIC ; reg #0 is interrupt enable00FFE108 0C6001 ldb #100FFE10A 0F7EF1000 stb OUTSEMA+SEMAABS ; set semaphore to 1 available slotskip_init:00FFE10D 01C0EF andcc #$EF ; unmask irq00FFE10F 086005 lda #500FFE111 0150B7FFFE60001 sta LEDS00FFE116 0CCFFE11F ldd #msgStartup00FFE119 08D2C2 bsr DisplayStringst10:00FFE11B 03F swi00FFE11C 000 fcb MF_Monitor00FFE11D 020FFC bra st10msgStartup00FFE11F 072066036038030039020 fcb "rf6809 12-bit System Starting.",CR,LF,000FFE126 03103202D06206907402000FFE12D 05307907307406506D02000FFE134 05307406107207406906E00FFE13B 06702E00D00A000;------------------------------------------------------------------------------; The checkpoint register must be cleared within 1 second or a NMI interrupt; will occur. checkpoint should be called with a JSR so that the global ROM; routine is called.;; Modifies:; none;------------------------------------------------------------------------------checkpoint:00FFE140 01507FFFFFFFFE1 clr $FFFFFFFE1 ; writing any value will do00FFE145 039 rts;------------------------------------------------------------------------------; Copy the system ROM to local RAM; Running the code from local RAM is probably an order of magnitude faster; then running from the global ROM. It also reduces the network traffic to; run from local RAM.;; Modifies:; d,x,y;------------------------------------------------------------------------------romToRam:00FFE146 08EFFC000 ldx #$FFC00000FFE149 18E00C000 ldy #$00C000romToRam1:00FFE14C 0EC801 ldd ,x++00FFE14E 0EDA01 std ,y++00FFE150 08C000000 cmpx #000FFE153 026FF7 bne romToRam100FFE155 039 rts;------------------------------------------------------------------------------; Multi-core sieve program.;------------------------------------------------------------------------------; First fill screen chars with 'P' indicating prime positions; Each core is responsible for the Nth position where N is the; core number minus two.;multi_sieve:00FFE156 086050 lda #'P' ; indicate prime00FFE158 0150F6FFFFFFFE0 ldb COREID ; find out which core we are00FFE15D 0C0001 subb #FIRST_CORE00FFE15F 08E000000 ldx #0 ; start at first char of screen00FFE162 03A abxmulti_sieve3:00FFE163 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE167 030008 leax 8,x ; advance to next position00FFE169 08C000FFF cmpx #409500FFE16C 025FF5 blo multi_sieve300FFE16E 0BDFFE140 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE171 0CB002 addb #2 ; start sieve at 2 (core id)00FFE173 08604E lda #'N' ; flag position value of 'N' for non-primemulti_sieve2:00FFE175 08E000000 ldx #000FFE178 03A abx ; skip the first position - might be primemulti_sieve1:00FFE179 03A abx ; increment00FFE17A 0A7809E00000 sta TEXTSCR,x00FFE17E 08C000FFF cmpx #409500FFE181 025FF6 blo multi_sieve100FFE183 0BDFFE140 jsr checkpoint*** warning 1: Long branch within short branch range could be optimized00FFE186 0CB008 addb #8 ; number of cores working on it00FFE188 0C1FF0 cmpb #408000FFE18A 025FE9 blo multi_sieve2multi_sieve4: ; hang machine00FFE18C 013 sync00FFE18D 0160011CC lbra Monitor;------------------------------------------------------------------------------; Single core sieve.;------------------------------------------------------------------------------sieve:00FFE190 086050 lda #'P' ; indicate prime00FFE192 08E000000 ldx #0 ; start at first char of screensieve3:00FFE195 0A7809E00000 sta TEXTSCR,x ; store 'P'00FFE199 030001 inx ; advance to next position00FFE19B 08C000FFF cmpx #409500FFE19E 025FF5 blo sieve300FFE1A0 0C6002 ldb #2 ; start sieve at 200FFE1A2 08604E lda #'N' ; flag position value of 'N' for non-primesieve2:00FFE1A4 08E000000 ldx #000FFE1A7 03A abx ; skip the first position - might be primesieve1:00FFE1A8 03A abx ; increment00FFE1A9 0A7809E00000 sta TEXTSCR,x00FFE1AD 08C000FFF cmpx #409500FFE1B0 025FC7 blo multi_sieve100FFE1B2 05C incb ; number of cores working on it00FFE1B3 0C1FF0 cmpb #408000FFE1B5 025FED blo sieve2sieve4: ; hang machine00FFE1B7 039 rts;------------------------------------------------------------------------------; Three second delay for user convenience and to allow some devices time to; reset.;------------------------------------------------------------------------------Delay3s:00FFE1B8 0CC895440 ldd #9000000dly3s1:00FFE1BB 0C10FF cmpb #$FF00FFE1BD 026000 bne dly3s2dly3s2:00FFE1BF 0150B7FFFE60001 sta LEDS00FFE1C4 083000001 subd #100FFE1C7 026FF2 bne dly3s100FFE1C9 039 rts;------------------------------------------------------------------------------;------------------------------------------------------------------------------ShiftLeft5:00FFE1CA 058 aslb00FFE1CB 049 rola00FFE1CC 058 aslb00FFE1CD 049 rola00FFE1CE 058 aslb00FFE1CF 049 rola00FFE1D0 058 aslb00FFE1D1 049 rola00FFE1D2 058 aslb00FFE1D3 049 rola00FFE1D4 039 rts;------------------------------------------------------------------------------; Parameters:; b = core id of core to copy;------------------------------------------------------------------------------;CopyVirtualScreenToScreen:00FFE1D5 034076 pshs d,x,y,u; Compute virtual screen location for core passed in accb.00FFE1D7 01F098 tfr b,a00FFE1D9 048 asla00FFE1DA 048 asla00FFE1DB 048 asla00FFE1DC 048 asla00FFE1DD 08AC00 ora #$C0000FFE1DF 05F clrb00FFE1E0 01F001 tfr d,x00FFE1E2 034006 pshs d00FFE1E4 18EE00000 ldy #TEXTSCR00FFE1E7 0CE000400 ldu #COLS*ROWS/2cv2s1:00FFE1EA 0EC801 ldd ,x++00FFE1EC 0EDA01 std ,y++00FFE1EE 0335FF leau -1,u00FFE1F0 283000000 cmpu #000FFE1F3 026FF5 bne cv2s1; reset the cursor position in the text controller00FFE1F5 035010 puls x00FFE1F7 0E6808110 ldb CursorRow,x00FFE1FA 086040 lda #COLS00FFE1FC 03D mul00FFE1FD 01F002 tfr d,y00FFE1FF 0E6808111 ldb CursorCol,x00FFE202 01F021 tfr y,x00FFE204 03A abx00FFE205 0150BFFFFE07F22 stx TEXTREG+TEXT_CURPOS00FFE20A 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------;CopyScreenToVirtualScreen:00FFE20C 034076 pshs d,x,y,u00FFE20E 08D08D bsr GetScreenLocation00FFE210 01F002 tfr d,y00FFE212 08EE00000 ldx #TEXTSCR00FFE215 0CE000400 ldu #COLS*ROWS/2cs2v1:00FFE218 0EC801 ldd ,x++00FFE21A 0EDA01 std ,y++00FFE21C 0335FF leau -1,u00FFE21E 283000000 cmpu #000FFE221 026FF5 bne cs2v100FFE223 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------00FFE225 054045058054053043052 fcb "TEXTSCR "00FFE22C 02000FFE22D FFE237 fcw TextOpen00FFE22F FFE238 fcw TextClose00FFE231 FFE239 fcw TextRead00FFE233 FFE23A fcw TextWrite00FFE235 FFE23B fcw TextSeekTextOpen:00FFE237 039 rtsTextClose:00FFE238 039 rtsTextRead:00FFE239 039 rtsTextWrite:00FFE23A 039 rtsTextSeek:00FFE23B 039 rts;------------------------------------------------------------------------------; Clear the screen and the screen color memory; We clear the screen to give a visual indication that the system; is working at all.;; Modifies:; none;------------------------------------------------------------------------------ClearScreen:00FFE23C 034076 pshs d,x,y,u00FFE23E 08E000800 ldx #COLS*ROWS00FFE241 01F013 tfr x,u00FFE243 08D058 bsr GetScreenLocation00FFE245 01F002 tfr d,y00FFE247 0C6020 ldb #' ' ; space charcs1:00FFE249 0E7A00 stb ,y+ ; set text to space00FFE24B 0301FF leax -1,x ; decrement x00FFE24D 026FFA bne cs100FFE24F 0150F6FFFFFFFE0 ldb COREID ; update colors only if we have focus00FFE254 0F1FFC010 cmpb IOFocusID00FFE257 02000D bra cs300FFE259 18EE02000 ldy #TEXTSCR+$2000; lda CharColor00FFE25C 0860CE lda #$0CE00FFE25E 01F031 tfr u,x ; get back countcs2:00FFE260 0A7A00 sta ,y+00FFE262 0301FF dex ; decrement x00FFE264 026FFA bne cs2cs3:00FFE266 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Scroll text on the screen upwards;; Modifies:; none;------------------------------------------------------------------------------ScrollUp:00FFE268 034076 pshs d,x,y,u00FFE26A 18E0003FF ldy #(COLS*ROWS-1)/2 ; y = num chars/2 to move00FFE26D 08D02E bsr GetScreenLocation00FFE26F 01F001 tfr d,x00FFE271 01F003 tfr d,u00FFE273 030040 leax COLS,x ; x = index to source rowscrup1:00FFE275 0EC801 ldd ,x++ ; move 2 characters00FFE277 0EDC01 std ,u++00FFE279 0313FF dey00FFE27B 026FF8 bne scrup100FFE27D 08601F lda #ROWS-100FFE27F 08D002 bsr BlankLine00FFE281 0350F6 puls d,x,y,u,pc;------------------------------------------------------------------------------; Blank out a line on the display;; Modifies:; none; Parameters:; acca = line number to blank;------------------------------------------------------------------------------BlankLine:00FFE283 034016 pshs d,x00FFE285 034002 pshs a00FFE287 08D014 bsr GetScreenLocation00FFE289 01F001 tfr d,x00FFE28B 035002 puls a00FFE28D 0C6040 ldb #COLS ; b = # chars to blank out from video controller00FFE28F 03D mul ; d = screen index (row# * #cols)00FFE290 03080B leax d,x00FFE292 086020 lda #' '00FFE294 0C6040 ldb #COLS ; b = # chars to blank out from video controllerblnkln1:00FFE296 0A7800 sta ,x+00FFE298 05A decb00FFE299 026FFB bne blnkln100FFE29B 035096 puls d,x,pc;------------------------------------------------------------------------------; Get the location of the screen memory. The location; depends on whether or not the task has the output focus.;; Modifies:; d; Retuns:; d = screen location;------------------------------------------------------------------------------GetScreenLocation:00FFE29D 0150B6FFFFFFFE0 lda COREID ; which core are we?00FFE2A2 0B1FFC010 cmpa IOFocusID ; do we have the IO focus00FFE2A5 026008 bne gsl1 ; no, go pick virtual screen address00FFE2A7 081020 cmpa #$20 ; CmodA709?00FFE2A9 027004 beq gsl100FFE2AB 0CCE00000 ldd #TEXTSCR ; yes, we update the real screen00FFE2AE 039 rtsgsl1:00FFE2AF 0CC007800 ldd #$780000FFE2B2 039 rts;------------------------------------------------------------------------------; HomeCursor; Set the cursor location to the top left of the screen.;; Modifies:; none;------------------------------------------------------------------------------HomeCursor:00FFE2B3 034016 pshs d,x00FFE2B5 00F110 clr CursorRow00FFE2B7 00F111 clr CursorCol00FFE2B9 0150F6FFFFFFFE0 ldb COREID00FFE2BE 0F1FFC010 cmpb IOFocusID00FFE2C1 02600A bne hc100FFE2C3 0C1020 cmpb #$2000FFE2C5 027006 beq hc100FFE2C7 04F clra00FFE2C8 0150B7FFFE07F22 sta TEXTREG+TEXT_CURPOShc1:00FFE2CD 035096 puls d,x,pc;------------------------------------------------------------------------------; Update the cursor position in the text controller based on the; CursorRow,CursorCol.;; Modifies:; none;------------------------------------------------------------------------------;UpdateCursorPos:00FFE2CF 034016 pshs d,x00FFE2D1 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE2D6 0F1FFC010 cmpb IOFocusID ; only for the task with the output focus00FFE2D9 026018 bne ucp100FFE2DB 0C1020 cmpb #$20 ; and not for CmodA70900FFE2DD 027014 beq ucp100FFE2DF 096110 lda CursorRow00FFE2E1 08403F anda #$3F ; limit of 63 rows00FFE2E3 0150F6FFFE07F00 ldb TEXTREG+TEXT_COLS00FFE2E8 03D mul00FFE2E9 01F001 tfr d,x00FFE2EB 0D6111 ldb CursorCol00FFE2ED 03A abx00FFE2EE 0150BFFFFE07F22 stx TEXTREG+TEXT_CURPOSucp1:00FFE2F3 035096 puls d,x,pc;------------------------------------------------------------------------------; Calculate screen memory location from CursorRow,CursorCol.; Also refreshes the cursor location.;; Modifies:; d; Returns:; d = screen location;------------------------------------------------------------------------------;CalcScreenLoc:00FFE2F5 034010 pshs x00FFE2F7 096110 lda CursorRow00FFE2F9 0C6040 ldb #COLS00FFE2FB 03D mul00FFE2FC 01F001 tfr d,x00FFE2FE 0D6111 ldb CursorCol00FFE300 03A abx00FFE301 0150F6FFFFFFFE0 ldb COREID ; update cursor position in text controller00FFE306 0F1FFC010 cmpb IOFocusID ; only for the task with the output focus00FFE309 026009 bne csl100FFE30B 0C1020 cmpb #$2000FFE30D 027005 beq csl100FFE30F 0150BFFFFE07F22 stx TEXTREG+TEXT_CURPOScsl1:00FFE314 08DF87 bsr GetScreenLocation00FFE316 03080B leax d,x00FFE318 01F010 tfr x,d00FFE31A 035090 puls x,pc;------------------------------------------------------------------------------; Display a character on the screen.; If the task doesn't have the I/O focus then the character is written to; the virtual screen.;; Modifies:; none; Parameters:; accb = char to display;------------------------------------------------------------------------------;DisplayChar:00FFE31C 01700097B lbsr SerialPutCharScreenDisplayChar:00FFE31F 034016 pshs d,x00FFE321 0C100D cmpb #CR ; carriage return ?00FFE323 026007 bne dccr00FFE325 00F111 clr CursorCol ; just set cursor column to zero on a CR00FFE327 08DFA6 bsr UpdateCursorPosdcx14:00FFE329 01600008C lbra dcx4dccr:00FFE32C 0C1091 cmpb #$91 ; cursor right ?00FFE32E 02600D bne dcx600FFE330 096111 lda CursorCol00FFE332 081040 cmpa #COLS00FFE334 024003 bhs dcx700FFE336 04C inca00FFE337 097111 sta CursorColdcx7:00FFE339 08DF94 bsr UpdateCursorPos00FFE33B 035096 puls d,x,pcdcx6:00FFE33D 0C1090 cmpb #$90 ; cursor up ?00FFE33F 026009 bne dcx800FFE341 096110 lda CursorRow00FFE343 027FF4 beq dcx700FFE345 04A deca00FFE346 097110 sta CursorRow00FFE348 020FEF bra dcx7dcx8:00FFE34A 0C1093 cmpb #$93 ; cursor left ?00FFE34C 026009 bne dcx900FFE34E 096111 lda CursorCol00FFE350 027FE7 beq dcx700FFE352 04A deca00FFE353 097111 sta CursorCol00FFE355 020FE2 bra dcx7dcx9:00FFE357 0C1092 cmpb #$92 ; cursor down ?00FFE359 02600B bne dcx1000FFE35B 096110 lda CursorRow00FFE35D 081020 cmpa #ROWS00FFE35F 027FD8 beq dcx700FFE361 04C inca00FFE362 097110 sta CursorRow00FFE364 020FD3 bra dcx7dcx10:00FFE366 0C1094 cmpb #$94 ; cursor home ?00FFE368 02600C bne dcx1100FFE36A 096111 lda CursorCol00FFE36C 027004 beq dcx1200FFE36E 00F111 clr CursorCol00FFE370 020FC7 bra dcx7dcx12:00FFE372 00F110 clr CursorRow00FFE374 020FC3 bra dcx7dcx11:00FFE376 0C1099 cmpb #$99 ; delete ?00FFE378 026008 bne dcx1300FFE37A 08DF79 bsr CalcScreenLoc00FFE37C 01F001 tfr d,x00FFE37E 096111 lda CursorCol ; acc = cursor column00FFE380 020011 bra dcx5dcx1300FFE382 0C1008 cmpb #CTRLH ; backspace ?00FFE384 02601E bne dcx300FFE386 096111 lda CursorCol00FFE388 02702E beq dcx400FFE38A 04A deca00FFE38B 097111 sta CursorCol00FFE38D 08DF66 bsr CalcScreenLoc00FFE38F 01F001 tfr d,x00FFE391 096111 lda CursorColdcx5:00FFE393 0E6001 ldb 1,x00FFE395 0E7801 stb ,x++00FFE397 04C inca00FFE398 081040 cmpa #COLS00FFE39A 025FF7 blo dcx500FFE39C 0C6020 ldb #' '00FFE39E 0301FF dex00FFE3A0 0E7804 stb ,x00FFE3A2 020014 bra dcx4dcx3:00FFE3A4 0C100A cmpb #LF ; linefeed ?00FFE3A6 02700E beq dclf00FFE3A8 034004 pshs b00FFE3AA 08DF49 bsr CalcScreenLoc00FFE3AC 01F001 tfr d,x00FFE3AE 035004 puls b00FFE3B0 0E7804 stb ,x; ToDo character color; lda CharColor; sta $2000,x00FFE3B2 08D006 bsr IncCursorPos00FFE3B4 020002 bra dcx4dclf:00FFE3B6 08D011 bsr IncCursorRowdcx4:00FFE3B8 035096 puls d,x,pc;------------------------------------------------------------------------------; Increment the cursor position, scroll the screen if needed.;; Modifies:; none;------------------------------------------------------------------------------IncCursorPos:00FFE3BA 034016 pshs d,x00FFE3BC 096111 lda CursorCol00FFE3BE 04C inca00FFE3BF 097111 sta CursorCol00FFE3C1 081040 cmpa #COLS00FFE3C3 025014 blo icc100FFE3C5 00F111 clr CursorCol ; column = 000FFE3C7 020002 bra icr1IncCursorRow:00FFE3C9 034016 pshs d,xicr1:00FFE3CB 096110 lda CursorRow00FFE3CD 04C inca00FFE3CE 097110 sta CursorRow00FFE3D0 081020 cmpa #ROWS00FFE3D2 025005 blo icc100FFE3D4 04A deca ; backup the cursor row, we are scrolling up00FFE3D5 097110 sta CursorRow00FFE3D7 08DE8F bsr ScrollUpicc1:00FFE3D9 08DEF4 bsr UpdateCursorPosicc2:00FFE3DB 035096 puls d,x,pc;------------------------------------------------------------------------------; Display a string on the screen.;; Modifies:; none; Parameters:; d = pointer to string;------------------------------------------------------------------------------;DisplayString:00FFE3DD 034016 pshs d,x00FFE3DF 01F001 tfr d,x00FFE3E1 0150B6FFFFFFFE0 lda COREID00FFE3E6 081020 cmpa #$2000FFE3E8 027005 beq dspj1Bdspj2: ; lock semaphore for access00FFE3EA 0B6EF0001 lda OUTSEMA+100FFE3ED 027FFB beq dspj2dspj1B:00FFE3EF 0E6800 ldb ,x+ ; move string char into acc00FFE3F1 027005 beq dsretB ; is it end of string ?00FFE3F3 017000DD3 lbsr OUTCH ; display character00FFE3F6 020FF7 bra dspj1BdsretB:00FFE3F8 07FEF0001 clr OUTSEMA+1 ; unlock semaphore00FFE3FB 035096 puls d,x,pcDisplayStringCRLF:00FFE3FD 034006 pshs d00FFE3FF 08DFDC bsr DisplayString00FFE401 0C600D ldb #CR00FFE403 017000DC3 lbsr OUTCH00FFE406 0C600A ldb #LF00FFE408 017000DBE lbsr OUTCH00FFE40B 035086 puls d,pc;; PRINT CR, LF, STRING;PSTRNG00FFE40D 08D002 BSR PCRLF00FFE40F 02000D BRA PDATAPCRLF00FFE411 034010 PSHS X00FFE413 08EFFE425 LDX #CRLFST00FFE416 08D006 BSR PDATA00FFE418 035010 PULS X00FFE41A 039 RTS00FFE41B 0BDFFF1C9 JSR OUTCHPDATA00FFE41E 0E6800 LDB ,X+00FFE420 0C1004 CMPB #$0400FFE422 026FF7 BNE PRINT00FFE424 039 RTSCRLFST00FFE425 00D00A004 fcb CR,LF,4DispDWordAsHex:00FFE428 08D007 bsr DispWordAsHex00FFE42A 01E001 exg d,x00FFE42C 08D003 bsr DispWordAsHex00FFE42E 01E001 exg d,x00FFE430 039 rtsDispWordAsHex:00FFE431 01E089 exg a,b00FFE433 08D005 bsr DispByteAsHex00FFE435 01E089 exg a,b00FFE437 08D001 bsr DispByteAsHex00FFE439 039 rtsDispByteAsHex:00FFE43A 034004 pshs b00FFE43C 054 lsrb00FFE43D 054 lsrb00FFE43E 054 lsrb00FFE43F 054 lsrb00FFE440 054 lsrb00FFE441 054 lsrb00FFE442 054 lsrb00FFE443 054 lsrb00FFE444 08D00C bsr DispNyb00FFE446 035004 puls b00FFE448 034004 pshs b00FFE44A 054 lsrb00FFE44B 054 lsrb00FFE44C 054 lsrb00FFE44D 054 lsrb00FFE44E 08D002 bsr DispNyb00FFE450 035004 puls bDispNyb00FFE452 034004 pshs b00FFE454 0C400F andb #$0F00FFE456 0C100A cmpb #1000FFE458 025007 blo DispNyb100FFE45A 0CB037 addb #'A'-1000FFE45C 017000D6A lbsr OUTCH00FFE45F 035084 puls b,pcDispNyb100FFE461 0CB030 addb #'0'00FFE463 017000D63 lbsr OUTCH00FFE466 035084 puls b,pc;==============================================================================; Timer;==============================================================================; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; Timer routines for a WDC6522 compatible circuit.;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;TimerInit:00FFE468 0CC061A80 ldd #$61A80 ; compare to 400000 (100 Hz assuming 40MHz clock)00FFE46B 0150F7FFFE60014 stb VIA+VIA_T3CMPL00FFE470 0150B7FFFE60015 sta VIA+VIA_T3CMPH00FFE475 01507FFFFE60012 clr VIA+VIA_T3LL00FFE47A 01507FFFFE60013 clr VIA+VIA_T3LH00FFE47F 0150B6FFFE6000B lda VIA+VIA_ACR ; set continuous mode for timer00FFE484 08A100 ora #$10000FFE486 0150B7FFFE6000B sta VIA+VIA_ACR00FFE48B 086880 lda #$880 ; enable timer #3 interrupts00FFE48D 0150B7FFFE6000E sta VIA+VIA_IER00FFE492 039 rtsTimerIRQ:; Reset the edge sense circuit in the PIC00FFE493 08601F lda #31 ; Timer is IRQ #3100FFE495 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFE49A 0150B6FFFE3F0FF lda PIC+$FF ; Timer active interrupt flag00FFE49F 027041 beq notTimerIRQ00FFE4A1 01507FFFFE3F0FF clr PIC+$FF ; clear the flag00FFE4A6 08601F lda #31 ; Timer is IRQ #3100FFE4A8 0B7FFC011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()00FFE4AB 01507FFFFE60012 clr VIA+VIA_T3LL ; should clear the interrupt00FFE4B0 01507FFFFE60013 clr VIA+VIA_T3LH00FFE4B5 08601F lda #31 ; Timer is IRQ #3100FFE4B7 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFE4BC 01507FFFFE3F0FF clr PIC+$FF ; clear the flag00FFE4C1 07CE0003F inc $E0003F ; update timer IRQ screen flag00FFE4C4 0FCFFC016 ldd milliseconds+200FFE4C7 0C300000A addd #1000FFE4CA 0FDFFC016 std milliseconds+200FFE4CD 0FCFFC014 ldd milliseconds00FFE4D0 0C9000 adcb #000FFE4D2 0F7FFC015 stb milliseconds+100FFE4D5 089000 adca #000FFE4D7 0B7FFC014 sta milliseconds; Update XModem timer, we just always do it rather than testing if XModem; is active. The increment is set to give approximately 3s before the MSB; gets set.00FFE4DA 0F6FFC020 ldb xm_timer00FFE4DD 0CB004 addb #400FFE4DF 0F7FFC020 stb xm_timernotTimerIRQ:00FFE4E2 039 rts; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;;===============================================================================; Generic I2C routines;; It is assumed there may be more than one I2C controller in the system, so; the address of the controller is passed in the X register.;===============================================================================I2C_PREL EQU $0I2C_PREH EQU $1I2C_CTRL EQU $2I2C_RXR EQU $3I2C_TXR EQU $3I2C_CMD EQU $4I2C_STAT EQU $4; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; i2c initialization, sets the clock prescaler;; Parameters:; x = I2C controller address; Returns: none; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_init:00FFE4E3 034004 pshs b00FFE4E5 0C6004 ldb #4 ; setup prescale for 400kHz clock00FFE4E7 0E7804 stb I2C_PREL,x00FFE4E9 06F001 clr I2C_PREH,x00FFE4EB 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for I2C transfer to complete;; Parameters; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_tip:00FFE4ED 034004 pshs bi2cw1:00FFE4EF 0E6004 ldb I2C_STAT,x ; would use lvb, but lb is okay since its the I/O area00FFE4F1 0C5001 bitb #1 ; wait for tip to clear00FFE4F3 026FFA bne i2cw100FFE4F5 035084 puls b,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Write command to i2c;; Parameters; accb - data to transmit; acca - command value; x - I2C controller base address; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wr_cmd:00FFE4F7 0E7003 stb I2C_TXR,x00FFE4F9 0A7004 sta I2C_CMD,x00FFE4FB 08DFF0 bsr i2c_wait_tip00FFE4FD 0E6004 ldb I2C_STAT,x00FFE4FF 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Parameters; x - I2C controller base address; accb - data to send; Returns: none; Stack space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_xmit1:00FFE500 034006 pshs d ; save data value00FFE502 034006 pshs d ; and save it again00FFE504 0C6001 ldb #100FFE506 0E7002 stb I2C_CTRL,x ; enable the core00FFE508 0C6076 ldb #$76 ; set slave address = %011101100FFE50A 086090 lda #$90 ; set STA, WR00FFE50C 08DFE9 bsr i2c_wr_cmd00FFE50E 08D00A bsr i2c_wait_rx_nack00FFE510 035006 puls d ; get back data value00FFE512 086050 lda #$50 ; set STO, WR00FFE514 08DFE1 bsr i2c_wr_cmd00FFE516 08D002 bsr i2c_wait_rx_nack00FFE518 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -i2c_wait_rx_nack:00FFE51A 034004 pshs b ; save off accbi2cwr1:00FFE51C 0E6004 ldb I2C_STAT,x ; wait for RXack = 000FFE51E 0C5080 bitb #$80 ; test for nack00FFE520 026FFA bne i2cwr100FFE522 035084 puls b,pc; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;===============================================================================; Realtime clock routines;===============================================================================; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Read the real-time-clock chip.;; The entire contents of the clock registers and sram are read into a buffer; in one-shot rather than reading the registers individually.;; Parameters: none; Returns: d = 0 on success, otherwise non-zero; Modifies: d and RTCBuf; Stack space: 6 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -rtc_read:00FFE524 08EE30500 ldx #RTC00FFE527 18E007FC0 ldy #RTCBuf00FFE52A 0C6080 ldb #$8000FFE52C 0E7002 stb I2C_CTRL,x ; enable I2C00FFE52E 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE531 08DFC4 bsr i2c_wr_cmd00FFE533 0C5080 bitb #$8000FFE535 02603C bne rtc_rxerr00FFE537 0CC010000 ldd #$10000 ; address zero, wr bit00FFE53A 08DFBB bsr i2c_wr_cmd00FFE53C 0C5080 bitb #$8000FFE53E 026033 bne rtc_rxerr00FFE540 0CC0900DF ldd #$900DF ; read address, read op, STA + wr bit00FFE543 08DFB2 bsr i2c_wr_cmd00FFE545 0C5080 bitb #$8000FFE547 02602A bne rtc_rxerr00FFE549 05F clrbrtcr0001:00FFE54A 086020 lda #$2000FFE54C 0A7004 sta I2C_CMD,x ; rd bit00FFE54E 08DF9D bsr i2c_wait_tip00FFE550 08DFC8 bsr i2c_wait_rx_nack00FFE552 0A6004 lda I2C_STAT,x00FFE554 085080 bita #$8000FFE556 02601B bne rtc_rxerr00FFE558 0A6003 lda I2C_RXR,x00FFE55A 0A7A07 sta b,y00FFE55C 05C incb00FFE55D 0C105F cmpb #$5F00FFE55F 025FE9 blo rtcr000100FFE561 086068 lda #$6800FFE563 0A7004 sta I2C_CMD,x ; STO, rd bit + nack00FFE565 08DF86 bsr i2c_wait_tip00FFE567 0A6004 lda I2C_STAT,x00FFE569 085080 bita #$8000FFE56B 026006 bne rtc_rxerr00FFE56D 0A6003 lda I2C_RXR,x00FFE56F 0A7A07 sta b,y00FFE571 04F05F clrd ; return 0rtc_rxerr:00FFE573 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE575 04F clra00FFE576 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:00FFE577 08EE30500 ldx #RTC00FFE57A 18E007FC0 ldy #RTCBuf00FFE57D 0C6080 ldb #$8000FFE57F 0E7002 stb I2C_CTRL,x ; enable I2C00FFE581 0CC0900DE ldd #$900DE ; read address, write op, STA + wr bit00FFE584 08DF71 bsr i2c_wr_cmd00FFE586 0C5080 bitb #$8000FFE588 026FE9 bne rtc_rxerr00FFE58A 0CC010000 ldd #$10000 ; address zero, wr bit00FFE58D 08DF68 bsr i2c_wr_cmd00FFE58F 0C5080 bitb #$8000FFE591 026FE0 bne rtc_rxerr00FFE593 0C6000 ldb #0rtcw0001:00FFE595 034004 pshs b00FFE597 0E6A05 ldb b,y00FFE599 086010 lda #$1000FFE59B 08DF5A bsr i2c_wr_cmd00FFE59D 0C5080 bitb #$8000FFE59F 035004 puls b00FFE5A1 026FD0 bne rtc_rxerr00FFE5A3 05C incb00FFE5A4 0C105F cmpb #$5F00FFE5A6 025FED blo rtcw000100FFE5A8 0E6A05 ldb b,y00FFE5AA 086050 lda #$50 ; STO, wr bit00FFE5AC 08DF49 bsr i2c_wr_cmd00FFE5AE 0C5080 bitb #$8000FFE5B0 026FC1 bne rtc_rxerr00FFE5B2 04F05F clrd ; return 000FFE5B4 06F002 clr I2C_CTRL,x ; disable I2C and return status00FFE5B6 039 rts;==============================================================================; Keyboard I/O;==============================================================================;--------------------------------------------------------------------------; PS2 scan codes to ascii conversion tables.;--------------------------------------------------------------------------;org (* + 127) & $FFFFFF80unshiftedScanCodes:00FFE600 02E0A902E0A50A30A10A2 fcb $2e,$a9,$2e,$a5,$a3,$a1,$a2,$ac00FFE607 0AC00FFE608 02E0AA0A80A60A4009060 fcb $2e,$aa,$a8,$a6,$a4,$09,$60,$2e00FFE60F 02E00FFE610 02E02E02E02E02E071031 fcb $2e,$2e,$2e,$2e,$2e,$71,$31,$2e00FFE617 02E00FFE618 02E02E07A073061077032 fcb $2e,$2e,$7a,$73,$61,$77,$32,$2e00FFE61F 02E00FFE620 02E063078064065034033 fcb $2e,$63,$78,$64,$65,$34,$33,$2e00FFE627 02E00FFE628 02E020076066074072035 fcb $2e,$20,$76,$66,$74,$72,$35,$2e00FFE62F 02E00FFE630 02E06E062068067079036 fcb $2e,$6e,$62,$68,$67,$79,$36,$2e00FFE637 02E00FFE638 02E02E06D06A075037038 fcb $2e,$2e,$6d,$6a,$75,$37,$38,$2e00FFE63F 02E00FFE640 02E02C06B06906F030039 fcb $2e,$2c,$6b,$69,$6f,$30,$39,$2e00FFE647 02E00FFE648 02E02E02F06C03B07002D fcb $2e,$2e,$2f,$6c,$3b,$70,$2d,$2e00FFE64F 02E00FFE650 02E02E02702E05B03D02E fcb $2e,$2e,$27,$2e,$5b,$3d,$2e,$2e00FFE657 02E00FFE658 0AD02E00D05D02E05C02E fcb $ad,$2e,$0d,$5d,$2e,$5c,$2e,$2e00FFE65F 02E00FFE660 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e00FFE667 02E00FFE668 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e00FFE66F 02E00FFE670 09807F09202E09109001B fcb $98,$7f,$92,$2e,$91,$90,$1b,$af00FFE677 0AF00FFE678 0AB02E09702E02E0960AE fcb $ab,$2e,$97,$2e,$2e,$96,$ae,$2e00FFE67F 02E00FFE680 02E02E02E0A702E02E02E fcb $2e,$2e,$2e,$a7,$2e,$2e,$2e,$2e00FFE687 02E00FFE688 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE68F 02E00FFE690 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE697 02E00FFE698 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE69F 02E00FFE6A0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6A7 02E00FFE6A8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6AF 02E00FFE6B0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6B7 02E00FFE6B8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6BF 02E00FFE6C0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6C7 02E00FFE6C8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6CF 02E00FFE6D0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6D7 02E00FFE6D8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6DF 02E00FFE6E0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6E7 02E00FFE6E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6EF 02E00FFE6F0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE6F7 02E00FFE6F8 02E02E0FA02E02E02E02E fcb $2e,$2e,$fa,$2e,$2e,$2e,$2e,$2e00FFE6FF 02EshiftedScanCodes:00FFE700 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE707 02E00FFE708 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e00FFE70F 02E00FFE710 02E02E02E02E02E051021 fcb $2e,$2e,$2e,$2e,$2e,$51,$21,$2e00FFE717 02E00FFE718 02E02E05A053041057040 fcb $2e,$2e,$5a,$53,$41,$57,$40,$2e00FFE71F 02E00FFE720 02E043058044045024023 fcb $2e,$43,$58,$44,$45,$24,$23,$2e00FFE727 02E00FFE728 02E020056046054052025 fcb $2e,$20,$56,$46,$54,$52,$25,$2e00FFE72F 02E00FFE730 02E04E04204804705905E fcb $2e,$4e,$42,$48,$47,$59,$5e,$2e00FFE737 02E00FFE738 02E02E04D04A05502602A fcb $2e,$2e,$4d,$4a,$55,$26,$2a,$2e00FFE73F 02E00FFE740 02E03C04B04904F029028 fcb $2e,$3c,$4b,$49,$4f,$29,$28,$2e00FFE747 02E00FFE748 02E03E03F04C03A05005F fcb $2e,$3e,$3f,$4c,$3a,$50,$5f,$2e00FFE74F 02E00FFE750 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e00FFE757 02E00FFE758 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e00FFE75F 02E00FFE760 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e00FFE767 02E00FFE768 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE76F 02E00FFE770 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e00FFE777 02E00FFE778 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE77F 02E00FFE780 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE787 02E00FFE788 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE78F 02E00FFE790 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE797 02E00FFE798 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE79F 02E00FFE7A0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7A7 02E00FFE7A8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7AF 02E00FFE7B0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7B7 02E00FFE7B8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7BF 02E00FFE7C0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7C7 02E00FFE7C8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7CF 02E00FFE7D0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7D7 02E00FFE7D8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7DF 02E00FFE7E0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7E7 02E00FFE7E8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7EF 02E00FFE7F0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7F7 02E00FFE7F8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE7FF 02E; controlkeybdControlCodes:00FFE800 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE807 02E00FFE808 02E02E02E02E02E00907E fcb $2e,$2e,$2e,$2e,$2e,$09,$7e,$2e00FFE80F 02E00FFE810 02E02E02E02E02E011021 fcb $2e,$2e,$2e,$2e,$2e,$11,$21,$2e00FFE817 02E00FFE818 02E02E01A013001017040 fcb $2e,$2e,$1a,$13,$01,$17,$40,$2e00FFE81F 02E00FFE820 02E003018004005024023 fcb $2e,$03,$18,$04,$05,$24,$23,$2e00FFE827 02E00FFE828 02E020016006014012025 fcb $2e,$20,$16,$06,$14,$12,$25,$2e00FFE82F 02E00FFE830 02E00E00200800701905E fcb $2e,$0e,$02,$08,$07,$19,$5e,$2e00FFE837 02E00FFE838 02E02E00D00A01502602A fcb $2e,$2e,$0d,$0a,$15,$26,$2a,$2e00FFE83F 02E00FFE840 02E03C00B00900F029028 fcb $2e,$3c,$0b,$09,$0f,$29,$28,$2e00FFE847 02E00FFE848 02E03E03F00C03A01005F fcb $2e,$3e,$3f,$0c,$3a,$10,$5f,$2e00FFE84F 02E00FFE850 02E02E02202E07B02B02E fcb $2e,$2e,$22,$2e,$7b,$2b,$2e,$2e00FFE857 02E00FFE858 02E02E00D07D02E07C02E fcb $2e,$2e,$0d,$7d,$2e,$7c,$2e,$2e00FFE85F 02E00FFE860 02E02E02E02E02E02E008 fcb $2e,$2e,$2e,$2e,$2e,$2e,$08,$2e00FFE867 02E00FFE868 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE86F 02E00FFE870 02E07F02E02E02E02E01B fcb $2e,$7f,$2e,$2e,$2e,$2e,$1b,$2e00FFE877 02E00FFE878 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE87F 02EkeybdExtendedCodes:00FFE880 02E02E02E02E0A30A10A2 fcb $2e,$2e,$2e,$2e,$a3,$a1,$a2,$2e00FFE887 02E00FFE888 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE88F 02E00FFE890 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE897 02E00FFE898 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE89F 02E00FFE8A0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8A7 02E00FFE8A8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8AF 02E00FFE8B0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8B7 02E00FFE8B8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8BF 02E00FFE8C0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8C7 02E00FFE8C8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8CF 02E00FFE8D0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8D7 02E00FFE8D8 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8DF 02E00FFE8E0 02E02E02E02E02E02E02E fcb $2e,$2e,$2e,$2e,$2e,$2e,$2e,$2e00FFE8E7 02E00FFE8E8 02E09502E09309402E02E fcb $2e,$95,$2e,$93,$94,$2e,$2e,$2e00FFE8EF 02E00FFE8F0 09809909202E09109002E fcb $98,$99,$92,$2e,$91,$90,$2e,$2e00FFE8F7 02E00FFE8F8 02E02E09702E02E09602E fcb $2e,$2e,$97,$2e,$2e,$96,$2e,$2e00FFE8FF 02E; ============================================================================; __; \\__/ o\ (C) 2013-2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; Keyboard driver routines to interface to a PS2 style keyboard; Converts the scancode to ascii;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;SC_F12 EQU $07SC_C EQU $21SC_T EQU $2CSC_Z EQU $1ASC_DEL EQU $71 ; extendSC_KEYUP EQU $F0 ; should be $f0SC_EXTEND EQU $E0SC_CTRL EQU $14SC_RSHIFT EQU $59SC_NUMLOCK EQU $77SC_SCROLLLOCK EQU $7ESC_CAPSLOCK EQU $58SC_ALT EQU $11;#define SC_LSHIFT EQU $12;SC_DEL EQU $71 ; extend;SC_LCTRL EQU $58SC_TAB EQU $0D; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Recieve a byte from the keyboard, used after a command is sent to the; keyboard in order to wait for a response.;; Parameters: none; Returns: accd = recieved byte ($00 to $FF), -1 on timeout; Modifies: acc; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdRecvByte:00FFE900 034010 pshs x00FFE902 08E000064 ldx #100 ; wait up to 1skrb3:00FFE905 08D05A bsr KeybdGetStatus ; wait for response from keyboard00FFE907 05D tstb00FFE908 02B00B bmi krb4 ; is input buffer full ? yes, branch00FFE90A 08D02D bsr Wait10ms ; wait a bit00FFE90C 0301FF dex00FFE90E 026FF5 bne krb3 ; go back and try again00FFE910 0CCFFFFFF ldd #-1 ; return -100FFE913 035090 puls x,pckrb4:00FFE915 08D066 bsr KeybdGetScancode00FFE917 035090 puls x,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Send a byte to the keyboard.;; Parameters: accb byte to send; Returns: none; Modifies: none; Stack Space: 0 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdSendByte:00FFE919 0150F7FFFE30400 stb KEYBD00FFE91E 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait until the keyboard transmit is complete;; Parameters: none; Returns: r1 = 0 if successful, r1 = -1 timeout; Modifies: r1; Stack Space: 3 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdWaitTx:00FFE91F 034010 pshs x00FFE921 08E000064 ldx #100 ; wait a max of 1skwt1:00FFE924 08D03B bsr KeybdGetStatus00FFE926 0C4040 andb #$40 ; check for transmit complete bit; branch if bit set00FFE928 02600B bne kwt200FFE92A 08D00D bsr Wait10ms ; delay a little bit00FFE92C 0301FF dex00FFE92E 026FF4 bne kwt1 ; go back and try again00FFE930 0CCFFFFFF ldd #-1 ; timed out, return -100FFE933 035090 puls x,pckwt2:00FFE935 04F clra ; wait complete, return 000FFE936 05F clrb00FFE937 035090 puls x,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for 10 ms;; Parameters: none; Returns: none; Modifies: none; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -Wait10ms:00FFE939 034006 pshs d00FFE93B 0150B6FFFFFFFE7 lda MSCOUNT+3W10_0001:00FFE940 01F089 tfr a,b00FFE942 0150F0FFFFFFFE7 subb MSCOUNT+300FFE947 0C1FFA cmpb #$FFA00FFE949 022FF5 bhi W10_000100FFE94B 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Wait for 300 ms (256 ms);; Parameters: none; Returns: none; Modifies: none; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -Wait300ms:00FFE94D 034006 pshs d00FFE94F 0150B6FFFFFFFE7 lda MSCOUNT+3W300_0001:00FFE954 01F089 tfr a,b00FFE956 0150F0FFFFFFFE7 subb MSCOUNT+300FFE95B 0C1F00 cmpb #$F0000FFE95D 022FF5 bhi W300_000100FFE95F 035086 puls d,pc; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Get the keyboard status;; Parameters: none; Returns: d = status; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdGetStatus:kbgs3:00FFE961 0150F6FFFE30401 ldb KEYBD+100FFE966 0C5080 bitb #$8000FFE968 02600E bne kbgs100FFE96A 0C5001 bitb #$01 ; check parity error flag00FFE96C 026002 bne kbgs200FFE96E 04F clra00FFE96F 039 rtskbgs2:00FFE970 0C60FE ldb #$FE ; request resend00FFE972 08DFA5 bsr KeybdSendByte00FFE974 08DFA9 bsr KeybdWaitTx00FFE976 020FE9 bra kbgs3kbgs1: ; return negative status00FFE978 0CAF00 orb #$F0000FFE97A 086FFF lda #-100FFE97C 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Get the scancode from the keyboard port;; Parameters: none; Returns: acca = scancode; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdGetScancode:00FFE97D 04F clra00FFE97E 0150F6FFFE30400 ldb KEYBD ; get the scan code00FFE983 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)00FFE988 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Set the LEDs on the keyboard.;; Parameters: d LED status to set; Returns: none; Modifies: none; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdSetLED:00FFE989 034004 pshs b00FFE98B 0C60ED ldb #$ED ; set LEDs command00FFE98D 08DF8A bsr KeybdSendByte00FFE98F 08DF8E bsr KeybdWaitTx00FFE991 08DF6D bsr KeybdRecvByte ; should be an ack00FFE993 035004 puls b00FFE995 08DF82 bsr KeybdSendByte00FFE997 08DF86 bsr KeybdWaitTx00FFE999 08DF65 bsr KeybdRecvByte ; should be an ack00FFE99B 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Get ID - get the keyboards identifier code.;; Parameters: none; Returns: d = $AB83, $00 on fail; Modifies: d, KeybdID updated; Stack Space: 2 words; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdGetID:00FFE99C 0C60F2 ldb #$F200FFE99E 08DF79 bsr KeybdSendByte00FFE9A0 08DF7D bsr KeybdWaitTx00FFE9A2 08DF5C bsr KeybdRecvByte00FFE9A4 0C5080 bitb #$8000FFE9A6 026014 bne kgnotKbd00FFE9A8 0C10AB cmpb #$AB00FFE9AA 026010 bne kgnotKbd00FFE9AC 08DF52 bsr KeybdRecvByte00FFE9AE 0C5080 bitb #$8000FFE9B0 02600A bne kgnotKbd00FFE9B2 0C1083 cmpb #$8300FFE9B4 026006 bne kgnotKbd00FFE9B6 0CC00AB83 ldd #$AB83kgid1:00FFE9B9 0DD124 std KeybdID00FFE9BB 039 rtskgnotKbd:00FFE9BC 04F clra00FFE9BD 05F clrb00FFE9BE 020FF9 bra kgid1; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Initialize the keyboard.;; Parameters:; none; Modifies:; none; Returns:; none; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdInit:00FFE9C0 034026 pshs d,y00FFE9C2 18E000005 ldy #500FFE9C5 00F120 clr KeyState1 ; records key up/down state00FFE9C7 00F121 clr KeyState2 ; records shift,ctrl,alt statekbdi0002:00FFE9C9 08DF6E bsr Wait10ms00FFE9CB 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)00FFE9D0 0C6FFF ldb #-1 ; send reset code to keyboard00FFE9D2 0150F7FFFE30401 stb KEYBD+1 ; write $FF to status reg to clear TX state00FFE9D7 08DF40 bsr KeybdSendByte ; now write to transmit register00FFE9D9 08DF44 bsr KeybdWaitTx ; wait until no longer busy00FFE9DB 08DF23 bsr KeybdRecvByte ; look for an ACK ($FA)00FFE9DD 0C10FA cmpb #$FA00FFE9DF 026021 bne kbdiTryAgain00FFE9E1 08DF1D bsr KeybdRecvByte ; look for BAT completion code ($AA)00FFE9E3 0C10FC cmpb #$FC ; reset error ?00FFE9E5 02701B beq kbdiTryAgain00FFE9E7 0C10AA cmpb #$AA ; reset complete okay ?00FFE9E9 026017 bne kbdiTryAgain; After a reset, scan code set #2 should be active.config:00FFE9EB 0C60F0 ldb #$F0 ; send scan code select00FFE9ED 0150F7FFFE60001 stb LEDS00FFE9F2 08DF25 bsr KeybdSendByte00FFE9F4 08DF29 bsr KeybdWaitTx00FFE9F6 05D tstb00FFE9F7 02B009 bmi kbdiTryAgain00FFE9F9 08DF05 bsr KeybdRecvByte ; wait for response from keyboard00FFE9FB 04D tsta00FFE9FC 02B004 bmi kbdiTryAgain00FFE9FE 0C10FA cmpb #$FA ; ACK00FFEA00 02700C beq kbdi0004kbdiTryAgain:00FFEA02 0313FF dey00FFEA04 026FC3 bne kbdi0002.keybdErr:00FFEA06 0CCFFEA2E ldd #msgBadKeybd00FFEA09 017FFF9F1 lbsr DisplayStringCRLF*** warning 1: Long branch within short branch range could be optimized00FFEA0C 020014 bra ledxitkbdi0004:00FFEA0E 0C6002 ldb #2 ; select scan code set #200FFEA10 08DF07 bsr KeybdSendByte00FFEA12 08DF0B bsr KeybdWaitTx00FFEA14 05D tstb00FFEA15 02BFEB bmi kbdiTryAgain00FFEA17 08DEE7 bsr KeybdRecvByte ; wait for response from keyboard00FFEA19 04D tsta00FFEA1A 02BFE6 bmi kbdiTryAgain00FFEA1C 0C10FA cmpb #$FA00FFEA1E 026FE2 bne kbdiTryAgain00FFEA20 08DF7A bsr KeybdGetIDledxit:00FFEA22 0C6007 ldb #$0700FFEA24 08DF63 bsr KeybdSetLED00FFEA26 08DF25 bsr Wait300ms00FFEA28 0C6000 ldb #$0000FFEA2A 08DF5D bsr KeybdSetLED00FFEA2C 0350A6 puls d,y,pcmsgBadKeybd:00FFEA2E 04B06507906206F061072 fcb "Keyboard error",000FFEA35 06402006507207206F07200FFEA3C 000;------------------------------------------------------------------------------; Calculate number of character in input buffer;; Parameters:; y = $Cn00000 where n is core id; Returns:; d = number of bytes in buffer.;------------------------------------------------------------------------------kbdRcvCount:00FFEA3D 04F clra00FFEA3E 0E6A08128 ldb kbdTailRcv,y00FFEA41 0E0A08127 subb kbdHeadRcv,y00FFEA44 02C008 bge krcXit00FFEA46 0C6040 ldb #$4000FFEA48 0E0A08127 subb kbdHeadRcv,y00FFEA4B 0EBA08128 addb kbdTailRcv,ykrcXit:00FFEA4E 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -KeybdIRQ:00FFEA4F 0150B6FFFE30401 lda KEYBD+1 ; check status00FFEA54 085080 bita #$80 ; was key pressed?00FFEA56 027034 beq notKbdIRQ ; if not, exit00FFEA58 0150F6FFFE30400 ldb KEYBD ; get the scan code00FFEA5D 01507FFFFE30401 clr KEYBD+1 ; clear receive register (write $00 to status reg)00FFEA62 034004 pshs b ; save it off00FFEA64 0B6FFC010 lda IOFocusID ; compute core memory address $Cn000000FFEA67 05F clrb00FFEA68 048 asla00FFEA69 048 asla00FFEA6A 048 asla00FFEA6B 048 asla00FFEA6C 08AC00 ora #$C00 ; address $Cn000000FFEA6E 01F002 tfr d,y ; y =00FFEA70 08DFCB bsr kbdRcvCount ; get count of scan codes in buffer00FFEA72 0C1040 cmpb #64 ; check if buffer full?00FFEA74 024017 bhs kbdBufFull ; if buffer full, ignore new keystroke00FFEA76 01F021 tfr y,x ; compute fifo address00FFEA78 0E6A08128 ldb kbdTailRcv,y ; b = buffer index00FFEA7B 035002 puls a ; get back scancode00FFEA7D 030040 leax kbdFifo,x ; x = base address for fifo00FFEA7F 0A7845 sta b,x ; store in buffer00FFEA81 05C incb ; increment buffer index00FFEA82 0C403F andb #$3f ; wrap around at 64 chars00FFEA84 0E7A08128 stb kbdTailRcv,y ; update it00FFEA87 08601C lda #28 ; Keyboard is IRQ #2800FFEA89 0B7FFC011 sta IrqSource ; stuff a byte indicating the IRQ source for PEEK()notKbdIRQ:00FFEA8C 039 rtskbdBufFull:00FFEA8D 032601 leas 1,s ; get rid of saved scancode00FFEA8F 039 rts; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -DBGCheckForKey:00FFEA90 020ECF bra KeybdGetStatus; KeyState2 variable bit meanings;1176543210; ||||||||+ = shift; |||||||+- = alt; ||||||+-- = control; |||||+--- = numlock; ||||+---- = capslock; |||+----- = scrolllock; ||+------ = <empty>; |+------- = "; | = "; | = "; | = "; +-------- = extended; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; Keyboard get routine.;; The routine may get characters directly from the scancode input or less; directly from the scancode buffer, if things are interrupt driven.;; Parameters:; b: bit 11 = blocking status 1=blocking, 0=non blocking; b: bit 1 = scancode source 1=scancode buffer, 0=direct; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -GetKey:00FFEA92 034030 pshs x,y00FFEA94 0D7126 stb KeybdBlock ; save off blocking statusdbgk2:00FFEA96 0D6126 ldb KeybdBlock00FFEA98 034004 pshs b00FFEA9A 0C5001 bitb #1 ; what is the scancode source00FFEA9C 02701A beq dbgk20 ; branch if direct read00FFEA9E 0150B6FFFFFFFE0 lda COREID ; compute core memory address00FFEAA3 05F clrb00FFEAA4 048 asla00FFEAA5 048 asla00FFEAA6 048 asla00FFEAA7 048 asla00FFEAA8 08AC00 ora #$C0000FFEAAA 01F002 tfr d,y ; y = $Cn000000FFEAAC 08DF8F bsr kbdRcvCount00FFEAAE 05D tstb ; anything in buffer?00FFEAAF 035004 puls b00FFEAB1 026018 bne dbgk1 ; branch if something in buffer00FFEAB3 05D tstb00FFEAB4 02BFE0 bmi dbgk2 ; if no key and blocking - loop00FFEAB6 02000E bra dbgk24dbgk20:00FFEAB8 18E000000 ldy #000FFEABB 08DEA4 bsr KeybdGetStatus00FFEABD 0C4080 andb #$80 ; is key available?00FFEABF 035004 puls b00FFEAC1 026008 bne dbgk1 ; branch if key00FFEAC3 05D tstb ; block?00FFEAC4 02BFD0 bmi dbgk2 ; If no key and blocking - loopdbgk24:00FFEAC6 0CCFFFFFF ldd #-1 ; return -1 if no block and no key00FFEAC9 0350B0 puls x,y,pcdbgk1:00FFEACB 18C000000 cmpy #000FFEACE 026004 bne dbgk2200FFEAD0 08DEAB bsr KeybdGetScancode ; get scancode directly00FFEAD2 020011 bra dbgk23dbgk22:; Retrieve value from scancode buffer00FFEAD4 01F021 tfr y,x00FFEAD6 030040 leax kbdFifo,x ; x = fifo address00FFEAD8 0E6A08127 ldb kbdHeadRcv,y ; b = buffer index00FFEADB 0A6A0D lda b,x ; get the scancode00FFEADD 05C incb ; increment fifo index00FFEADE 0C403F andb #$3f ; and wrap around00FFEAE0 0E7A08127 stb kbdHeadRcv,y ; save it back00FFEAE3 01F089 tfr a,b ; the scancode is needed in accbdbgk23:; lbsr DispByteAsHex; Make sure there is a small delay between scancode reads00FFEAE5 08E000014 ldx #20dbgk3:00FFEAE8 0301FF dex00FFEAEA 026FFC bne dbgk3; switch on scan code00FFEAEC 0C10F0 cmpb #SC_KEYUP00FFEAEE 026004 bne dbgk400FFEAF0 0D7120 stb KeyState1 ; make KeyState1 <> 000FFEAF2 020FA2 bra dbgk2 ; loop backdbgk4:00FFEAF4 0C10E0 cmpb #SC_EXTEND00FFEAF6 026008 bne dbgk500FFEAF8 096121 lda KeyState200FFEAFA 08A800 ora #$80000FFEAFC 097121 sta KeyState200FFEAFE 020F96 bra dbgk2dbgk5:00FFEB00 0C1014 cmpb #SC_CTRL00FFEB02 026016 bne dbgkNotCtrl00FFEB04 00D120 tst KeyState100FFEB06 026008 bne dbgk700FFEB08 096121 lda KeyState200FFEB0A 08A004 ora #400FFEB0C 097121 sta KeyState200FFEB0E 020006 bra dbgk8dbgk7:00FFEB10 096121 lda KeyState200FFEB12 084FFB anda #~400FFEB14 097121 sta KeyState2dbgk8:00FFEB16 00F120 clr KeyState100FFEB18 020F7C bra dbgk2dbgkNotCtrl:00FFEB1A 0C1059 cmpb #SC_RSHIFT00FFEB1C 026016 bne dbgkNotRshift00FFEB1E 00D120 tst KeyState100FFEB20 026008 bne dbgk900FFEB22 096121 lda KeyState200FFEB24 08A001 ora #100FFEB26 097121 sta KeyState200FFEB28 020006 bra dbgk10dbgk9:00FFEB2A 096121 lda KeyState200FFEB2C 084FFE anda #~100FFEB2E 097121 sta KeyState2dbgk10:00FFEB30 00F120 clr KeyState100FFEB32 020F62 bra dbgk2dbgkNotRshift:00FFEB34 0C1077 cmpb #SC_NUMLOCK00FFEB36 026013 bne dbgkNotNumlock00FFEB38 096121 lda KeyState200FFEB3A 088010 eora #1600FFEB3C 097121 sta KeyState200FFEB3E 096122 lda KeyLED00FFEB40 088002 eora #200FFEB42 097122 sta KeyLED00FFEB44 01F089 tfr a,b00FFEB46 04F clra00FFEB47 08DE40 bsr KeybdSetLED00FFEB49 020F4B bra dbgk2dbgkNotNumlock:00FFEB4B 0C1058 cmpb #SC_CAPSLOCK00FFEB4D 026013 bne dbgkNotCapslock00FFEB4F 096121 lda KeyState200FFEB51 088020 eora #3200FFEB53 097121 sta KeyState200FFEB55 096122 lda KeyLED00FFEB57 088004 eora #400FFEB59 097122 sta KeyLED00FFEB5B 01F089 tfr a,b00FFEB5D 04F clra00FFEB5E 08DE29 bsr KeybdSetLED00FFEB60 020F34 bra dbgk2dbgkNotCapslock:00FFEB62 0C107E cmpb #SC_SCROLLLOCK00FFEB64 026013 bne dbgkNotScrolllock00FFEB66 096121 lda KeyState200FFEB68 088040 eora #6400FFEB6A 097121 sta KeyState200FFEB6C 096122 lda KeyLED00FFEB6E 088001 eora #100FFEB70 097122 sta KeyLED00FFEB72 01F089 tfr a,b00FFEB74 04F clra00FFEB75 08DE12 bsr KeybdSetLED00FFEB77 020F1D bra dbgk2dbgkNotScrolllock:00FFEB79 0C1011 cmpb #SC_ALT00FFEB7B 026016 bne dbgkNotAlt00FFEB7D 00D120 tst KeyState100FFEB7F 026008 bne dbgk1100FFEB81 096121 lda KeyState200FFEB83 08A002 ora #200FFEB85 097121 sta KeyState200FFEB87 020006 bra dbgk12dbgk11:00FFEB89 096121 lda KeyState200FFEB8B 084FFD anda #~200FFEB8D 097121 sta KeyState2dbgk12:00FFEB8F 00F120 clr KeyState100FFEB91 020F03 bra dbgk2dbgkNotAlt:00FFEB93 00D120 tst KeyState100FFEB95 027004 beq dbgk1300FFEB97 00F120 clr KeyState100FFEB99 020EFB bra dbgk2dbgk13:00FFEB9B 096121 lda KeyState2 ; Check for CTRL-ALT-DEL00FFEB9D 084006 anda #600FFEB9F 081006 cmpa #600FFEBA1 026008 bne dbgk1400FFEBA3 0C1071 cmpb #SC_DEL00FFEBA5 026004 bne dbgk1400FFEBA7 06E90FFFFFFC jmp [$FFFFFC] ; jump to NMI vectordbgk14:00FFEBAB 00D121 tst KeyState2 ; extended code?00FFEBAD 02A00B bpl dbgk1500FFEBAF 096121 lda KeyState200FFEBB1 0847FF anda #$7FF00FFEBB3 097121 sta KeyState200FFEBB5 08EFFE880 ldx #keybdExtendedCodes00FFEBB8 020017 bra dbgk18dbgk15:00FFEBBA 096121 lda KeyState2 ; Is CTRL down?00FFEBBC 085004 bita #400FFEBBE 027005 beq dbgk1600FFEBC0 08EFFE800 ldx #keybdControlCodes00FFEBC3 02000C bra dbgk18dbgk16:00FFEBC5 085001 bita #1 ; Is shift down?00FFEBC7 027005 beq dbgk1700FFEBC9 08EFFE700 ldx #shiftedScanCodes00FFEBCC 020003 bra dbgk18dbgk17:00FFEBCE 08EFFE600 ldx #unshiftedScanCodesdbgk18:00FFEBD1 0E690FFFE600 ldb b,x ; load accb with ascii from table00FFEBD5 04F clra00FFEBD6 0350B0 puls x,y,pc ; and return00FFEBD8 04B04505904204F041052 fcb "KEYBOARD"00FFEBDF 04400FFEBE0 FFEBEA fcw KeybdOpen00FFEBE2 FFEBEB fcw KeybdClose00FFEBE4 FFEBEC fcw KeybdRead00FFEBE6 FFEBED fcw KeybdWrite00FFEBE8 FFEBEE fcw KeybdSeek; Keyboard Open:; Initialize the keyboard buffer head and tail indexes;KeybdOpen:00FFEBEA 039 rts; Keyboard Close:; Nothing to do except maybe clear the keyboard buffer;KeybdClose:00FFEBEB 039 rts;KeybdRead:00FFEBEC 039 rts;KeybdWrite:00FFEBED 039 rtsKeybdSeek:00FFEBEE 039 rts;==============================================================================; Serial I/O;==============================================================================; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; Serial port routines for a WDC6551 compatible circuit.;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;;------------------------------------------------------------------------------; Initialize serial port.;; Clear buffer indexes. Two bytes are used for the buffer index even though; only a single byte is needed. This is for convenience in calculating the; number of characters in the buffer, done later. The upper byte remains at; zero.; The port is initialized for 9600 baud, 1 stop bit and 8 bits data sent.; The internal baud rate generator is used.;; Parameters:; none; Modifies:; d; Returns:; none;------------------------------------------------------------------------------setdp $FFCInitSerial:SerialInit:00FFEBEF 034008 pshs dpr00FFEBF1 086FFC lda #$FFC00FFEBF3 01F08B tfr a,dpr00FFEBF5 04F clra00FFEBF6 05F clrb00FFEBF7 00F015 clr SerHeadRcv00FFEBF9 00F016 clr SerTailRcv00FFEBFB 00F017 clr SerHeadXmit00FFEBFD 00F018 clr SerTailXmit00FFEBFF 00F019 clr SerRcvXon00FFEC01 00F01A clr SerRcvXoff00FFEC03 0150B6FFFFFFFE0 lda COREIDsini1:00FFEC08 091010 cmpa IOFocusID00FFEC0A 026FFC bne sini100FFEC0C 0C600B ldb #$0B ; dtr,rts active, rxint enabled (bit 1=0), no parity00FFEC0E 0150F7FFFE30102 stb ACIA+ACIA_CMD00FFEC13 0C601E ldb #$1E ; baud 9600, 1 stop bit, 8 bit, internal baud gen00FFEC15 0150F7FFFE30103 stb ACIA+ACIA_CTRL00FFEC1A 0C60AC ldb #$0AC ; disable fifos (bit zero, one), reset fifos00FFEC1C 0150F7FFFE3010B stb ACIA+ACIA_CTRL200FFEC21 035088 puls dpr,pc;------------------------------------------------------------------------------; 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:; 3 words; Parameters:; none; Modifies:; none; Returns:; d = character or -1;------------------------------------------------------------------------------SerialGetChar:00FFEC23 034039 pshs ccr,x,y,dpr00FFEC25 086FFC lda #$FFC00FFEC27 01F08B tfr a,dpr00FFEC29 01A010 sei ; disable interrupts00FFEC2B 08D090 bsr SerialRcvCount ; check number of chars in receive buffer00FFEC2D 0C1008 cmpb #8 ; less than 8?00FFEC2F 02200C bhi sgc200FFEC31 0D6019 ldb SerRcvXon ; skip sending XON if already sent00FFEC33 026008 bne sgc2 ; XON already sent?00FFEC35 0C6011 ldb #XON ; if <8 send an XON00FFEC37 00F01A clr SerRcvXoff ; clear XOFF status00FFEC39 0D7019 stb SerRcvXon ; flag so we don't send it multiple times00FFEC3B 08D05D bsr SerialPutCharsgc2:00FFEC3D 0D6015 ldb SerHeadRcv ; check if anything is in buffer00FFEC3F 0D1016 cmpb SerTailRcv00FFEC41 02700D beq sgcNoChars ; no?00FFEC43 03080FFFB000 leax SerRcvBuf ; x = buffer address00FFEC47 04F clra00FFEC48 0E680FFFB000 ldb b,x ; get byte from buffer00FFEC4C 00C015 inc SerHeadRcv ; 4k wrap around00FFEC4E 020003 bra sgcXitsgcNoChars:00FFEC50 0CCFFFFFF ldd #-1sgcXit:00FFEC53 0350B9 puls ccr,x,y,dpr,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:; 2 words; Parameters:; none; Modifies:; none; Returns:; d = character or -1;------------------------------------------------------------------------------SerialPeekChar:00FFEC55 034019 pshs x,ccr,dpr00FFEC57 086FFC lda #$FFC00FFEC59 01F08B tfr a,dpr00FFEC5B 01A010 sei00FFEC5D 0D6015 ldb SerHeadRcv ; check if anything is in buffer00FFEC5F 0D1016 cmpb SerTailRcv00FFEC61 02700B beq spcNoChars ; no?00FFEC63 03080FFFB000 leax SerRcvBuf00FFEC67 04F clra00FFEC68 0E680FFFB000 ldb b,x ; get byte from buffer00FFEC6C 020003 bra spcXitspcNoChars:00FFEC6E 0CCFFFFFF ldd #-1spcXit:00FFEC71 035099 puls x,ccr,dpr,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:00FFEC73 034009 pshs ccr,dpr00FFEC75 086FFC lda #$FFC00FFEC77 01F08B tfr a,dpr00FFEC79 0150B6FFFFFFFE0 lda COREID ; Ensure we have the IO Focus00FFEC7E 091010 cmpa IOFocusID00FFEC80 026013 bne spcd0001; Disallow interrupts between status read and rx read.00FFEC82 01A010 sei00FFEC84 0150F6FFFE30101 ldb ACIA+ACIA_STAT00FFEC89 0C5008 bitb #8 ; look for Rx not empty00FFEC8B 027008 beq spcd000100FFEC8D 04F clra00FFEC8E 0150F6FFFE30100 ldb ACIA+ACIA_RX00FFEC93 035089 puls ccr,dpr,pcspcd0001:00FFEC95 0CCFFFFFF ldd #-100FFEC98 035089 puls ccr,dpr,pc;------------------------------------------------------------------------------; 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:00FFEC9A 03400B pshs a,ccr,dpr00FFEC9C 086FFC lda #$FFC00FFEC9E 01F08B tfr a,dprspc0001:00FFECA0 0150B6FFFFFFFE0 lda COREID ; Ensure we have the IO Focus00FFECA5 091010 cmpa IOFocusID00FFECA7 026FF7 bne spc000100FFECA9 01C0EF cli ; provide a window for an interrupt to occur00FFECAB 01A010 sei; Between the status read and the transmit do not allow an; intervening interrupt.00FFECAD 0150B6FFFE30101 lda ACIA+ACIA_STAT ; wait until the uart indicates tx empty00FFECB2 085010 bita #16 ; bit #4 of the status reg00FFECB4 027FEA beq spc0001 ; branch if transmitter is not empty00FFECB6 0150F7FFFE30100 stb ACIA+ACIA_TX ; send the byte00FFECBB 03508B puls a,ccr,dpr,pc;------------------------------------------------------------------------------; Calculate number of character in input buffer. Direct page must be set; already.;; Parameters:; none; Returns:; d = number of bytes in buffer.;------------------------------------------------------------------------------SerialRcvCount:00FFECBD 04F clra00FFECBE 0D6016 ldb SerTailRcv00FFECC0 0D0015 subb SerHeadRcv00FFECC2 02C007 bge srcXit00FFECC4 0CC001000 ldd #$100000FFECC7 093015 subd SerHeadRcv00FFECC9 0D3016 addd SerTailRcvsrcXit:00FFECCB 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:00FFECCC 034008 pshs dpr ; set direct page register to boot variables00FFECCE 086FFC lda #$FFC00FFECD0 01F08B tfr a,dpr00FFECD2 0150B6FFFE3F0D3 lda PIC+$D3 ; Serial active interrupt flag00FFECD7 027042 beq notSerIntsirqNxtByte:00FFECD9 0150F6FFFE30104 ldb ACIA+ACIA_IRQS ; look for IRQs00FFECDE 02A03B bpl notSerInt ; quick test for any irqs00FFECE0 0150F6FFFE30101 ldb ACIA+ACIA_STAT ; check the status00FFECE5 0C5008 bitb #$08 ; bit 3 = rx full (not empty)00FFECE7 027030 beq notRxInt100FFECE9 0150F6FFFE30100 ldb ACIA+ACIA_RX ; get data from Rx buffer to clear interrupt00FFECEE 096016 lda SerTailRcv ; check if recieve buffer full00FFECF0 04C inca00FFECF1 091015 cmpa SerHeadRcv00FFECF3 027026 beq sirqRxFull00FFECF5 097016 sta SerTailRcv ; update tail pointer00FFECF7 04A deca ; backup00FFECF8 01E089 exg a,b00FFECFA 03080FFFB000 leax SerRcvBuf ; x = buffer address00FFECFE 0A780FFFB000 sta b,x ; store recieved byte in buffer00FFED02 00D01A tst SerRcvXoff ; check if xoff already sent00FFED04 026FD3 bne sirqNxtByte00FFED06 08DFB5 bsr SerialRcvCount ; if more than 4070 chars in buffer00FFED08 0C1FE6 cmpb #407000FFED0A 025FCD blo sirqNxtByte00FFED0C 0C6013 ldb #XOFF ; send an XOFF00FFED0E 00F019 clr SerRcvXon ; clear XON status00FFED10 0D701A stb SerRcvXoff ; set XOFF status00FFED12 0150F7FFFE30100 stb ACIA+ACIA_TX00FFED17 020FC0 bra sirqNxtByte ; check the status for another byte; Process other serial IRQsnotRxInt1:00FFED19 035088 puls dpr,pcsirqRxFull:notRxInt:notSerInt:00FFED1B 035088 puls dpr,pcnmeSerial:00FFED1D 05306507206906106C000 fcb "Serial",0;------------------------------------------------------------------------------; Put a string to the serial port.;; Parameters:; d = pointer to string; Modifies:; none; Returns:; none;------------------------------------------------------------------------------SerialPutString:00FFED24 034016 pshs d,x00FFED26 01F001 tfr d,xsps2:00FFED28 0E6804 ldb ,x00FFED2A 027006 beq spsXit00FFED2C 030001 inx00FFED2E 08DF6A bsr SerialPutChar00FFED30 020FF6 bra sps2spsXit:00FFED32 035096 puls d,x,pc;------------------------------------------------------------------------------; A little routine to test serial output.;; Parameters:; none; Modifies:; none; Returns:; none;------------------------------------------------------------------------------SerialOutputTest:00FFED34 034006 pshs d00FFED36 0CCFFED54 ldd #msgSerialTest00FFED39 017FFF6A1 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFED3C 08DEB1 bsr SerialInitsotst1:00FFED3E 0C6011 ldb #XON00FFED40 08DF58 bsr SerialPutChar00FFED42 08DF56 bsr SerialPutChar00FFED44 08DF54 bsr SerialPutChar00FFED46 0CCFFED54 ldd #msgSerialTest00FFED49 08DFD9 bsr SerialPutString00FFED4B 017000443 lbsr INCH00FFED4E 0C1003 cmpb #CTRLC00FFED50 026FEC bne sotst100FFED52 035086 puls d,pcmsgSerialTest:00FFED54 05306507206906106C020 fcb "Serial port test",CR,LF,000FFED5B 07006F07207402007406500FFED62 07307400D00A000setdp $000; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;; S19 variables;s19Address EQU $940 ; to $943s19StartAddress EQU $944 ; to $947s19Rectype EQU $948s19Reclen EQU $949s19Abort EQU $94As19Checksum EQU $94Bs19SummaryChecksum EQU $94Cs19Source EQU $94Es19XferAddress EQU $950 ; to $951; ------------------------------------------------------------------------------; Input a character either from a file in memory or from the serial port.;; Parameters:; none; Returns:; accb = character input; ------------------------------------------------------------------------------s19InputChar:00FFED67 07D00094E tst s19Source00FFED6A 02700D beq s19ic100FFED6C 0E690F000950 ldb [s19XferAddress]00FFED70 07C000951 inc s19XferAddress+1 ; increment low byte of address pointer00FFED73 026003 bne s19ic200FFED75 07C000950 inc s19XferAddress ; increment high byte of address pointers19ic2:00FFED78 039 rtss19ic1:00FFED79 0CCFFFFFF ldd #-1 ; block until input is available00FFED7C 03F swi00FFED7D 001 fcb MF_INCH ; monitor input rout00FFED7E 039 rts; ------------------------------------------------------------------------------; Skip over input to the next record.; ------------------------------------------------------------------------------s19NextRecord:00FFED7F 08DFE6 bsr s19InputChar00FFED81 0C100A cmpb #LF ; line feed marks end of record00FFED83 027013 beq s19nr100FFED85 0C1003 cmpb #CTRLC ; should not get this in a file transfer00FFED87 026003 bne s19nr200FFED89 0F700094A stb s19Aborts19nr2:00FFED8C 0C101A cmpb #CTRLZ ; end of file marker?00FFED8E 026003 bne s19nr300FFED90 0F700094A stb s19Aborts19nr3:00FFED93 07D00094A tst s19Abort00FFED96 027FE7 beq s19NextRecords19nr1:00FFED98 039 rts; ------------------------------------------------------------------------------; Update the checksum.; ------------------------------------------------------------------------------s19AddCheck:00FFED99 034004 pshs b00FFED9B 0FB00094B addb s19Checksum00FFED9E 0F700094B stb s19Checksum00FFEDA1 035084 puls b,pc; ------------------------------------------------------------------------------; Input a byte. There are three characters per byte since things are 12-bit.;; Parameters:; none; Returns:; accb = byte value converted from text; ------------------------------------------------------------------------------s19GetByte:00FFEDA3 08DFC2 bsr s19InputChar ; get the first character00FFEDA5 0170007F7 lbsr AsciiToHexNybble ; convert to nybble00FFEDA8 07D00094A tst s19Abort ; check for abort00FFEDAB 027002 beq s19gb100FFEDAD 04F clra00FFEDAE 039 rtss19gb1: ; shift the value four bits00FFEDAF 058 aslb00FFEDB0 058 aslb00FFEDB1 058 aslb00FFEDB2 058 aslb00FFEDB3 034004 pshs b ; save off value00FFEDB5 08DFB0 bsr s19InputChar ; get the second character00FFEDB7 0170007E5 lbsr AsciiToHexNybble ; convert to nybble00FFEDBA 07D00094A tst s19Abort ; check for abort00FFEDBD 026011 bne s19gb200FFEDBF 0EAE00 orb ,s+ ; merge new nybble into value00FFEDC1 058 aslb ; shift the value four more bits00FFEDC2 058 aslb00FFEDC3 058 aslb00FFEDC4 058 aslb00FFEDC5 034004 pshs b ; save off value00FFEDC7 08DF9E bsr s19InputChar ; get the third character00FFEDC9 0170007D3 lbsr AsciiToHexNybble ; convert to nybble00FFEDCC 0EAE00 orb ,s+ ; merge in value00FFEDCE 04F clra ; make byte 000 to FFF in D00FFEDCF 039 rtss19gb2:00FFEDD0 032601 leas 1,s ; discard saved byte00FFEDD2 04F clra00FFEDD3 039 rts; ------------------------------------------------------------------------------; Zero out address; ------------------------------------------------------------------------------s19ClearAddress:00FFEDD4 07F000940 clr s19Address00FFEDD7 07F000941 clr s19Address+100FFEDDA 07F000942 clr s19Address+200FFEDDD 07F000943 clr s19Address+300FFEDE0 039 rts; ------------------------------------------------------------------------------; Get an address composed of two bytes (24 bit);; Side Effects:; updates s19Address variable; Returns:; none; ------------------------------------------------------------------------------s19GetAddress2:00FFEDE1 08DFF1 bsr s19ClearAddress00FFEDE3 08DFBE bsr s19GetByte00FFEDE5 08DFB2 bsr s19AddCheck00FFEDE7 0F7000942 stb s19Address+200FFEDEA 07D00094A tst s19Abort00FFEDED 026007 bne s19ga100FFEDEF 08DFB2 bsr s19GetByte00FFEDF1 08DFA6 bsr s19AddCheck00FFEDF3 0F7000943 stb s19Address+3s19ga1:00FFEDF6 039 rts; ------------------------------------------------------------------------------; Get an address composed of three bytes (36 bit);; Side Effects:; updates s19Address variable; Returns:; none; ------------------------------------------------------------------------------s19GetAddress3:00FFEDF7 08DFDB bsr s19ClearAddress00FFEDF9 08DFA8 bsr s19GetByte00FFEDFB 08DF9C bsr s19AddCheck00FFEDFD 0F7000941 stb s19Address+100FFEE00 07D00094A tst s19Abort00FFEE03 026013 bne s19ga200FFEE05 08DF9C bsr s19GetByte00FFEE07 08DF90 bsr s19AddCheck00FFEE09 0F7000942 stb s19Address+200FFEE0C 07D00094A tst s19Abort00FFEE0F 026007 bne s19ga200FFEE11 08DF90 bsr s19GetByte00FFEE13 08DF84 bsr s19AddCheck00FFEE15 0F7000943 stb s19Address+3s19ga2:00FFEE18 039 rts; ------------------------------------------------------------------------------; Put a byte to memory.; ------------------------------------------------------------------------------s19PutMem:00FFEE19 05F clrb ; accb = current byte counts19pm3:00FFEE1A 034004 pshs b ; save byte count00FFEE1C 08DF85 bsr s19GetByte00FFEE1E 08DF79 bsr s19AddCheck00FFEE20 07D00094A tst s19Abort00FFEE23 02601E bne s19pm100FFEE25 0150E790F000941 stb far [s19Address+1] ; store the byte using far addressing00FFEE2A 07C000943 inc s19Address+300FFEE2D 026008 bne s19pm200FFEE2F 07C000942 inc s19Address+200FFEE32 026003 bne s19pm200FFEE34 07C000941 inc s19Address+1s19pm2:00FFEE37 035004 puls b ; get back byte count00FFEE39 05C incb ; increment and00FFEE3A 0F1000949 cmpb s19Reclen ; compare to record length00FFEE3D 025FDB blo s19pm300FFEE3F 08DF62 bsr s19GetByte ; get the checksum byte00FFEE41 020F56 bra s19AddChecks19pm1:00FFEE43 032601 leas 1,s ; faster than actual pull00FFEE45 08DF5C bsr s19GetByte ; get the checksum byte00FFEE47 020F50 bra s19AddCheck; ------------------------------------------------------------------------------; Processing for S1 record type.; ------------------------------------------------------------------------------s19ProcessS1:00FFEE49 08DF96 bsr s19GetAddress200FFEE4B 08DFCC bsr s19PutMem00FFEE4D 07D00094B tst s19Checksum00FFEE50 027008 beq s19p1100FFEE52 07C00094C inc s19SummaryChecksum00FFEE55 0CCFFEF19 ldd #msgChecksumErr00FFEE58 03F swi00FFEE59 004 fcb MF_DisplayStrings19p11:00FFEE5A 020099 bra s19lnr; ------------------------------------------------------------------------------; Processing for S2 record type.; ------------------------------------------------------------------------------s19ProcessS2:00FFEE5C 08DF99 bsr s19GetAddress300FFEE5E 08DFB9 bsr s19PutMem00FFEE60 07D00094B tst s19Checksum00FFEE63 027008 beq s19p2100FFEE65 07C00094C inc s19SummaryChecksum00FFEE68 0CCFFEF19 ldd #msgChecksumErr00FFEE6B 03F swi00FFEE6C 004 fcb MF_DisplayStrings19p21:00FFEE6D 020086 bra s19lnr; S3,4,5,6 not processed; ------------------------------------------------------------------------------; Processing for S7 record type. Gets a two byte (24 bit) start address.; ------------------------------------------------------------------------------s19ProcessS9:00FFEE6F 08DF70 bsr s19GetAddress200FFEE71 0FC000942 ldd s19Address+200FFEE74 0FD000946 std s19StartAddress+200FFEE77 0FC000940 ldd s19Address+000FFEE7A 0FD000944 std s19StartAddress+000FFEE7D 020083 bra s19l2; ------------------------------------------------------------------------------; Processing for S8 record type. Gets a three byte (36 bit) start address.; ------------------------------------------------------------------------------s19ProcessS8:00FFEE7F 08DF76 bsr s19GetAddress300FFEE81 0FC000942 ldd s19Address+200FFEE84 0FD000946 std s19StartAddress+200FFEE87 0FC000940 ldd s19Address+000FFEE8A 0FD000944 std s19StartAddress+000FFEE8D 020073 bra s19l2; ------------------------------------------------------------------------------; S19 Loader;; Not all record types are processed. Some are skipped over.; ------------------------------------------------------------------------------S19Loader:00FFEE8F 07F00094E clr s19Source00FFEE92 0170006FC lbsr GetNumber ; check for a file storage address00FFEE95 05D tstb00FFEE96 027009 beq s19l4 ; if not a memory file00FFEE98 07C00094E inc s19Source ; set flag indicating a memory file00FFEE9B 0FC000912 ldd mon_numwka+2 ; set transfer address variable00FFEE9E 0FD000950 std s19XferAddresss19l4:00FFEEA1 07F00094A clr s19Abort ; clear the abort flag00FFEEA4 0CCFFEF05 ldd #msgS19Loader ; signon banner00FFEEA7 03F swi00FFEEA8 004 fcb MF_DisplayString00FFEEA9 07F00094C clr s19SummaryChecksums19l3:00FFEEAC 08DEB9 bsr s19InputChar ; get a character from input00FFEEAE 0C101A cmpb #CTRLZ ; is it CTRL-Z?00FFEEB0 027050 beq s19l200FFEEB2 07F00094B clr s19Checksum00FFEEB5 0C1043 cmpb #'C' ; records must start with the letter C00FFEEB7 02603C bne s19lnr00FFEEB9 08DEAC bsr s19InputChar ; get the next character00FFEEBB 0C1030 cmpb #'0' ; must be a numeric digit00FFEEBD 025036 blo s19lnr00FFEEBF 0C1039 cmpb #'9'00FFEEC1 022032 bhi s19lnr00FFEEC3 0F7000948 stb s19Rectype ; save off in record type00FFEEC6 08DEDB bsr s19GetByte ; get a byte indicating record length00FFEEC8 08DECF bsr s19AddCheck00FFEECA 0F7000949 stb s19Reclen00FFEECD 07D00094A tst s19Abort ; check for abort00FFEED0 026030 bne s19l200FFEED2 0F6000948 ldb s19Rectype ; process according to record type00FFEED5 0C1030 cmpb #'0'00FFEED7 02701C beq s19lnr00FFEED9 0C1031 cmpb #'1'00FFEEDB 027F6C beq s19ProcessS1 ; data record with a two byte address00FFEEDD 0C1032 cmpb #'2'00FFEEDF 027F7B beq s19ProcessS2 ; data record with a three byte address00FFEEE1 0C1033 cmpb #'3'00FFEEE3 027010 beq s19lnr00FFEEE5 0C1035 cmpb #'5' ; record count? ignore00FFEEE7 02700C beq s19lnr00FFEEE9 0C1037 cmpb #'7' ; ignore record with 48 bit address00FFEEEB 027015 beq s19l200FFEEED 0C1038 cmpb #'8'00FFEEEF 027F8E beq s19ProcessS8 ; two byte start address00FFEEF1 0C1039 cmpb #'9'00FFEEF3 027F7A beq s19ProcessS9 ; three byte start addresss19lnr:00FFEEF5 0C602E ldb #'.' ; output a progress indicator00FFEEF7 03F swi00FFEEF8 002 fcb MF_OUTCH00FFEEF9 08DE84 bsr s19NextRecord ; skip to the next record00FFEEFB 07D00094A tst S19Abort ; check for abort00FFEEFE 026002 bne s19l200FFEF00 020FAA bra s19l3 ; loop back to process more recordss19l2:00FFEF02 016000457 lbra MonitormsgS19Loader:00FFEF05 05303103902004C06F061 fcb "S19 Loader Active",CR,LF,000FFEF0C 06406507202004106307400FFEF13 06907606500D00A000msgChecksumErr:00FFEF19 053031039020043068065 fcb "S19 Checksum Err",CR,LF,000FFEF20 06306B07307506D02004500FFEF27 07207200D00A000; ============================================================================; __; \\__/ o\ (C) 2022 Robert Finch, Waterloo; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; BSD 3-Clause License; Redistribution and use in source and binary forms, with or without; modification, are permitted provided that the following conditions are met:;; 1. Redistributions of source code must retain the above copyright notice, this; list of conditions and the following disclaimer.;; 2. Redistributions in binary form must reproduce the above copyright notice,; this list of conditions and the following disclaimer in the documentation; and/or other materials provided with the distribution.;; 3. Neither the name of the copyright holder nor the names of its; contributors may be used to endorse or promote products derived from; this software without specific prior written permission.;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.;; ============================================================================;; Xmodem variables;xm_timer EQU $FFC020xm_protocol EQU $9F5xm_flag EQU $9F6xm_checksum EQU $9F7xm_tmp2 EQU $9F8xm_packetnum EQU $9FAxm_tmp EQU $9FCxm_crc EQU $9FExm_ibuf EQU $A00 ; to $A7Fxm_obuf EQU $A80 ; to $AFF; ------------------------------------------------------------------------------; Send data using XModem.; ------------------------------------------------------------------------------xm_SendStart:00FFEF2C 0170005A3 lbsr GetRange00FFEF2F 0BE000922 ldx mon_r1+2 ; x = buffer address00FFEF32 01F013 tfr x,u00FFEF34 0C6001 ldb #1 ; packet numbers start at one00FFEF36 0F70009FB stb xm_packetnum+1; Wait for receiver to send a NAKxm_send:00FFEF39 0CCFFFFFF ldd #-1 ; select blocking input00FFEF3C 03F swi00FFEF3D 001 fcb MF_INCH00FFEF3E 0C1015 cmpb #NAK ; should have got a NAK00FFEF40 027004 beq xm_send500FFEF42 0C1043 cmpb #'C' ; or a 'C'00FFEF44 026FF3 bne xm_sendxm_send5:00FFEF46 0F70009F5 stb xm_protocolxm_send4:00FFEF49 0C6001 ldb #SOH ; send start00FFEF4B 03F swi00FFEF4C 1C9 fcb OUTCH00FFEF4D 0F60009FB ldb xm_packetnum+1 ; send packet number00FFEF50 03F swi00FFEF51 002 fcb MF_OUTCH00FFEF52 053 comb ; one's complement00FFEF53 03F swi00FFEF54 002 fcb MF_OUTCH ; send packet number complement00FFEF55 04F clra ; acca = byte count00FFEF56 01F013 tfr x,u ; u = buffer addressxm_send1:00FFEF58 0E6C00 ldb ,u+ ; grab a byte from the buffer00FFEF5A 03F swi00FFEF5B 002 fcb MF_OUTCH ; send it out00FFEF5C 04C inca00FFEF5D 081080 cmpa #128 ; number of bytes in payload00FFEF5F 025FF7 blo xm_send100FFEF61 0F60009F5 ldb xm_protocol00FFEF64 0C1043 cmpb #'C' ; CRC protocol?00FFEF66 02601E bne xm_send200FFEF68 08D17F bsr xm_calc_crc ; compute CRC00FFEF6A 0FC0009FE ldd xm_crc ; get crc00FFEF6D 044 lsra ; transfer high eight bits first, so00FFEF6E 056 rorb ; right shift D by eight00FFEF6F 044 lsra00FFEF70 056 rorb00FFEF71 044 lsra00FFEF72 056 rorb00FFEF73 044 lsra00FFEF74 056 rorb00FFEF75 044 lsra00FFEF76 056 rorb00FFEF77 044 lsra00FFEF78 056 rorb00FFEF79 044 lsra00FFEF7A 056 rorb00FFEF7B 044 lsra00FFEF7C 056 rorb00FFEF7D 03F swi00FFEF7E 002 fcb MF_OUTCH ; send out the byte00FFEF7F 0FC0009FE ldd xm_crc ; get back CRC00FFEF82 03F swi00FFEF83 002 fcb MF_OUTCH ; and send out low byte00FFEF84 020007 bra xm_send3xm_send2:00FFEF86 08D14F bsr xm_calc_checksum00FFEF88 0F60009F7 ldb xm_checksum00FFEF8B 03F swi00FFEF8C 002 fcb MF_OUTCHxm_send3:00FFEF8D 03F swi00FFEF8E 0CCFFFFFF ldd #-1 ; block until input is present00FFEF91 001 fcb MF_INCH00FFEF92 0C1006 cmpb #ACK00FFEF94 026FB3 bne xm_send4 ; not an ACK then resend the record00FFEF96 07C0009FA inc xm_packetnum ; increment packet number00FFEF99 030080 leax 128,x ; advance buffer pointer00FFEF9B 0BC000926 cmpx mon_r2+200FFEF9E 025FA9 blo xm_send4 ; go send next record00FFEFA0 0C6004 ldb #EOT ; send end of transmission00FFEFA2 03F swi00FFEFA3 002 fcb MF_OUTCH00FFEFA4 03F swi00FFEFA5 002 fcb MF_OUTCH00FFEFA6 03F swi00FFEFA7 002 fcb MF_OUTCH00FFEFA8 039 rts; ------------------------------------------------------------------------------; Get a byte, checking for a receive timeout.;; Returns:; accb = byte (0 to 255) or -1 if timed out; ------------------------------------------------------------------------------xm_getbyte:xm_gb1:00FFEFA9 07DFFC020 tst xm_timer ; check the timeout - 2048 ticks (3 seconds approx.)00FFEFAC 02B009 bmi xm_gb200FFEFAE 04F clra ; non-blocking00FFEFAF 05F clrb00FFEFB0 03F swi00FFEFB1 001 fcb MF_INCH ; try and get a character00FFEFB2 02BFF5 bmi xm_gb1 ; if no character, try again00FFEFB4 08D1BA bsr xm_outbyteAsHex00FFEFB6 039 rtsxm_gb2:00FFEFB7 0C6FFF ldb #-100FFEFB9 039 rts; ------------------------------------------------------------------------------; XModem Receive;; Parameters:; none; Modifies:; All; Returns:; none; ------------------------------------------------------------------------------xm_ReceiveStart:00FFEFBA 017FFF1FB lbsr Delay3s ; give a little bit of time for sender*** warning 1: Long branch within short branch range could be optimized00FFEFBD 017FFF1F8 lbsr Delay3s*** warning 1: Long branch within short branch range could be optimized00FFEFC0 017FFF1F5 lbsr Delay3s*** warning 1: Long branch within short branch range could be optimized00FFEFC3 0170005CB lbsr GetNumber ; Get the transfer address00FFEFC6 05D tstb ; Make sure we got a value00FFEFC7 127000392 lbeq Monitor00FFEFCA 0BE000912 ldx mon_numwka+2 ; X = transfer address00FFEFCD 07F0009FA clr xm_packetnum ; initialize00FFEFD0 086043 lda #'C' ; try for CRC first00FFEFD2 0B70009F5 sta xm_protocolxm_receive:00FFEFD5 086002 lda #2 ; number of times to retry -1xm_rcv5:00FFEFD7 0F60009F5 ldb xm_protocol ; indicate we want a transfer (send protocol byte)00FFEFDA 03F swi00FFEFDB 00D fcb MF_SerialPutcharxm_rcv4:00FFEFDC 07FFFC020 clr xm_timer ; clear the timeoutxm_rcv1:00FFEFDF 08DFC8 bsr xm_getbyte00FFEFE1 05D tstb00FFEFE2 02B0A1 bmi xm_retry1 ; timeout on protocol id?00FFEFE4 0C1001 cmpb #SOH ; it should be start of a transfer00FFEFE6 027012 beq xm_SOH00FFEFE8 0C1004 cmpb #EOT00FFEFEA 027092 beq xm_EOT ; or end of transfer (EOT)00FFEFEC 0C1018 cmpb #CAN00FFEFEE 027FE5 beq xm_receive ; might be a cancel00FFEFF0 0C1017 cmpb #ETB00FFEFF2 02708A beq xm_EOTxm_rcv_nak: ; wasn't a valid start so00FFEFF4 0C6015 ldb #NAK ; send a NAK00FFEFF6 03F swi00FFEFF7 00D fcb MF_SerialPutchar ; and try again00FFEFF8 020FE2 bra xm_rcv4xm_SOH:00FFEFFA 08DFAD bsr xm_getbyte ; get packet number00FFEFFC 02B078 bmi xm_rcv_to100FFEFFE 0F70009FB stb xm_packetnum+100FFF001 034004 pshs b ; save it00FFF003 08DFA4 bsr xm_getbyte ; get complement of packet number00FFF005 02B06D bmi xm_rcv_to200FFF007 0EBE04 addb ,s ; add the two values00FFF009 0C40FF andb #$FF ; the sum should be $FF00FFF00B 0C00FF subb #$FF00FFF00D 0F70009F6 stb xm_flag ; should be storing a zero if there is no error00FFF010 18E000000 ldy #0 ; y = payload byte counter00FFF013 01F013 tfr x,uxm_rcv2:00FFF015 08DF92 bsr xm_getbyte00FFF017 02B05D bmi xm_rcv_to100FFF019 0E7C00 stb ,u+ ; store the byte to memory00FFF01B 031201 iny00FFF01D 18C000080 cmpy #128 ; 128 bytes per payload00FFF020 025FF3 blo xm_rcv200FFF022 08DF85 bsr xm_getbyte ; get checksum or CRC byte00FFF024 02B050 bmi xm_rcv_to100FFF026 0F70009FC stb xm_tmp ; stuff checksum/CRC byte00FFF029 0F60009F5 ldb xm_protocol00FFF02C 0C1043 cmpb #'C'00FFF02E 026022 bne xm_rcv_chksum00FFF030 08DF77 bsr xm_getbyte ; get low order CRC byte00FFF032 02B042 bmi xm_rcv_to100FFF034 0B60009FC lda xm_tmp ; get the high byte00FFF037 058 aslb ; prepare to combine high and low order00FFF038 058 aslb00FFF039 058 aslb00FFF03A 058 aslb00FFF03B 044 lsra ; shift low nybble of acca into accb00FFF03C 056 rorb00FFF03D 044 lsra00FFF03E 056 rorb00FFF03F 044 lsra00FFF040 056 rorb00FFF041 044 lsra00FFF042 056 rorb00FFF043 08400F anda #$00F ; mask off any extra bits00FFF045 0FD0009F8 std xm_tmp200FFF048 08D09F bsr xm_calc_crc ; compute the CRC-16 for the received data00FFF04A 0FC0009FE ldd xm_crc ; and compare to received value00FFF04D 1B30009F8 cmpd xm_tmp200FFF050 020008 bra xm_rcv3xm_rcv_chksum:00FFF052 08D083 bsr xm_calc_checksum00FFF054 0F60009F7 ldb xm_checksum00FFF057 0F10009FC cmpb xm_tmp ; where we stuffed the bytexm_rcv3:00FFF05A 026F98 bne xm_rcv_nak ; if not the same, NAK00FFF05C 07D0009F6 tst xm_flag00FFF05F 026F93 bne xm_rcv_nak ; bad packet number?00FFF061 0C6006 ldb #ACK ; packet recieved okay, send back an ACK00FFF063 03F swi00FFF064 00D fcb MF_SerialPutchar00FFF065 0F60009FB ldb xm_packetnum+1 ; did we receive the same packet00FFF068 0F10009FA cmpb xm_packetnum00FFF06B 027F6F beq xm_rcv4 ; same packet received, dont update buffer pointer00FFF06D 0F70009FA stb xm_packetnum ; update last seen packet number00FFF070 030080 leax 128,x ; increment buffer pointer00FFF072 020F68 bra xm_rcv4 ; and go back for next packetxm_rcv_to2:00FFF074 032601 leas 1,s ; get rid of stacked bytexm_rcv_to1:00FFF076 0CCFFF09E ldd #msgXmTimeout00FFF079 03F swi00FFF07A 004 fcb MF_DisplayString00FFF07B 0160002DE lbra Monitorxm_EOT: ; end of transmission received, return00FFF07E 0C6006 ldb #ACK ; ACK the EOT00FFF080 03F swi00FFF081 00D fcb MF_SerialPutchar00FFF082 0160002D7 lbra Monitorxm_retry1:00FFF085 04A deca00FFF086 02AF4F bpl xm_rcv500FFF088 0B60009F5 lda xm_protocol00FFF08B 081015 cmpa #NAK ; are we already lowered down to checksum protocol?00FFF08D 027007 beq xm_noTransmitter ; did we try both checksum and CRC?00FFF08F 086015 lda #NAK00FFF091 0B70009F5 sta xm_protocol00FFF094 020F3F bra xm_receivexm_noTransmitter:00FFF096 0CCFFF0B2 ldd #msgXmNoTransmitter00FFF099 03F swi00FFF09A 004 fcb MF_DisplayString00FFF09B 0160002BE lbra MonitormsgXmTimeout:00FFF09E 05806D06F06406506D03A fcb "Xmodem: timed out",CR,LF,000FFF0A5 02007406906D06506402000FFF0AC 06F07507400D00A000msgXmNoTransmitter:00FFF0B2 05804D06F06406506D03A fcb "XModem: transmitter not responding",CR,LF,000FFF0B9 02007407206106E07306D00FFF0C0 06907407406507202006E00FFF0C7 06F07402007206507307000FFF0CE 06F06E06406906E06700D00FFF0D5 00A000; ------------------------------------------------------------------------------; Calculate checksum value. The checksum is simply the low order eight bits of; the sum of all the bytes in the payload area.;; Stack space:; two words; Modifies:; xm_checksum contains the checksum value for the record; Parameters:; X = buffer address; Returns:; none; ------------------------------------------------------------------------------xm_calc_checksum:00FFF0D7 034016 pshs d,x00FFF0D9 04F clra00FFF0DA 05F clrbxm_cs1:00FFF0DB 0EB800 addb ,x+00FFF0DD 04C inca00FFF0DE 081080 cmpa #12800FFF0E0 025FF9 blo xm_cs100FFF0E2 0C40FF andb #$FF00FFF0E4 0F70009F7 stb xm_checksum00FFF0E7 035096 puls d,x,pc; ------------------------------------------------------------------------------; Compute CRC-16 of buffer.;;int calcrc(char *ptr, int count);{; int crc;; char i;; crc = 0;; while (--count >= 0); {; crc = crc ^ (int) (*ptr++ << 8);; i = 8;; do; {; if (crc & 0x8000); crc = crc << 1 ^ 0x1021;; else; crc = crc << 1;; } while(--i);; }; return (crc);;};; Modifies:; xm_crc variable; Parameters:; u = buffer address; Returns:; none; ------------------------------------------------------------------------------xm_calc_crc:00FFF0E9 034076 pshs d,x,y,u00FFF0EB 07F0009FE clr xm_crc00FFF0EE 07F0009FF clr xm_crc+100FFF0F1 0CE000000 ldu #0 ; u = byte countxm_crc1:00FFF0F4 0E6800 ldb ,x+ ; get byte00FFF0F6 07F0009FC clr xm_tmp ; save in temp00FFF0F9 0F70009FD stb xm_tmp+100FFF0FC 0780009FD asl xm_tmp+1 ; shift temp eight bits to left00FFF0FF 0790009FC rol xm_tmp00FFF102 0780009FD asl xm_tmp+100FFF105 0790009FC rol xm_tmp00FFF108 0780009FD asl xm_tmp+100FFF10B 0790009FC rol xm_tmp00FFF10E 0780009FD asl xm_tmp+100FFF111 0790009FC rol xm_tmp00FFF114 0780009FD asl xm_tmp+100FFF117 0790009FC rol xm_tmp00FFF11A 0780009FD asl xm_tmp+100FFF11D 0790009FC rol xm_tmp00FFF120 0780009FD asl xm_tmp+100FFF123 0790009FC rol xm_tmp00FFF126 0780009FD asl xm_tmp+100FFF129 0790009FC rol xm_tmp00FFF12C 0FC0009FE ldd xm_crc ; crc = crc ^ tmp00FFF12F 0B80009FC eora xm_tmp00FFF132 0F80009FD eorb xm_tmp+100FFF135 0FD0009FE std xm_crc00FFF138 18E000000 ldy #0xm_crc4:00FFF13B 0F60009FE ldb xm_crc ; get high byte00FFF13E 0C5008 bitb #$8 ; check for $800000FFF140 02700E beq xm_crc2 ; no? then just go shift00FFF142 0FC0009FE ldd xm_crc ; load00FFF145 058 aslb ; shift00FFF146 049 rola00FFF147 0C8021 eorb #$021 ; and xor00FFF149 088001 eora #$00100FFF14B 0FD0009FE std xm_crc ; store it back00FFF14E 020008 bra xm_crc3xm_crc2:00FFF150 0FC0009FE ldd xm_crc ; load00FFF153 058 aslb ; shift00FFF154 049 rola00FFF155 0FD0009FE std xm_crc ; and storexm_crc3:00FFF158 031201 iny00FFF15A 18C000008 cmpy #8 ; repeat eight times00FFF15D 025FDC blo xm_crc400FFF15F 033401 leau 1,u ; increment byte count00FFF161 283000080 cmpu #12800FFF164 0FC0009FE ldd xm_crc ; we want only a 16-bit CRC00FFF167 08400F anda #$0F00FFF169 0FD0009FE std xm_crc00FFF16C 025F86 blo xm_crc100FFF16E 0350F6 puls d,x,y,u,pcxm_outbyteAsHex:00FFF170 034006 pshs d00FFF172 0FC000800 ldd CharOutVec ; get current char out vector00FFF175 034006 pshs d ; save it00FFF177 0CCFFE31F ldd #ScreenDisplayChar ; set output vector to screen display00FFF17A 0FD000800 std CharOUtVec00FFF17D 0EC602 ldd 2,s ; get passed data00FFF17F 017FFF2B8 lbsr DispByteAsHex ; and display on-screen*** warning 1: Long branch within short branch range could be optimized00FFF182 0C6020 ldb #' '00FFF184 017FFF198 lbsr ScreenDisplayChar*** warning 1: Long branch within short branch range could be optimized00FFF187 035006 puls d ; get back old char out vector00FFF189 0FD000800 std CharOutVec ; and restore it00FFF18C 035006 puls d ; restore input arguments00FFF18E 039 rts;------------------------------------------------------------------------------; Check if there is a keyboard character available. If so return true (<0); otherwise return false (0) in accb.;------------------------------------------------------------------------------;KeybdCheckForKeyDirect:00FFF18F 0208FF bra DBGCheckForKey;------------------------------------------------------------------------------;------------------------------------------------------------------------------INCH:00FFF191 034004 pshs bINCH2:00FFF193 0150F6FFFFFFFE0 ldb COREID00FFF198 0F1FFC010 cmpb IOFocusID ; if we do not have focus, block00FFF19B 026FF6 bne INCH2; ldb #$800 ; block if no key available, get scancode directly; bra GetKey; jsr [CharInVec] ; vector is being overwritten somehow00FFF19D 017FFFAD3 lbsr SerialPeekCharDirect*** warning 1: Long branch within short branch range could be optimized; lbsr SerialGetChar00FFF1A0 04D tsta00FFF1A1 02B003 bmi INCH1 ; block if no key available00FFF1A3 032601 leas 1,s ; get rid of blocking status00FFF1A5 039 rts ; return characterINCH1:00FFF1A6 035004 puls b ; check blocking status00FFF1A8 05D tstb00FFF1A9 02BFE6 bmi INCH ; if blocking, loop00FFF1AB 0CCFFFFFF ldd #-1 ; return -1 if no char available00FFF1AE 039 rtsINCHE:00FFF1AF 08DFE0 bsr INCH00FFF1B1 020009 bra INCHEK3INCHEK:00FFF1B3 08DFDC bsr INCH00FFF1B5 01507DFFFFFCA00 tst KeybdEcho00FFF1BA 02700C beq INCHEK1INCHEK3:00FFF1BC 08100D cmpa #CR00FFF1BE 026005 bne INCHEK200FFF1C0 017FFDF0F lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF1C3 020003 bra INCHEK1INCHEK2:00FFF1C5 017FFF154 lbsr DisplayChar*** warning 1: Long branch within short branch range could be optimizedINCHEK1:00FFF1C8 039 rtsOUTCH:00FFF1C9 06E90F000800 jmp [CharOutVec];------------------------------------------------------------------------------; r1 0=echo off, non-zero = echo on;------------------------------------------------------------------------------;SetKeyboardEcho:00FFF1CD 0150F7FFFFFCA00 stb KeybdEcho00FFF1D2 039 rts;------------------------------------------------------------------------------; Parameters:; x,d bitmap of sprites to enable;------------------------------------------------------------------------------ShowSprites:00FFF1D3 0150BFFFFE103C0 stx SPRITE_CTRL+SPRITE_EN00FFF1D8 0150FDFFFE103C2 std SPRITE_CTRL+SPRITE_EN+200FFF1DD 039 rts;==============================================================================; Femtiki Operating System.;==============================================================================OSCallTbl:00FFF1DE 000000 fcw 000FFF1E0 000000 fcw 000FFF1E2 000000 fcw 000FFF1E4 000000 fcw 000FFF1E6 000000 fcw 000FFF1E8 000000 fcw 000FFF1EA 000000 fcw 000FFF1EC 000000 fcw 000FFF1EE 000000 fcw 000FFF1F0 000000 fcw 000FFF1F2 000000 fcw 000FFF1F4 000000 fcw 000FFF1F6 000000 fcw 000FFF1F8 000000 fcw 000FFF1FA 000000 fcw 000FFF1FC 000000 fcw 000FFF1FE 000000 fcw 000FFF200 000000 fcw 000FFF202 000000 fcw 000FFF204 000000 fcw 000FFF206 000000 fcw 000FFF208 000000 fcw 000FFF20A FFF227 fcw ReleaseIOFocus00FFF20C 000000 fcw 000FFF20E FFF210 fcw RequestIOFocusNumOSFuncs EQU (*-OSCallTbl)/2RequestIOFocus:00FFF210 0150F6FFFFFFFE0 ldb COREID00FFF215 08EFFC000 ldx #IOFocusList00FFF218 03A abx00FFF219 0A7804 sta ,x00FFF21B 07DFFC010 tst IOFocusID00FFF21E 1260008DC lbne oscx00FFF221 0F7FFC010 stb IOFocusID00FFF224 0160008D6 lbra oscxReleaseIOFocus:00FFF227 0150F6FFFFFFFE0 ldb COREID00FFF22C 08EFFC000 ldx #IOFocusList00FFF22F 03A abx00FFF230 06F804 clr ,x ; clear the request indicator00FFF232 017FFEFD7 lbsr CopyScreenToVirtualScreen*** warning 1: Long branch within short branch range could be optimized00FFF235 0F1FFC010 cmpb IOFocusID ; are we the one with the focus?00FFF238 1260008C2 lbne oscx; We had the focus, so now a new core needs the focus.; Search the focus list for a requestor. If no requester; is found, give focus to core #1.00FFF23B 08600F lda #15riof2:00FFF23D 05C incb00FFF23E 0C400F andb #1500FFF240 03A abx00FFF241 06D804 tst ,x00FFF243 026009 bne riof100FFF245 04A deca00FFF246 026FF5 bne riof2; If no focus is requested by anyone, give to core #100FFF248 0C6001 ldb #100FFF24A 086018 lda #2400FFF24C 0A7804 sta ,xriof1:00FFF24E 0F7FFC010 stb IOFocusID00FFF251 017FFEF81 lbsr CopyVirtualScreenToScreen*** warning 1: Long branch within short branch range could be optimized00FFF254 0160008A6 lbra oscx;==============================================================================;==============================================================================;------------------------------------------------------------------------------; Seed the random number generator. All channels are seeded with the same; value.;; Parameters:; d = 'z' part of seed; x = 'w' part of seed; Returns:; none;------------------------------------------------------------------------------mon_srand:00FFF257 18E000000 ldy #0mon_srand1:00FFF25A 0151BFFFFE30604 sty PRNG+4 ; select channel00FFF25F 01507FFFFE30608 clr PRNG+800FFF264 01507FFFFE30609 clr PRNG+900FFF269 0150FDFFFE3060A std PRNG+10 ; update low half of value00FFF26E 01507FFFFE3060C clr PRNG+1200FFF273 01507FFFFE3060D clr PRNG+1300FFF278 0150BFFFFE3060E stx PRNG+14 ; update low half of value00FFF27D 031201 iny00FFF27F 18C000400 cmpy #$400 ; 1k channels00FFF282 025FD6 blo mon_srand100FFF284 039 rts;------------------------------------------------------------------------------; Get a random number and generate the next one.;; Parameters:; d = channel to use; Returns:; x,d = 36 bit random value;------------------------------------------------------------------------------mon_rand:00FFF285 0150FDFFFE30604 std PRNG+4 ; select channel00FFF28A 0150BEFFFE30600 ldx PRNG+000FFF28F 0150FCFFFE30602 ldd PRNG+200FFF294 0150F7FFFE30603 stb PRNG+3 ; trigger calc of next number00FFF299 039 rts;==============================================================================; System Monitor;==============================================================================; Command TablescmdTable1:00FFF29A 03C83E fcb '<','>'+$80000FFF29C 04282B fcb 'B','+'+$80000FFF29E 04282D fcb 'B','-'+$80000FFF2A0 044852 fcb 'D','R'+$80000FFF2A2 844 fcb 'D'+$80000FFF2A3 83A fcb ':'+$80000FFF2A4 046049847 fcb "FI",'G'+$80000FFF2A7 04604984C fcb "FI",'L'+$80000FFF2AA 04684C fcb 'F','L'+$80000FFF2AC 84A fcb 'J'+$80000FFF2AD 05204104D054045053854 fcb "RAMTES",'T'+$80000FFF2B4 053050844 fcb "SP",'D'+$80000FFF2B7 054049852 fcb "TI",'R'+$80000FFF2BA 855 fcb 'U'+$80000FFF2BB 065078069874 fcb "exi",'t'+$80000FFF2BF 83F fcb '?'+$80000FFF2C0 04304C853 fcb "CL",'S'+$80000FFF2C3 053031839 fcb "S1",'9'+$80000FFF2C6 04A044834 fcb "JD",'4'+$80000FFF2C9 05804D852 fcb "XM",'R'+$80000FFF2CC 05804D853 fcb "XM",'S'+$80000FFF2CF 052841 fcb 'R','A'+$80000FFF2D1 052842 fcb 'R','B'+$80000FFF2D3 052044050852 fcb "RDP",'R'+$80000FFF2D7 052844 fcb 'R','D'+$80000FFF2D9 052858 fcb 'R','X'+$80000FFF2DB 052859 fcb 'R','Y'+$80000FFF2DD 052855 fcb 'R','U'+$80000FFF2DF 052853 fcb 'R','S'+$80000FFF2E1 052043043852 fcb "RCC",'R'+$80000FFF2E5 052050843 fcb "RP",'C'+$80000FFF2E8 04C842 fcb 'L','B'+$80000FFF2EA 000000 fcw 0cmdTable2:00FFF2EC FFF427 fcw Redirect00FFF2EE FFF469 fcw MonArmBreakpoint00FFF2F0 FFF474 fcw MonDisarmBreakpoint00FFF2F2 FFF899 fcw DumpRegs00FFF2F4 FFF7D0 fcw DumpMemory00FFF2F6 FFF82C fcw EditMemory00FFF2F8 FE0000 fcw $FE0000 ; FIG forth00FFF2FA FFF86F fcw FillMemory00FFF2FC FFF9F5 fcw DumpIOFocusList00FFF2FE FFF980 fcw jump_to_code00FFF300 FFD400 fcw $FFD40000FFF302 FF8000 fcw $FF8000 ; sprite demo00FFF304 FFE524 fcw rtc_read00FFF306 FF8003 fcw $FF8003 ; unassembler00FFF308 FFFAE6 fcw xitMonitor00FFF30A FFF44D fcw PromptHelp00FFF30C FFF455 fcw PromptClearscreen00FFF30E FFEE8F fcw S19Loader00FFF310 FFD400 fcw $FFD40000FFF312 FFEFBA fcw xm_ReceiveStart00FFF314 FFEF2C fcw xm_SendStart00FFF316 FFF8E4 fcw SetRegA00FFF318 FFF8F3 fcw SetRegB00FFF31A FFF94D fcw SetRegDPR00FFF31C FFF902 fcw SetRegD00FFF31E FFF911 fcw SetRegX00FFF320 FFF920 fcw SetRegY00FFF322 FFF92F fcw SetRegU00FFF324 FFF93E fcw SetRegS00FFF326 FFF95C fcw SetRegCCR00FFF328 FFF96B fcw SetRegPC00FFF32A FFFBD2 fcw ListBreakpointsCmdPrompt:00FFF32C 017FFDDA3 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF32F 0C6024 ldb #'$'00FFF331 017FFFE95 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF334 016FFFE92 lbra OUTCH*** warning 1: Long branch within short branch range could be optimizedmsgF09Starting:00FFF337 04606506D07406906B069 fcb "Femtiki F09 Multi-core OS Starting",CR,LF,000FFF33E 02004603003902004D07500FFF345 06C07406902D06306F07200FFF34C 06502004F05302005307400FFF353 06107207406906E06700D00FFF35A 00A000Monitor:00FFF35C 01C0EF andcc #$EF ; SWI disables interrupts, re-enable them00FFF35E 08601F lda #31 ; Timer is IRQ #3100FFF360 0150B7FFFE3F010 sta PIC+16 ; register 16 is edge sense reset reg00FFF365 0FC00092C ldd mon_init ; check special code to see if monitor has been initialized00FFF368 18312D687 cmpd #123456700FFF36B 02704D beq mon100FFF36D 07F000810 clr BreakpointFlag00FFF370 07F000811 clr NumSetBreakpoints00FFF373 0CC00007B ldd #12300FFF376 08E00028E ldx #65400FFF379 017FFFEDB lbsr mon_srand*** warning 1: Long branch within short branch range could be optimized00FFF37C 0CCFFF337 ldd #msgF09Starting00FFF37F 017FFF05B lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF382 0CCFFF5FE ldd #HelpMsg00FFF385 017FFF055 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF388 0CCFFF32C ldd #CmdPrompt00FFF38B 0FD000808 std CmdPromptJI00FFF38E 0CCFFF5E5 ldd #DisplayErr00FFF391 0FD00080C std MonErrVec00FFF394 0CC0063FF ldd #$63FF ; default app stack00FFF397 0FD000908 std mon_SSAVE00FFF39A 07F00090E clr mon_DPRSAVE ;00FFF39D 01F0A8 tfr ccr,a00FFF39F 0B700090F sta mon_CCRSAVE00FFF3A2 07F00090A clr mon_PCSAVE00FFF3A5 0CCFFF35C ldd #Monitor00FFF3A8 0FD00090B std mon_PCSAVE+100FFF3AB 07F000902 clr mon_XSAVE00FFF3AE 07F000904 clr mon_YSAVE00FFF3B1 07F000906 clr mon_USAVE00FFF3B4 0CC12D687 ldd #123456700FFF3B7 0FD00092C std mon_initmon1:00FFF3BA 03280F006FFF leas $6FFF ; reset stack pointer00FFF3BE 05F clrb ; turn off keyboard echo00FFF3BF 017FFFE0B lbsr SetKeyboardEcho*** warning 1: Long branch within short branch range could be optimized; Reset IO vectors00FFF3C2 0CCFFEC73 ldd #SerialPeekCharDirect00FFF3C5 0FD000804 std CharInVec00FFF3C8 0CCFFE31C ldd #DisplayChar00FFF3CB 0FD000800 std CharOutVec00FFF3CE 0CCFFF32C ldd #CmdPrompt00FFF3D1 0FD000808 std CmdPromptJI; jsr RequestIOFocusPromptLn:00FFF3D4 0AD90F000808 jsr [CmdPromptJI]; Get characters until a CR is keyedPrompt3:00FFF3D8 0CCFFFFFF ldd #-1 ; block until key present00FFF3DB 017FFFDB3 lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF3DE 04D tsta ; should not get this with blocking00FFF3DF 02BFF7 bmi Prompt300FFF3E1 0C100D cmpb #CR ; carriage return?00FFF3E3 027005 beq Prompt100FFF3E5 017FFFDE1 lbsr OUTCH ; spit out the character*** warning 1: Long branch within short branch range could be optimized00FFF3E8 020FEE bra Prompt3 ; and keep going; Process the screen line that the CR was keyed on;Prompt1:00FFF3EA 0CC005050 ldd #$505000FFF3ED 0150FDFFFE60001 std LEDS; ldb RunningID; cmpb #61; bhi Prompt300FFF3F2 00F111 clr CursorCol ; go back to the start of the line00FFF3F4 017FFEEFE lbsr CalcScreenLoc ; calc screen memory location*** warning 1: Long branch within short branch range could be optimized00FFF3F7 01F002 tfr d,yskipDollar:00FFF3F9 08D067 bsr MonGetNonSpace00FFF3FB 0C1024 cmpb #'$'00FFF3FD 027FFA beq skipDollar ; skip over '$' prompt character; Dispatch based on command;00FFF3FF 0313FF dey00FFF401 01F023 tfr y,u ; save off input position00FFF403 05F clrb00FFF404 08EFFF29A ldx #cmdTable1parseCmd1:00FFF407 0A6A00 lda ,y+ ; get input character00FFF409 06D804 tst ,x ; test for end of command00FFF40B 02B00F bmi endOfWord ;00FFF40D 0A1800 cmpa ,x+ ; does input match command?00FFF40F 027FF6 beq parseCmd1scanNextWord:00FFF411 06D800 tst ,x+00FFF413 027F47 beq Monitor ; if end of table reached, not a command00FFF415 02AFFA bpl scanNextWord00FFF417 05C incb00FFF418 01F032 tfr u,y ; reset input pointer00FFF41A 020FEB bra parseCmd1 ; try againendOfWord:00FFF41C 0A8804 eora ,x00FFF41E 048 asla00FFF41F 026FF0 bne scanNextWord; we found the command in the table00FFF421 058 aslb ; b = word index00FFF422 08EFFF2EC ldx #cmdTable200FFF425 06E905 jmp [b,x] ; execute commandRedirect:00FFF427 08D034 bsr MonGetch00FFF429 0C1073 cmpb #'s'00FFF42B 02600E bne Prompt2a00FFF42D 0CCFFEC73 ldd #SerialPeekCharDirect00FFF430 0FD000804 std CharInVec00FFF433 0CCFFEC9A ldd #SerialPutChar00FFF436 0FD000800 std CharOutVec00FFF439 020F21 bra MonitorPrompt2a:00FFF43B 0C1063 cmpb #'c'00FFF43D 026F1D bne Monitor00FFF43F 0CCFFEA92 ldd #GetKey00FFF442 0FD000804 std CharInVec00FFF445 0CCFFE31C ldd #DisplayChar00FFF448 0FD000800 std CharOutVec00FFF44B 020F0F bra MonitorPromptHelp:00FFF44D 0CCFFF5FE ldd #HelpMsg00FFF450 017FFEF8A lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF453 020F07 bra MonitorPromptClearscreen:00FFF455 017FFEDE4 lbsr ClearScreen*** warning 1: Long branch within short branch range could be optimized00FFF458 017FFEE58 lbsr HomeCursor*** warning 1: Long branch within short branch range could be optimized00FFF45B 020EFF bra MonitorMonGetch:00FFF45D 0E6A04 ldb ,y00FFF45F 031201 iny00FFF461 039 rtsMonGetNonSpace:00FFF462 08DFF9 bsr MonGetCh00FFF464 0C1020 cmpb #' '00FFF466 027FFA beq MonGetNonSpace00FFF468 039 rtsMonArmBreakpoint:00FFF469 0170006D5 lbsr ArmBreakpoint00FFF46C 0C6FFF ldb #$FFF00FFF46E 0F7000810 stb BreakpointFlag00FFF471 016FFFEE8 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedMonDisarmBreakpoint:00FFF474 017000700 lbsr DisarmBreakpoint00FFF477 016FFFEE2 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Ignore blanks in the input; Y = text pointer; D destroyed;------------------------------------------------------------------------------;ignBlanks:ignBlanks1:00FFF47A 08DFE1 bsr MonGetch00FFF47C 0C1020 cmpb #' '00FFF47E 027FFA beq ignBlanks100FFF480 0313FF dey00FFF482 039 rts;------------------------------------------------------------------------------; Multiply number in work area by 10.;------------------------------------------------------------------------------Times10:00FFF483 034006 pshs d00FFF485 0FC000910 ldd mon_numwka ; make a copy of the number00FFF488 0FD000918 std mon_numwka+800FFF48B 0FC000912 ldd mon_numwka+200FFF48E 0FD00091A std mon_numwka+1000FFF491 08D05B bsr shl_numwka ; shift left = *200FFF493 08D059 bsr shl_numwka ; shift left = *400FFF495 0FC000912 ldd mon_numwka+2 ; add in original value00FFF498 0F300091A addd mon_numwka+10 ; = *500FFF49B 0F6000911 ldb mon_numwka+100FFF49E 0F9000919 adcb mon_numwka+900FFF4A1 0F7000911 stb mon_numwka+100FFF4A4 0B6000910 lda mon_numwka+000FFF4A7 0B9000918 adca mon_numwka+800FFF4AA 0B7000910 sta mon_numwka+000FFF4AD 08D03F bsr shl_numwka ; shift left = * 1000FFF4AF 035086 puls d,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------GetTwoParams:00FFF4B1 08DFC7 bsr ignBlanks00FFF4B3 08D0DC bsr GetNumber ; get start address of dump00FFF4B5 0FC000910 ldd mon_numwka00FFF4B8 0FD000920 std mon_r100FFF4BB 0FC000912 ldd mon_numwka+200FFF4BE 0FD000922 std mon_r1+200FFF4C1 08DFB7 bsr ignBlanks00FFF4C3 08D0CC bsr GetNumber ; get end address of dump00FFF4C5 0FC000910 ldd mon_numwka00FFF4C8 0FD000924 std mon_r200FFF4CB 0FC000912 ldd mon_numwka+200FFF4CE 0FD000926 std mon_r2+200FFF4D1 039 rts;------------------------------------------------------------------------------; Get a range, the end must be greater or equal to the start.;------------------------------------------------------------------------------GetRange:00FFF4D2 08DFDD bsr GetTwoParams00FFF4D4 0FC000926 ldd mon_r2+200FFF4D7 0B3000922 subd mon_r1+200FFF4DA 0FC000924 ldd mon_r200FFF4DD 0F2000921 sbcb mon_r1+100FFF4E0 0B2000920 sbca mon_r100FFF4E3 124000007 lbcc grng100FFF4E6 0AD90F00080C jsr [MonErrVec]00FFF4EA 016FFFE6F lbra Monitor*** warning 1: Long branch within short branch range could be optimizedgrng1:00FFF4ED 039 rtsshl_numwka:00FFF4EE 078000913 asl mon_numwka+300FFF4F1 079000912 rol mon_numwka+200FFF4F4 079000911 rol mon_numwka+100FFF4F7 079000910 rol mon_numwka00FFF4FA 039 rts;------------------------------------------------------------------------------; Get a hexidecimal number. Maximum of twelve digits.;; Modifies:; Y = text pointer (updated); D = number of digits; mon_numwka contains number;------------------------------------------------------------------------------;GetHexNumber:00FFF4FB 04F05F clrd00FFF4FD 0FD000910 std mon_numwka ; zero out work area00FFF500 0FD000912 std mon_numwka+200FFF503 034010 pshs x00FFF505 08E000000 ldx #0 ; max 12 eight digitsgthxn2:00FFF508 08DF53 bsr MonGetch00FFF50A 08D093 bsr AsciiToHexNybble00FFF50C 0C1FFF cmpb #-100FFF50E 027017 beq gthxn100FFF510 08DFDC bsr shl_numwka00FFF512 08DFDA bsr shl_numwka00FFF514 08DFD8 bsr shl_numwka00FFF516 08DFD6 bsr shl_numwka00FFF518 0C400F andb #$0f00FFF51A 0FA000913 orb mon_numwka+300FFF51D 0F7000913 stb mon_numwka+300FFF520 030001 inx00FFF522 08C00000C cmpx #1200FFF525 025FE1 blo gthxn2gthxn1:00FFF527 01F010 tfr x,d00FFF529 035090 puls x,pcGetBinNumber:00FFF52B 04F05F clrd00FFF52D 0FD000910 std mon_numwka00FFF530 0FD000912 std mon_numwka+200FFF533 034010 pshs x00FFF535 08E000000 ldx #0gtbin2:00FFF538 08DF23 bsr MonGetch00FFF53A 08D099 bsr AsciiToBinDigit00FFF53C 05D tstb00FFF53D 02B00F bmi gtbin100FFF53F 08DFAD bsr shl_numwka00FFF541 0FA000913 orb mon_numwka+300FFF544 0F7000913 stb mon_numwka+300FFF547 030001 inx00FFF549 08C000030 cpx #4800FFF54C 025FEA blo gtbin2gtbin1:00FFF54E 01F010 tfr x,d00FFF550 035090 puls x,pcGetDecNumber:00FFF552 04F05F clrd00FFF554 0FD000910 std mon_numwka00FFF557 0FD000912 std mon_numwka+200FFF55A 034010 pshs x00FFF55C 08E000000 ldx #0gtdec2:00FFF55F 08DEFC bsr MonGetch00FFF561 08D064 bsr AsciiToDecDigit00FFF563 05D tstb00FFF564 02B027 bmi gtdec100FFF566 08DF1B bsr Times1000FFF568 0FB000913 addb mon_numwka+300FFF56B 0F7000913 stb mon_numwka+300FFF56E 0F6000912 ldb mon_numwka+200FFF571 0C9000 adcb #000FFF573 0F7000912 stb mon_numwka+200FFF576 0F6000911 ldb mon_numwka+100FFF579 0C9000 adcb #000FFF57B 0F7000911 stb mon_numwka+100FFF57E 0F6000910 ldb mon_numwka+000FFF581 0C9000 adcb #000FFF583 0F7000910 stb mon_numwka+000FFF586 030001 inx00FFF588 08C00000F cpx #1500FFF58B 025FD2 blo gtdec2gtdec1:00FFF58D 01F010 tfr x,d00FFF58F 035090 puls x,pcGetNumber:00FFF591 08DECA bsr MonGetch00FFF593 0C102B cmpb #'+'00FFF595 027FBB beq GetDecNumber00FFF597 0C1025 cmpb #'%'00FFF599 027F90 beq GetBinNumber00FFF59B 0313FF dey00FFF59D 020F5C bra GetHexNumber; phx; push r4; push r5; ldx #0; ld r4,#10; ld r5,#10;gtdcn2:; jsr MonGetch; jsr AsciiToDecNybble; cmp #-1; beq gtdcn1; mul r2,r2,r5; add r2,r1; dec r4; bne gtdcn2;gtdcn1:; txa; pop r5; pop r4; plx; rts;------------------------------------------------------------------------------; Convert ASCII character in the range '0' to '9', 'a' to 'f' or 'A' to 'F'; to a hex nybble.;------------------------------------------------------------------------------;AsciiToHexNybble:00FFF59F 0C1030 cmpb #'0'00FFF5A1 025021 blo gthx300FFF5A3 0C1039 cmpb #'9'00FFF5A5 022003 bhi gthx500FFF5A7 0C0030 subb #'0'00FFF5A9 039 rtsgthx5:00FFF5AA 0C1041 cmpb #'A'00FFF5AC 025016 blo gthx300FFF5AE 0C1046 cmpb #'F'00FFF5B0 022005 bhi gthx600FFF5B2 0C0041 subb #'A'00FFF5B4 0CB00A addb #1000FFF5B6 039 rtsgthx6:00FFF5B7 0C1061 cmpb #'a'00FFF5B9 025009 blo gthx300FFF5BB 0C107A cmpb #'z'00FFF5BD 022005 bhi gthx300FFF5BF 0C0061 subb #'a'00FFF5C1 0CB00A addb #1000FFF5C3 039 rtsgthx3:00FFF5C4 0C6FFF ldb #-1 ; not a hex number00FFF5C6 039 rtsAsciiToDecDigit:00FFF5C7 0C1030 cmpb #'0'00FFF5C9 025007 blo gtdc300FFF5CB 0C1039 cmpb #'9'00FFF5CD 022003 bhi gtdc300FFF5CF 0C0030 subb #'0'00FFF5D1 039 rtsgtdc3:00FFF5D2 0C6FFF ldb #-100FFF5D4 039 rtsAsciiToBinDigit:00FFF5D5 0C1030 cmpb #'0'00FFF5D7 026002 bne abd100FFF5D9 05F clrb00FFF5DA 039 rtsabd1:00FFF5DB 0C1031 cmpb #'1'00FFF5DD 026003 bne abd200FFF5DF 0C6001 ldb #100FFF5E1 039 rtsabd2:00FFF5E2 0C6FFF ldb #-100FFF5E4 039 rtsDisplayErr:00FFF5E5 0CCFFF5F6 ldd #msgErr00FFF5E8 017FFEDF2 lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF5EB 07EFFF35C jmp MonitorDisplayStringDX00FFF5EE 0DD024 std Strptr00FFF5F0 09F026 stx Strptr+200FFF5F2 0BDFFE3DD jsr DisplayString00FFF5F5 039 rtsmsgErr:00FFF5F6 02A02A04507207200D00A fcb "**Err",CR,LF,000FFF5FD 000HelpMsg:00FFF5FE 03F02003D020044069073 fcb "? = Display help",CR,LF00FFF605 07006C06107902006806500FFF60C 06C07000D00A00FFF610 04304C05302003D020063 fcb "CLS = clear screen",CR,LF00FFF617 06C06506107202007306300FFF61E 07206506506E00D00A00FFF624 06202B02003D020073065 fcb "b+ = set breakpoint",CR,LF00FFF62B 07402006207206506106B00FFF632 07006F06906E07400D00A00FFF639 06202D02003D02006306C fcb "b- = clear breakpoint",CR,LF00FFF640 06506107202006207206500FFF647 06106B07006F06906E07400FFF64E 00D00A; db "S = Boot from SD Card",CR,LF00FFF650 03A02003D020045064069 fcb ": = Edit memory bytes",CR,LF00FFF657 07402006D06506D06F07200FFF65E 07902006207907406507300FFF665 00D00A; db "L = Load sector",CR,LF; db "W = Write sector",CR,LF00FFF667 04405202003D020044075 fcb "DR = Dump registers",CR,LF00FFF66E 06D07002007206506706900FFF675 07307406507207300D00A00FFF67C 04402003D02004407506D fcb "D = Dump memory",CR,LF00FFF683 07002006D06506D06F07200FFF68A 07900D00A00FFF68D 04602003D02004606906C fcb "F = Fill memory",CR,LF00FFF694 06C02006D06506D06F07200FFF69B 07900D00A00FFF69E 04604C02003D020044075 fcb "FL = Dump I/O Focus List",CR,LF00FFF6A5 06D07002004902F04F02000FFF6AC 04606F06307507302004C00FFF6B3 06907307400D00A; fcb "FIG = start FIG Forth",CR,LF; db "KILL n = kill task #n",CR,LF; db "B = start tiny basic",CR,LF; db "b = start EhBasic 6502",CR,LF00FFF6B8 04A02003D02004A07506D fcb "J = Jump to code",CR,LF00FFF6BF 07002007406F02006306F00FFF6C6 06406500D00A00FFF6CA 04A04403402003D02004A fcb "JD4 = Jump to $FFD400",CR,LF00FFF6D1 07506D07002007406F02000FFF6D8 02404604604403403003000FFF6DF 00D00A00FFF6E1 05205B06E05D02003D020 fcb "R[n] = Set register value",CR,LF00FFF6E8 05306507402007206506700FFF6EF 06907307406507202007600FFF6F6 06106C07506500D00A; db "r = random lines - test bitmap",CR,LF; db "e = ethernet test",CR,LF00FFF6FC 07302003D020073065072 fcb "s = serial output test",CR,LF00FFF703 06906106C02006F07507400FFF70A 07007507402007406507300FFF711 07400D00A00FFF714 05303103902003D020072 fcb "S19 = run S19 loader",CR,LF00FFF71B 07506E02005303103902000FFF722 06C06F06106406507200D00FFF729 00A00FFF72A 05305002003D020073070 fcb "SP = sprite demo",CR,LF00FFF731 07206907406502006406500FFF738 06D06F00D00A; db "T = Dump task list",CR,LF; db "TO = Dump timeout list",CR,LF00FFF73C 05404902003D020064069 fcb "TI = display date/time",CR,LF00FFF743 07307006C06107902006400FFF74A 06107406502F07406906D00FFF751 06500D00A; db "TEMP = display temperature",CR,LF00FFF754 05502003D02007506E061 fcb "U = unassemble",CR,LF00FFF75B 07307306506D06206C06500FFF762 00D00A; db "P = Piano",CR,LF00FFF764 05804D02003D02007806D fcb "XM = xmodem transfer",CR,LF00FFF76B 06F06406506D02007407200FFF772 06106E07306606507200D00FFF779 00A00FFF77A 07802003D020065078069 fcb "x = exit monitor",CR,LF00FFF781 07402006D06F06E06907400FFF788 06F07200D00A00FFF78C 000 fcb 0msgRegHeadings00FFF78D 00D00A02002004402F041 fcb CR,LF," D/AB X Y U S PC DP CCR",CR,LF,000FFF794 04202002002002002005800FFF79B 02002002002002002005900FFF7A2 02002002002002002005500FFF7A9 02002002002002002005300FFF7B0 02002002002002002002000FFF7B7 05004302002002002004400FFF7BE 05002002004304305200D00FFF7C5 00A000nHEX4:00FFF7C7 0BDFFD2D2 jsr HEX400FFF7CA 039 rtsnXBLANK:00FFF7CB 0C6020 ldb #' '00FFF7CD 016FFF9F9 lbra OUTCH*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Memory;; Usage:; $D FFFC12 FFFC20;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------DumpMemory:00FFF7D0 08DD00 bsr GetRange00FFF7D2 18E000000 ldy #000FFF7D5 1BE000922 ldy mon_r1+2dmpm2:00FFF7D8 017FFD8F7 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF7DB 0C603A ldb #':'00FFF7DD 017FFF9E9 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7E0 01F020 tfr y,d;addd mon_r1+2 ; output the address00FFF7E2 017FFEC4C lbsr DispWordAsHex*** warning 1: Long branch within short branch range could be optimized00FFF7E5 0C6020 ldb #' '00FFF7E7 017FFF9DF lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7EA 08E000008 ldx #8 ; number of bytes to displaydmpm1:; ldb far [mon_r1+1],y;ldb [mon_r1+2],y00FFF7ED 0E6A04 ldb ,y00FFF7EF 031201 iny00FFF7F1 017FFEC46 lbsr DispByteAsHex ; display byte*** warning 1: Long branch within short branch range could be optimized00FFF7F4 0C6020 ldb #' ' ; followed by a space00FFF7F6 017FFF9D0 lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF7F9 05F clrb00FFF7FA 04F clra00FFF7FB 017FFF993 lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF7FE 0C1003 cmpb #CTRLC00FFF800 027024 beq dmpm300FFF802 0301FF dex00FFF804 026FE7 bne dmpm1; Now output ascii00FFF806 0C6020 ldb #' '00FFF808 017FFF9BE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF80B 08E000008 ldx #8 ; 8 chars to output00FFF80E 0313F8 leay -8,y ; backup pointerdmpm5:; ldb far [mon_r1+1],y ; get the char; ldb [mon_r1+2],y ; get the char00FFF810 0E6A04 ldb ,y00FFF812 0C1020 cmpb #$20 ; is it a control char?00FFF814 024002 bhs dmpm400FFF816 0C602E ldb #'.'dmpm4:00FFF818 017FFF9AE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimized00FFF81B 031201 iny00FFF81D 0301FF dex00FFF81F 026FEF bne dmpm500FFF821 1BC000926 cmpy mon_r2+200FFF824 025FB2 blo dmpm2dmpm3:00FFF826 017FFD8A9 lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFF829 016FFFB30 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Edit Memory;; Usage:; $$:FFFC12 8 "Hello World!" 0;; Dump formatted to look like:; :FFFC12 012 012 012 012 555 666 777 888;;------------------------------------------------------------------------------EditMemory:00FFF82C 0CE000008 ldu #8 ; set max byte count00FFF82F 017FFFC48 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF832 017FFFCC6 lbsr GetHexNumber ; get the start address*** warning 1: Long branch within short branch range could be optimized00FFF835 0BE000912 ldx mon_numwka+2EditMem2:00FFF838 017FFFC3F lbsr ignBlanks ; skip over blanks*** warning 1: Long branch within short branch range could be optimized00FFF83B 017FFFCBD lbsr GetHexNumber ; get the byte value*** warning 1: Long branch within short branch range could be optimized00FFF83E 05D tstb ; check for valid value00FFF83F 02700C beq EditMem1 ; if invalid, quit00FFF841 0F6000913 ldb mon_numwka+3 ; get value00FFF844 0E7800 stb ,x+ ; update memory at address00FFF846 0335FF leau -1,u ; decremeent byte count00FFF848 283000000 cmpu #000FFF84B 026FEB bne EditMem2 ; go back for annother byteEditMem1:00FFF84D 017FFFC0D lbsr MonGetch ; see if a string is being entered*** warning 1: Long branch within short branch range could be optimized00FFF850 0C1022 cmpb #'"'00FFF852 026018 bne EditMem3 ; no string, we're done00FFF854 0CE000028 ldu #40 ; string must be less than 40 charsEditMem4:00FFF857 017FFFC03 lbsr MonGetch ; look for close quote*** warning 1: Long branch within short branch range could be optimized00FFF85A 0C1022 cmpb #'"'00FFF85C 026005 bne EditMem6 ; end of string?00FFF85E 0CE000008 ldu #8 ; reset the byte count00FFF861 020FD5 bra EditMem2EditMem6:00FFF863 0E7800 stb ,x+ ; store the character in memory00FFF865 0335FF leau -1,u ; decrement byte count00FFF867 283000000 cmpu #000FFF86A 022FEB bhi EditMem4 ; max 40 charsEditMem3:00FFF86C 016FFFAED lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Fill Memory;; Usage:; $$F FFFC12 FFFC30 89F;;------------------------------------------------------------------------------FillMemory:00FFF86F 017FFFC60 lbsr GetRange ; get address range to fill*** warning 1: Long branch within short branch range could be optimized00FFF872 017FFFC05 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF875 017FFFC83 lbsr GetHexNumber ; get target byte to write*** warning 1: Long branch within short branch range could be optimized00FFF878 0F6000913 ldb mon_numwka+300FFF87B 0BE000922 ldx mon_r1+200FFF87E 04F clrafillm1: ; Check for a CTRL-C every page of memory00FFF87F 04D tsta00FFF880 02600D bne fillm200FFF882 05F clrb ; we want a non-blocking check00FFF883 04F clra00FFF884 017FFF90A lbsr INCH*** warning 1: Long branch within short branch range could be optimized00FFF887 0C1003 cmpb #CTRLC00FFF889 127FFFAD0 lbeq Monitor*** warning 1: Long branch within short branch range could be optimized00FFF88C 0F6000913 ldb mon_numwka+3 ; reset target bytefillm2:00FFF88F 0E7800 stb ,x+00FFF891 0BC000926 cmpx mon_r2+200FFF894 023FE9 bls fillm1fillm3:00FFF896 016FFFAC3 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Dump Registers;; Usage:; $DR;------------------------------------------------------------------------------DumpRegs:00FFF899 0CCFFF78D ldd #msgRegHeadings00FFF89C 017FFEB3E lbsr DisplayString*** warning 1: Long branch within short branch range could be optimized00FFF89F 08DF2A bsr nXBLANK00FFF8A1 0FC000900 ldd mon_DSAVE00FFF8A4 08DF21 bsr nHEX400FFF8A6 08DF23 bsr nXBLANK00FFF8A8 0FC000902 ldd mon_XSAVE00FFF8AB 08DF1A bsr nHEX400FFF8AD 08DF1C bsr nXBLANK00FFF8AF 0FC000904 ldd mon_YSAVE00FFF8B2 08DF13 bsr nHEX400FFF8B4 08DF15 bsr nXBLANK00FFF8B6 0FC000906 ldd mon_USAVE00FFF8B9 08DF0C bsr nHEX400FFF8BB 08DF0E bsr nXBLANK00FFF8BD 0FC000908 ldd mon_SSAVE00FFF8C0 08DF05 bsr nHEX400FFF8C2 08DF07 bsr nXBLANK00FFF8C4 0F600090B ldb mon_PCSAVE+100FFF8C7 017FFEB70 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFF8CA 0FC00090C ldd mon_PCSAVE+200FFF8CD 08DEF8 bsr nHEX400FFF8CF 08DEFA bsr nXBLANK00FFF8D1 0FC00090E ldd mon_DPRSAVE00FFF8D4 0BDFFD2CE jsr HEX200FFF8D7 08DEF2 bsr nXBLANK00FFF8D9 0B600090F lda mon_CCRSAVE00FFF8DC 017FFD9EF lbsr HEX2*** warning 1: Long branch within short branch range could be optimized00FFF8DF 08DEEA bsr nXBLANK00FFF8E1 016FFFA78 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; SetRegXXX;; Set the value to be loaded into a register.;------------------------------------------------------------------------------SetRegA:00FFF8E4 017FFFB93 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF8E7 017FFFCA7 lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF8EA 0B6000913 lda mon_numwka+300FFF8ED 0B7000900 sta mon_DSAVE00FFF8F0 016FFFA69 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegB:00FFF8F3 017FFFB84 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF8F6 017FFFC98 lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF8F9 0B6000913 lda mon_numwka+300FFF8FC 0B7000901 sta mon_DSAVE+100FFF8FF 016FFFA5A lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegD:00FFF902 017FFFB75 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF905 017FFFC89 lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF908 0FC000912 ldd mon_numwka+200FFF90B 0FD000900 std mon_DSAVE00FFF90E 016FFFA4B lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegX:00FFF911 017FFFB66 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF914 017FFFC7A lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF917 0FC000912 ldd mon_numwka+200FFF91A 0FD000902 std mon_XSAVE00FFF91D 016FFFA3C lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegY:00FFF920 017FFFB57 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF923 017FFFC6B lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF926 0FC000912 ldd mon_numwka+200FFF929 0FD000904 std mon_YSAVE00FFF92C 016FFFA2D lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegU:00FFF92F 017FFFB48 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF932 017FFFC5C lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF935 0FC000912 ldd mon_numwka+200FFF938 0FD000906 std mon_USAVE00FFF93B 016FFFA1E lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegS:00FFF93E 017FFFB39 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF941 017FFFC4D lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF944 0FC000912 ldd mon_numwka+200FFF947 0FD000908 std mon_SSAVE00FFF94A 016FFFA0F lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegDPR:00FFF94D 017FFFB2A lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF950 017FFFC3E lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF953 0B6000913 lda mon_numwka+300FFF956 0B700090E sta mon_DPRSAVE00FFF959 016FFFA00 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegCCR:00FFF95C 017FFFB1B lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF95F 017FFFC2F lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF962 0B6000913 lda mon_numwka+300FFF965 0B700090F sta mon_CCRSAVE00FFF968 016FFF9F1 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedSetRegPC:00FFF96B 017FFFB0C lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF96E 017FFFC20 lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF971 0FC000912 ldd mon_numwka+200FFF974 0FD00090C std mon_PCSAVE+200FFF977 0F6000911 ldb mon_numwka+100FFF97A 0F700090B stb mon_PCSAVE+100FFF97D 016FFF9DC lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------; Jump to code;; Registers are loaded with values from the monitor register save area before; the code is jumped to.;; J <address>;------------------------------------------------------------------------------jump_to_code:00FFF980 017FFFAF7 lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFF983 017FFFC0B lbsr GetNumber*** warning 1: Long branch within short branch range could be optimized00FFF986 01A010 sei00FFF988 1FE000908 lds mon_SSAVE00FFF98B 0CCFFF9BA ldd #jtc_exit ; setup stack for RTS back to monitor00FFF98E 034006 pshs d00FFF990 0C6000 ldb #000FFF992 034004 pshs b00FFF994 0FC000906 ldd mon_USAVE00FFF997 034006 pshs d00FFF999 0FC000904 ldd mon_YSAVE00FFF99C 034006 pshs d00FFF99E 0FC000902 ldd mon_XSAVE00FFF9A1 034006 pshs d00FFF9A3 0B600090E lda mon_DPRSAVE00FFF9A6 034002 pshs a00FFF9A8 0FC000900 ldd mon_DSAVE00FFF9AB 034006 pshs d00FFF9AD 0B600090F lda mon_CCRSAVE00FFF9B0 034002 pshs a00FFF9B2 01503507F puls far ccr,d,dpr,x,y,u00FFF9B5 01506E90F000911 jmp far [mon_numwka+1]jtc_exit:00FFF9BA 1FF000908 sts >mon_SSAVE ; need to use extended addressing, no direct page setting00FFF9BD 03280F006FFF leas $6FFF ; reset stack to system area, dont modify flags register!00FFF9C1 034001 pshs ccr ; now the stack can be used00FFF9C3 034002 pshs a ; save acca register so we can use it00FFF9C5 01F0B8 tfr dpr,a ; a = outgoing dpr value00FFF9C7 0B700090E sta >mon_DPRSAVE ; force extended addressing mode usage here dpr is not set00FFF9CA 04F clra ; dpg register must be set to zero before values are00FFF9CB 01F08B tfr a,dpr ; saved in the monitor register save area.00FFF9CD 035002 puls a ; get back acca00FFF9CF 0FD000900 std mon_DSAVE ; save regsters, can use direct addressing now00FFF9D2 0BF000902 stx mon_XSAVE00FFF9D5 1BF000904 sty mon_YSAVE00FFF9D8 0FF000906 stu mon_USAVE00FFF9DB 035002 puls a ; get back ccr00FFF9DD 0B700090F sta mon_CCRSAVE ; and save it too; Reset vectors in case they got toasted.00FFF9E0 0CCFFEC73 ldd #SerialPeekCharDirect00FFF9E3 0FD000804 std CharInVec00FFF9E6 0CCFFE31C ldd #DisplayChar00FFF9E9 0FD000800 std CharOutVec00FFF9EC 0FCFFF5E5 ldd DisplayErr00FFF9EF 0FD00080C std MonErrVec; todo set according to coreid00FFF9F2 016FFFEA4 lbra DumpRegs ; now go do a register dump*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------DumpIOFocusList:00FFF9F5 08E000000 ldx #0dfl2:00FFF9F8 0E680A000FFC000 ldb IOFocusList,x00FFF9FD 0C1018 cmpb #2400FFF9FF 02600A bne dfl100FFFA01 01F010 tfr x,d00FFFA03 017FFEA34 lbsr DispByteAsHex*** warning 1: Long branch within short branch range could be optimized00FFFA06 0C6020 ldb #' '00FFFA08 017FFF7BE lbsr OUTCH*** warning 1: Long branch within short branch range could be optimizeddfl1:00FFFA0B 030001 inx00FFFA0D 08C000010 cmpx #1600FFFA10 025FE6 blo dfl200FFFA12 017FFD6BD lbsr CRLF*** warning 1: Long branch within short branch range could be optimized00FFFA15 016FFF944 lbra Monitor*** warning 1: Long branch within short branch range could be optimizedbootpg:00FFFA18 000 fcb $000boot_stack:00FFFA19 FFC0FF fcw $FFC0FFnumBreakpoints:00FFFA1B 000008 fcw 8mon_rom_vectab:00FFFA1D FFFA1F fcw mon_rom_vecsmon_rom_vecs:00FFFA1F FFF35C fcw Monitor ; enter monitor program00FFFA21 FFF191 fcw INCH ; input a character00FFFA23 FFF1C9 fcw OUTCH ; output a character00FFFA25 FFD0D2 fcw CRLF ; output carriage-return, line feed00FFFA27 FFE3DD fcw DisplayString00FFFA29 FFE43A fcw DispByteAsHex00FFFA2B FFE431 fcw DispWordAsHex00FFFA2D FFF1D3 fcw ShowSprites00FFFA2F FFF257 fcw mon_srand00FFFA31 FFF285 fcw mon_rand00FFFA33 000000 fcw 0 ; operating system call00FFFA35 FFF4D2 fcw GetRange00FFFA37 FFF591 fcw GetNumber00FFFA39 FFEC9A fcw SerialPutCharNumFuncs EQU (*-mon_rom_vectab)/2; The following table indicates which routines need to return values in the; D and possibly X registers.mon_rettab:00FFFA3B 000 fcb 0 ; monitor00FFFA3C 800 fcb $800 ; INCH00FFFA3D 000 fcb 0 ; OUTCH00FFFA3E 000 fcb 0 ; CRLF00FFFA3F 000 fcb 0 ; DisplayString00FFFA40 000 fcb 0 ; DisplayByte00FFFA41 000 fcb 0 ; DisplayWord00FFFA42 000 fcb 0 ; show sprites00FFFA43 000 fcb 0 ; srand00FFFA44 C00 fcb $C00 ; rand00FFFA45 C00 fcb $C00 ; OS call00FFFA46 000 fcb 0 ; GetRange00FFFA47 800 fcb $800 ; GetNumber00FFFA48 000 fcb 0 ; SerialPutChar;------------------------------------------------------------------------------; SWI routine.;; SWI is used to call ROM monitor routines and process breakpoints.;; swi; fcb <desired function>;------------------------------------------------------------------------------swi_rout:00FFFA49 0E680CFCC ldb bootpg,pcr ; reset direct page00FFFA4C 01F09B tfr b,dpswi_rout1:00FFFA4E 0EE60B ldu 11,s ; get program counter (low order 2 bytes)00FFFA50 0335FF leau -1,u ; backup a byte00FFFA52 07D000810 tst BreakpointFlag ; are we in breakpoint mode?00FFFA55 02700F beq swiNotBkpt00FFFA57 18E000820 ldy #Breakpoints00FFFA5A 0F6000811 ldb NumSetBreakpoints00FFFA5D 027007 beq swiNotBkptswi_rout2:00FFFA5F 2A3A01 cmpu ,y++00FFFA61 02704B beq processBreakpoint00FFFA63 05A decb00FFFA64 026FF9 bne swi_rout2swiNotBkpt:00FFFA66 07F000810 clr BreakpointFlag00FFFA69 037006 pulu d ; get function #, increment PC00FFFA6B 0C100F cmpb #NumFuncs00FFFA6D 122FFFB75 lbhi DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFFA70 0EF60B stu 11,s ; save updated PC on stack00FFFA72 0C100A cmpb #MF_OSCALL00FFFA74 027072 beq swiCallOS00FFFA76 058 aslb ; 2 bytes per vector00FFFA77 0AE80CFA3 ldx mon_rom_vectab,pcr00FFFA7A 03A abx00FFFA7B 0AE804 ldx ,x00FFFA7D 0BF000928 stx jmpvec00FFFA80 054 lsrb00FFFA81 08EFFFA3B ldx #mon_rettab00FFFA84 03A abx00FFFA85 0E6804 ldb ,x00FFFA87 0F7000930 stb mon_retflag00FFFA8A 1FF000908 sts mon_SSAVE ; save the stack pointer00FFFA8D 0EC601 ldd 1,s ; get back D00FFFA8F 0AE604 ldx 4,s ; get back X00FFFA91 1AE606 ldy 6,s ; get back Y00FFFA93 0EE608 ldu 8,s ; get back U00FFFA95 1EE80CF81 lds boot_stack,pcr ; and use our own stack00FFFA98 0AD90F000928 jsr [jmpvec] ; call the routineswi_rout3:00FFFA9C 1FE000908 lds mon_SSAVE ; restore stack00FFFA9F 07D000930 tst mon_retflag00FFFAA2 02A009 bpl swi_rout400FFFAA4 0ED601 std 1,s ; return value in D00FFFAA6 078000930 asl mon_retflag00FFFAA9 02A002 bpl swi_rout400FFFAAB 0AF604 stx 4,s ; return value in Xswi_rout4:00FFFAAD 03B rti;------------------------------------------------------------------------------; A breakpoint was struck during program execution, process accordingly.;------------------------------------------------------------------------------processBreakpoint:00FFFAAE 0A6E04 lda ,s00FFFAB0 0B700090F sta mon_CCRSAVE00FFFAB3 0EC601 ldd 1,s00FFFAB5 0FD000900 std mon_DSAVE00FFFAB8 0E6603 ldb 3,s00FFFABA 0F700090E stb mon_DPRSAVE00FFFABD 0EC604 ldd 4,s00FFFABF 0FD000902 std mon_XSAVE00FFFAC2 0EC606 ldd 6,s00FFFAC4 0FD000904 std mon_YSAVE00FFFAC7 0EC608 ldd 8,s00FFFAC9 0FD000906 std mon_USAVE00FFFACC 1FF000908 sts mon_SSAVE00FFFACF 0E660A ldb 10,s00FFFAD1 0F700090A stb mon_PCSAVE00FFFAD4 0EC60B ldd 11,s00FFFAD6 0FD00090B std mon_PCSAVE+100FFFAD9 1EE80CF3D lds boot_stack,pcr00FFFADC 0CCFFFA9C ldd #swi_rout3 ; setup so monitor can return00FFFADF 034006 pshs d00FFFAE1 08D01F bsr DisarmAllBreakpoints00FFFAE3 016FFFDB3 lbra DumpRegs*** warning 1: Long branch within short branch range could be optimizedxitMonitor:00FFFAE6 020039 bra ArmAllBreakpoints;------------------------------------------------------------------------------;------------------------------------------------------------------------------swiCallOS:00FFFAE8 033401 leau 1,u ; next byte is func number00FFFAEA 0E6C00 ldb ,u+00FFFAEC 0C1019 cmpb #NumOSFuncs ; check for valid range00FFFAEE 122FFFAF4 lbhi DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFFAF1 0EF60B stu 11,s ; save updateed PC on stack00FFFAF3 058 aslb ; compute vector address00FFFAF4 08EFFF1DE ldx #OSCallTbl00FFFAF7 06DE0F tst b,x ; check for non-zero vector00FFFAF9 027FA1 beq swi_rout3osc1:; tst OSSEMA+1 ; wait for availability; beq osc100FFFAFB 0ADF0F jsr [b,x] ; call the OS routineoscx:00FFFAFD 07FEF0011 clr OSSEMA+100FFFB00 020F9A bra swi_rout3;------------------------------------------------------------------------------; DisarmAllBreakpoints, used when entering the monitor.;------------------------------------------------------------------------------DisarmAllBreakpoints:00FFFB02 034036 pshs d,x,y00FFFB04 18E000000 ldy #000FFFB07 05F clrb00FFFB08 08E000830 ldx #BreakpointBytes ; x = breakpoint byte table addressdisarm2:00FFFB0B 0C1A1B cmpb #numBreakpoints ; safety check00FFFB0D 024010 bhs disarm100FFFB0F 0F1000811 cmpb NumSetBreakpoints00FFFB12 02400B bhs disarm100FFFB14 0A6837 lda b,x ; get memory byte00FFFB16 0A7B09000820 sta [Breakpoints,y] ; and store it back to memory00FFFB1A 031202 leay 2,y ; increment for next address00FFFB1C 05C incb ; increment to next byte00FFFB1D 020FEC bra disarm2 ; loop backdisarm1:00FFFB1F 0350B6 puls d,x,y,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------ArmAllBreakpoints:00FFFB21 034036 pshs d,x,y00FFFB23 18E000000 ldy #000FFFB26 05F clrb00FFFB27 08E000830 ldx #BreakpointBytes ; x = breakpoint byte table addressarm2:00FFFB2A 0F1FFFA1B cmpb numBreakpoints ; safety check00FFFB2D 024010 bhs arm100FFFB2F 0F1000811 cmpb NumSetBreakpoints00FFFB32 02400B bhs arm100FFFB34 0A6B09000820 lda [Breakpoints,y] ; load byte at memory address00FFFB38 0A7B0D sta b,x ; save in table00FFFB3A 031202 leay 2,y ; increment for next address00FFFB3C 05C incb ; increment to next byte00FFFB3D 020FEB bra arm2 ; loop backarm1:00FFFB3F 0350B6 puls d,x,y,pc;------------------------------------------------------------------------------;------------------------------------------------------------------------------ArmBreakpoint:00FFFB41 034036 pshs d,x,y00FFFB43 0B6000811 lda NumSetBreakpoints ; check if too many breakpoints set00FFFB46 0B1FFFA1B cmpa numBreakpoints00FFFB49 124FFFA99 lbhs DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFFB4C 017FFF92B lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFFB4F 017FFF9A9 lbsr GetHexNumber ; get address parameter*** warning 1: Long branch within short branch range could be optimized00FFFB52 05D tstb00FFFB53 12BFFFA8F lbmi DisplayErr*** warning 1: Long branch within short branch range could be optimized00FFFB56 0F6000811 ldb NumSetBreakpoints ; bv= number of set breakpoints00FFFB59 1BE000912 ldy mon_numwka+2 ; get address00FFFB5C 0A6A04 lda ,y ; get byte at address00FFFB5E 08E000830 ldx #BreakpointBytes ; and store byte in a table00FFFB61 0A7A05 sta b,x ; record00FFFB63 08603F lda #OPC_SWI ; put a SWI instruction in place00FFFB65 0A7A04 sta ,y00FFFB67 08E000820 ldx #Breakpoints ; also store the address in a table00FFFB6A 058 aslb ; index for 2 byte values00FFFB6B 1AFA05 sty b,x00FFFB6D 054 lsrb ; size back to single byte00FFFB6E 05C incb00FFFB6F 0F7000811 stb NumSetBreakpoints00FFFB72 035036 puls d,x,y00FFFB74 016FFF7E5 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------DisarmBreakpoint:00FFFB77 034076 pshs d,x,y,u00FFFB79 017FFF8FE lbsr ignBlanks*** warning 1: Long branch within short branch range could be optimized00FFFB7C 017FFF97C lbsr GetHexNumber*** warning 1: Long branch within short branch range could be optimized00FFFB7F 05D tstb00FFFB80 12BFFF7D9 lbmi Monitor*** warning 1: Long branch within short branch range could be optimized00FFFB83 05F clrb00FFFB84 05F clrb00FFFB85 01F001 tfr d,x ; x = zero toodisarm6:00FFFB87 0F1FFFA1B cmpb numBreakpoints ; no more than this many may be set00FFFB8A 024041 bhs disarm400FFFB8C 0F1000811 cmpb NumSetBreakpoints ; number actually set00FFFB8F 02403C bhs disarm400FFFB91 1AE809000820 ldy Breakpoints,x ; y = breakpoint address00FFFB95 1BC000912 cmpy mon_numwka+2 ; is it the one we want?00FFFB98 02602E bne disarm3 ; if not, go increment to next00FFFB9A 0BE000912 ldx mon_numwka+2 ; x = memory address00FFFB9D 18E000830 ldy #BreakpointBytes00FFFBA0 0A6A0D lda b,y ; get saved byte from table00FFFBA2 0A7804 sta ,x ; set the byte at the memory address; compress breakpoint table by removing breakpoint00FFFBA4 07A000811 dec NumSetBreakpoints ; set the new number of set breakpoints00FFFBA7 034004 pshs b ; save the position we're removing fromdisarm7:00FFFBA9 05C incb ; set index for next byte00FFFBAA 0A6A05 lda b,y ; get byte00FFFBAC 05A decb ; and store it back00FFFBAD 0A7A05 sta b,y00FFFBAF 05C incb ; move to next position00FFFBB0 0F1FFFA1B cmpb numBreakpoints ; hit end of table?00FFFBB3 025FF4 blo disarm700FFFBB5 035004 puls b ; get back position00FFFBB7 058 aslb ; times two for word index00FFFBB8 04F clra00FFFBB9 01F002 tfr d,y00FFFBBB 054 lsrb ; back to byte index valuedisarm8:00FFFBBC 0EE202 ldu 2,y ; get next breakpoint address00FFFBBE 0EFA01 stu ,y++ ; store in current pos, increment00FFFBC0 05C incb ; increment count00FFFBC1 0F1FFFA1B cmpb numBreakpoints ; hit end of table?00FFFBC4 025FF6 blo disarm800FFFBC6 0350F6 puls d,x,y,u,pcdisarm3:00FFFBC8 030002 leax 2,x00FFFBCA 05C incb00FFFBCB 020FBA bra disarm6disarm4:00FFFBCD 035076 puls d,x,y,u00FFFBCF 016FFF78A lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------ListBreakpoints:00FFFBD2 034016 pshs d,x00FFFBD4 03F swi00FFFBD5 003 fcb MF_CRLF00FFFBD6 08E000000 ldx #000FFFBD9 0C6000 ldb #0lbrk1:00FFFBDB 0F1FFFA1B cmpb numBreakpoints00FFFBDE 024016 bhs lbrk200FFFBE0 0F1000811 cmpb NumSetBreakpoints00FFFBE3 024011 bhs lbrk200FFFBE5 0EC809000820 ldd Breakpoints,x00FFFBE9 030002 leax 2,x00FFFBEB 05C incb00FFFBEC 034004 pshs b00FFFBEE 03F swi00FFFBEF 006 fcb MF_DisplayWordAsHex00FFFBF0 03F swi00FFFBF1 003 fcb MF_CRLF00FFFBF2 035004 puls b00FFFBF4 020FE5 bra lbrk1lbrk2:00FFFBF6 035016 puls d,x00FFFBF8 016FFF761 lbra Monitor*** warning 1: Long branch within short branch range could be optimized;------------------------------------------------------------------------------;------------------------------------------------------------------------------swi3_rout:00FFFBFB 01A010 sei00FFFBFD 0A6E04 lda ,s00FFFBFF 0B700090F sta mon_CCRSAVE00FFFC02 0EC601 ldd 1,s00FFFC04 0FD000900 std mon_DSAVE00FFFC07 0E6603 ldb 3,s00FFFC09 0F700090E stb mon_DPRSAVE00FFFC0C 0EC604 ldd 4,s00FFFC0E 0FD000902 std mon_XSAVE00FFFC11 0EC606 ldd 6,s00FFFC13 0FD000904 std mon_YSAVE00FFFC16 0EC608 ldd 8,s00FFFC18 0FD000906 std mon_USAVE00FFFC1B 1FF000908 sts mon_SSAVE00FFFC1E 0EC60B ldd 11,s00FFFC20 0FD00090A std mon_PCSAVE00FFFC23 1FF000908 sts mon_SSAVE00FFFC26 1CE003FFF lds #$3FFF00FFFC29 0CCFFFC33 ldd #swi3_exit00FFFC2C 034006 pshs d00FFFC2E 01C0EF cli00FFFC30 07EFFF899 jmp DumpRegsswi3_exit:00FFFC33 1FE000908 lds mon_SSAVE00FFFC36 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------firq_rout:00FFFC37 03B rtiirq_rout:00FFFC38 04F clra00FFFC39 01F08B tfr a,dprsetdp $000; lbsr SerialIRQ ; check for recieved character00FFFC3B 017FFE855 lbsr TimerIRQ*** warning 1: Long branch within short branch range could be optimized00FFFC3E 0B6FFC014 lda IrqBase ; get the IRQ flag byte00FFFC41 044 lsra00FFFC42 0BAFFC014 ora IrqBase00FFFC45 084FE0 anda #$FE000FFFC47 0B7FFC014 sta IrqBase; inc TEXTSCR+54 ; update IRQ live indicator on screen; inc TEXTSCR+$2000+54; flash the cursor; only bother to flash the cursor for the task with the IO focus.00FFFC4A 0150B6FFFFFFFE0 lda COREID00FFFC4F 0B1FFC010 cmpa IOFocusID00FFFC52 02600D bne tr1a00FFFC54 096114 lda CursorFlash ; test if we want a flashing cursor00FFFC56 027009 beq tr1a00FFFC58 017FFE69A lbsr CalcScreenLoc ; compute cursor location in memory*** warning 1: Long branch within short branch range could be optimized00FFFC5B 01F002 tfr d,y00FFFC5D 06CA09002000 inc $2000,y ; get color code $2000 higher in memorytr1a:00FFFC61 03B rti;------------------------------------------------------------------------------;------------------------------------------------------------------------------nmi_rout:00FFFC62 0150F6FFFFFFFE0 ldb COREID00FFFC67 086049 lda #'I'00FFFC69 08EE00028 ldx #TEXTSCR+4000FFFC6C 0A7A0D sta b,xrti_insn:00FFFC6E 03B rti; Special Register Areaorg $FFFFE0; Interrupt vector tableorg $FFFFF000FFFFF0 FFFC6E fcw rti_insn ; reserved00FFFFF2 FFFBFB fcw swi3_rout ; SWI300FFFFF4 FFFC6E fcw rti_insn ; SWI200FFFFF6 FFFC37 fcw firq_rout ; FIRQ00FFFFF8 FFFC38 fcw irq_rout ; IRQ00FFFFFA FFFA49 fcw swi_rout ; SWI00FFFFFC FFFC62 fcw nmi_rout ; NMI00FFFFFE FFE023 fcw start ; RST112 warning(s) in pass 2.SYMBOL TABLEABD1 02 00FFF5DB ABD2 02 00FFF5E2 ACIA 00 FFE30100 ACIA_CMD 00 00000002ACIA_CTRL 00 00000003 ACIA_CTRL2 00 0000000B ACIA_IRQS 00 00000004 ACIA_RX 00 00000000ACIA_STAT 00 00000001 ACIA_TX 00 00000000 ACK 00 00000006 ARM1 02 00FFFB3FARM2 02 00FFFB2A ARMALLBREAKPOINTS 02 00FFFB21 ARMBREAKPOINT 02 00FFFB41 ASCIITOBINDIGIT 02 00FFF5D5ASCIITODECDIGIT 02 00FFF5C7 ASCIITOHEXNYBBLE 02 00FFF59F ASMBUF 00 00000160 BIOS_SCREENS 00 17000000BLANKLINE 02 00FFE283 BLKCPYDST 00 00000020 BLKCPYSRC 00 0000001C BLNKLN1 02 00FFE296BOOTPG 02 00FFFA18 BOOT_STACK 02 00FFFA19 BREAKPOINTBYTES 00 00000830 BREAKPOINTFLAG 00 00000810BREAKPOINTS 00 00000820 BS 00 00000008 CALCSCREENLOC 02 00FFE2F5 CAN 00 00000018CHARCOLOR 00 00000112 CHARINVEC 00 00000804 CHAROUTVEC 00 00000800 CHECKPOINT 02 00FFE140CLEARSCREEN 02 00FFE23C CLEARSCREENJMP 02 00FFD300 CMDPROMPT 02 00FFF32C CMDPROMPTJI 00 00000808CMDTABLE1 02 00FFF29A CMDTABLE2 02 00FFF2EC COLORCODELOCATION 00 00000014 COLS 00 00000040COPYSCREENTOVIRTUALSCREEN 02 00FFE20C COPYVIRTUALSCREENTOSCREEN 02 00FFE1D5 COREID 00 FFFFFFE0 CR 00 0000000DCRLF 02 00FFD0D2 CRLF1 02 00FFD0D2 CRLFST 02 00FFE425 CS1 02 00FFE249CS2 02 00FFE260 CS2V1 02 00FFE218 CS3 02 00FFE266 CSL1 02 00FFE314CTRLC 00 00000003 CTRLH 00 00000008 CTRLI 00 00000009 CTRLJ 00 0000000ACTRLK 00 0000000B CTRLM 00 0000000D CTRLS 00 00000013 CTRLT 00 00000014CTRLX 00 00000018 CTRLZ 00 0000001A CURSORCOL 00 00000111 CURSORFLASH 00 00000114CURSORROW 00 00000110 CV2S1 02 00FFE1EA DBGCHECKFORKEY 02 00FFEA90 DBGK1 02 00FFEACBDBGK10 02 00FFEB30 DBGK11 02 00FFEB89 DBGK12 02 00FFEB8F DBGK13 02 00FFEB9BDBGK14 02 00FFEBAB DBGK15 02 00FFEBBA DBGK16 02 00FFEBC5 DBGK17 02 00FFEBCEDBGK18 02 00FFEBD1 DBGK2 02 00FFEA96 DBGK20 02 00FFEAB8 DBGK22 02 00FFEAD4DBGK23 02 00FFEAE5 DBGK24 02 00FFEAC6 DBGK3 02 00FFEAE8 DBGK4 02 00FFEAF4DBGK5 02 00FFEB00 DBGK7 02 00FFEB10 DBGK8 02 00FFEB16 DBGK9 02 00FFEB2ADBGKNOTALT 02 00FFEB93 DBGKNOTCAPSLOCK 02 00FFEB62 DBGKNOTCTRL 02 00FFEB1A DBGKNOTNUMLOCK 02 00FFEB4BDBGKNOTRSHIFT 02 00FFEB34 DBGKNOTSCROLLLOCK 02 00FFEB79 DCCR 02 00FFE32C DCLF 02 00FFE3B6DCX10 02 00FFE366 DCX11 02 00FFE376 DCX12 02 00FFE372 DCX13 02 00FFE382DCX14 02 00FFE329 DCX3 02 00FFE3A4 DCX4 02 00FFE3B8 DCX5 02 00FFE393DCX6 02 00FFE33D DCX7 02 00FFE339 DCX8 02 00FFE34A DCX9 02 00FFE357DEL 00 0000007F DELAY3S 02 00FFE1B8 DFL1 02 00FFFA0B DFL2 02 00FFF9F8DISARM1 02 00FFFB1F DISARM2 02 00FFFB0B DISARM3 02 00FFFBC8 DISARM4 02 00FFFBCDDISARM6 02 00FFFB87 DISARM7 02 00FFFBA9 DISARM8 02 00FFFBBC DISARMALLBREAKPOINTS 02 00FFFB02DISARMBREAKPOINT 02 00FFFB77 DISPBYTEASHEX 02 00FFE43A DISPDWORDASHEX 02 00FFE428 DISPLAYCHAR 02 00FFE31CDISPLAYERR 02 00FFF5E5 DISPLAYSTRING 02 00FFE3DD DISPLAYSTRINGCRLF 02 00FFE3FD DISPLAYSTRINGDX 02 00FFF5EEDISPNYB 02 00FFE452 DISPNYB1 02 00FFE461 DISPWORDASHEX 02 00FFE431 DLY3S1 02 00FFE1BBDLY3S2 02 00FFE1BF DMPM1 02 00FFF7ED DMPM2 02 00FFF7D8 DMPM3 02 00FFF826DMPM4 02 00FFF818 DMPM5 02 00FFF810 DRAM_BASE 00 10000000 DSPJ1B 02 00FFE3EFDSPJ2 02 00FFE3EA DSRETB 02 00FFE3F8 DUMPIOFOCUSLIST 02 00FFF9F5 DUMPMEMORY 02 00FFF7D0DUMPREGS 02 00FFF899 DUMRTS 02 00FFE022 EDITMEM1 02 00FFF84D EDITMEM2 02 00FFF838EDITMEM3 02 00FFF86C EDITMEM4 02 00FFF857 EDITMEM6 02 00FFF863 EDITMEMORY 02 00FFF82CENDOFWORD 02 00FFF41C EOT 00 00000004 ETB 00 00000017 FARFLAG 00 0000015FFILLM1 02 00FFF87F FILLM2 02 00FFF88F FILLM3 02 00FFF896 FILLMEMORY 02 00FFF86FFIRQ_ROUT 02 00FFFC37 FIRST_CORE 00 00000001 FREEMBX 02 00000002 FREEMSG 02 00000006FREETCB 00 0000078A GETBINNUMBER 02 00FFF52B GETDECNUMBER 02 00FFF552 GETHEXNUMBER 02 00FFF4FBGETKEY 02 00FFEA92 GETNUMBER 02 00FFF591 GETRANGE 02 00FFF4D2 GETSCREENLOCATION 02 00FFE29DGETTWOPARAMS 02 00FFF4B1 GRNG1 02 00FFF4ED GSL1 02 00FFE2AF GTBIN1 02 00FFF54EGTBIN2 02 00FFF538 GTDC3 02 00FFF5D2 GTDEC1 02 00FFF58D GTDEC2 02 00FFF55FGTHX3 02 00FFF5C4 GTHX5 02 00FFF5AA GTHX6 02 00FFF5B7 GTHXN1 02 00FFF527GTHXN2 02 00FFF508 HC1 02 00FFE2CD HELPMSG 02 00FFF5FE HEX2 02 00FFD2CEHEX4 02 00FFD2D2 HOMECURSOR 02 00FFE2B3 HOMECURSORJMP 02 00FFD308 I2CW1 02 00FFE4EFI2CWR1 02 00FFE51C I2C_CMD 00 00000004 I2C_CTRL 00 00000002 I2C_INIT 02 00FFE4E3I2C_PREH 00 00000001 I2C_PREL 00 00000000 I2C_RXR 00 00000003 I2C_STAT 00 00000004I2C_TXR 00 00000003 I2C_WAIT_RX_NACK 02 00FFE51A I2C_WAIT_TIP 02 00FFE4ED I2C_WR_CMD 02 00FFE4F7I2C_XMIT1 02 00FFE500 ICC1 02 00FFE3D9 ICC2 02 00FFE3DB ICR1 02 00FFE3CBIGNBLANKS 02 00FFF47A IGNBLANKS1 02 00FFF47A INCCURSORPOS 02 00FFE3BA INCCURSORROW 02 00FFE3C9INCH 02 00FFF191 INCH1 02 00FFF1A6 INCH2 02 00FFF193 INCHE 02 00FFF1AFINCHEK 02 00FFF1B3 INCHEK1 02 00FFF1C8 INCHEK2 02 00FFF1C5 INCHEK3 02 00FFF1BCINIT 02 00FFE0A8 INIT1 02 00FFE0B0 INIT2 02 00FFE0FB INITSERIAL 02 00FFEBEFIOFOCUSID 00 00FFC010 IOFOCUSLIST 00 00FFC000 IOFOCUSNDX 00 00000100 IRQBASE 00 00FFC014IRQFLAG 00 00FFC012 IRQSOURCE 00 00FFC011 IRQ_ROUT 02 00FFFC38 JMPVEC 00 00000928JTC_EXIT 02 00FFF9BA JUMP_TO_CODE 02 00FFF980 KBDBUFFULL 02 00FFEA8D KBDFIFO 00 00000040KBDFIFOALIAS 00 00C00040 KBDHEADRCV 00 00000127 KBDI0002 02 00FFE9C9 KBDI0004 02 00FFEA0EKBDITRYAGAIN 02 00FFEA02 KBDRCVCOUNT 02 00FFEA3D KBDTAILRCV 00 00000128 KBGS1 02 00FFE978KBGS2 02 00FFE970 KBGS3 02 00FFE961 KEYBD 00 FFE30400 KEYBDACK 00 FFFFCC00KEYBDBAD 00 FFFFCB00 KEYBDBLOCK 00 00000126 KEYBDBUFFER 00 FFFFC000 KEYBDCHECKFORKEYDIRECT 02 00FFF18FKEYBDCLOSE 02 00FFEBEB KEYBDCLR 00 FFE30402 KEYBDCONTROLCODES 02 00FFE800 KEYBDECHO 00 FFFFCA00KEYBDEXTENDEDCODES 02 00FFE880 KEYBDGETID 02 00FFE99C KEYBDGETSCANCODE 02 00FFE97D KEYBDGETSTATUS 02 00FFE961KEYBDHEAD 00 FFFFC800 KEYBDID 00 00000124 KEYBDINIT 02 00FFE9C0 KEYBDIRQ 02 00FFEA4FKEYBDLOCKS 00 FFFFCD00 KEYBDOPEN 02 00FFEBEA KEYBDREAD 02 00FFEBEC KEYBDRECVBYTE 02 00FFE900KEYBDSEEK 02 00FFEBEE KEYBDSENDBYTE 02 00FFE919 KEYBDSETLED 02 00FFE989 KEYBDTAIL 00 FFFFC900KEYBDWAITTX 02 00FFE91F KEYBDWRITE 02 00FFEBED KEYLED 00 00000122 KEYSTATE1 00 00000120KEYSTATE2 00 00000121 KGID1 02 00FFE9B9 KGNOTKBD 02 00FFE9BC KRB3 02 00FFE905KRB4 02 00FFE915 KRCXIT 02 00FFEA4E KWT1 02 00FFE924 KWT2 02 00FFE935LBRK1 02 00FFFBDB LBRK2 02 00FFFBF6 LEDS 00 FFE60001 LEDXIT 02 00FFEA22LETTER 02 00FFD2C1 LF 00 0000000A LISTBREAKPOINTS 02 00FFFBD2 MAX_TASKNO 00 0000003FMF_CRLF 00 00000003 MF_DISPLAYBYTEASHEX 00 00000005 MF_DISPLAYSTRING 00 00000004 MF_DISPLAYWORDASHEX 00 00000006MF_GETNUMBER 00 0000000C MF_GETRANGE 00 0000000B MF_INCH 00 00000001 MF_MONITOR 00 00000000MF_OSCALL 00 0000000A MF_OUTCH 00 00000002 MF_RANDOM 00 00000009 MF_SERIALPUTCHAR 00 0000000DMF_SHOWSPRITES 00 00000007 MF_SRAND 00 00000008 MILLISECONDS 00 00FFC014 MON1 02 00FFF3BAMONARMBREAKPOINT 02 00FFF469 MONDISARMBREAKPOINT 02 00FFF474 MONERRVEC 00 0000080C MONGETCH 02 00FFF45DMONGETNONSPACE 02 00FFF462 MONITOR 02 00FFF35C MON_CCRSAVE 00 0000090F MON_DPRSAVE 00 0000090EMON_DSAVE 00 00000900 MON_INIT 00 0000092C MON_NUMWKA 00 00000910 MON_PCSAVE 00 0000090AMON_R1 00 00000920 MON_R2 00 00000924 MON_RAND 02 00FFF285 MON_RETFLAG 00 00000930MON_RETTAB 02 00FFFA3B MON_ROM_VECS 02 00FFFA1F MON_ROM_VECTAB 02 00FFFA1D MON_SRAND 02 00FFF257MON_SRAND1 02 00FFF25A MON_SSAVE 00 00000908 MON_USAVE 00 00000906 MON_VECTB 00 00000880MON_XSAVE 00 00000902 MON_YSAVE 00 00000904 MSCOUNT 00 FFFFFFE4 MSGBADKEYBD 02 00FFEA2EMSGCHECKSUMERR 02 00FFEF19 MSGERR 02 00FFF5F6 MSGF09STARTING 02 00FFF337 MSGREGHEADINGS 02 00FFF78DMSGS19LOADER 02 00FFEF05 MSGSERIALTEST 02 00FFED54 MSGSTARTUP 02 00FFE11F MSGXMNOTRANSMITTER 02 00FFF0B2MSGXMTIMEOUT 02 00FFF09E MULTI_SIEVE 02 00FFE156 MULTI_SIEVE1 02 00FFE179 MULTI_SIEVE2 02 00FFE175MULTI_SIEVE3 02 00FFE163 MULTI_SIEVE4 02 00FFE18C NAK 00 00000015 NHEX4 02 00FFF7C7NMAILBOX 02 00000004 NMESERIAL 02 00FFED1D NMIBASE 00 00FFC013 NMI_ROUT 02 00FFFC62NMSGBLK 02 00000008 NOTKBDIRQ 02 00FFEA8C NOTRXINT 02 00FFED1B NOTRXINT1 02 00FFED19NOTSERINT 02 00FFED1B NOTTIMERIRQ 02 00FFE4E2 NUMBREAKPOINTS 02 00FFFA1B NUMFUNCS 00 0000000FNUMOSFUNCS 00 00000019 NUMSETBREAKPOINTS 00 00000811 NXBLANK 02 00FFF7CB ONEKEY 02 00FFD1DCOPC_SWI 00 0000003F OSC1 02 00FFFAFB OSCALLTBL 02 00FFF1DE OSCX 02 00FFFAFDOSSEMA 00 00EF0010 OUTCH 02 00FFF1C9 OUTSEMA 00 00EF0000 PARSECMD1 02 00FFF407PCRLF 02 00FFE411 PDATA 02 00FFE41E PIC 00 FFE3F000 PICPTR 00 00000028PRINT 02 00FFE41B PRNG 00 FFE30600 PROCESSBREAKPOINT 02 00FFFAAE PROMPT1 02 00FFF3EAPROMPT2A 02 00FFF43B PROMPT3 02 00FFF3D8 PROMPTCLEARSCREEN 02 00FFF455 PROMPTHELP 02 00FFF44DPROMPTLN 02 00FFF3D4 PSTRNG 02 00FFE40D QNDX0 00 00000780 QNDX1 00 00000782QNDX2 00 00000784 QNDX3 00 00000786 QNDX4 00 00000788 RAMERR 02 00FFD42CRAMERR1 02 00FFD445 RAMTEST 02 00FFD400 RAMTEST1 02 00FFD40D RAMTEST3 02 00FFD417REDIRECT 02 00FFF427 RELEASEIOFOCUS 02 00FFF227 REQUESTIOFOCUS 02 00FFF210 RIOF1 02 00FFF24ERIOF2 02 00FFF23D ROMTORAM 02 00FFE146 ROMTORAM1 02 00FFE14C ROWS 00 00000020RTC 00 FFE30500 RTCBUF 00 00007FC0 RTCR0001 02 00FFE54A RTCW0001 02 00FFE595RTC_READ 02 00FFE524 RTC_RXERR 02 00FFE573 RTC_WRITE 02 00FFE577 RTI_INSN 02 00FFFC6ERUNNINGID 00 00FFC013 RUNNINGTCB 06 00000000 S19ABORT 00 0000094A S19ADDCHECK 02 00FFED99S19ADDRESS 00 00000940 S19CHECKSUM 00 0000094B S19CLEARADDRESS 02 00FFEDD4 S19GA1 02 00FFEDF6S19GA2 02 00FFEE18 S19GB1 02 00FFEDAF S19GB2 02 00FFEDD0 S19GETADDRESS2 02 00FFEDE1S19GETADDRESS3 02 00FFEDF7 S19GETBYTE 02 00FFEDA3 S19IC1 02 00FFED79 S19IC2 02 00FFED78S19INPUTCHAR 02 00FFED67 S19L2 02 00FFEF02 S19L3 02 00FFEEAC S19L4 02 00FFEEA1S19LNR 02 00FFEEF5 S19LOADER 02 00FFEE8F S19NEXTRECORD 02 00FFED7F S19NR1 02 00FFED98S19NR2 02 00FFED8C S19NR3 02 00FFED93 S19P11 02 00FFEE5A S19P21 02 00FFEE6DS19PM1 02 00FFEE43 S19PM2 02 00FFEE37 S19PM3 02 00FFEE1A S19PROCESSS1 02 00FFEE49S19PROCESSS2 02 00FFEE5C S19PROCESSS8 02 00FFEE7F S19PROCESSS9 02 00FFEE6F S19PUTMEM 02 00FFEE19S19RECLEN 00 00000949 S19RECTYPE 00 00000948 S19SOURCE 00 0000094E S19STARTADDRESS 00 00000944S19SUMMARYCHECKSUM 00 0000094C S19XFERADDRESS 00 00000950 SCANNEXTWORD 02 00FFF411 SCREENCOLOR 00 00000113SCREENDISPLAYCHAR 02 00FFE31F SCREENLOCATION 00 00000010 SCREENLOCATION2 00 00000018 SCROLLUP 02 00FFE268SCRUP1 02 00FFE275 SC_ALT 00 00000011 SC_C 00 00000021 SC_CAPSLOCK 00 00000058SC_CTRL 00 00000014 SC_DEL 00 00000071 SC_EXTEND 00 000000E0 SC_F12 00 00000007SC_KEYUP 00 000000F0 SC_NUMLOCK 00 00000077 SC_RSHIFT 00 00000059 SC_SCROLLLOCK 00 0000007ESC_T 00 0000002C SC_TAB 00 0000000D SC_Z 00 0000001A SEMAABS 00 00001000SERHEADRCV 00 00FFC015 SERHEADXMIT 00 00FFC017 SERHZERO 00 00000130 SERIALGETCHAR 02 00FFEC23SERIALINIT 02 00FFEBEF SERIALIRQ 02 00FFECCC SERIALOUTPUTTEST 02 00FFED34 SERIALPEEKCHAR 02 00FFEC55SERIALPEEKCHARDIRECT 02 00FFEC73 SERIALPUTCHAR 02 00FFEC9A SERIALPUTSTRING 02 00FFED24 SERIALRCVCOUNT 02 00FFECBDSERRCVBUF 00 00FFB000 SERRCVXOFF 00 00FFC01A SERRCVXON 00 00FFC019 SERTAILRCV 00 00FFC016SERTAILXMIT 00 00FFC018 SERTZERO 00 00000132 SETKEYBOARDECHO 02 00FFF1CD SETREGA 02 00FFF8E4SETREGB 02 00FFF8F3 SETREGCCR 02 00FFF95C SETREGD 02 00FFF902 SETREGDPR 02 00FFF94DSETREGPC 02 00FFF96B SETREGS 02 00FFF93E SETREGU 02 00FFF92F SETREGX 02 00FFF911SETREGY 02 00FFF920 SGC2 02 00FFEC3D SGCNOCHARS 02 00FFEC50 SGCXIT 02 00FFEC53SHIFTEDSCANCODES 02 00FFE700 SHIFTLEFT5 02 00FFE1CA SHL_NUMWKA 02 00FFF4EE SHOWSPRITES 02 00FFF1D3SIEVE 02 00FFE190 SIEVE1 02 00FFE1A8 SIEVE2 02 00FFE1A4 SIEVE3 02 00FFE195SIEVE4 02 00FFE1B7 SINI1 02 00FFEC08 SIRQNXTBYTE 02 00FFECD9 SIRQRXFULL 02 00FFED1BSKIPDOLLAR 02 00FFF3F9 SKIP_INIT 02 00FFE10D SOH 00 00000001 SOTST1 02 00FFED3ESPC0001 02 00FFECA0 SPCD0001 02 00FFEC95 SPCNOCHARS 02 00FFEC6E SPCXIT 02 00FFEC71SPRITE_CTRL 00 FFE10000 SPRITE_EN 00 000003C0 SPS2 02 00FFED28 SPSXIT 02 00FFED32SRCXIT 02 00FFECCB ST1 02 00FFE0B8 ST10 02 00FFE11B ST11 02 00FFE060ST3 02 00FFE09F ST6 02 00FFE03C ST7 02 00FFE046 ST8 02 00FFE046ST9 02 00FFE069 START 02 00FFE023 STRPTR 00 00000024 SWI3_EXIT 02 00FFFC33SWI3_ROUT 02 00FFFBFB SWICALLOS 02 00FFFAE8 SWINOTBKPT 02 00FFFA66 SWI_ROUT 02 00FFFA49SWI_ROUT1 02 00FFFA4E SWI_ROUT2 02 00FFFA5F SWI_ROUT3 02 00FFFA9C SWI_ROUT4 02 00FFFAADTAB 00 00000009 TCB_CURSORCOL 00 00000021 TCB_CURSORROW 00 00000020 TCB_HJCB 00 0000001CTCB_HWAITMBX 00 00000022 TCB_IOF_NEXT 00 0000002C TCB_IOF_PREV 00 00000030 TCB_MBQ_NEXT 00 00000024TCB_MBQ_PREV 00 00000028 TCB_MMU_MAP 00 00000038 TCB_MSGPTR_D1 00 00000014 TCB_MSGPTR_D2 00 00000018TCB_NXTRDY 00 00000000 TCB_NXTTCB 00 00000008 TCB_PRIORITY 00 00000010 TCB_PRVRDY 00 00000004TCB_SPSAVE 00 00000034 TCB_STATUS 00 0000001E TCB_TIMEOUT 00 0000000C TEXTCLOSE 02 00FFE238TEXTOPEN 02 00FFE237 TEXTREAD 02 00FFE239 TEXTREG 00 FFE07F00 TEXTSCR 00 FFE00000TEXTSEEK 02 00FFE23B TEXTWRITE 02 00FFE23A TEXT_COLS 00 00000000 TEXT_CURPOS 00 00000022TEXT_ROWS 00 00000001 TIMEOUTLIST 00 0000078C TIMERINIT 02 00FFE468 TIMERIRQ 02 00FFE493TIMES10 02 00FFF483 TR1A 02 00FFFC61 UCP1 02 00FFE2F3 UNSHIFTEDSCANCODES 02 00FFE600UPDATECURSORPOS 02 00FFE2CF VIA 00 FFE60000 VIA_ACR 00 0000000B VIA_DDRA 00 00000003VIA_IER 00 0000000E VIA_IFR 00 0000000D VIA_PA 00 00000001 VIA_T3CMPH 00 00000015VIA_T3CMPL 00 00000014 VIA_T3LH 00 00000013 VIA_T3LL 00 00000012 W10_0001 02 00FFE940W300_0001 02 00FFE954 WAIT10MS 02 00FFE939 WAIT300MS 02 00FFE94D XBLANK 02 00FFD0AFXITMONITOR 02 00FFFAE6 XM_CALC_CHECKSUM 02 00FFF0D7 XM_CALC_CRC 02 00FFF0E9 XM_CHECKSUM 00 000009F7XM_CRC 00 000009FE XM_CRC1 02 00FFF0F4 XM_CRC2 02 00FFF150 XM_CRC3 02 00FFF158XM_CRC4 02 00FFF13B XM_CS1 02 00FFF0DB XM_EOT 02 00FFF07E XM_FLAG 00 000009F6XM_GB1 02 00FFEFA9 XM_GB2 02 00FFEFB7 XM_GETBYTE 02 00FFEFA9 XM_IBUF 00 00000A00XM_NOTRANSMITTER 02 00FFF096 XM_OBUF 00 00000A80 XM_OUTBYTEASHEX 02 00FFF170 XM_PACKETNUM 00 000009FAXM_PROTOCOL 00 000009F5 XM_RCV1 02 00FFEFDF XM_RCV2 02 00FFF015 XM_RCV3 02 00FFF05AXM_RCV4 02 00FFEFDC XM_RCV5 02 00FFEFD7 XM_RCV_CHKSUM 02 00FFF052 XM_RCV_NAK 02 00FFEFF4XM_RCV_TO1 02 00FFF076 XM_RCV_TO2 02 00FFF074 XM_RECEIVE 02 00FFEFD5 XM_RECEIVESTART 02 00FFEFBAXM_RETRY1 02 00FFF085 XM_SEND 02 00FFEF39 XM_SEND1 02 00FFEF58 XM_SEND2 02 00FFEF86XM_SEND3 02 00FFEF8D XM_SEND4 02 00FFEF49 XM_SEND5 02 00FFEF46 XM_SENDSTART 02 00FFEF2CXM_SOH 02 00FFEFFA XM_TIMER 00 00FFC020 XM_TMP 00 000009FC XM_TMP2 00 000009F8XOFF 00 00000013 XON 00 00000011658 SYMBOLS3 error(s), 1006 warning(s)