URL
https://opencores.org/ocsvn/raptor64/raptor64/trunk
Subversion Repositories raptor64
[/] [raptor64/] [trunk/] [software/] [sample code/] [bootrom.lst] - Rev 46
Compare with Previous | Blame | View Log
; ============================================================================; __; \\__/ o\ (C) 2012-2013 Robert Finch, Stratford; \ __ / All rights reserved.; \/_// robfinch<remove>@opencores.org; ||;;; 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/>.;; ============================================================================;CR EQU 0x0D ;ASCII equatesLF EQU 0x0ATAB EQU 0x09CTRLC EQU 0x03CTRLH EQU 0x08CTRLI EQU 0x09CTRLJ EQU 0x0ACTRLK EQU 0x0BCTRLM EQU 0x0DCTRLS EQU 0x13CTRLX EQU 0x18XON EQU 0x11XOFF EQU 0x13EX_IRQ EQU 449DATA_PRESENT EQU 0x01 ; there is data preset at the serial port bc_uart3XMIT_NOT_FULL EQU 0x20BUFLEN EQU 80 ; length of keyboard input buffer; Initial stack tops for contexts; Each context gets 1k from the special 16k startup stack memory;STACKTOP0 EQU 0xFFFF_FFFF_FFFE_FFF8STACKTOP1 EQU 0xFFFF_FFFF_FFFE_FBF8STACKTOP2 EQU 0xFFFF_FFFF_FFFE_F7F8STACKTOP3 EQU 0xFFFF_FFFF_FFFE_F3F8STACKTOP4 EQU 0xFFFF_FFFF_FFFE_EFF8STACKTOP5 EQU 0xFFFF_FFFF_FFFE_EBF8STACKTOP6 EQU 0xFFFF_FFFF_FFFE_E7F8STACKTOP7 EQU 0xFFFF_FFFF_FFFE_E3F8STACKTOP8 EQU 0xFFFF_FFFF_FFFE_DFF8STACKTOP9 EQU 0xFFFF_FFFF_FFFE_DBF8STACKTOP10 EQU 0xFFFF_FFFF_FFFE_D7F8STACKTOP11 EQU 0xFFFF_FFFF_FFFE_D3F8STACKTOP12 EQU 0xFFFF_FFFF_FFFE_CFF8STACKTOP13 EQU 0xFFFF_FFFF_FFFE_CBF8STACKTOP14 EQU 0xFFFF_FFFF_FFFE_C7F8STACKTOP15 EQU 0xFFFF_FFFF_FFFE_C3F8; BOOT ROM routinesTCBSize EQU 0x200 ; 512 bytes per TCBTCBBase EQU 0x00000001_00000000 ; TCB pagesTCBr1 EQU 0x00TCBr2 EQU 0x08TCBr3 EQU 0x10TCBr4 EQU 0x18TCBr5 EQU 0x20TCBr6 EQU 0x28TCBr7 EQU 0x30TCBr8 EQU 0x38TCBr9 EQU 0x40TCBr10 EQU 0x48TCBr11 EQU 0x50TCBr12 EQU 0x58TCBr13 EQU 0x60TCBr14 EQU 0x68TCBr15 EQU 0x70TCBr16 EQU 0x78TCBr17 EQU 0x80TCBr18 EQU 0x88TCBr19 EQU 0x90TCBr20 EQU 0x98TCBr21 EQU 0xA0TCBr22 EQU 0xA8TCBr23 EQU 0xB0TCBr24 EQU 0xB8TCBr25 EQU 0xC0TCBr26 EQU 0xC8TCBr27 EQU 0xD0TCBr28 EQU 0xD8TCBr29 EQU 0xE0TCBr30 EQU 0xE8TCBr31 EQU 0xF0SCREENGATE EQU 0x00KEYBDGATE EQU 0x01VIDEOGATE EQU 0x02CARDGATE EQU 0x03warmStart EQU 0x1020usrJmp EQU 0x1028TickIRQAddr EQU 0x1030TaskBlock EQU 0x1038Milliseconds EQU 0x1400Lastloc EQU 0x1408CharColor EQU 0x1410ScreenColor EQU 0x1414CursorRow EQU 0x1417CursorCol EQU 0x1418CursorFlash EQU 0x141AKeybdEcho EQU 0x141CKeybdBuffer EQU 0x1440KeybdHead EQU 0x1450KeybdTail EQU 0x1451sp_save EQU 0x1460lr_save EQU 0x1468r1_save EQU 0x1470r2_save EQU 0x1478r26_save EQU 0x1480Score EQU 0x1500Manpos EQU 0x1508MissileActive EQU 0x1510MissileX EQU 0x1512MissileY EQU 0x1514InvadersRow1 EQU 0x1520InvadersRow2 EQU 0x1530InvadersRow3 EQU 0x1540InvadersRow4 EQU 0x1550InvadersRow5 EQU 0x1560InvadersColpos EQU 0x1570InvadersRowpos EQU 0x1571Uart_rxfifo EQU 0x1600Uart_rxhead EQU 0x1800Uart_rxtail EQU 0x1802Uart_ms EQU 0x1808Uart_rxrts EQU 0x1809Uart_rxdtr EQU 0x180AUart_rxxon EQU 0x180BUart_rxflow EQU 0x180CUart_fon EQU 0x180EUart_foff EQU 0x1810Uart_txrts EQU 0x1812Uart_txdtr EQU 0x1813Uart_txxon EQU 0x1814Uart_txxonoff EQU 0x1815TaskList EQU 0x2000ReadyList1 EQU 0x2000ReadyList2 EQU 0x2020ReadyList3 EQU 0x2040ReadyList4 EQU 0x2060ReadyList5 EQU 0x2080ReadyNdx1 EQU 0x20A0ReadyNdx2 EQU 0x20A1ReadyNdx3 EQU 0x20A2ReadyNdx4 EQU 0x20A3ReadyNdx5 EQU 0x20A4RunningTCB EQU 0x20A6NextToRunTCB EQU 0x20A8r1save EQU 0x20B0r2save EQU 0x20B8AXCstart EQU 0x20C0; Context startup address table;ctx0start EQU 0x20D0ctx1start EQU 0x20D8ctx2start EQU 0x20E0ctx3start EQU 0x20E8ctx4start EQU 0x20F0ctx5start EQU 0x20F8ctx6start EQU 0x2100ctx7start EQU 0x2108ctx8start EQU 0x2110ctx9start EQU 0x2118ctx10start EQU 0x2120ctx11start EQU 0x2128ctx12start EQU 0x2130ctx13start EQU 0x2138ctx14start EQU 0x2140ctx15start EQU 0x2148sp_saves EQU 0x2200sp_saves_end EQU 0x2280p100IRQvec EQU 0x3000keybdIRQvec EQU 0x3008serialIRQvec EQU 0x3010rasterIRQvec EQU 0x3018startSector EQU 0x30F8BPB EQU 0x3100TEXTSCR EQU 0xD0_0000COLORSCR EQU 0xD1_0000TEXTREG EQU 0xDA_0000TEXT_COLS EQU 0x0TEXT_ROWS EQU 0x2TEXT_CURPOS EQU 0x16KEYBD EQU 0xDC_0000KEYBDCLR EQU 0xDC_0002UART EQU 0xDC_0A00UART_LS EQU 0xDC_0A01UART_MS EQU 0xDC_0A02UART_IS EQU 0xDC_0A03UART_IE EQU 0xDC_0A04UART_MC EQU 0xDC_0A06DATETIME EQU 0xDC_0400SPIMASTER EQU 0xDC_0500SPI_MASTER_VERSION_REG EQU 0x00SPI_MASTER_CONTROL_REG EQU 0x01SPI_TRANS_TYPE_REG EQU 0x02SPI_TRANS_CTRL_REG EQU 0x03SPI_TRANS_STATUS_REG EQU 0x04SPI_TRANS_ERROR_REG EQU 0x05SPI_DIRECT_ACCESS_DATA_REG EQU 0x06SPI_SD_ADDR_7_0_REG EQU 0x07SPI_SD_ADDR_15_8_REG EQU 0x08SPI_SD_ADDR_23_16_REG EQU 0x09SPI_SD_ADDR_31_24_REG EQU 0x0aSPI_RX_FIFO_DATA_REG EQU 0x10SPI_RX_FIFO_DATA_COUNT_MSB EQU 0x12SPI_RX_FIFO_DATA_COUNT_LSB EQU 0x13SPI_RX_FIFO_CTRL_REG EQU 0x14SPI_TX_FIFO_DATA_REG EQU 0x20SPI_TX_FIFO_CTRL_REG EQU 0x24SPI_INIT_SD EQU 0x01SPI_TRANS_START EQU 0x01SPI_TRANS_BUSY EQU 0x01SPI_INIT_NO_ERROR EQU 0x00SPI_READ_NO_ERROR EQU 0x00RW_READ_SD_BLOCK EQU 0x02RW_WRITE_SD_BLOCK EQU 0x03PIC EQU 0xDC_0FF0PIC_IE EQU 0xDC_0FF2PSG EQU 0xD5_0000PSGFREQ0 EQU 0xD5_0000PSGPW0 EQU 0xD5_0002PSGCTRL0 EQU 0xD5_0004PSGADSR0 EQU 0xD5_0006SPRRAM EQU 0xD8_0000AC97 EQU 0xDC_1000TMP EQU 0xDC_0300LED EQU 0xDC_0600ETHMAC EQU 0xDC_2000CONFIGREC EQU 0xDC_FFFFMIIMODER EQU 0x28MIIADDRESS EQU 0x30GACCEL EQU 0xDA_E000RASTERIRQ EQU 0xDA_0100BOOT_STACK EQU 0xFFFF_FFFF_FFFE_FFF8SPRITEREGS EQU 0xDA_D000BITMAPSCR EQU 0x00000001_00200000BOOTJMP EQU 0x100800204txempty EQU 0x40rxfull EQU 0x01;; Internal variables follow:;0000000100600000 bss0000000000001048 org 0x10480000000000000000 pos dh 0 ; text screen position1050 0000000000000000 lineLinkTbl fill.b 47,0 ; screen line link table1058 00000000000000001060 00000000000000001068 00000000000000001070 00000000000000001078 00000000000000000000000000001088 align 80000000000001088 0000000000000001 OSSP dw 1 ; OS value of sp0000000000001090 0000000000000001 CURRNT dw 1 ; Current line pointer0000000000001098 0000000000000001 STKGOS dw 1 ; Saves stack pointer in 'GOSUB'00000000000010A0 0000000000000001 STKINP dw 1 ; Saves stack pointer during 'INPUT'00000000000010A8 0000000000000001 LOPVAR dw 1 ; 'FOR' loop save area00000000000010B0 0000000000000001 LOPINC dw 1 ; increment00000000000010B8 0000000000000001 LOPLMT dw 1 ; limit00000000000010C0 0000000000000001 LOPLN dw 1 ; line number00000000000010C8 0000000000000001 LOPPT dw 1 ; text pointer00000000000010D0 0000000000000001 TXTUNF dw 1 ; points to unfilled text area00000000000010D8 0000000000000001 VARBGN dw 1 ; points to variable area00000000000010E0 0000000000000001 IVARBGN dw 1 ; points to integer variable area00000000000010E8 0000000000000001 SVARBGN dw 1 ; points to string variable area00000000000010F0 0000000000000001 FVARBGN dw 1 ; points to float variable area00000000000010F8 0000000000000001 STKBOT dw 1 ; holds lower limit for stack growth1100 0000000000000000 NUMWKA fill.b 24,0 ; numeric work area1108 00000000000000001110 00000000000000001118 0000000000000000 BUFFER fill.b BUFLEN,0x00 ; Keyboard input buffer1120 00000000000000001128 00000000000000001130 00000000000000001138 00000000000000001140 00000000000000001148 00000000000000001150 00000000000000001158 00000000000000001160 0000000000000000000000000000116E bss0000000100600000 org 0x1_00600000TXT equ 0x1_00600000 ; Beginning of program area; org 0x070; iret; nop; nop; nop; nop; nop; nop; nop;0000000000000000 codeFFFFFFFFFFFFB000 org 0xFFFF_FFFF_FFFF_B000; jump table;FFFFFFFFFFFFB000 33FFEDA4 jmp SerialGetCharFFFFFFFFFFFFB004 33FFED5C jmp SerialPutCharFFFFFFFFFFFFB008 33FFEF05 jmp SetKeyboardEchoFFFFFFFFFFFFB00C 33FFEF1C jmp KeybdCheckForKeyFFFFFFFFFFFFB010 33FFEF07 jmp KeybdGetCharFFFFFFFFFFFFB014 33FFF07F jmp DisplayCharFFFFFFFFFFFFB018 33FFF122 jmp DisplayStringFFFFFFFFFFFFB01C 33FFF13F jmp DisplayNumFFFFFFFFFFFFB020 33FFF06F jmp CalcScreenLocFFFFFFFFFFFFB024 33FFF011 jmp ClearScreenFFFFFFFFFFFFB028 33FFF169 jmp DisplayWordFFFFFFFFFFFFB02C start:; lea MSGRAM,a1; jsr DisplayStringFFFFFFFFFFFFB02C ColdStart:FFFFFFFFFFFFB02C 0000000B icache_off ; turn on the ICacheFFFFFFFFFFFFB030 0000000D dcache_off ; turn on the DCache; Make sure semaphores are available by closing the gates.; We don't know what power up state is.FFFFFFFFFFFFB034 02000075 cmgi #KEYBDGATEFFFFFFFFFFFFB038 020000B5 cmgi #VIDEOGATE; Initialize the context startup address table with NULLFFFFFFFFFFFFB03C 0410840A xor r1,r1,r1FFFFFFFFFFFFB040 6600A0D0 sw r1,ctx0startFFFFFFFFFFFFB044 6600A0D8 sw r1,ctx1startFFFFFFFFFFFFB048 6600A0E0 sw r1,ctx2startFFFFFFFFFFFFB04C 6600A0E8 sw r1,ctx3startFFFFFFFFFFFFB050 6600A0F0 sw r1,ctx4startFFFFFFFFFFFFB054 6600A0F8 sw r1,ctx5startFFFFFFFFFFFFB058 6600A100 sw r1,ctx6startFFFFFFFFFFFFB05C 6600A108 sw r1,ctx7startFFFFFFFFFFFFB060 6600A110 sw r1,ctx8startFFFFFFFFFFFFB064 6600A118 sw r1,ctx9startFFFFFFFFFFFFB068 6600A120 sw r1,ctx10startFFFFFFFFFFFFB06C 6600A128 sw r1,ctx11startFFFFFFFFFFFFB070 6600A130 sw r1,ctx12startFFFFFFFFFFFFB074 6600A138 sw r1,ctx13startFFFFFFFFFFFFB078 6600A140 sw r1,ctx14startFFFFFFFFFFFFB07C 6600A148 sw r1,ctx15start; Initialize the context schedule with all contexts treated equally; There are only 16 contexts, but 256 schedule slots. Each context is; given 16 slots distributed evenly throughout the execution pattern; table.;FFFFFFFFFFFFB080 0410840A xor r1,r1,r1 ; r1 = 0FFFFFFFFFFFFB084 ict1:FFFFFFFFFFFFB084 0410803A mtep r1,r1 ; only the low order four bits of r1 will move to the pattern tableFFFFFFFFFFFFB088 0A108001 addui r1,r1,#1FFFFFFFFFFFFB08C 101100FF cmpi r2,r1,#255FFFFFFFFFFFFB090 BE207FA9 bne r2,r0,ict1; Point the interrupt return address register of the context to the; context startup code. The context will start up when an interrupt return; occurs.;; We cannot use a loop for this. Fortunately there's only 16 contexts.;FFFFFFFFFFFFB094 E6BFB228 ; SETLOFFFFFFFFFFFFB098 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB09C 03900869 mtspr IPC,r25FFFFFFFFFFFFB0A0 E6BEFFF8 ; SETLOFFFFFFFFFFFFB0A4 6A0D782D lea r30,STACKTOP0FFFFFFFFFFFFB0A8 0000000F ieppFFFFFFFFFFFFB0AC E6BFB228 ; SETLOFFFFFFFFFFFFB0B0 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB0B4 03900869 mtspr IPC,r25FFFFFFFFFFFFB0B8 E6BEFBF8 ; SETLOFFFFFFFFFFFFB0BC 6A0D782D lea r30,STACKTOP1FFFFFFFFFFFFB0C0 0000000F ieppFFFFFFFFFFFFB0C4 E6BFB228 ; SETLOFFFFFFFFFFFFB0C8 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB0CC 03900869 mtspr IPC,r25FFFFFFFFFFFFB0D0 E6BEF7F8 ; SETLOFFFFFFFFFFFFB0D4 6A0D782D lea r30,STACKTOP2FFFFFFFFFFFFB0D8 0000000F ieppFFFFFFFFFFFFB0DC E6BFB228 ; SETLOFFFFFFFFFFFFB0E0 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB0E4 03900869 mtspr IPC,r25FFFFFFFFFFFFB0E8 E6BEF3F8 ; SETLOFFFFFFFFFFFFB0EC 6A0D782D lea r30,STACKTOP3FFFFFFFFFFFFB0F0 0000000F ieppFFFFFFFFFFFFB0F4 E6BFB228 ; SETLOFFFFFFFFFFFFB0F8 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB0FC 03900869 mtspr IPC,r25FFFFFFFFFFFFB100 E6BEEFF8 ; SETLOFFFFFFFFFFFFB104 6A0D782D lea r30,STACKTOP4FFFFFFFFFFFFB108 0000000F ieppFFFFFFFFFFFFB10C E6BFB228 ; SETLOFFFFFFFFFFFFB110 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB114 03900869 mtspr IPC,r25FFFFFFFFFFFFB118 E6BEEBF8 ; SETLOFFFFFFFFFFFFB11C 6A0D782D lea r30,STACKTOP5FFFFFFFFFFFFB120 0000000F ieppFFFFFFFFFFFFB124 E6BFB228 ; SETLOFFFFFFFFFFFFB128 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB12C 03900869 mtspr IPC,r25FFFFFFFFFFFFB130 E6BEE7F8 ; SETLOFFFFFFFFFFFFB134 6A0D782D lea r30,STACKTOP6FFFFFFFFFFFFB138 0000000F ieppFFFFFFFFFFFFB13C E6BFB228 ; SETLOFFFFFFFFFFFFB140 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB144 03900869 mtspr IPC,r25FFFFFFFFFFFFB148 E6BEE3F8 ; SETLOFFFFFFFFFFFFB14C 6A0D782D lea r30,STACKTOP7FFFFFFFFFFFFB150 0000000F ieppFFFFFFFFFFFFB154 E6BFB228 ; SETLOFFFFFFFFFFFFB158 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB15C 03900869 mtspr IPC,r25FFFFFFFFFFFFB160 E6BEDFF8 ; SETLOFFFFFFFFFFFFB164 6A0D782D lea r30,STACKTOP8FFFFFFFFFFFFB168 0000000F ieppFFFFFFFFFFFFB16C E6BFB228 ; SETLOFFFFFFFFFFFFB170 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB174 03900869 mtspr IPC,r25FFFFFFFFFFFFB178 E6BEDBF8 ; SETLOFFFFFFFFFFFFB17C 6A0D782D lea r30,STACKTOP9FFFFFFFFFFFFB180 0000000F ieppFFFFFFFFFFFFB184 E6BFB228 ; SETLOFFFFFFFFFFFFB188 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB18C 03900869 mtspr IPC,r25FFFFFFFFFFFFB190 E6BED7F8 ; SETLOFFFFFFFFFFFFB194 6A0D782D lea r30,STACKTOP10FFFFFFFFFFFFB198 0000000F ieppFFFFFFFFFFFFB19C E6BFB228 ; SETLOFFFFFFFFFFFFB1A0 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB1A4 03900869 mtspr IPC,r25FFFFFFFFFFFFB1A8 E6BED3F8 ; SETLOFFFFFFFFFFFFB1AC 6A0D782D lea r30,STACKTOP11FFFFFFFFFFFFB1B0 0000000F ieppFFFFFFFFFFFFB1B4 E6BFB228 ; SETLOFFFFFFFFFFFFB1B8 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB1BC 03900869 mtspr IPC,r25FFFFFFFFFFFFB1C0 E6BECFF8 ; SETLOFFFFFFFFFFFFB1C4 6A0D782D lea r30,STACKTOP12FFFFFFFFFFFFB1C8 0000000F ieppFFFFFFFFFFFFB1CC E6BFB228 ; SETLOFFFFFFFFFFFFB1D0 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB1D4 03900869 mtspr IPC,r25FFFFFFFFFFFFB1D8 E6BECBF8 ; SETLOFFFFFFFFFFFFB1DC 6A0D782D lea r30,STACKTOP13FFFFFFFFFFFFB1E0 0000000F ieppFFFFFFFFFFFFB1E4 E6BFB228 ; SETLOFFFFFFFFFFFFB1E8 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB1EC 03900869 mtspr IPC,r25FFFFFFFFFFFFB1F0 E6BEC7F8 ; SETLOFFFFFFFFFFFFB1F4 6A0D782D lea r30,STACKTOP14FFFFFFFFFFFFB1F8 0000000F ieppFFFFFFFFFFFFB1FC E6BFB228 ; SETLOFFFFFFFFFFFFB200 6A0D642D lea r25,ctxstartFFFFFFFFFFFFB204 03900869 mtspr IPC,r25FFFFFFFFFFFFB208 E6BEC3F8 ; SETLOFFFFFFFFFFFFB20C 6A0D782D lea r30,STACKTOP15FFFFFFFFFFFFB210 0000000F iepp; Ensure that context zero is the active context;FFFFFFFFFFFFB214 ctxstart3:FFFFFFFFFFFFB214 02008568 mfspr r1,AXCFFFFFFFFFFFFB218 BE100068 beq r1,r0,ctxstart2FFFFFFFFFFFFB21C 0000000F ieppFFFFFFFFFFFFB220 BE007FAA bra ctxstart3FFFFFFFFFFFFB224 ctxstart2:FFFFFFFFFFFFB224 6000A0C0 sb r1,AXCstart ; save off the startup context which should be context zero; Entry point for context startup;; Avoid repeating all the system initialization when a context starts up by testing whether; or not the context is the starting context.;FFFFFFFFFFFFB228 ctxstart:FFFFFFFFFFFFB228 02008568 mfspr r1,AXCFFFFFFFFFFFFB22C 4A0120C0 lbu r2,AXCstartFFFFFFFFFFFFB230 BE110E69 bne r1,r2,ctxstart1;; set system vectors; TBA defaults to zero on reset;FFFFFFFFFFFFB234 E0C00000 setlo r3,#0FFFFFFFFFFFFB238 E08001FF setlo r2,#511FFFFFFFFFFFFB23C 9A00FB38 lea r1,nmiroutFFFFFFFFFFFFB240 csj5:FFFFFFFFFFFFB240 66308000 sw r1,[r3]FFFFFFFFFFFFB244 0A318008 addui r3,r3,#8FFFFFFFFFFFFB248 BE017FCF loop r2,csj5FFFFFFFFFFFFB24C E6BFB8A8 ; SETLOFFFFFFFFFFFFB250 6A0D042D lea r1,VideoSC ; Video BIOS vectorFFFFFFFFFFFFB254 66008CD0 sw r1,0xCD0FFFFFFFFFFFFB258 9A008000 lea r1,SCCARDSC ; SD Card BIOS vectorFFFFFFFFFFFFB25C 66008CE8 sw r1,0xCE8FFFFFFFFFFFFB260 E6BFBAA8 ; SETLOFFFFFFFFFFFFB264 6A0D042D lea r1,RTCSC ; Real time clock vectorFFFFFFFFFFFFB268 66008D00 sw r1,0xD00FFFFFFFFFFFFB26C E6BFBB14 ; SETLOFFFFFFFFFFFFB270 6A0D042D lea r1,KeybdSC ; keyboard BIOS vectorFFFFFFFFFFFFB274 66008D08 sw r1,0xD08FFFFFFFFFFFFB278 9A00FA5C lea r1,irqroutFFFFFFFFFFFFB27C 66008E08 sw r1,0xE08 ; set IRQ vectorFFFFFFFFFFFFB280 9A00FB94 lea r1,ui_iroutFFFFFFFFFFFFB284 66008F78 sw r1,0xF78 ; set unimplemented instruction vectorFFFFFFFFFFFFB288 9A00F9BC lea r1,dberr_routFFFFFFFFFFFFB28C 66008FE0 sw r1,0xFE0 ; set Bus error vectorFFFFFFFFFFFFB290 9A00F9A4 lea r1,iberr_routFFFFFFFFFFFFB294 66008FE8 sw r1,0xFE8 ; set Bus error vectorFFFFFFFFFFFFB298 9A00FB38 lea r1,nmiroutFFFFFFFFFFFFB29C 66008FF0 sw r1,0xFF0 ; set NMI vector; set system interrupt hook vectorsFFFFFFFFFFFFB2A0 E6BFBBC0 ; SETLOFFFFFFFFFFFFB2A4 6A0D042D lea r1,KeybdIRQFFFFFFFFFFFFB2A8 6600B008 sw r1,keybdIRQvecFFFFFFFFFFFFB2AC E6BFBDCC ; SETLOFFFFFFFFFFFFB2B0 6A0D042D lea r1,Pulse100FFFFFFFFFFFFB2B4 6600B000 sw r1,p100IRQvecFFFFFFFFFFFFB2B8 E6BFB768 ; SETLOFFFFFFFFFFFFB2BC 6A0D042D lea r1,SerialIRQFFFFFFFFFFFFB2C0 6600B010 sw r1,serialIRQvecFFFFFFFFFFFFB2C4 9A00D1AC lea r1,RasterIRQfnFFFFFFFFFFFFB2C8 6600B018 sw r1,rasterIRQvec;-------------------------------; Initialize I/O devices;-------------------------------FFFFFFFFFFFFB2CC E69CFFFF ; SETLOFFFFFFFFFFFFB2D0 EE800003 ; SETMIDFFFFFFFFFFFFB2D4 6A0D0424 inbu r1,CONFIGRECFFFFFFFFFFFFB2D8 2A108824 bfext r1,r1,#4,#4FFFFFFFFFFFFB2DC BE100048 beq r1,r0,skip5FFFFFFFFFFFFB2E0 31FFEF3A call tmp_initFFFFFFFFFFFFB2E4 skip5:FFFFFFFFFFFFB2E4 E69CFFFF ; SETLOFFFFFFFFFFFFB2E8 EE800003 ; SETMIDFFFFFFFFFFFFB2EC 6A0D0424 inbu r1,CONFIGRECFFFFFFFFFFFFB2F0 2A108A2C bfext r1,r1,#5,#5FFFFFFFFFFFFB2F4 BE100048 beq r1,r0,skip4FFFFFFFFFFFFB2F8 31FFED3C call SerialInitFFFFFFFFFFFFB2FC skip4:FFFFFFFFFFFFB2FC 31FFEEEB call KeybdInitFFFFFFFFFFFFB300 31FFED34 call PICInitFFFFFFFFFFFFB304 31FFF453 call SetupRasterIRQFFFFFFFFFFFFB308 00000040 cli ; enable interrupts; call HelloWorldFFFFFFFFFFFFB30C E0C000CE setlo r3,#0xCE ; blue on blueFFFFFFFFFFFFB310 62019414 sc r3,ScreenColorFFFFFFFFFFFFB314 62019410 sc r3,CharColorFFFFFFFFFFFFB318 42019414 lc r3,0x1414FFFFFFFFFFFFB31C E0C00020 setlo r3,#32FFFFFFFFFFFFB320 62019416 sc r3,0x1416 ; we do a store, then a load through the dcacheFFFFFFFFFFFFB324 42011416 lc r2,0x1416 ;FFFFFFFFFFFFB328 BE218048 beq r2,r3,dcokayFFFFFFFFFFFFB32C 0000000D dcache_off ; data cache failedFFFFFFFFFFFFB330 dcokay:FFFFFFFFFFFFB330 620020A8 sc r0,NextToRunTCBFFFFFFFFFFFFB334 620020A6 sc r0,RunningTCBFFFFFFFFFFFFB338 16008002 lw r1,#2 ; get rid of startup keyboard glitchs by trying to get a characterFFFFFFFFFFFFB33C 0181D097 syscall #417FFFFFFFFFFFFB340 16008002 lw r1,#2 ; get rid of startup keyboard glitchs by trying to get a characterFFFFFFFFFFFFB344 0181D097 syscall #417; wait for screen to be availableFFFFFFFFFFFFB348 31FFF011 call ClearScreenFFFFFFFFFFFFB34C 31FFEFFC call ClearBmpScreen; Test whether or not the sprite controller is present. Skip; Initialization if it isn't.FFFFFFFFFFFFB350 E69CFFFF ; SETLOFFFFFFFFFFFFB354 EE800003 ; SETMIDFFFFFFFFFFFFB358 6A0D0420 inb r1,CONFIGRECFFFFFFFFFFFFB35C 2A108004 bfext r1,r1,#0,#0FFFFFFFFFFFFB360 BE100048 beq r1,r0,skip1FFFFFFFFFFFFB364 31FFF3A7 call RandomizeSprramFFFFFFFFFFFFB368 skip1:FFFFFFFFFFFFB368 60001417 sb r0,CursorRowFFFFFFFFFFFFB36C 60001418 sb r0,CursorColFFFFFFFFFFFFB370 16008001 lw r1,#1FFFFFFFFFFFFB374 6000941A sb r1,CursorFlashFFFFFFFFFFFFB378 E6BFB4AD ; SETLOFFFFFFFFFFFFB37C 6A0D042D lea r1,MSGSTARTFFFFFFFFFFFFB380 31FFF130 call DisplayStringCRLF; Test whether or not sound generator is present; skip initialization and beep if not presentFFFFFFFFFFFFB384 E69CFFFF ; SETLOFFFFFFFFFFFFB388 EE800003 ; SETMIDFFFFFFFFFFFFB38C 6A0D0420 inb r1,CONFIGRECFFFFFFFFFFFFB390 2A108414 bfext r1,r1,#2,#2FFFFFFFFFFFFB394 BE1000E8 beq r1,r0,skip2FFFFFFFFFFFFB398 31FFF3B1 call SetupAC97 ; and BeepFFFFFFFFFFFFB39C 16008004 lw r1,#4FFFFFFFFFFFFB3A0 E69C0600 ; SETLOFFFFFFFFFFFFB3A4 EE800003 ; SETMIDFFFFFFFFFFFFB3A8 6A0D0428 outb r1,LEDFFFFFFFFFFFFB3AC 31FFF3DB call BeepFFFFFFFFFFFFB3B0 skip2:FFFFFFFFFFFFB3B0 E6BFB428 ; SETLOFFFFFFFFFFFFB3B4 6A0D042D lea r1,context1disp ; start a displayFFFFFFFFFFFFB3B8 6600A0D8 sw r1,ctx1start; Startup Ethernet access ?;FFFFFFFFFFFFB3BC E69CFFFF ; SETLOFFFFFFFFFFFFB3C0 EE800003 ; SETMIDFFFFFFFFFFFFB3C4 6A0D0420 inb r1,CONFIGRECFFFFFFFFFFFFB3C8 2A10820C bfext r1,r1,#1,#1FFFFFFFFFFFFB3CC BE100068 beq r1,r0,skip3FFFFFFFFFFFFB3D0 9A00DD3C lea r1,eth_mainFFFFFFFFFFFFB3D4 6600A0E0 sw r1,ctx2startFFFFFFFFFFFFB3D8 skip3:FFFFFFFFFFFFB3D8 9A00CDD0 lea r1,RandomLinesFFFFFFFFFFFFB3DC 6600A0E8 sw r1,ctx3startFFFFFFFFFFFFB3E0 31FFF54E call spi_initFFFFFFFFFFFFB3E4 BE100069 bne r1,r0,skip_spi_readFFFFFFFFFFFFB3E8 31FFF59D call spi_read_bootFFFFFFFFFFFFB3EC 31FFF605 call loadBootFileFFFFFFFFFFFFB3F0 skip_spi_read:FFFFFFFFFFFFB3F0 33FFF20A jmp MonitorFFFFFFFFFFFFB3F4 j4:FFFFFFFFFFFFB3F4 33FFF20A jmp MonitorFFFFFFFFFFFFB3F8 BE007FEA bra j4; The contexts wait for a context startup address to be placed in the; startup table. Once an address is in the table, a call to the context; code will be made. The default is a NULL pointer, which; causes the context to loop around back to here while waiting for a; code to run.;FFFFFFFFFFFFB3FC ctxstart1:FFFFFFFFFFFFB3FC 9A00A0D0 lea r1,ctx0start ; r1 = context start table baseFFFFFFFFFFFFB400 02010568 mfspr r2,AXC ; r2 = index into start tableFFFFFFFFFFFFB404 6A110703 lw r1,[r1+r2*8] ; r1 = context start addressFFFFFFFFFFFFB408 BE100048 beq r1,r0,ctx12FFFFFFFFFFFFB40C 341F8000 jal lr,[r1] ; perform a call to the context code; We might as well move to the next context, since there's nothing; to do. This can be accomplished by tirggering a IRQ interrupt.; We can't just increment the excution pattern pointer, because that; would only switch the register set and not the program counter.; An interrupt saves the program counter, and restores it from the; IPC context register.;FFFFFFFFFFFFB410 ctx12:FFFFFFFFFFFFB410 00000040 sei ; causes a priv violation. don't allow interrupts during syscallFFFFFFFFFFFFB414 DE000000 nop ; wait for sei to take effectFFFFFFFFFFFFB418 DE000000 nopFFFFFFFFFFFFB41C DE000000 nopFFFFFFFFFFFFB420 0181E097 syscall #EX_IRQFFFFFFFFFFFFB424 BE007ECA bra ctxstart1; call ramtestFFFFFFFFFFFFB428 context1disp:; once we've started, clear the start vector so that the context; isn't continuously restarted.;FFFFFFFFFFFFB428 660020D8 sw r0,ctx1startFFFFFFFFFFFFB42C E6900000 ; SETLOFFFFFFFFFFFFB430 EE800003 ; SETMIDFFFFFFFFFFFFB434 6A0D0C2D lea r3,TEXTSCRFFFFFFFFFFFFB438 16008056 lw r1,#'V'FFFFFFFFFFFFB43C 1601014A lw r2,#330FFFFFFFFFFFFB440 1602002F lw r4,#47FFFFFFFFFFFFB444 31FFF063 call AsciiToScreenFFFFFFFFFFFFB448 ctx11:FFFFFFFFFFFFB448 6A310421 inch r1,[r3+r2]FFFFFFFFFFFFB44C 0A108001 addui r1,r1,#1FFFFFFFFFFFFB450 6A310429 outc r1,[r3+r2]FFFFFFFFFFFFB454 0A2100A8 addui r2,r2,#168FFFFFFFFFFFFB458 BE027F8F loop r4,ctx11FFFFFFFFFFFFB45C BE007E6A bra context1disp;-----------------------------------------; Hello World!;-----------------------------------------FFFFFFFFFFFFB460 HelloWorld:FFFFFFFFFFFFB460 0FEF0018 subui r30,r30,#24FFFFFFFFFFFFB464 67E08000 sw r1,[sp]FFFFFFFFFFFFB468 67E10008 sw r2,8[sp]FFFFFFFFFFFFB46C 67EF8010 sw lr,16[sp]FFFFFFFFFFFFB470 E6BFB4A0 ; SETLOFFFFFFFFFFFFB474 6A0D082D lea r2,MSGFFFFFFFFFFFFB478 j3:FFFFFFFFFFFFB478 40208000 lb r1,[r2]FFFFFFFFFFFFB47C BE100088 beq r1,r0,j2FFFFFFFFFFFFB480 31FFED5C call SerialPutCharFFFFFFFFFFFFB484 0A210001 addui r2,r2,#1FFFFFFFFFFFFB488 BE007F8A bra j3FFFFFFFFFFFFB48C j2:FFFFFFFFFFFFB48C 67EF8010 sw lr,16[sp]FFFFFFFFFFFFB490 67E10008 sw r2,8[sp]FFFFFFFFFFFFB494 67E08000 sw r1,[sp]FFFFFFFFFFFFB498 37EF8018 ret #24FFFFFFFFFFFFB498 0000000037EF8018 align 16FFFFFFFFFFFFB4A0 align 16FFFFFFFFFFFFB4A0 MSG:FFFFFFFFFFFFB4A0 6F57206F6C6C6548 db "Hello World!",0FFFFFFFFFFFFB4AD MSGSTART:FFFFFFFFFFFFB4A8 7061520021646C72 db "Raptor64 system starting....",0FFFFFFFFFFFFB4B0 7973203436726F74FFFFFFFFFFFFB4B8 617473206D657473FFFFFFFFFFFFB4C0 2E2E2E676E697472FFFFFFFFFFFFB4C8 000000000000002E align 16FFFFFFFFFFFFB4D0 align 16;----------------------------------------------------------; Initialize programmable interrupt controller (PIC); 0 = nmi (parity error); 1 = keyboard reset; 2 = 1000Hz pulse (context switcher); 3 = 100Hz pulse (cursor flash); 4 = ethmac; 8 = uart; 13 = raster interrupt; 15 = keyboard char;----------------------------------------------------------FFFFFFFFFFFFB4D0 PICInit:FFFFFFFFFFFFB4D0 E6BFB4EC ; SETLOFFFFFFFFFFFFB4D4 6A0D042D lea r1,PICretFFFFFFFFFFFFB4D8 66009030 sw r1,TickIRQAddr; enable: raster irq,FFFFFFFFFFFFB4DC E07F800F setlo r1,#0x800F ; enable nmi,kbd_rst,and kbd_irq; A10F enable serial IRQFFFFFFFFFFFFB4E0 E69C0FF2 ; SETLOFFFFFFFFFFFFB4E4 EE800003 ; SETMIDFFFFFFFFFFFFB4E8 6A0D0429 outc r1,PIC_IEFFFFFFFFFFFFB4EC PICret:FFFFFFFFFFFFB4EC 37EF8000 ret;==============================================================================; Serial port;==============================================================================;-----------------------------------------; Initialize the serial port;-----------------------------------------;FFFFFFFFFFFFB4F0 SerialInit:FFFFFFFFFFFFB4F0 62001800 sc r0,Uart_rxhead ; reset buffer indexesFFFFFFFFFFFFB4F4 62001802 sc r0,Uart_rxtailFFFFFFFFFFFFB4F8 E04001F0 setlo r1,#0x1f0FFFFFFFFFFFFB4FC 62009810 sc r1,Uart_foff ; set threshold for XOFFFFFFFFFFFFFFB500 E0400010 setlo r1,#0x010FFFFFFFFFFFFB504 6200980E sc r1,Uart_fon ; set threshold for XONFFFFFFFFFFFFB508 E0400001 setlo r1,#1FFFFFFFFFFFFB50C E69C0A04 ; SETLOFFFFFFFFFFFFB510 EE800003 ; SETMIDFFFFFFFFFFFFB514 6A0D0428 outb r1,UART_IE ; enable receive interrupt onlyFFFFFFFFFFFFB518 60001809 sb r0,Uart_rxrts ; no RTS/CTS signals availableFFFFFFFFFFFFB51C 60001812 sb r0,Uart_txrts ; no RTS/CTS signals availableFFFFFFFFFFFFB520 60001813 sb r0,Uart_txdtr ; no DTR signals availableFFFFFFFFFFFFB524 6000180A sb r0,Uart_rxdtr ; no DTR signals availableFFFFFFFFFFFFB528 E0400001 setlo r1,#1FFFFFFFFFFFFB52C 60009814 sb r1,Uart_txxon ; for nowFFFFFFFFFFFFB530 37EF8000 ret;---------------------------------------------------------------------------------; Get character directly from serial port. Blocks until a character is available.;---------------------------------------------------------------------------------;FFFFFFFFFFFFB534 SerialGetCharDirect:FFFFFFFFFFFFB534 sgc1:FFFFFFFFFFFFB534 E69C0A01 ; SETLOFFFFFFFFFFFFB538 EE800003 ; SETMIDFFFFFFFFFFFFB53C 6A0D0420 inb r1,UART_LS ; uart statusFFFFFFFFFFFFB540 14108001 andi r1,r1,#rxfull ; is there a char available ?FFFFFFFFFFFFB544 BE107F88 beq r1,r0,sgc1FFFFFFFFFFFFB548 E69C0A00 ; SETLOFFFFFFFFFFFFB54C EE800003 ; SETMIDFFFFFFFFFFFFB550 6A0D0420 inb r1,UARTFFFFFFFFFFFFB554 37EF8000 ret;------------------------------------------------; Check for a character at the serial port; returns r1 = 1 if char available, 0 otherwise;------------------------------------------------;FFFFFFFFFFFFB558 SerialCheckForCharDirect:FFFFFFFFFFFFB558 E69C0A01 ; SETLOFFFFFFFFFFFFB55C EE800003 ; SETMIDFFFFFFFFFFFFB560 6A0D0420 inb r1,UART_LS ; uart statusFFFFFFFFFFFFB564 14108001 andi r1,r1,#rxfull ; is there a char available ?FFFFFFFFFFFFB568 04100439 sne r1,r1,r0FFFFFFFFFFFFB56C 37EF8000 ret;-----------------------------------------; Put character to serial port; r1 = char to put;-----------------------------------------;FFFFFFFFFFFFB570 SerialPutChar:FFFFFFFFFFFFB570 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFB574 67E10000 sw r2,[sp]FFFFFFFFFFFFB578 67E18008 sw r3,8[sp]FFFFFFFFFFFFB57C 67E20010 sw r4,16[sp]FFFFFFFFFFFFB580 67E28018 sw r5,24[sp]FFFFFFFFFFFFB584 E69C0A06 ; SETLOFFFFFFFFFFFFB588 EE800003 ; SETMIDFFFFFFFFFFFFB58C 6A0D0820 inb r2,UART_MCFFFFFFFFFFFFB590 16210003 ori r2,r2,#3 ; assert DTR / RTSFFFFFFFFFFFFB594 E69C0A06 ; SETLOFFFFFFFFFFFFB598 EE800003 ; SETMIDFFFFFFFFFFFFB59C 6A0D0828 outb r2,UART_MCFFFFFFFFFFFFB5A0 40011812 lb r2,Uart_txrtsFFFFFFFFFFFFB5A4 BE200168 beq r2,r0,spcb1FFFFFFFFFFFFB5A8 46021400 lw r4,MillisecondsFFFFFFFFFFFFB5AC E0C00064 setlo r3,#100 ; delay count (1 s)FFFFFFFFFFFFB5B0 spcb3:FFFFFFFFFFFFB5B0 80011808 inb r2,UART_MSFFFFFFFFFFFFB5B4 1421000A andi r2,r2,#10 ; is CTS asserted ?FFFFFFFFFFFFB5B8 BE2000C9 bne r2,r0,spcb1FFFFFFFFFFFFB5BC 46029400 lw r5,MillisecondsFFFFFFFFFFFFB5C0 BE42FF88 beq r4,r5,spcb3FFFFFFFFFFFFB5C4 02520009 mov r4,r5FFFFFFFFFFFFB5C8 BE01FF4F loop r3,spcb3FFFFFFFFFFFFB5CC BE00046A bra spcabortFFFFFFFFFFFFB5D0 spcb1:FFFFFFFFFFFFB5D0 40011813 lb r2,Uart_txdtrFFFFFFFFFFFFB5D4 BE200168 beq r2,r0,spcb2FFFFFFFFFFFFB5D8 46021400 lw r4,MillisecondsFFFFFFFFFFFFB5DC E0C00064 setlo r3,#100 ; delay countFFFFFFFFFFFFB5E0 spcb4:FFFFFFFFFFFFB5E0 80011808 inb r2,UART_MSFFFFFFFFFFFFB5E4 14210014 andi r2,r2,#20 ; is DSR asserted ?FFFFFFFFFFFFB5E8 BE2000C9 bne r2,r0,spcb2FFFFFFFFFFFFB5EC 46029400 lw r5,MillisecondsFFFFFFFFFFFFB5F0 BE42FF88 beq r4,r5,spcb4FFFFFFFFFFFFB5F4 02520009 mov r4,r5FFFFFFFFFFFFB5F8 BE01FF4F loop r3,spcb4FFFFFFFFFFFFB5FC BE0002EA bra spcabortFFFFFFFFFFFFB600 spcb2:FFFFFFFFFFFFB600 40011814 lb r2,Uart_txxonFFFFFFFFFFFFB604 BE2000C8 beq r2,r0,spcb5FFFFFFFFFFFFB608 spcb6:FFFFFFFFFFFFB608 40011815 lb r2,Uart_txxonoffFFFFFFFFFFFFB60C BE200088 beq r2,r0,spcb5FFFFFFFFFFFFB610 80021808 inb r4,UART_MSFFFFFFFFFFFFB614 14420080 andi r4,r4,#0x80 ; DCD ?FFFFFFFFFFFFB618 BE407F89 bne r4,r0,spcb6FFFFFFFFFFFFB61C spcb5:FFFFFFFFFFFFB61C 46021400 lw r4,MillisecondsFFFFFFFFFFFFB620 E0C00064 setlo r3,#100 ; wait up to 1sFFFFFFFFFFFFB624 spcb8:FFFFFFFFFFFFB624 E69C0A01 ; SETLOFFFFFFFFFFFFB628 EE800003 ; SETMIDFFFFFFFFFFFFB62C 6A0D0820 inb r2,UART_LSFFFFFFFFFFFFB630 14210020 andi r2,r2,#0x20 ; tx not full ?FFFFFFFFFFFFB634 BE2000C9 bne r2,r0,spcb7FFFFFFFFFFFFB638 46029400 lw r5,MillisecondsFFFFFFFFFFFFB63C BE42FF48 beq r4,r5,spcb8FFFFFFFFFFFFB640 02520009 mov r4,r5FFFFFFFFFFFFB644 BE01FF0F loop r3,spcb8FFFFFFFFFFFFB648 BE00008A bra spcabortFFFFFFFFFFFFB64C spcb7:FFFFFFFFFFFFB64C E69C0A00 ; SETLOFFFFFFFFFFFFB650 EE800003 ; SETMIDFFFFFFFFFFFFB654 6A0D0428 outb r1,UARTFFFFFFFFFFFFB658 spcabort:FFFFFFFFFFFFB658 47E10000 lw r2,[sp]FFFFFFFFFFFFB65C 47E18008 lw r3,8[sp]FFFFFFFFFFFFB660 47E20010 lw r4,16[sp]FFFFFFFFFFFFB664 47E28018 lw r5,24[sp]FFFFFFFFFFFFB668 37EF8020 ret #32;-------------------------------------------------; Compute number of characters in recieve buffer.; r4 = number of chars;-------------------------------------------------FFFFFFFFFFFFB66C CharsInRxBuf:FFFFFFFFFFFFB66C 42021800 lc r4,Uart_rxheadFFFFFFFFFFFFB670 42011802 lc r2,Uart_rxtailFFFFFFFFFFFFB674 04411005 subu r4,r4,r2FFFFFFFFFFFFB678 BE4000A3 bgt r4,r0,cirxb1FFFFFFFFFFFFB67C E1000200 setlo r4,#0x200FFFFFFFFFFFFB680 04411003 addu r4,r4,r2FFFFFFFFFFFFB684 42011800 lc r2,Uart_rxheadFFFFFFFFFFFFB688 04411005 subu r4,r4,r2FFFFFFFFFFFFB68C cirxb1:FFFFFFFFFFFFB68C 37EF8000 ret;----------------------------------------------; Get character from rx fifo; If the fifo is empty enough then send an XON;----------------------------------------------;FFFFFFFFFFFFB690 SerialGetChar:FFFFFFFFFFFFB690 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFB694 67E10000 sw r2,[sp]FFFFFFFFFFFFB698 67E18008 sw r3,8[sp]FFFFFFFFFFFFB69C 67E20010 sw r4,16[sp]FFFFFFFFFFFFB6A0 67EF8018 sw lr,24[sp]FFFFFFFFFFFFB6A4 42019800 lc r3,Uart_rxheadFFFFFFFFFFFFB6A8 42011802 lc r2,Uart_rxtailFFFFFFFFFFFFB6AC BE218528 beq r2,r3,sgcfifo1 ; is there a char available ?FFFFFFFFFFFFB6B0 9A019600 lea r3,Uart_rxfifoFFFFFFFFFFFFB6B4 6A218400 lb r1,[r2+r3] ; get the char from the fifo into r1FFFFFFFFFFFFB6B8 0A210001 addui r2,r2,#1 ; increment the fifo pointerFFFFFFFFFFFFB6BC 142101FF andi r2,r2,#0x1ffFFFFFFFFFFFFB6C0 62011802 sc r2,Uart_rxtailFFFFFFFFFFFFB6C4 4001180C lb r2,Uart_rxflow ; using flow control ?FFFFFFFFFFFFB6C8 BE2003A8 beq r2,r0,sgcfifo2FFFFFFFFFFFFB6CC 4201980E lc r3,Uart_fon ; enough space in Rx buffer ?FFFFFFFFFFFFB6D0 31FFED9B call CharsInRxBufFFFFFFFFFFFFB6D4 BE418343 bgt r4,r3,sgcfifo2FFFFFFFFFFFFB6D8 6000180C sb r0,Uart_rxflow ; flow offFFFFFFFFFFFFB6DC 40021809 lb r4,Uart_rxrtsFFFFFFFFFFFFB6E0 BE400108 beq r4,r0,sgcfifo3FFFFFFFFFFFFB6E4 E69C0A06 ; SETLOFFFFFFFFFFFFB6E8 EE800003 ; SETMIDFFFFFFFFFFFFB6EC 6A0D1020 inb r4,UART_MC ; set rts bit in MCFFFFFFFFFFFFB6F0 16420002 ori r4,r4,#2FFFFFFFFFFFFB6F4 E69C0A06 ; SETLOFFFFFFFFFFFFB6F8 EE800003 ; SETMIDFFFFFFFFFFFFB6FC 6A0D1028 outb r4,UART_MCFFFFFFFFFFFFB700 sgcfifo3:FFFFFFFFFFFFB700 4002180A lb r4,Uart_rxdtrFFFFFFFFFFFFB704 BE400108 beq r4,r0,sgcfifo4FFFFFFFFFFFFB708 E69C0A06 ; SETLOFFFFFFFFFFFFB70C EE800003 ; SETMIDFFFFFFFFFFFFB710 6A0D1020 inb r4,UART_MC ; set DTRFFFFFFFFFFFFB714 16420001 ori r4,r4,#1FFFFFFFFFFFFB718 E69C0A06 ; SETLOFFFFFFFFFFFFB71C EE800003 ; SETMIDFFFFFFFFFFFFB720 6A0D1028 outb r4,UART_MCFFFFFFFFFFFFB724 sgcfifo4:FFFFFFFFFFFFB724 4002180B lb r4,Uart_rxxonFFFFFFFFFFFFB728 BE4000A8 beq r4,r0,sgcfifo5FFFFFFFFFFFFB72C E1000011 setlo r4,#XONFFFFFFFFFFFFB730 E69C0A00 ; SETLOFFFFFFFFFFFFB734 EE800003 ; SETMIDFFFFFFFFFFFFB738 6A0D1028 outb r4,UARTFFFFFFFFFFFFB73C sgcfifo5:FFFFFFFFFFFFB73C sgcfifo2: ; return with char in r1FFFFFFFFFFFFB73C 47E10000 lw r2,[sp]FFFFFFFFFFFFB740 47E18008 lw r3,8[sp]FFFFFFFFFFFFB744 47E20010 lw r4,16[sp]FFFFFFFFFFFFB748 47EF8018 lw lr,24[sp]FFFFFFFFFFFFB74C 37EF8020 ret #32FFFFFFFFFFFFB750 sgcfifo1:FFFFFFFFFFFFB750 E07FFFFF setlo r1,#-1 ; no char availableFFFFFFFFFFFFB754 47E10000 lw r2,[sp]FFFFFFFFFFFFB758 47E18008 lw r3,8[sp]FFFFFFFFFFFFB75C 47E20010 lw r4,16[sp]FFFFFFFFFFFFB760 47EF8018 lw lr,24[sp]FFFFFFFFFFFFB764 37EF8020 ret #32;-----------------------------------------; Serial port IRQ;-----------------------------------------;FFFFFFFFFFFFB768 SerialIRQ:FFFFFFFFFFFFB768 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFB76C 67E08000 sw r1,[sp]FFFFFFFFFFFFB770 67E10008 sw r2,8[sp]FFFFFFFFFFFFB774 67E18010 sw r3,16[sp]FFFFFFFFFFFFB778 67E20018 sw r4,24[sp]FFFFFFFFFFFFB77C 67EF8020 sw lr,32[sp]FFFFFFFFFFFFB780 E69C0A03 ; SETLOFFFFFFFFFFFFB784 EE800003 ; SETMIDFFFFFFFFFFFFB788 6A0D0420 inb r1,UART_IS ; get interrupt statusFFFFFFFFFFFFB78C BE1000A1 bge r1,r0,sirq1FFFFFFFFFFFFB790 1410807F andi r1,r1,#0x7f ; switch on interrupt typeFFFFFFFFFFFFB794 B0100D04 beqi r1,#4,srxirqFFFFFFFFFFFFB798 B0100B0C beqi r1,#0xC,stxirqFFFFFFFFFFFFB79C B0100710 beqi r1,#0x10,smsirqFFFFFFFFFFFFB7A0 sirq1:FFFFFFFFFFFFB7A0 47E08000 lw r1,[sp]FFFFFFFFFFFFB7A4 47E10008 lw r2,8[sp]FFFFFFFFFFFFB7A8 47E18010 lw r3,16[sp]FFFFFFFFFFFFB7AC 47E20018 lw r4,24[sp]FFFFFFFFFFFFB7B0 47EF8020 lw lr,32[sp]FFFFFFFFFFFFB7B4 37EF8028 ret #40; Get the modem status and record itFFFFFFFFFFFFB7B8 smsirq:FFFFFFFFFFFFB7B8 80009808 inb r1,UART_MSFFFFFFFFFFFFB7BC 60009808 sb r1,Uart_msFFFFFFFFFFFFB7C0 BE007F0A bra sirq1FFFFFFFFFFFFB7C4 stxirq:FFFFFFFFFFFFB7C4 BE007EEA bra sirq1; Get a character from the uart and store it in the rx fifoFFFFFFFFFFFFB7C8 srxirq:FFFFFFFFFFFFB7C8 srxirq1:FFFFFFFFFFFFB7C8 E69C0A00 ; SETLOFFFFFFFFFFFFB7CC EE800003 ; SETMIDFFFFFFFFFFFFB7D0 6A0D0420 inb r1,UART ; get the char (clears interrupt)FFFFFFFFFFFFB7D4 40011814 lb r2,Uart_txxonFFFFFFFFFFFFB7D8 BE200108 beq r2,r0,srxirq3FFFFFFFFFFFFB7DC B2100413 bnei r1,#XOFF,srxirq2FFFFFFFFFFFFB7E0 E0400001 setlo r1,#1FFFFFFFFFFFFB7E4 60009815 sb r1,Uart_txxonoffFFFFFFFFFFFFB7E8 BE00016A bra srxirq5FFFFFFFFFFFFB7EC srxirq2:FFFFFFFFFFFFB7EC B2100311 bnei r1,#XON,srxirq3FFFFFFFFFFFFB7F0 60001815 sb r0,Uart_txxonoffFFFFFFFFFFFFB7F4 BE00010A bra srxirq5FFFFFFFFFFFFB7F8 srxirq3:FFFFFFFFFFFFB7F8 60001815 sb r0,Uart_txxonoffFFFFFFFFFFFFB7FC 42011800 lc r2,Uart_rxheadFFFFFFFFFFFFB800 9A019600 lea r3,Uart_rxfifoFFFFFFFFFFFFB804 6A310410 sb r1,[r3+r2] ; store in bufferFFFFFFFFFFFFB808 0A210001 addui r2,r2,#1FFFFFFFFFFFFB80C 142101FF andi r2,r2,#0x1ffFFFFFFFFFFFFB810 62011800 sc r2,Uart_rxheadFFFFFFFFFFFFB814 srxirq5:FFFFFFFFFFFFB814 E69C0A01 ; SETLOFFFFFFFFFFFFB818 EE800003 ; SETMIDFFFFFFFFFFFFB81C 6A0D0420 inb r1,UART_LS ; check for another ready characterFFFFFFFFFFFFB820 14108001 andi r1,r1,#rxfullFFFFFFFFFFFFB824 BE107D29 bne r1,r0,srxirq1FFFFFFFFFFFFB828 4000980C lb r1,Uart_rxflow ; are we using flow controls?FFFFFFFFFFFFB82C BE1003C9 bne r1,r0,srxirq8FFFFFFFFFFFFB830 31FFED9B call CharsInRxBufFFFFFFFFFFFFB834 42009810 lc r1,Uart_foffFFFFFFFFFFFFB838 BE408360 blt r4,r1,srxirq8FFFFFFFFFFFFB83C E0400001 setlo r1,#1FFFFFFFFFFFFB840 6000980C sb r1,Uart_rxflowFFFFFFFFFFFFB844 40009809 lb r1,Uart_rxrtsFFFFFFFFFFFFB848 BE100108 beq r1,r0,srxirq6FFFFFFFFFFFFB84C E69C0A06 ; SETLOFFFFFFFFFFFFB850 EE800003 ; SETMIDFFFFFFFFFFFFB854 6A0D0420 inb r1,UART_MCFFFFFFFFFFFFB858 141080FD andi r1,r1,#0xFD ; turn off RTSFFFFFFFFFFFFB85C E69C0A06 ; SETLOFFFFFFFFFFFFB860 EE800003 ; SETMIDFFFFFFFFFFFFB864 6A0D0428 outb r1,UART_MCFFFFFFFFFFFFB868 srxirq6:FFFFFFFFFFFFB868 4000980A lb r1,Uart_rxdtrFFFFFFFFFFFFB86C BE100108 beq r1,r0,srxirq7FFFFFFFFFFFFB870 E69C0A06 ; SETLOFFFFFFFFFFFFB874 EE800003 ; SETMIDFFFFFFFFFFFFB878 6A0D0420 inb r1,UART_MCFFFFFFFFFFFFB87C 141080FE andi r1,r1,#0xFE ; turn off DTRFFFFFFFFFFFFB880 E69C0A06 ; SETLOFFFFFFFFFFFFB884 EE800003 ; SETMIDFFFFFFFFFFFFB888 6A0D0428 outb r1,UART_MCFFFFFFFFFFFFB88C srxirq7:FFFFFFFFFFFFB88C 4000980B lb r1,Uart_rxxonFFFFFFFFFFFFB890 BE1000A8 beq r1,r0,srxirq8FFFFFFFFFFFFB894 E0400013 setlo r1,#XOFFFFFFFFFFFFFFB898 E69C0A00 ; SETLOFFFFFFFFFFFFB89C EE800003 ; SETMIDFFFFFFFFFFFFB8A0 6A0D0428 outb r1,UARTFFFFFFFFFFFFB8A4 srxirq8:FFFFFFFFFFFFB8A4 BE0077EA bra sirq1;==============================================================================; Video BIOS; Video interrupt #410;; Function in R1; 0x02 = Set Cursor Position r2 = row, r3 = col; 0x03 = Get Cursor position returns r1 = row, r2 = col; 0x06 = Scroll screen up; 0x09 = Display character+attribute, r2=char, r3=attrib, r4=#times; 0x0A = Display character, r2 = char, r3 = # times; 0x0C = Display Pixel r2 = x, r3 = y, r4 = color; 0x0D = Get pixel r2 = x, r3 = y; 0x14 = Display String r2 = pointer to string; 0x15 = Display number r2 = number, r3 = # digits; 0x16 = Display String + CRLF r2 = pointer to string; 0x17 = Display Word r2 as hex = word; 0x18 = Display Half word as hex r2 = half word; 0x19 = Display Charr char in hex r2 = char; 0x1A = Display Byte in hex r2 = byte;==============================================================================;FFFFFFFFFFFFB8A8 VideoSC:FFFFFFFFFFFFB8A8 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFB8AC 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFB8B0 67AF2200 sw sp,sp_saves[r26] ; save sp in save areaFFFFFFFFFFFFB8B4 07AD1006 shlui r26,r26,#8 ; 2k for stackFFFFFFFFFFFFB8B8 03AF0009 mov sp,r26FFFFFFFFFFFFB8BC E6808000 ; SETLOFFFFFFFFFFFFB8C0 EE800400 ; SETMIDFFFFFFFFFFFFB8C4 05ED7803 addui sp,sp,#0x100008000 ; base stacks addressFFFFFFFFFFFFB8C8 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFB8CC 67EF8000 sw lr,[sp]FFFFFFFFFFFFB8D0 Video1:FFFFFFFFFFFFB8D0 020F80B4 omgi lr,#VIDEOGATEFFFFFFFFFFFFB8D4 BFF07FE9 bne lr,r0,Video1FFFFFFFFFFFFB8D8 B0100D02 beqi r1,#0x02,Video_x02FFFFFFFFFFFFB8DC B0101003 beqi r1,#0x03,Video_x03FFFFFFFFFFFFB8E0 B0101206 beqi r1,#0x06,Video_x06FFFFFFFFFFFFB8E4 B0101309 beqi r1,#0x09,Video_x09FFFFFFFFFFFFB8E8 B010170A beqi r1,#0x0A,Video_x0AFFFFFFFFFFFFB8EC B0101A0C beqi r1,#0x0C,Video_x0CFFFFFFFFFFFFB8F0 B010270C beqi r1,#0x0C,Video_x0DFFFFFFFFFFFFB8F4 B0103B14 beqi r1,#0x14,Video_x14FFFFFFFFFFFFB8F8 B0103D15 beqi r1,#0x15,Video_x15FFFFFFFFFFFFB8FC B0104016 beqi r1,#0x16,Video_x16FFFFFFFFFFFFB900 B0104217 beqi r1,#0x17,Video_x17FFFFFFFFFFFFB904 B010441A beqi r1,#0x1A,Video_x1AFFFFFFFFFFFFB908 BE0008CA bra VideoRetFFFFFFFFFFFFB90C Video_x02:FFFFFFFFFFFFB90C 60011417 sb r2,CursorRowFFFFFFFFFFFFB910 60019418 sb r3,CursorColFFFFFFFFFFFFB914 31FFF06F call CalcScreenLocFFFFFFFFFFFFB918 BE00084A bra VideoRetFFFFFFFFFFFFB91C Video_x03:FFFFFFFFFFFFB91C 4A009417 lbu r1,CursorRowFFFFFFFFFFFFB920 4A011418 lbu r2,CursorColFFFFFFFFFFFFB924 BE0007EA bra VideoRetFFFFFFFFFFFFB928 Video_x06:FFFFFFFFFFFFB928 31FFF02E call ScrollUpFFFFFFFFFFFFB92C BE0007AA bra VideoRetFFFFFFFFFFFFB930 Video_x09:FFFFFFFFFFFFB930 62019410 sc r3,CharColorFFFFFFFFFFFFB934 02208009 mov r1,r2FFFFFFFFFFFFB938 Video_x09a:FFFFFFFFFFFFB938 31FFF07F call DisplayCharFFFFFFFFFFFFB93C BE027FEF loop r4,Video_x09aFFFFFFFFFFFFB940 BE00070A bra VideoRetFFFFFFFFFFFFB944 Video_x0A:FFFFFFFFFFFFB944 02208009 mov r1,r2FFFFFFFFFFFFB948 Video_x0Aa:FFFFFFFFFFFFB948 31FFF07F call DisplayCharFFFFFFFFFFFFB94C BE01FFEF loop r3,Video_x0AaFFFFFFFFFFFFB950 BE00068A bra VideoRetFFFFFFFFFFFFB954 Video_x0C:FFFFFFFFFFFFB954 E69AE008 ; SETLOFFFFFFFFFFFFB958 EE800003 ; SETMIDFFFFFFFFFFFFB95C 6A0D0812 sh r2,GACCEL+8 ; x0FFFFFFFFFFFFB960 E69AE00C ; SETLOFFFFFFFFFFFFB964 EE800003 ; SETMIDFFFFFFFFFFFFB968 6A0D0C12 sh r3,GACCEL+12 ; y0FFFFFFFFFFFFB96C E69AE000 ; SETLOFFFFFFFFFFFFB970 EE800003 ; SETMIDFFFFFFFFFFFFB974 6A0D1012 sh r4,GACCEL+0 ; colorFFFFFFFFFFFFB978 16008001 lw r1,#1FFFFFFFFFFFFB97C E69AE03C ; SETLOFFFFFFFFFFFFB980 EE800003 ; SETMIDFFFFFFFFFFFFB984 6A0D0412 sh r1,GACCEL+60 ; DRAW PIXEL commandFFFFFFFFFFFFB988 BE0004CA bra VideoRetFFFFFFFFFFFFB98C Video_x0D:FFFFFFFFFFFFB98C E69AE008 ; SETLOFFFFFFFFFFFFB990 EE800003 ; SETMIDFFFFFFFFFFFFB994 6A0D0812 sh r2,GACCEL+8 ; x0FFFFFFFFFFFFB998 E69AE00C ; SETLOFFFFFFFFFFFFB99C EE800003 ; SETMIDFFFFFFFFFFFFB9A0 6A0D0C12 sh r3,GACCEL+12 ; y0FFFFFFFFFFFFB9A4 16008008 lw r1,#8FFFFFFFFFFFFB9A8 E69AE03C ; SETLOFFFFFFFFFFFFB9AC EE800003 ; SETMIDFFFFFFFFFFFFB9B0 6A0D0412 sh r1,GACCEL+60 ; GET PIXEL commandFFFFFFFFFFFFB9B4 DE000000 nop ; let command startFFFFFFFFFFFFB9B8 DE000000 nopFFFFFFFFFFFFB9BC DE000000 nopFFFFFFFFFFFFB9C0 vxd1:FFFFFFFFFFFFB9C0 E69AE038 ; SETLOFFFFFFFFFFFFB9C4 EE800003 ; SETMIDFFFFFFFFFFFFB9C8 6A0D0407 lhu r1,GACCEL+56 ; wait for state = IDLEFFFFFFFFFFFFB9CC BE107FA9 bne r1,r0,vxd1FFFFFFFFFFFFB9D0 E69AE034 ; SETLOFFFFFFFFFFFFB9D4 EE800003 ; SETMIDFFFFFFFFFFFFB9D8 6A0D0407 lhu r1,GACCEL+52FFFFFFFFFFFFB9DC BE00022A bra VideoRetFFFFFFFFFFFFB9E0 Video_x14:FFFFFFFFFFFFB9E0 02208009 mov r1,r2FFFFFFFFFFFFB9E4 31FFF122 call DisplayStringFFFFFFFFFFFFB9E8 BE0001CA bra VideoRetFFFFFFFFFFFFB9EC Video_x15:FFFFFFFFFFFFB9EC 02208009 mov r1,r2FFFFFFFFFFFFB9F0 02310009 mov r2,r3FFFFFFFFFFFFB9F4 31FFF13F call DisplayNumFFFFFFFFFFFFB9F8 BE00014A bra VideoRetFFFFFFFFFFFFB9FC Video_x16:FFFFFFFFFFFFB9FC 02208009 mov r1,r2FFFFFFFFFFFFBA00 31FFF130 call DisplayStringCRLFFFFFFFFFFFFFBA04 BE0000EA bra VideoRetFFFFFFFFFFFFBA08 Video_x17:FFFFFFFFFFFFBA08 02208009 mov r1,r2FFFFFFFFFFFFBA0C 31FFF169 call DisplayWordFFFFFFFFFFFFBA10 BE00008A bra VideoRetFFFFFFFFFFFFBA14 Video_x1A:FFFFFFFFFFFFBA14 02208009 mov r1,r2FFFFFFFFFFFFBA18 31FFF14B call DisplayByteFFFFFFFFFFFFBA1C BE00002A bra VideoRetFFFFFFFFFFFFBA20 VideoRet:FFFFFFFFFFFFBA20 020000B5 cmgi #VIDEOGATEFFFFFFFFFFFFBA24 47EF8000 lw lr,[sp]FFFFFFFFFFFFBA28 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBA2C 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBA30 47AF2200 lw sp,sp_saves[r26] ; get back the stackFFFFFFFFFFFFBA34 01800021 eret;==============================================================================; BIOS interrupt #413; 0x00 initialize; 0x01 read sector r2 = sector #, r3 = pointer to buffer; 0x02 write sector;==============================================================================;FFFFFFFFFFFFBA38 SDCARDSC:FFFFFFFFFFFFBA38 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBA3C 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBA40 67AF2200 sw sp,sp_saves[r26] ; save sp in save areaFFFFFFFFFFFFBA44 07AD1006 shlui r26,r26,#8 ; 2k for stackFFFFFFFFFFFFBA48 03AF0009 mov sp,r26FFFFFFFFFFFFBA4C E6808000 ; SETLOFFFFFFFFFFFFBA50 EE800400 ; SETMIDFFFFFFFFFFFFBA54 05ED7803 addui sp,sp,#0x100008000 ; base stacks addressFFFFFFFFFFFFBA58 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFBA5C 67EF8000 sw lr,[sp]FFFFFFFFFFFFBA60 SDC_1:FFFFFFFFFFFFBA60 020F80F4 omgi lr,#CARDGATEFFFFFFFFFFFFBA64 BFF07FE9 bne lr,r0,SDC_1FFFFFFFFFFFFBA68 B0100400 beqi r1,#0,SDC_x00FFFFFFFFFFFFBA6C B0100501 beqi r1,#1,SDC_x01FFFFFFFFFFFFBA70 B0100802 beqi r1,#2,SDC_x02FFFFFFFFFFFFBA74 BE0000EA bra SDCRetFFFFFFFFFFFFBA78 SDC_x00:FFFFFFFFFFFFBA78 31FFF54E call spi_initFFFFFFFFFFFFBA7C BE0000AA bra SDCRetFFFFFFFFFFFFBA80 SDC_x01:FFFFFFFFFFFFBA80 02208009 mov r1,r2FFFFFFFFFFFFBA84 02310009 mov r2,r3FFFFFFFFFFFFBA88 31FFF56D call spi_read_sectorFFFFFFFFFFFFBA8C BE00002A bra SDCRetFFFFFFFFFFFFBA90 SDC_x02:FFFFFFFFFFFFBA90 SDCRet:FFFFFFFFFFFFBA90 020000F5 cmgi #CARDGATEFFFFFFFFFFFFBA94 47EF8000 lw lr,[sp]FFFFFFFFFFFFBA98 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBA9C 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBAA0 47AF2200 lw sp,sp_saves[r26] ; get back the stackFFFFFFFFFFFFBAA4 01800021 eret;==============================================================================; Real time clock BIOS; BIOS interrupt #416;; Function; 0x00 = get system tick; 0x01 = get date/time; 0x02 = set date/time;==============================================================================;FFFFFFFFFFFFBAA8 RTCSC:FFFFFFFFFFFFBAA8 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBAAC 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBAB0 67AF2200 sw sp,sp_saves[r26] ; save sp in save areaFFFFFFFFFFFFBAB4 07AD1006 shlui r26,r26,#8 ; 2k for stackFFFFFFFFFFFFBAB8 03AF0009 mov sp,r26FFFFFFFFFFFFBABC E6808000 ; SETLOFFFFFFFFFFFFBAC0 EE800400 ; SETMIDFFFFFFFFFFFFBAC4 05ED7803 addui sp,sp,#0x100008000 ; base stacks addressFFFFFFFFFFFFBAC8 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFBACC 67EF8000 sw lr,[sp];FFFFFFFFFFFFBAD0 B0100200 beqi r1,#0x00,RTC_x00FFFFFFFFFFFFBAD4 B0100301 beqi r1,#0x01,RTC_x01FFFFFFFFFFFFBAD8 RTC_x00:FFFFFFFFFFFFBAD8 020085A8 mfspr r1,TICKFFFFFFFFFFFFBADC BE00012A bra RTCRetFFFFFFFFFFFFBAE0 RTC_x01:FFFFFFFFFFFFBAE0 E69C0418 ; SETLOFFFFFFFFFFFFBAE4 EE800003 ; SETMIDFFFFFFFFFFFFBAE8 6A0D002B outw r0,DATETIME+24 ; trigger a snapshotFFFFFFFFFFFFBAEC DE000000 nopFFFFFFFFFFFFBAF0 E69C0400 ; SETLOFFFFFFFFFFFFBAF4 EE800003 ; SETMIDFFFFFFFFFFFFBAF8 6A0D0423 inw r1,DATETIME ; get the snapshotted date and timeFFFFFFFFFFFFBAFC BE00002A bra RTCRetFFFFFFFFFFFFBB00 RTCRet:FFFFFFFFFFFFBB00 47EF8000 lw lr,[sp]FFFFFFFFFFFFBB04 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBB08 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBB0C 47AF2200 lw sp,sp_saves[r26] ; get back the stackFFFFFFFFFFFFBB10 01800021 eret;==============================================================================; Keyboard BIOS; BIOS interrupt #417;; Function in R1; 0x00 = initialize keyboard; 0x01 = set keyboard echo; 0x02 = get keyboard character from buffer; 0x03 = check for key available in buffer; 0x04 = check for key directly at keyboard port; 0x05 = get keyboard character directly from keyboard port (blocks);==============================================================================;FFFFFFFFFFFFBB14 KeybdSC:FFFFFFFFFFFFBB14 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBB18 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBB1C 67AF2200 sw sp,sp_saves[r26] ; save sp in save areaFFFFFFFFFFFFBB20 07AD1006 shlui r26,r26,#8 ; 2k for stackFFFFFFFFFFFFBB24 03AF0009 mov sp,r26FFFFFFFFFFFFBB28 E6808000 ; SETLOFFFFFFFFFFFFBB2C EE800400 ; SETMIDFFFFFFFFFFFFBB30 05ED7803 addui sp,sp,#0x100008000 ; base stacks addressFFFFFFFFFFFFBB34 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFBB38 67EF8000 sw lr,[sp]FFFFFFFFFFFFBB3C kbdsc5:FFFFFFFFFFFFBB3C 020F8074 omgi lr,#KEYBDGATEFFFFFFFFFFFFBB40 BFF07FE9 bne lr,r0,kbdsc5FFFFFFFFFFFFBB44 B0100700 beqi r1,#0,kbd_x00FFFFFFFFFFFFBB48 B0100801 beqi r1,#1,kbd_x01FFFFFFFFFFFFBB4C B0100A02 beqi r1,#2,kbd_x02FFFFFFFFFFFFBB50 B0100B03 beqi r1,#3,kbd_x03FFFFFFFFFFFFBB54 B0100C04 beqi r1,#4,kbd_x04FFFFFFFFFFFFBB58 B0100D05 beqi r1,#5,kbd_x05FFFFFFFFFFFFBB5C BE0001CA bra kbdscRetFFFFFFFFFFFFBB60 kbd_x00:FFFFFFFFFFFFBB60 31FFEEEB call KeybdInitFFFFFFFFFFFFBB64 BE00018A bra kbdscRetFFFFFFFFFFFFBB68 kbd_x01:FFFFFFFFFFFFBB68 02208009 mov r1,r2FFFFFFFFFFFFBB6C 31FFEF05 call SetKeyboardEchoFFFFFFFFFFFFBB70 BE00012A bra kbdscRetFFFFFFFFFFFFBB74 kbd_x02:FFFFFFFFFFFFBB74 31FFEF07 call KeybdGetCharFFFFFFFFFFFFBB78 BE0000EA bra kbdscRetFFFFFFFFFFFFBB7C kbd_x03:FFFFFFFFFFFFBB7C 31FFEF1C call KeybdCheckForKeyFFFFFFFFFFFFBB80 BE0000AA bra kbdscRetFFFFFFFFFFFFBB84 kbd_x04:FFFFFFFFFFFFBB84 31FFEF20 call KeybdCheckForKeyDirectFFFFFFFFFFFFBB88 BE00006A bra kbdscRetFFFFFFFFFFFFBB8C kbd_x05:FFFFFFFFFFFFBB8C 31FFEF25 call KeybdGetCharDirectFFFFFFFFFFFFBB90 BE00002A bra kbdscRetFFFFFFFFFFFFBB94 kbdscRet:FFFFFFFFFFFFBB94 02000075 cmgi #KEYBDGATEFFFFFFFFFFFFBB98 47EF8000 lw lr,[sp]FFFFFFFFFFFFBB9C 020D0568 mfspr r26,AXC ; get contextFFFFFFFFFFFFBBA0 07AD0606 shlui r26,r26,#3 ; *8FFFFFFFFFFFFBBA4 47AF2200 lw sp,sp_saves[r26] ; get back the stackFFFFFFFFFFFFBBA8 01800021 eret;------------------------------------------------------------------------------; Initialize keyboard;------------------------------------------------------------------------------FFFFFFFFFFFFBBAC KeybdInit:FFFFFFFFFFFFBBAC 60001450 sb r0,KeybdHeadFFFFFFFFFFFFBBB0 60001451 sb r0,KeybdTailFFFFFFFFFFFFBBB4 E0400001 setlo r1,#1 ; turn on keyboard echoFFFFFFFFFFFFBBB8 6000941C sb r1,KeybdEchoFFFFFFFFFFFFBBBC 37EF8000 ret;------------------------------------------------------------------------------; Normal keyboard interrupt, the lowest priority interrupt in the system.; Grab the character from the keyboard device and store it in a buffer.;------------------------------------------------------------------------------;FFFFFFFFFFFFBBC0 KeybdIRQ:FFFFFFFFFFFFBBC0 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFBBC4 67E10000 sw r2,[sp]FFFFFFFFFFFFBBC8 4A009450 lbu r1,KeybdHeadFFFFFFFFFFFFBBCC 1410800F andi r1,r1,#0x0f ; r1 = index into bufferFFFFFFFFFFFFBBD0 KeybdIRQa:FFFFFFFFFFFFBBD0 E69C0000 ; SETLOFFFFFFFFFFFFBBD4 EE800003 ; SETMIDFFFFFFFFFFFFBBD8 6A0D0821 inch r2,KEYBD ; get keyboard characterFFFFFFFFFFFFBBDC E69C0002 ; SETLOFFFFFFFFFFFFBBE0 EE800003 ; SETMIDFFFFFFFFFFFFBBE4 6A0D0029 outc r0,KEYBD+2 ; clear keyboard strobe (turns off the IRQ)FFFFFFFFFFFFBBE8 60111440 sb r2,KeybdBuffer[r1] ; store character in bufferFFFFFFFFFFFFBBEC 0A108001 addui r1,r1,#1 ; increment head indexFFFFFFFFFFFFBBF0 1410800F andi r1,r1,#0x0fFFFFFFFFFFFFBBF4 60009450 sb r1,KeybdHeadFFFFFFFFFFFFBBF8 KeybdIRQb:FFFFFFFFFFFFBBF8 4A011451 lbu r2,KeybdTail ; check to see if we've collidedFFFFFFFFFFFFBBFC BE110089 bne r1,r2,KeybdIRQc ; with the tailFFFFFFFFFFFFBC00 0A210001 addui r2,r2,#1 ; if so, increment the tail indexFFFFFFFFFFFFBC04 1421000F andi r2,r2,#0x0f ; the oldest character will be lostFFFFFFFFFFFFBC08 60011451 sb r2,KeybdTailFFFFFFFFFFFFBC0C KeybdIRQc:FFFFFFFFFFFFBC0C 47E10000 lw r2,[sp]FFFFFFFFFFFFBC10 37EF8008 ret #8;------------------------------------------------------------------------------; r1 0=echo off, non-zero = echo on;------------------------------------------------------------------------------FFFFFFFFFFFFBC14 SetKeyboardEcho:FFFFFFFFFFFFBC14 6000941C sb r1,KeybdEchoFFFFFFFFFFFFBC18 37EF8000 ret;-----------------------------------------; Get character from keyboard buffer;-----------------------------------------FFFFFFFFFFFFBC1C KeybdGetChar:FFFFFFFFFFFFBC1C 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFBC20 67E10000 sw r2,[sp]FFFFFFFFFFFFBC24 67EF8008 sw lr,8[sp]FFFFFFFFFFFFBC28 4A011451 lbu r2,KeybdTailFFFFFFFFFFFFBC2C 4A009450 lbu r1,KeybdHeadFFFFFFFFFFFFBC30 BE110188 beq r1,r2,nocharFFFFFFFFFFFFBC34 4A209440 lbu r1,KeybdBuffer[r2]FFFFFFFFFFFFBC38 0A210001 addui r2,r2,#1FFFFFFFFFFFFBC3C 1421000F andi r2,r2,#0x0fFFFFFFFFFFFFBC40 60011451 sb r2,KeybdTailFFFFFFFFFFFFBC44 4001141C lb r2,KeybdEchoFFFFFFFFFFFFBC48 BE2000E8 beq r2,r0,kgc3FFFFFFFFFFFFBC4C B210030D bnei r1,#CR,kgc2FFFFFFFFFFFFBC50 31FFFD80 call CRLF ; convert CR keystroke into CRLFFFFFFFFFFFFFBC54 BE00008A bra kgc3FFFFFFFFFFFFBC58 kgc2:FFFFFFFFFFFFBC58 31FFF07F call DisplayCharFFFFFFFFFFFFBC5C BE00004A bra kgc3FFFFFFFFFFFFBC60 nochar:FFFFFFFFFFFFBC60 E07FFFFF setlo r1,#-1FFFFFFFFFFFFBC64 kgc3:FFFFFFFFFFFFBC64 47EF8008 lw lr,8[sp]FFFFFFFFFFFFBC68 47E10000 lw r2,[sp]FFFFFFFFFFFFBC6C 37EF8010 ret #16;------------------------------------------------------------------------------; Check if there is a keyboard character available in the keyboard buffer.;------------------------------------------------------------------------------;FFFFFFFFFFFFBC70 KeybdCheckForKey:FFFFFFFFFFFFBC70 4A009451 lbu r1,KeybdTailFFFFFFFFFFFFBC74 4A011450 lbu r2,KeybdHeadFFFFFFFFFFFFBC78 04110439 sne r1,r1,r2FFFFFFFFFFFFBC7C 37EF8000 ret;------------------------------------------------------------------------------; Check if there is a keyboard character available. If so return true (1); otherwise return false (0) in r1.;------------------------------------------------------------------------------;FFFFFFFFFFFFBC80 KeybdCheckForKeyDirect:FFFFFFFFFFFFBC80 E69C0000 ; SETLOFFFFFFFFFFFFBC84 EE800003 ; SETMIDFFFFFFFFFFFFBC88 6A0D0421 inch r1,KEYBDFFFFFFFFFFFFBC8C 04100430 slt r1,r1,r0FFFFFFFFFFFFBC90 37EF8000 ret;------------------------------------------------------------------------------; Get character directly from keyboard. This routine blocks until a key is; available.;------------------------------------------------------------------------------;FFFFFFFFFFFFBC94 KeybdGetCharDirect:FFFFFFFFFFFFBC94 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFBC98 67E10000 sw r2,[sp]FFFFFFFFFFFFBC9C 67EF8008 sw lr,8[sp]FFFFFFFFFFFFBCA0 E09C0000 setlo r2,KEYBDFFFFFFFFFFFFBCA4 kgc1:FFFFFFFFFFFFBCA4 E69C0000 ; SETLOFFFFFFFFFFFFBCA8 EE800003 ; SETMIDFFFFFFFFFFFFBCAC 6A0D0421 inch r1,KEYBDFFFFFFFFFFFFBCB0 BE107FA1 bge r1,r0,kgc1FFFFFFFFFFFFBCB4 E69C0002 ; SETLOFFFFFFFFFFFFBCB8 EE800003 ; SETMIDFFFFFFFFFFFFBCBC 6A0D0029 outc r0,KEYBD+2 ; clear keyboard strobeFFFFFFFFFFFFBCC0 141080FF andi r1,r1,#0xff ; remove strobe bitFFFFFFFFFFFFBCC4 4001141C lb r2,KeybdEcho ; is keyboard echo on ?FFFFFFFFFFFFBCC8 BE2000A8 beq r2,r0,gk1FFFFFFFFFFFFBCCC B210030D bnei r1,#'\r',gk2 ; convert CR keystroke into CRLFFFFFFFFFFFFFBCD0 31FFFD80 call CRLFFFFFFFFFFFFFBCD4 BE00004A bra gk1FFFFFFFFFFFFBCD8 gk2:FFFFFFFFFFFFBCD8 31FFF07F call DisplayCharFFFFFFFFFFFFBCDC gk1:FFFFFFFFFFFFBCDC 47E10000 lw r2,[sp]FFFFFFFFFFFFBCE0 47EF8008 lw lr,8[sp]FFFFFFFFFFFFBCE4 37EF8010 ret #16;==============================================================================;==============================================================================FFFFFFFFFFFFBCE8 tmp_init:; wait for the rst1626 to go lowFFFFFFFFFFFFBCE8 E6989680 ; SETLOFFFFFFFFFFFFBCEC EE800002 ; SETMIDFFFFFFFFFFFFBCF0 040D0809 lw r2,#10000000 ; retry for up to several secondsFFFFFFFFFFFFBCF4 tmp_init4:FFFFFFFFFFFFBCF4 BE2000C8 beq r2,r0,tmp_init5FFFFFFFFFFFFBCF8 0E210001 subui r2,r2,#1FFFFFFFFFFFFBCFC E69C0302 ; SETLOFFFFFFFFFFFFBD00 EE800003 ; SETMIDFFFFFFFFFFFFBD04 6A0D0421 inch r1,TMP+2 ; read the status regFFFFFFFFFFFFBD08 BE107F60 blt r1,r0,tmp_init4FFFFFFFFFFFFBD0C tmp_init5:FFFFFFFFFFFFBD0C 16008051 lw r1,#0x51 ; Start temperature conversionFFFFFFFFFFFFBD10 E69C0300 ; SETLOFFFFFFFFFFFFBD14 EE800003 ; SETMIDFFFFFFFFFFFFBD18 6A0D0429 outc r1,TMP; wait a bit for the trigger to take effectFFFFFFFFFFFFBD1C 160089C4 lw r1,#2500FFFFFFFFFFFFBD20 tmp_init1:FFFFFFFFFFFFBD20 BE00800F loop r1,tmp_init1; wait for the rst1626 to go lowFFFFFFFFFFFFBD24 E6989680 ; SETLOFFFFFFFFFFFFBD28 EE800002 ; SETMIDFFFFFFFFFFFFBD2C 040D0809 lw r2,#10000000 ; retry for up to several secondsFFFFFFFFFFFFBD30 tmp_init2:FFFFFFFFFFFFBD30 BE2000C8 beq r2,r0,tmp_init3FFFFFFFFFFFFBD34 0E210001 subui r2,r2,#1FFFFFFFFFFFFBD38 E69C0302 ; SETLOFFFFFFFFFFFFBD3C EE800003 ; SETMIDFFFFFFFFFFFFBD40 6A0D0421 inch r1,TMP+2 ; read the status regFFFFFFFFFFFFBD44 BE107F60 blt r1,r0,tmp_init2FFFFFFFFFFFFBD48 tmp_init3:FFFFFFFFFFFFBD48 37EF8000 retFFFFFFFFFFFFBD4C tmp_read:FFFFFFFFFFFFBD4C 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFBD50 67EF8000 sw lr,[sp]FFFFFFFFFFFFBD54 67E08008 sw r1,8[sp]FFFFFFFFFFFFBD58 67E10010 sw r2,16[sp]FFFFFFFFFFFFBD5C E6BD7840 ; SETLOFFFFFFFFFFFFBD60 EE800005 ; SETMIDFFFFFFFFFFFFBD64 040D0409 lw r1,#25000000 ; wait about 1 second or soFFFFFFFFFFFFBD68 tmp_read1:FFFFFFFFFFFFBD68 BE00800F loop r1,tmp_read1FFFFFFFFFFFFBD6C 160080AC lw r1,#0xAC ; issue read temperature conversionFFFFFFFFFFFFBD70 E69C0300 ; SETLOFFFFFFFFFFFFBD74 EE800003 ; SETMIDFFFFFFFFFFFFBD78 6A0D0429 outc r1,TMP; wait a bit for the trigger to take effectFFFFFFFFFFFFBD7C 160089C4 lw r1,#2500FFFFFFFFFFFFBD80 tmp_read3:FFFFFFFFFFFFBD80 BE00800F loop r1,tmp_read3; wait for the rst1626 to go lowFFFFFFFFFFFFBD84 E6989680 ; SETLOFFFFFFFFFFFFBD88 EE800002 ; SETMIDFFFFFFFFFFFFBD8C 040D0809 lw r2,#10000000FFFFFFFFFFFFBD90 tmp_read2:FFFFFFFFFFFFBD90 E69C0302 ; SETLOFFFFFFFFFFFFBD94 EE800003 ; SETMIDFFFFFFFFFFFFBD98 6A0D0421 inch r1,TMP+2 ; read the status regFFFFFFFFFFFFBD9C BE200068 beq r2,r0,tmp_read4FFFFFFFFFFFFBDA0 0E210001 subui r2,r2,#1FFFFFFFFFFFFBDA4 BE107F60 blt r1,r0,tmp_read2FFFFFFFFFFFFBDA8 tmp_read4:FFFFFFFFFFFFBDA8 E69C0302 ; SETLOFFFFFFFFFFFFBDAC EE800003 ; SETMIDFFFFFFFFFFFFBDB0 6A0D0421 inch r1,TMP+2 ; read the temperatureFFFFFFFFFFFFBDB4 16010005 lw r2,#5 ; five digitsFFFFFFFFFFFFBDB8 31FFF13F call DisplayNumFFFFFFFFFFFFBDBC 47EF8000 lw lr,[sp]FFFFFFFFFFFFBDC0 47E08008 lw r1,8[sp]FFFFFFFFFFFFBDC4 47E10010 lw r2,16[sp]FFFFFFFFFFFFBDC8 37EF8018 ret #24;==============================================================================;==============================================================================;------------------------------------------------------------------------------; 100 Hz interrupt; - takes care of "flashing" the cursor;------------------------------------------------------------------------------;FFFFFFFFFFFFBDCC Pulse100:FFFFFFFFFFFFBDCC 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFBDD0 67EF8000 sw lr,[sp]FFFFFFFFFFFFBDD4 E6900000 ; SETLOFFFFFFFFFFFFBDD8 EE800003 ; SETMIDFFFFFFFFFFFFBDDC 6A0D082D lea r2,TEXTSCRFFFFFFFFFFFFBDE0 8220814E inch r1,334[r2]FFFFFFFFFFFFBDE4 0A108001 addui r1,r1,#1FFFFFFFFFFFFBDE8 9220814E outc r1,334[r2]; call DisplayDatetimeFFFFFFFFFFFFBDEC 31FFEF82 call SelectNextToRunTCBFFFFFFFFFFFFBDF0 31FFEF84 call SwitchTaskFFFFFFFFFFFFBDF4 E69CFFFC ; SETLOFFFFFFFFFFFFBDF8 EE800003 ; SETMIDFFFFFFFFFFFFBDFC 6A0D0028 outb r0,0xDCFFFC ; clear interrupt; lw r1,TickIRQAddr; jal r31,[r1]; lw r1,Milliseconds; andi r1,r1,#0x0f; bnei r1,#5,p1001; call FlashCursorFFFFFFFFFFFFBE00 p1001:FFFFFFFFFFFFBE00 47EF8000 lw lr,[sp]FFFFFFFFFFFFBE04 37EF8008 ret #8;------------------------------------------------------------------------------;------------------------------------------------------------------------------FFFFFFFFFFFFBE08 SelectNextToRunTCB:FFFFFFFFFFFFBE08 620020A8 sc r0,NextToRunTCBFFFFFFFFFFFFBE0C 37EF8000 ret;------------------------------------------------------------------------------; Switch from the RunningTCB to the NextToRunTCB;------------------------------------------------------------------------------FFFFFFFFFFFFBE10 SwitchTask:FFFFFFFFFFFFBE10 6600A0B0 sw r1,r1saveFFFFFFFFFFFFBE14 660120B8 sw r2,r2saveFFFFFFFFFFFFBE18 4C00A0A8 lcu r1,NextToRunTCBFFFFFFFFFFFFBE1C 4C0120A6 lcu r2,RunningTCBFFFFFFFFFFFFBE20 BE110089 bne r1,r2,swtsk1 ; are we already running this TCB ?FFFFFFFFFFFFBE24 4600A0B0 lw r1,r1saveFFFFFFFFFFFFBE28 460120B8 lw r2,r2saveFFFFFFFFFFFFBE2C 37EF8000 retFFFFFFFFFFFFBE30 swtsk1:FFFFFFFFFFFFBE30 142101FF andi r2,r2,#0x1ff ; max 512 TCB'sFFFFFFFFFFFFBE34 1A210200 mului r2,r2,#TCBSizeFFFFFFFFFFFFBE38 E6800000 ; SETLOFFFFFFFFFFFFBE3C EE800400 ; SETMIDFFFFFFFFFFFFBE40 042D0803 addui r2,r2,#TCBBaseFFFFFFFFFFFFBE44 4600A0B0 lw r1,r1save ; get back r1FFFFFFFFFFFFBE48 66208000 sw r1,TCBr1[r2]FFFFFFFFFFFFBE4C 4600A0B8 lw r1,r2save ; get back r2FFFFFFFFFFFFBE50 66208008 sw r1,TCBr2[r2]FFFFFFFFFFFFBE54 66218010 sw r3,TCBr3[r2]FFFFFFFFFFFFBE58 66220018 sw r4,TCBr4[r2]FFFFFFFFFFFFBE5C 66228020 sw r5,TCBr5[r2]FFFFFFFFFFFFBE60 66230028 sw r6,TCBr6[r2]FFFFFFFFFFFFBE64 66238030 sw r7,TCBr7[r2]FFFFFFFFFFFFBE68 66240038 sw r8,TCBr8[r2]FFFFFFFFFFFFBE6C 66248040 sw r9,TCBr9[r2]FFFFFFFFFFFFBE70 66250048 sw r10,TCBr10[r2]FFFFFFFFFFFFBE74 66258050 sw r11,TCBr11[r2]FFFFFFFFFFFFBE78 66260058 sw r12,TCBr12[r2]FFFFFFFFFFFFBE7C 66268060 sw r13,TCBr13[r2]FFFFFFFFFFFFBE80 66270068 sw r14,TCBr14[r2]FFFFFFFFFFFFBE84 66278070 sw r15,TCBr15[r2]FFFFFFFFFFFFBE88 66280078 sw r16,TCBr16[r2]FFFFFFFFFFFFBE8C 66288080 sw r17,TCBr17[r2]FFFFFFFFFFFFBE90 66290088 sw r18,TCBr18[r2]FFFFFFFFFFFFBE94 66298090 sw r19,TCBr19[r2]FFFFFFFFFFFFBE98 662A0098 sw r20,TCBr20[r2]FFFFFFFFFFFFBE9C 662A80A0 sw r21,TCBr21[r2]FFFFFFFFFFFFBEA0 662B00A8 sw r22,TCBr22[r2]FFFFFFFFFFFFBEA4 662B80B0 sw r23,TCBr23[r2]FFFFFFFFFFFFBEA8 662C00B8 sw r24,TCBr24[r2]FFFFFFFFFFFFBEAC 662C80C0 sw r25,TCBr25[r2]FFFFFFFFFFFFBEB0 662D00C8 sw r26,TCBr26[r2]FFFFFFFFFFFFBEB4 662D80D0 sw r27,TCBr27[r2]FFFFFFFFFFFFBEB8 662E00D8 sw r28,TCBr28[r2]FFFFFFFFFFFFBEBC 662E80E0 sw r29,TCBr29[r2]FFFFFFFFFFFFBEC0 662F00E8 sw r30,TCBr30[r2]FFFFFFFFFFFFBEC4 662F80F0 sw r31,TCBr31[r2]FFFFFFFFFFFFBEC8 4C0120A8 lcu r2,NextToRunTCBFFFFFFFFFFFFBECC 620120A6 sc r2,RunningTCBFFFFFFFFFFFFBED0 1A210200 mului r2,r2,#TCBSizeFFFFFFFFFFFFBED4 E6800000 ; SETLOFFFFFFFFFFFFBED8 EE800400 ; SETMIDFFFFFFFFFFFFBEDC 042D0803 addui r2,r2,#TCBBaseFFFFFFFFFFFFBEE0 46208000 lw r1,TCBr1[r2]FFFFFFFFFFFFBEE4 46218010 lw r3,TCBr3[r2]FFFFFFFFFFFFBEE8 46220018 lw r4,TCBr4[r2]FFFFFFFFFFFFBEEC 46228020 lw r5,TCBr5[r2]FFFFFFFFFFFFBEF0 46230028 lw r6,TCBr6[r2]FFFFFFFFFFFFBEF4 46238030 lw r7,TCBr7[r2]FFFFFFFFFFFFBEF8 46240038 lw r8,TCBr8[r2]FFFFFFFFFFFFBEFC 46248040 lw r9,TCBr9[r2]FFFFFFFFFFFFBF00 46250048 lw r10,TCBr10[r2]FFFFFFFFFFFFBF04 46258050 lw r11,TCBr11[r2]FFFFFFFFFFFFBF08 46260058 lw r12,TCBr12[r2]FFFFFFFFFFFFBF0C 46268060 lw r13,TCBr13[r2]FFFFFFFFFFFFBF10 46270068 lw r14,TCBr14[r2]FFFFFFFFFFFFBF14 46278070 lw r15,TCBr15[r2]FFFFFFFFFFFFBF18 46280078 lw r16,TCBr16[r2]FFFFFFFFFFFFBF1C 46288080 lw r17,TCBr17[r2]FFFFFFFFFFFFBF20 46290088 lw r18,TCBr18[r2]FFFFFFFFFFFFBF24 46298090 lw r19,TCBr19[r2]FFFFFFFFFFFFBF28 462A0098 lw r20,TCBr20[r2]FFFFFFFFFFFFBF2C 462A80A0 lw r21,TCBr21[r2]FFFFFFFFFFFFBF30 462B00A8 lw r22,TCBr22[r2]FFFFFFFFFFFFBF34 462B80B0 lw r23,TCBr23[r2]FFFFFFFFFFFFBF38 462C00B8 lw r24,TCBr24[r2]FFFFFFFFFFFFBF3C 462C80C0 lw r25,TCBr25[r2]FFFFFFFFFFFFBF40 462D00C8 lw r26,TCBr26[r2]FFFFFFFFFFFFBF44 462D80D0 lw r27,TCBr27[r2]FFFFFFFFFFFFBF48 462E00D8 lw r28,TCBr28[r2]FFFFFFFFFFFFBF4C 462E80E0 lw r29,TCBr29[r2]FFFFFFFFFFFFBF50 462F00E8 lw r30,TCBr30[r2]FFFFFFFFFFFFBF54 462F80F0 lw r31,TCBr31[r2]FFFFFFFFFFFFBF58 46210008 lw r2,TCBr2[r2]FFFFFFFFFFFFBF5C 37EF8000 ret;------------------------------------------------------------------------------; Flash Cursor;------------------------------------------------------------------------------;FFFFFFFFFFFFBF60 FlashCursor:FFFFFFFFFFFFBF60 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFBF64 67E08000 sw r1,[sp]FFFFFFFFFFFFBF68 67E10008 sw r2,8[sp]FFFFFFFFFFFFBF6C 67E18010 sw r3,16[sp]FFFFFFFFFFFFBF70 67EF8018 sw lr,24[sp]FFFFFFFFFFFFBF74 31FFF06F call CalcScreenLocFFFFFFFFFFFFBF78 E6810000 ; SETLOFFFFFFFFFFFFBF7C 041D0403 addui r1,r1,#0x10000FFFFFFFFFFFFBF80 4001141A lb r2,CursorFlashFFFFFFFFFFFFBF84 BE2001C8 beq r2,r0,flshcrsr2; causes screen colors to flip aroundFFFFFFFFFFFFBF88 82110000 inch r2,[r1]FFFFFFFFFFFFBF8C 0A210001 addui r2,r2,#1FFFFFFFFFFFFBF90 92110000 outc r2,[r1]FFFFFFFFFFFFBF94 flshcrsr3:FFFFFFFFFFFFBF94 46011408 lw r2,LastlocFFFFFFFFFFFFBF98 BE110088 beq r1,r2,flshcrsr1; restore the screen colors of the previous cursor locationFFFFFFFFFFFFBF9C 42019414 lc r3,ScreenColorFFFFFFFFFFFFBFA0 92218000 outc r3,[r2]FFFFFFFFFFFFBFA4 66009408 sw r1,LastlocFFFFFFFFFFFFBFA8 flshcrsr1:FFFFFFFFFFFFBFA8 47E08000 lw r1,[sp]FFFFFFFFFFFFBFAC 47E10008 lw r2,8[sp]FFFFFFFFFFFFBFB0 47E18010 lw r3,16[sp]FFFFFFFFFFFFBFB4 47EF8018 lw lr,24[sp]FFFFFFFFFFFFBFB8 37EF8020 ret #32FFFFFFFFFFFFBFBC flshcrsr2:FFFFFFFFFFFFBFBC 42019414 lc r3,ScreenColorFFFFFFFFFFFFBFC0 92118000 outc r3,[r1]FFFFFFFFFFFFBFC4 BE007E8A bra flshcrsr3FFFFFFFFFFFFBFC8 CursorOff:FFFFFFFFFFFFBFC8 160080A0 lw r1,#0xA0FFFFFFFFFFFFBFCC E69A0010 ; SETLOFFFFFFFFFFFFBFD0 EE800003 ; SETMIDFFFFFFFFFFFFBFD4 6A0D0429 outc r1,TEXTREG+16 ; turn off cursorFFFFFFFFFFFFBFD8 37EF8000 retFFFFFFFFFFFFBFDC CursorOn:FFFFFFFFFFFFBFDC 160080E0 lw r1,#0xE0FFFFFFFFFFFFBFE0 E69A0010 ; SETLOFFFFFFFFFFFFBFE4 EE800003 ; SETMIDFFFFFFFFFFFFBFE8 6A0D0429 outc r1,TEXTREG+16 ; turn on cursorFFFFFFFFFFFFBFEC 37EF8000 ret;------------------------------------------------------------------------------;------------------------------------------------------------------------------FFFFFFFFFFFFBFF0 ClearBmpScreen:FFFFFFFFFFFFBFF0 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFBFF4 67E08000 sw r1,[sp]FFFFFFFFFFFFBFF8 67E10008 sw r2,8[sp]FFFFFFFFFFFFBFFC 67E18010 sw r3,16[sp]FFFFFFFFFFFFC000 E68FFC00 ; SETLOFFFFFFFFFFFFC004 040D0809 lw r2,#1364*768FFFFFFFFFFFFC008 06210601 shrui r2,r2,#3 ; r2 = # words to clearFFFFFFFFFFFFC00C E6A92929 ; SETLOFFFFFFFFFFFFC010 EEA4A4A4 ; SETMIDFFFFFFFFFFFFC014 F6829292 ; SETHIFFFFFFFFFFFFC018 6A0D042D lea r1,0x2929292929292929 ; r1 = color for eight pixelsFFFFFFFFFFFFC01C E6A00000 ; SETLOFFFFFFFFFFFFC020 EE800400 ; SETMIDFFFFFFFFFFFFC024 6A0D0C2D lea r3,BITMAPSCR ; r3 = screen addressFFFFFFFFFFFFC028 csj4:FFFFFFFFFFFFC028 66308000 sw r1,[r3] ; store pixel dataFFFFFFFFFFFFC02C 0A318008 addui r3,r3,#8 ; advance screen address by eightFFFFFFFFFFFFC030 BE017FCF loop r2,csj4 ; decrement pixel count and loop backFFFFFFFFFFFFC034 47E08000 lw r1,[sp]FFFFFFFFFFFFC038 47E10008 lw r2,8[sp]FFFFFFFFFFFFC03C 47E18010 lw r3,16[sp]FFFFFFFFFFFFC040 37EF8018 ret #24;------------------------------------------------------------------------------; Clear the screen and the screen color memory; We clear the screen to give a visual indication that the system; is working at all.;------------------------------------------------------------------------------;FFFFFFFFFFFFC044 ClearScreen:FFFFFFFFFFFFC044 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFC048 67E08000 sw r1,[sp]FFFFFFFFFFFFC04C 67E10008 sw r2,8[sp]FFFFFFFFFFFFC050 67E18010 sw r3,16[sp]FFFFFFFFFFFFC054 67E20018 sw r4,24[sp]FFFFFFFFFFFFC058 67EF8020 sw lr,32[sp]FFFFFFFFFFFFC05C E69A0000 ; SETLOFFFFFFFFFFFFC060 EE800003 ; SETMIDFFFFFFFFFFFFC064 6A0D0C2D lea r3,TEXTREGFFFFFFFFFFFFC068 82308000 inch r1,TEXT_COLS[r3] ; calc number to clearFFFFFFFFFFFFC06C 82310002 inch r2,TEXT_ROWS[r3]FFFFFFFFFFFFC070 04110818 mulu r2,r1,r2 ; r2 = # chars to clearFFFFFFFFFFFFC074 E0400020 setlo r1,#32 ; space charFFFFFFFFFFFFC078 42021414 lc r4,ScreenColorFFFFFFFFFFFFC07C 31FFF063 call AsciiToScreenFFFFFFFFFFFFC080 E6900000 ; SETLOFFFFFFFFFFFFC084 EE800003 ; SETMIDFFFFFFFFFFFFC088 6A0D0C2D lea r3,TEXTSCR ; text screen addressFFFFFFFFFFFFC08C csj4:FFFFFFFFFFFFC08C 92308000 outc r1,[r3]FFFFFFFFFFFFC090 E6810000 ; SETLOFFFFFFFFFFFFC094 6A3D1029 outc r4,0x10000[r3] ; color screen is 0x10000 higherFFFFFFFFFFFFC098 0A318002 addui r3,r3,#2FFFFFFFFFFFFC09C BE017F8F loop r2,csj4FFFFFFFFFFFFC0A0 47EF8020 lw lr,32[sp]FFFFFFFFFFFFC0A4 47E20018 lw r4,24[sp]FFFFFFFFFFFFC0A8 47E18010 lw r3,16[sp]FFFFFFFFFFFFC0AC 47E10008 lw r2,8[sp]FFFFFFFFFFFFC0B0 47E08000 lw r1,[sp]FFFFFFFFFFFFC0B4 37EF8028 ret #40;------------------------------------------------------------------------------; Scroll text on the screen upwards;------------------------------------------------------------------------------;FFFFFFFFFFFFC0B8 ScrollUp:FFFFFFFFFFFFC0B8 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFC0BC 67E08000 sw r1,[sp]FFFFFFFFFFFFC0C0 67E10008 sw r2,8[sp]FFFFFFFFFFFFC0C4 67E18010 sw r3,16[sp]FFFFFFFFFFFFC0C8 67E20018 sw r4,24[sp]FFFFFFFFFFFFC0CC 67EF8020 sw lr,32[sp]FFFFFFFFFFFFC0D0 E69A0000 ; SETLOFFFFFFFFFFFFC0D4 EE800003 ; SETMIDFFFFFFFFFFFFC0D8 6A0D0C2D lea r3,TEXTREGFFFFFFFFFFFFC0DC 82308000 inch r1,TEXT_COLS[r3] ; r1 = # text columnsFFFFFFFFFFFFC0E0 82310002 inch r2,TEXT_ROWS[r3]FFFFFFFFFFFFC0E4 04110818 mulu r2,r1,r2 ; calc number of chars to scrollFFFFFFFFFFFFC0E8 04208805 subu r2,r2,r1 ; one less rowFFFFFFFFFFFFC0EC E6900000 ; SETLOFFFFFFFFFFFFC0F0 EE800003 ; SETMIDFFFFFFFFFFFFC0F4 6A0D0C2D lea r3,TEXTSCRFFFFFFFFFFFFC0F8 scrup1:FFFFFFFFFFFFC0F8 6A309121 inch r4,[r3+r1*2] ; indexed addressing exampleFFFFFFFFFFFFC0FC 92320000 outc r4,[r3]FFFFFFFFFFFFC100 0A318002 addui r3,r3,#2FFFFFFFFFFFFC104 BE017FAF loop r2,scrup1FFFFFFFFFFFFC108 E69A0000 ; SETLOFFFFFFFFFFFFC10C EE800003 ; SETMIDFFFFFFFFFFFFC110 6A0D0C2D lea r3,TEXTREGFFFFFFFFFFFFC114 82308002 inch r1,TEXT_ROWS[r3]FFFFFFFFFFFFC118 0E108001 subui r1,r1,#1FFFFFFFFFFFFC11C 31FFF04E call BlankLineFFFFFFFFFFFFC120 47E08000 lw r1,[sp]FFFFFFFFFFFFC124 47E10008 lw r2,8[sp]FFFFFFFFFFFFC128 47E18010 lw r3,16[sp]FFFFFFFFFFFFC12C 47E20018 lw r4,24[sp]FFFFFFFFFFFFC130 47EF8020 lw lr,32[sp]FFFFFFFFFFFFC134 37EF8028 ret #40;------------------------------------------------------------------------------; Blank out a line on the display; line number to blank is in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFC138 BlankLine:FFFFFFFFFFFFC138 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFC13C 67E08000 sw r1,[sp]FFFFFFFFFFFFC140 67E10008 sw r2,8[sp]FFFFFFFFFFFFC144 67E18010 sw r3,16[sp]FFFFFFFFFFFFC148 E69A0000 ; SETLOFFFFFFFFFFFFC14C EE800003 ; SETMIDFFFFFFFFFFFFC150 6A0D0C2D lea r3,TEXTREG ; r3 = text register addressFFFFFFFFFFFFC154 82310000 inch r2,TEXT_COLS[r3] ; r2 = # chars to blank outFFFFFFFFFFFFC158 04208C18 mulu r3,r2,r1FFFFFFFFFFFFC15C 06318200 shli r3,r3,#1FFFFFFFFFFFFC160 E6900000 ; SETLOFFFFFFFFFFFFC164 EE800003 ; SETMIDFFFFFFFFFFFFC168 043D0C03 addui r3,r3,#TEXTSCR ; r3 = screen addressFFFFFFFFFFFFC16C E0400020 setlo r1,#' 'FFFFFFFFFFFFC170 blnkln1:FFFFFFFFFFFFC170 92308000 outc r1,[r3]FFFFFFFFFFFFC174 0A318002 addui r3,r3,#2FFFFFFFFFFFFC178 BE017FCF loop r2,blnkln1FFFFFFFFFFFFC17C 47E08000 lw r1,[sp]FFFFFFFFFFFFC180 47E10008 lw r2,8[sp]FFFFFFFFFFFFC184 47E18010 lw r3,16[sp]FFFFFFFFFFFFC188 37EF8018 ret #24;------------------------------------------------------------------------------; Convert ASCII character to screen display character.;------------------------------------------------------------------------------;FFFFFFFFFFFFC18C AsciiToScreen:FFFFFFFFFFFFC18C 141080FF andi r1,r1,#0x00ffFFFFFFFFFFFFC190 A8100541 bltui r1,#'A',atoscr1FFFFFFFFFFFFC194 AC10045A bleui r1,#'Z',atoscr1FFFFFFFFFFFFC198 AE10037A bgtui r1,#'z',atoscr1FFFFFFFFFFFFC19C A8100261 bltui r1,#'a',atoscr1FFFFFFFFFFFFC1A0 0E108060 subui r1,r1,#0x60FFFFFFFFFFFFC1A4 atoscr1:FFFFFFFFFFFFC1A4 16108100 ori r1,r1,#0x100FFFFFFFFFFFFC1A8 37EF8000 ret;------------------------------------------------------------------------------; Convert screen character to ascii character;------------------------------------------------------------------------------;FFFFFFFFFFFFC1AC ScreenToAscii:FFFFFFFFFFFFC1AC 141080FF andi r1,r1,#0xffFFFFFFFFFFFFC1B0 AE10021A bgtui r1,#26,stasc1FFFFFFFFFFFFC1B4 0A10803C addui r1,r1,#60FFFFFFFFFFFFC1B8 stasc1:FFFFFFFFFFFFC1B8 37EF8000 ret;------------------------------------------------------------------------------; Calculate screen memory location from CursorRow,CursorCol.; Also refreshes the cursor location.; Destroys r1,r2,r3; r1 = screen location;------------------------------------------------------------------------------;FFFFFFFFFFFFC1BC CalcScreenLoc:FFFFFFFFFFFFC1BC 4A009417 lbu r1,CursorRowFFFFFFFFFFFFC1C0 1410807F andi r1,r1,#0x7fFFFFFFFFFFFFC1C4 E69A0000 ; SETLOFFFFFFFFFFFFC1C8 EE800003 ; SETMIDFFFFFFFFFFFFC1CC 6A0D0C2D lea r3,TEXTREGFFFFFFFFFFFFC1D0 82310000 inch r2,TEXT_COLS[r3]FFFFFFFFFFFFC1D4 04208818 mulu r2,r2,r1FFFFFFFFFFFFC1D8 4A009418 lbu r1,CursorColFFFFFFFFFFFFC1DC 1410807F andi r1,r1,#0x7fFFFFFFFFFFFFC1E0 04208803 addu r2,r2,r1FFFFFFFFFFFFC1E4 92310016 outc r2,TEXT_CURPOS[r3]FFFFFFFFFFFFC1E8 06210206 shlui r2,r2,#1FFFFFFFFFFFFC1EC E6900000 ; SETLOFFFFFFFFFFFFC1F0 EE800003 ; SETMIDFFFFFFFFFFFFC1F4 042D0403 addui r1,r2,#TEXTSCR ; r1 = screen locationFFFFFFFFFFFFC1F8 37EF8000 ret;------------------------------------------------------------------------------; Display a character on the screen; d1.b = char to display;------------------------------------------------------------------------------;FFFFFFFFFFFFC1FC DisplayChar:FFFFFFFFFFFFC1FC B210080D bnei r1,#'\r',dccr ; carriage return ?FFFFFFFFFFFFC200 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC204 67E08000 sw r1,[sp]FFFFFFFFFFFFC208 67E10008 sw r2,8[sp]FFFFFFFFFFFFC20C 67E18010 sw r3,16[sp]FFFFFFFFFFFFC210 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC214 60001418 sb r0,CursorCol ; just set cursor column to zero on a CRFFFFFFFFFFFFC218 BE00018A bra dcx7FFFFFFFFFFFFC21C dccr:; beqi r1,#CTRLK,dccr1FFFFFFFFFFFFC21C E6800091 ; SETLOFFFFFFFFFFFFC220 BE1D0209 bnei r1,#0x91,dcx6 ; cursor right ?FFFFFFFFFFFFC224 dccr1:FFFFFFFFFFFFC224 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC228 67E08000 sw r1,[sp]FFFFFFFFFFFFC22C 67E10008 sw r2,8[sp]FFFFFFFFFFFFC230 67E18010 sw r3,16[sp]FFFFFFFFFFFFC234 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC238 4A011418 lbu r2,CursorColFFFFFFFFFFFFC23C B0200338 beqi r2,#56,dcx7FFFFFFFFFFFFC240 0A210001 addui r2,r2,#1FFFFFFFFFFFFC244 60011418 sb r2,CursorColFFFFFFFFFFFFC248 dcx7:FFFFFFFFFFFFC248 31FFF06F call CalcScreenLocFFFFFFFFFFFFC24C 47EF8018 lw lr,24[sp]FFFFFFFFFFFFC250 47E18010 lw r3,16[sp]FFFFFFFFFFFFC254 47E10008 lw r2,8[sp]FFFFFFFFFFFFC258 47E08000 lw r1,[sp]FFFFFFFFFFFFC25C 37EF8020 ret #32FFFFFFFFFFFFC260 dcx6:; beqi r1,#CTRLI,dccu1FFFFFFFFFFFFC260 E6800090 ; SETLOFFFFFFFFFFFFC264 BE1D0169 bnei r1,#0x90,dcx8 ; cursor up ?FFFFFFFFFFFFC268 dccu1:FFFFFFFFFFFFC268 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC26C 67E08000 sw r1,[sp]FFFFFFFFFFFFC270 67E10008 sw r2,8[sp]FFFFFFFFFFFFC274 67E18010 sw r3,16[sp]FFFFFFFFFFFFC278 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC27C 4A011417 lbu r2,CursorRowFFFFFFFFFFFFC280 B02FF200 beqi r2,#0,dcx7FFFFFFFFFFFFC284 0E210001 subui r2,r2,#1FFFFFFFFFFFFC288 60011417 sb r2,CursorRowFFFFFFFFFFFFC28C BE007DEA bra dcx7FFFFFFFFFFFFC290 dcx8:; beqi r1,#CTRLJ,dccl1FFFFFFFFFFFFC290 E6800093 ; SETLOFFFFFFFFFFFFC294 BE1D0169 bnei r1,#0x93,dcx9 ; cursor left ?FFFFFFFFFFFFC298 dccl1:FFFFFFFFFFFFC298 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC29C 67E08000 sw r1,[sp]FFFFFFFFFFFFC2A0 67E10008 sw r2,8[sp]FFFFFFFFFFFFC2A4 67E18010 sw r3,16[sp]FFFFFFFFFFFFC2A8 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC2AC 4A011418 lbu r2,CursorColFFFFFFFFFFFFC2B0 B02FE600 beqi r2,#0,dcx7FFFFFFFFFFFFC2B4 0E210001 subui r2,r2,#1FFFFFFFFFFFFC2B8 60011418 sb r2,CursorColFFFFFFFFFFFFC2BC BE007C6A bra dcx7FFFFFFFFFFFFC2C0 dcx9:; beqi r1,#CTRLM,dccd1FFFFFFFFFFFFC2C0 E6800092 ; SETLOFFFFFFFFFFFFC2C4 BE1D0169 bnei r1,#0x92,dcx10 ; cursor down ?FFFFFFFFFFFFC2C8 dccd1:FFFFFFFFFFFFC2C8 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC2CC 67E08000 sw r1,[sp]FFFFFFFFFFFFC2D0 67E10008 sw r2,8[sp]FFFFFFFFFFFFC2D4 67E18010 sw r3,16[sp]FFFFFFFFFFFFC2D8 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC2DC 4A011417 lbu r2,CursorRowFFFFFFFFFFFFC2E0 B02FDA1E beqi r2,#30,dcx7FFFFFFFFFFFFC2E4 0A210001 addui r2,r2,#1FFFFFFFFFFFFC2E8 60011417 sb r2,CursorRowFFFFFFFFFFFFC2EC BE007AEA bra dcx7FFFFFFFFFFFFC2F0 dcx10:FFFFFFFFFFFFC2F0 E6800094 ; SETLOFFFFFFFFFFFFC2F4 BE1D0189 bnei r1,#0x94,dcx11 ; cursor home ?FFFFFFFFFFFFC2F8 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC2FC 67E08000 sw r1,[sp]FFFFFFFFFFFFC300 67E10008 sw r2,8[sp]FFFFFFFFFFFFC304 67E18010 sw r3,16[sp]FFFFFFFFFFFFC308 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC30C 4A011418 lbu r2,CursorColFFFFFFFFFFFFC310 BE200068 beq r2,r0,dcx12FFFFFFFFFFFFC314 60001418 sb r0,CursorColFFFFFFFFFFFFC318 BE00798A bra dcx7FFFFFFFFFFFFC31C dcx12:FFFFFFFFFFFFC31C 60001417 sb r0,CursorRowFFFFFFFFFFFFC320 BE00794A bra dcx7FFFFFFFFFFFFC324 dcx11:FFFFFFFFFFFFC324 0FEF0030 subui sp,sp,#48FFFFFFFFFFFFC328 67E08000 sw r1,[sp]FFFFFFFFFFFFC32C 67E10008 sw r2,8[sp]FFFFFFFFFFFFC330 67E18010 sw r3,16[sp]FFFFFFFFFFFFC334 67E20018 sw r4,24[sp]FFFFFFFFFFFFC338 67E28020 sw r5,32[sp]FFFFFFFFFFFFC33C 67EF8028 sw lr,40[sp]FFFFFFFFFFFFC340 E6800099 ; SETLOFFFFFFFFFFFFC344 BE1D00A9 bnei r1,#0x99,dcx13 ; delete ?FFFFFFFFFFFFC348 31FFF06F call CalcScreenLocFFFFFFFFFFFFC34C 02118009 mov r3,r1 ; r3 = screen locationFFFFFFFFFFFFC350 4A009418 lbu r1,CursorCol ; r1 = cursor columnFFFFFFFFFFFFC354 BE00012A bra dcx5FFFFFFFFFFFFC358 dcx13:FFFFFFFFFFFFC358 B2101508 bnei r1,#CTRLH,dcx3 ; backspace ?FFFFFFFFFFFFC35C 4A011418 lbu r2,CursorColFFFFFFFFFFFFC360 BE200408 beq r2,r0,dcx4FFFFFFFFFFFFC364 0E210001 subui r2,r2,#1FFFFFFFFFFFFC368 60011418 sb r2,CursorColFFFFFFFFFFFFC36C 31FFF06F call CalcScreenLoc ; a0 = screen locationFFFFFFFFFFFFC370 02118009 mov r3,r1 ; r3 = screen locationFFFFFFFFFFFFC374 4A009418 lbu r1,CursorColFFFFFFFFFFFFC378 dcx5:FFFFFFFFFFFFC378 82310002 inch r2,2[r3]FFFFFFFFFFFFC37C 92310000 outc r2,[r3]FFFFFFFFFFFFC380 0A318002 addui r3,r3,#2FFFFFFFFFFFFC384 0A108001 addui r1,r1,#1FFFFFFFFFFFFC388 E69A0000 ; SETLOFFFFFFFFFFFFC38C EE800003 ; SETMIDFFFFFFFFFFFFC390 6A0D102D lea r4,TEXTREGFFFFFFFFFFFFC394 82428000 inch r5,TEXT_COLS[r4]FFFFFFFFFFFFC398 BE12FF04 bltu r1,r5,dcx5FFFFFFFFFFFFC39C E0400020 setlo r1,#' 'FFFFFFFFFFFFC3A0 31FFF063 call AsciiToScreenFFFFFFFFFFFFC3A4 9230FFFE outc r1,-2[r3]FFFFFFFFFFFFC3A8 BE0001CA bra dcx4FFFFFFFFFFFFC3AC dcx3:FFFFFFFFFFFFC3AC B0100C0A beqi r1,#'\n',dclf ; linefeed ?FFFFFFFFFFFFC3B0 02120009 mov r4,r1 ; save r1 in r4FFFFFFFFFFFFC3B4 31FFF06F call CalcScreenLoc ; r1 = screen locationFFFFFFFFFFFFC3B8 02118009 mov r3,r1 ; r3 = screen locationFFFFFFFFFFFFC3BC 02408009 mov r1,r4 ; restore r1FFFFFFFFFFFFC3C0 31FFF063 call AsciiToScreen ; convert ascii char to screen charFFFFFFFFFFFFC3C4 92308000 outc r1,[r3]FFFFFFFFFFFFC3C8 42009410 lc r1,CharColorFFFFFFFFFFFFC3CC E6810000 ; SETLOFFFFFFFFFFFFC3D0 6A3D0429 outc r1,0x10000[r3]FFFFFFFFFFFFC3D4 31FFF0FF call IncCursorPosFFFFFFFFFFFFC3D8 BE00004A bra dcx4FFFFFFFFFFFFC3DC dclf:FFFFFFFFFFFFC3DC 31FFF10D call IncCursorRowFFFFFFFFFFFFC3E0 dcx4:FFFFFFFFFFFFC3E0 47EF8028 lw lr,40[sp]FFFFFFFFFFFFC3E4 47E28020 lw r5,32[sp]FFFFFFFFFFFFC3E8 47E20018 lw r4,24[sp]FFFFFFFFFFFFC3EC 47E18010 lw r3,16[sp]FFFFFFFFFFFFC3F0 47E10008 lw r2,8[sp]FFFFFFFFFFFFC3F4 47E08000 lw r1,[sp]FFFFFFFFFFFFC3F8 37EF8030 ret #48;------------------------------------------------------------------------------; Increment the cursor position, scroll the screen if needed.;------------------------------------------------------------------------------;FFFFFFFFFFFFC3FC IncCursorPos:FFFFFFFFFFFFC3FC 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC400 67E08000 sw r1,[sp]FFFFFFFFFFFFC404 67E10008 sw r2,8[sp]FFFFFFFFFFFFC408 67E18010 sw r3,16[sp]FFFFFFFFFFFFC40C 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC410 4A009418 lbu r1,CursorColFFFFFFFFFFFFC414 0A108001 addui r1,r1,#1FFFFFFFFFFFFC418 60009418 sb r1,CursorColFFFFFFFFFFFFC41C E69A0000 ; SETLOFFFFFFFFFFFFC420 EE800003 ; SETMIDFFFFFFFFFFFFC424 6A0D0821 inch r2,TEXTREG+TEXT_COLSFFFFFFFFFFFFC428 BE110246 bleu r1,r2,icc1FFFFFFFFFFFFC42C 60001418 sb r0,CursorCol ; column = 0FFFFFFFFFFFFC430 BE0000CA bra icr1FFFFFFFFFFFFC434 IncCursorRow:FFFFFFFFFFFFC434 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC438 67E08000 sw r1,[sp]FFFFFFFFFFFFC43C 67E10008 sw r2,8[sp]FFFFFFFFFFFFC440 67E18010 sw r3,16[sp]FFFFFFFFFFFFC444 67EF8018 sw lr,24[sp]FFFFFFFFFFFFC448 icr1:FFFFFFFFFFFFC448 4A009417 lbu r1,CursorRowFFFFFFFFFFFFC44C 0A108001 addui r1,r1,#1FFFFFFFFFFFFC450 60009417 sb r1,CursorRowFFFFFFFFFFFFC454 E69A0002 ; SETLOFFFFFFFFFFFFC458 EE800003 ; SETMIDFFFFFFFFFFFFC45C 6A0D0821 inch r2,TEXTREG+TEXT_ROWSFFFFFFFFFFFFC460 BE110086 bleu r1,r2,icc1FFFFFFFFFFFFC464 0E210001 subui r2,r2,#1 ; backup the cursor row, we are scrolling upFFFFFFFFFFFFC468 60011417 sb r2,CursorRowFFFFFFFFFFFFC46C 31FFF02E call ScrollUpFFFFFFFFFFFFC470 icc1:FFFFFFFFFFFFC470 31FFF06F call CalcScreenLocFFFFFFFFFFFFC474 47EF8018 lw lr,24[sp]FFFFFFFFFFFFC478 47E18010 lw r3,16[sp]FFFFFFFFFFFFC47C 47E10008 lw r2,8[sp]FFFFFFFFFFFFC480 47E08000 lw r1,[sp]FFFFFFFFFFFFC484 37EF8020 ret #32;------------------------------------------------------------------------------; Display a string on the screen.;------------------------------------------------------------------------------;FFFFFFFFFFFFC488 DisplayString:FFFFFFFFFFFFC488 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFC48C 67E08000 sw r1,[sp]FFFFFFFFFFFFC490 67E10008 sw r2,8[sp]FFFFFFFFFFFFC494 67EF8010 sw lr,16[sp]FFFFFFFFFFFFC498 02110009 mov r2,r1 ; r2 = pointer to stringFFFFFFFFFFFFC49C dspj1:FFFFFFFFFFFFC49C 4A208000 lbu r1,[r2] ; move string char into r1FFFFFFFFFFFFC4A0 0A210001 addui r2,r2,#1 ; increment pointerFFFFFFFFFFFFC4A4 BE100068 beq r1,r0,dsret ; is it end of string ?FFFFFFFFFFFFC4A8 31FFF07F call DisplayChar ; display characterFFFFFFFFFFFFC4AC BE007F8A bra dspj1 ; go back for next characterFFFFFFFFFFFFC4B0 dsret:FFFFFFFFFFFFC4B0 47EF8010 lw lr,16[sp]FFFFFFFFFFFFC4B4 47E10008 lw r2,8[sp]FFFFFFFFFFFFC4B8 47E08000 lw r1,[sp]FFFFFFFFFFFFC4BC 37EF8018 ret #24FFFFFFFFFFFFC4C0 DisplayStringCRLF:FFFFFFFFFFFFC4C0 0FEF0008 subui r30,r30,#8FFFFFFFFFFFFC4C4 67EF8000 sw r31,[r30]FFFFFFFFFFFFC4C8 31FFF122 call DisplayStringFFFFFFFFFFFFC4CC 47EF8000 lw r31,[r30]FFFFFFFFFFFFC4D0 0BEF0008 addui r30,r30,#8FFFFFFFFFFFFC4D4 CRLF:FFFFFFFFFFFFC4D4 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFC4D8 67E08000 sw r1,[sp]FFFFFFFFFFFFC4DC 67EF8008 sw lr,8[sp]FFFFFFFFFFFFC4E0 E040000D setlo r1,#'\r'FFFFFFFFFFFFC4E4 31FFF07F call DisplayCharFFFFFFFFFFFFC4E8 E040000A setlo r1,#'\n'FFFFFFFFFFFFC4EC 31FFF07F call DisplayCharFFFFFFFFFFFFC4F0 47EF8008 lw lr,8[sp]FFFFFFFFFFFFC4F4 47E08000 lw r1,[sp]FFFFFFFFFFFFC4F8 37EF8010 ret #16; Call the Tiny BASIC routine to display a number;FFFFFFFFFFFFC4FC DisplayNum:FFFFFFFFFFFFC4FC 33FFFCCC jmp PRTNUM;------------------------------------------------------------------------------; Display nybble in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFC500 DisplayNybble:FFFFFFFFFFFFC500 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFC504 67E08000 sw r1,[sp]FFFFFFFFFFFFC508 67EF8008 sw lr,8[sp]FFFFFFFFFFFFC50C 1410800F andi r1,r1,#0x0FFFFFFFFFFFFFC510 0A108030 addui r1,r1,#'0'FFFFFFFFFFFFC514 AC100239 bleui r1,#'9',dispnyb1FFFFFFFFFFFFC518 0A108007 addui r1,r1,#7FFFFFFFFFFFFC51C dispnyb1:FFFFFFFFFFFFC51C 31FFF07F call DisplayCharFFFFFFFFFFFFC520 47EF8008 lw lr,8[sp]FFFFFFFFFFFFC524 47E08000 lw r1,[sp]FFFFFFFFFFFFC528 37EF8010 ret #16;------------------------------------------------------------------------------; Display the byte in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFC52C DisplayByte:FFFFFFFFFFFFC52C 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFC530 67E08000 sw r1,[sp]FFFFFFFFFFFFC534 67EF8008 sw lr,8[sp]FFFFFFFFFFFFC538 06108804 rori r1,r1,#4FFFFFFFFFFFFC53C 31FFF140 call DisplayNybbleFFFFFFFFFFFFC540 06108802 roli r1,r1,#4FFFFFFFFFFFFC544 31FFF140 call DisplayNybbleFFFFFFFFFFFFC548 47EF8008 lw lr,8[sp]FFFFFFFFFFFFC54C 47E08000 lw r1,[sp]FFFFFFFFFFFFC550 37EF8010 ret #16;------------------------------------------------------------------------------; Display the char in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFC554 DisplayCharr:FFFFFFFFFFFFC554 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFC558 67E08000 sw r1,[sp]FFFFFFFFFFFFC55C 67EF8008 sw lr,8[sp]FFFFFFFFFFFFC560 06109004 rori r1,r1,#8FFFFFFFFFFFFC564 31FFF14B call DisplayByteFFFFFFFFFFFFC568 06109002 roli r1,r1,#8FFFFFFFFFFFFC56C 31FFF14B call DisplayByteFFFFFFFFFFFFC570 47EF8008 lw lr,8[sp]FFFFFFFFFFFFC574 47E08000 lw r1,[sp]FFFFFFFFFFFFC578 37EF8010 ret #16;------------------------------------------------------------------------------; Display the half-word in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFC57C DisplayHalf:FFFFFFFFFFFFC57C 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFC580 67E08000 sw r1,[sp]FFFFFFFFFFFFC584 67EF8008 sw lr,8[sp]FFFFFFFFFFFFC588 0610A004 rori r1,r1,#16FFFFFFFFFFFFC58C 31FFF155 call DisplayCharrFFFFFFFFFFFFC590 0610A002 roli r1,r1,#16FFFFFFFFFFFFC594 31FFF155 call DisplayCharrFFFFFFFFFFFFC598 47EF8008 lw lr,8[sp]FFFFFFFFFFFFC59C 47E08000 lw r1,[sp]FFFFFFFFFFFFC5A0 37EF8010 ret #16;------------------------------------------------------------------------------; Display the 64 bit word in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFC5A4 DisplayWord:FFFFFFFFFFFFC5A4 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFC5A8 67E08000 sw r1,[sp]FFFFFFFFFFFFC5AC 67E18008 sw r3,8[sp]FFFFFFFFFFFFC5B0 67EF8010 sw lr,16[sp]FFFFFFFFFFFFC5B4 E0C00007 setlo r3,#7FFFFFFFFFFFFC5B8 dspwd1:FFFFFFFFFFFFC5B8 06109002 roli r1,r1,#8FFFFFFFFFFFFC5BC 31FFF14B call DisplayByteFFFFFFFFFFFFC5C0 BE01FFCF loop r3,dspwd1FFFFFFFFFFFFC5C4 47EF8010 lw lr,16[sp]FFFFFFFFFFFFC5C8 47E18008 lw r3,8[sp]FFFFFFFFFFFFC5CC 47E08000 lw r1,[sp]FFFFFFFFFFFFC5D0 37EF8018 ret #24;------------------------------------------------------------------------------; Display memory pointed to by r2.; destroys r1,r3;------------------------------------------------------------------------------;FFFFFFFFFFFFC5D4 DisplayMemB:FFFFFFFFFFFFC5D4 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFC5D8 67E08000 sw r1,[sp]FFFFFFFFFFFFC5DC 67E18008 sw r3,8[sp]FFFFFFFFFFFFC5E0 67EF8010 sw lr,16[sp]FFFFFFFFFFFFC5E4 E040003A setlo r1,#':'FFFFFFFFFFFFC5E8 31FFF07F call DisplayCharFFFFFFFFFFFFC5EC 02208009 mov r1,r2FFFFFFFFFFFFC5F0 31FFF169 call DisplayWordFFFFFFFFFFFFC5F4 E0C00007 setlo r3,#7FFFFFFFFFFFFC5F8 dspmem1:FFFFFFFFFFFFC5F8 E0400020 setlo r1,#' 'FFFFFFFFFFFFC5FC 31FFF07F call DisplayCharFFFFFFFFFFFFC600 4A208000 lbu r1,[r2]FFFFFFFFFFFFC604 31FFF14B call DisplayByteFFFFFFFFFFFFC608 0A210001 addui r2,r2,#1FFFFFFFFFFFFC60C BE01FF6F loop r3,dspmem1FFFFFFFFFFFFC610 31FFF135 call CRLFFFFFFFFFFFFFC614 47EF8010 lw lr,16[sp]FFFFFFFFFFFFC618 47E18008 lw r3,8[sp]FFFFFFFFFFFFC61C 47E08000 lw r1,[sp]FFFFFFFFFFFFC620 37EF8018 ret #24FFFFFFFFFFFFC624 DisplayMemC:FFFFFFFFFFFFC624 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFC628 67E08000 sw r1,[sp]FFFFFFFFFFFFC62C 67E18008 sw r3,8[sp]FFFFFFFFFFFFC630 67EF8010 sw lr,16[sp]FFFFFFFFFFFFC634 E040003A setlo r1,#':'FFFFFFFFFFFFC638 31FFF07F call DisplayCharFFFFFFFFFFFFC63C 02208009 mov r1,r2FFFFFFFFFFFFC640 31FFF169 call DisplayWordFFFFFFFFFFFFC644 E0C00003 setlo r3,#3FFFFFFFFFFFFC648 dspmemc1:FFFFFFFFFFFFC648 E0400020 setlo r1,#' 'FFFFFFFFFFFFC64C 31FFF07F call DisplayCharFFFFFFFFFFFFC650 4C208000 lcu r1,[r2]FFFFFFFFFFFFC654 31FFF155 call DisplayCharrFFFFFFFFFFFFC658 0A210002 addui r2,r2,#2FFFFFFFFFFFFC65C BE01FF6F loop r3,dspmemc1FFFFFFFFFFFFC660 31FFF135 call CRLFFFFFFFFFFFFFC664 47EF8010 lw lr,16[sp]FFFFFFFFFFFFC668 47E18008 lw r3,8[sp]FFFFFFFFFFFFC66C 47E08000 lw r1,[sp]FFFFFFFFFFFFC670 37EF8018 ret #24FFFFFFFFFFFFC674 DisplayMemW:FFFFFFFFFFFFC674 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFC678 67E08000 sw r1,[sp]FFFFFFFFFFFFC67C 67EF8010 sw lr,16[sp]FFFFFFFFFFFFC680 E040003A setlo r1,#':'FFFFFFFFFFFFC684 31FFF07F call DisplayCharFFFFFFFFFFFFC688 02208009 mov r1,r2FFFFFFFFFFFFC68C 31FFF169 call DisplayWordFFFFFFFFFFFFC690 E0400020 setlo r1,#' 'FFFFFFFFFFFFC694 31FFF07F call DisplayCharFFFFFFFFFFFFC698 46208000 lw r1,[r2]FFFFFFFFFFFFC69C 31FFF169 call DisplayWordFFFFFFFFFFFFC6A0 0A210008 addui r2,r2,#8FFFFFFFFFFFFC6A4 31FFF135 call CRLFFFFFFFFFFFFFC6A8 47EF8010 lw lr,16[sp]FFFFFFFFFFFFC6AC 47E08000 lw r1,[sp]FFFFFFFFFFFFC6B0 37EF8018 ret #24;------------------------------------------------------------------------------; Converts binary number in r1 into BCD number in r2 and r1.;------------------------------------------------------------------------------;FFFFFFFFFFFFC6B4 BinToBCD:FFFFFFFFFFFFC6B4 0FEF0030 subui sp,sp,#48FFFFFFFFFFFFC6B8 67E18000 sw r3,[sp]FFFFFFFFFFFFC6BC 67E20008 sw r4,8[sp]FFFFFFFFFFFFC6C0 67E28010 sw r5,16[sp]FFFFFFFFFFFFC6C4 67E30018 sw r6,24[sp]FFFFFFFFFFFFC6C8 67E38020 sw r7,32[sp]FFFFFFFFFFFFC6CC 67E40028 sw r8,40[sp]FFFFFFFFFFFFC6D0 E080000A setlo r2,#10FFFFFFFFFFFFC6D4 E2000013 setlo r8,#19 ; number of digits to produce - 1FFFFFFFFFFFFC6D8 bta1:FFFFFFFFFFFFC6D8 04110C1C modu r3,r1,r2FFFFFFFFFFFFC6DC 0631F800 shli r3,r3,#60 ; shift result to uppermost bitsFFFFFFFFFFFFC6E0 0653F800 shli r7,r5,#60 ; copy low order nybble of r5 to r4 topmost nybbleFFFFFFFFFFFFC6E4 06420801 shrui r4,r4,#4FFFFFFFFFFFFC6E8 04439009 or r4,r4,r7FFFFFFFFFFFFC6EC 06528801 shrui r5,r5,#4FFFFFFFFFFFFC6F0 04519409 or r5,r5,r3 ; copy new bcd digit into uppermost bits of r5FFFFFFFFFFFFC6F4 1E108000 divui r1,r1,r2 ; r1=r1/10FFFFFFFFFFFFC6F8 BE047F0F loop r8,bta1FFFFFFFFFFFFC6FC 06426001 shrui r4,r4,#48 ; right align number in registerFFFFFFFFFFFFC700 06532000 shli r6,r5,#16FFFFFFFFFFFFC704 04431009 or r4,r4,r6 ; copy bits into r4FFFFFFFFFFFFC708 0652E001 shrui r5,r5,#48FFFFFFFFFFFFC70C 02408009 mov r1,r4FFFFFFFFFFFFC710 02510009 mov r2,r5FFFFFFFFFFFFC714 47E18000 lw r3,[sp]FFFFFFFFFFFFC718 47E20008 lw r4,8[sp]FFFFFFFFFFFFC71C 47E28010 lw r5,16[sp]FFFFFFFFFFFFC720 47E30018 lw r6,24[sp]FFFFFFFFFFFFC724 47E38020 lw r7,32[sp]FFFFFFFFFFFFC728 47E40028 lw r8,40[sp]FFFFFFFFFFFFC72C 37EF8030 ret #48;------------------------------------------------------------------------------; Converts BCD number in r1 into Ascii number in r2 and r1.;------------------------------------------------------------------------------;FFFFFFFFFFFFC730 BCDToAscii:FFFFFFFFFFFFC730 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFC734 67E18000 sw r3,[sp]FFFFFFFFFFFFC738 67E20008 sw r4,8[sp]FFFFFFFFFFFFC73C 67E28010 sw r5,16[sp]FFFFFFFFFFFFC740 67E40018 sw r8,24[sp]FFFFFFFFFFFFC744 E200000F setlo r8,#15FFFFFFFFFFFFC748 bta2:FFFFFFFFFFFFC748 1411000F andi r2,r1,#0x0FFFFFFFFFFFFFC74C 16210030 ori r2,r2,#0x30FFFFFFFFFFFFC750 06217000 shli r2,r2,#56FFFFFFFFFFFFC754 06421001 shrui r4,r4,#8FFFFFFFFFFFFC758 0632F000 shli r5,r3,#56FFFFFFFFFFFFC75C 04429009 or r4,r4,r5FFFFFFFFFFFFC760 06319001 shrui r3,r3,#8FFFFFFFFFFFFC764 04310C09 or r3,r3,r2FFFFFFFFFFFFC768 06108801 shrui r1,r1,#4FFFFFFFFFFFFC76C BE047EEF loop r8,bta2FFFFFFFFFFFFC770 02408009 mov r1,r4FFFFFFFFFFFFC774 02310009 mov r2,r3FFFFFFFFFFFFC778 47E18000 lw r3,[sp]FFFFFFFFFFFFC77C 47E20008 lw r4,8[sp]FFFFFFFFFFFFC780 47E28010 lw r5,16[sp]FFFFFFFFFFFFC784 47E40018 lw r8,24[sp]FFFFFFFFFFFFC788 37EF8020 ret #32;------------------------------------------------------------------------------; Convert a binary number into a 20 character ascii string.; r1 = number to convert; r2 = address of string buffer;------------------------------------------------------------------------------;FFFFFFFFFFFFC78C BinToStr:FFFFFFFFFFFFC78C 0FEF0038 subui sp,sp,#56FFFFFFFFFFFFC790 67E18000 sw r3,[sp]FFFFFFFFFFFFC794 67E38008 sw r7,8[sp]FFFFFFFFFFFFC798 67E40010 sw r8,16[sp]FFFFFFFFFFFFC79C 67E48018 sw r9,24[sp]FFFFFFFFFFFFC7A0 67E50020 sw r10,32[sp]FFFFFFFFFFFFC7A4 67E58028 sw r11,40[sp]FFFFFFFFFFFFC7A8 67EF8030 sw lr,48[sp]FFFFFFFFFFFFC7AC 02258009 mov r11,r2FFFFFFFFFFFFC7B0 31FFF1AD call BinToBCDFFFFFFFFFFFFC7B4 02250009 mov r10,r2 ; save off r2FFFFFFFFFFFFC7B8 31FFF1CC call BCDToAsciiFFFFFFFFFFFFC7BC E2400001 setlo r9,#1FFFFFFFFFFFFC7C0 btos3:FFFFFFFFFFFFC7C0 E2000007 setlo r8,#7FFFFFFFFFFFFC7C4 btos1:FFFFFFFFFFFFC7C4 06938600 shli r7,r9,#3FFFFFFFFFFFFC7C8 0A738000 addui r7,r7,r8FFFFFFFFFFFFC7CC 0A738004 addui r7,r7,#4FFFFFFFFFFFFC7D0 141180FF andi r3,r1,#0xffFFFFFFFFFFFFC7D4 6A758C10 sb r3,[r7+r11]FFFFFFFFFFFFC7D8 06109001 shrui r1,r1,#8FFFFFFFFFFFFC7DC BE047F4F loop r8,btos1FFFFFFFFFFFFC7E0 02208009 mov r1,r2FFFFFFFFFFFFC7E4 BE04FEEF loop r9,btos3; the last four digitsFFFFFFFFFFFFC7E8 02A08009 mov r1,r10 ; get back r2FFFFFFFFFFFFC7EC 31FFF1CC call BCDToAsciiFFFFFFFFFFFFC7F0 E2000003 setlo r8,#3FFFFFFFFFFFFC7F4 btos2:FFFFFFFFFFFFC7F4 141180FF andi r3,r1,#0xffFFFFFFFFFFFFC7F8 6A858C10 sb r3,[r8+r11]FFFFFFFFFFFFC7FC 06109001 shrui r1,r1,#8FFFFFFFFFFFFC800 BE047FAF loop r8,btos2FFFFFFFFFFFFC804 60B00014 sb r0,20[r11] ; null terminateFFFFFFFFFFFFC808 47E18000 lw r3,[sp]FFFFFFFFFFFFC80C 47E38008 lw r7,8[sp]FFFFFFFFFFFFC810 47E40010 lw r8,16[sp]FFFFFFFFFFFFC814 47E48018 lw r9,24[sp]FFFFFFFFFFFFC818 47E50020 lw r10,32[sp]FFFFFFFFFFFFC81C 47E58028 lw r11,40[sp]FFFFFFFFFFFFC820 47EF8030 lw lr,48[sp]FFFFFFFFFFFFC824 37EF8038 ret #56;==============================================================================; System Monitor Program;==============================================================================;FFFFFFFFFFFFC828 Monitor:FFFFFFFFFFFFC828 E6BEFFF8 ; SETLOFFFFFFFFFFFFC82C 6A0D782D lea sp,STACKTOP0 ; top of stack; reset the stack pointerFFFFFFFFFFFFC830 6000141C sb r0,KeybdEcho ; turn off keyboard echoFFFFFFFFFFFFC834 PromptLn:FFFFFFFFFFFFC834 31FFF135 call CRLFFFFFFFFFFFFFC838 E0400024 setlo r1,#'$'FFFFFFFFFFFFC83C 31FFF07F call DisplayChar; Get characters until a CR is keyed;FFFFFFFFFFFFC840 Prompt3:; lw r1,#2 ; get keyboard character; syscall #417FFFFFFFFFFFFC840 31FFEF07 call KeybdGetCharFFFFFFFFFFFFC844 B01FFFFF beqi r1,#-1,Prompt3 ; wait for a characterFFFFFFFFFFFFC848 B010030D beqi r1,#CR,Prompt1FFFFFFFFFFFFC84C 31FFF07F call DisplayCharFFFFFFFFFFFFC850 BE007F8A bra Prompt3; Process the screen line that the CR was keyed on;FFFFFFFFFFFFC854 Prompt1:FFFFFFFFFFFFC854 60001418 sb r0,CursorCol ; go back to the start of the lineFFFFFFFFFFFFC858 31FFF06F call CalcScreenLoc ; r1 = screen memory locationFFFFFFFFFFFFC85C 02118009 mov r3,r1FFFFFFFFFFFFC860 82308000 inch r1,[r3]FFFFFFFFFFFFC864 0A318002 addui r3,r3,#2FFFFFFFFFFFFC868 31FFF06B call ScreenToAsciiFFFFFFFFFFFFC86C B2100424 bnei r1,#'$',Prompt2 ; skip over '$' prompt characterFFFFFFFFFFFFC870 82308000 inch r1,[r3]FFFFFFFFFFFFC874 0A318002 addui r3,r3,#2FFFFFFFFFFFFC878 31FFF06B call ScreenToAscii; Dispatch based on command character;FFFFFFFFFFFFC87C Prompt2:FFFFFFFFFFFFC87C B0106A3A beqi r1,#':',Editmem ; $: - edit memoryFFFFFFFFFFFFC880 B0107C44 beqi r1,#'D',Dumpmem ; $D - dump memoryFFFFFFFFFFFFC884 B0109446 beqi r1,#'F',Fillmem ; $F - fill memoryFFFFFFFFFFFFC888 Prompt7:FFFFFFFFFFFFC888 B2100242 bnei r1,#'B',Prompt4 ; $B - start tiny basicFFFFFFFFFFFFC88C 33FFF7E0 jmp CSTARTFFFFFFFFFFFFC890 Prompt4:FFFFFFFFFFFFC890 B0106F4A beqi r1,#'J',ExecuteCode ; $J - execute codeFFFFFFFFFFFFC894 B210024C bnei r1,#'L',Prompt9 ; $L - load S19 fileFFFFFFFFFFFFC898 33FFF297 jmp LoadSectorFFFFFFFFFFFFC89C Prompt9:FFFFFFFFFFFFC89C B210043F bnei r1,#'?',Prompt10 ; $? - display helpFFFFFFFFFFFFC8A0 9A00C910 lea r1,HelpMsgFFFFFFFFFFFFC8A4 31FFF122 call DisplayStringFFFFFFFFFFFFC8A8 33FFF20A jmp MonitorFFFFFFFFFFFFC8AC Prompt10:FFFFFFFFFFFFC8AC B0100C43 beqi r1,#'C',TestCLS ; $C - clear screenFFFFFFFFFFFFC8B0 B2100252 bnei r1,#'R',Prompt12FFFFFFFFFFFFC8B4 33FFF235 jmp RandomLinesCallFFFFFFFFFFFFC8B8 Prompt12:FFFFFFFFFFFFC8B8 B2100249 bnei r1,#'I',Prompt13FFFFFFFFFFFFC8BC 33FFF528 jmp InvadersFFFFFFFFFFFFC8C0 Prompt13:FFFFFFFFFFFFC8C0 B2100250 bnei r1,#'P',Prompt14FFFFFFFFFFFFC8C4 33FFF411 jmp PianoFFFFFFFFFFFFC8C8 Prompt14:FFFFFFFFFFFFC8C8 B2100254 bnei r1,#'T',Prompt15FFFFFFFFFFFFC8CC 31FFEF53 call tmp_readFFFFFFFFFFFFC8D0 Prompt15:FFFFFFFFFFFFC8D0 33FFF20A jmp MonitorFFFFFFFFFFFFC8D4 RandomLinesCall:FFFFFFFFFFFFC8D4 31FFF374 call RandomLinesFFFFFFFFFFFFC8D8 33FFF20A jmp MonitorFFFFFFFFFFFFC8DC TestCLS:FFFFFFFFFFFFC8DC 82308000 inch r1,[r3]FFFFFFFFFFFFC8E0 0A318002 addui r3,r3,#2FFFFFFFFFFFFC8E4 31FFF06B call ScreenToAsciiFFFFFFFFFFFFC8E8 B21FD04C bnei r1,#'L',MonitorFFFFFFFFFFFFC8EC 82308000 inch r1,[r3]FFFFFFFFFFFFC8F0 0A318002 addui r3,r3,#2FFFFFFFFFFFFC8F4 31FFF06B call ScreenToAsciiFFFFFFFFFFFFC8F8 B21FCC53 bnei r1,#'S',MonitorFFFFFFFFFFFFC8FC 31FFF011 call ClearScreenFFFFFFFFFFFFC900 60001418 sb r0,CursorColFFFFFFFFFFFFC904 60001417 sb r0,CursorRowFFFFFFFFFFFFC908 31FFF06F call CalcScreenLocFFFFFFFFFFFFC90C 33FFF20A jmp MonitorFFFFFFFFFFFFC910 HelpMsg:FFFFFFFFFFFFC910 70736944203D203F db "? = Display help",CR,LFFFFFFFFFFFFFC918 706C65682079616CFFFFFFFFFFFFC920 203D20534C430A0D db "CLS = clear screen",CR,LFFFFFFFFFFFFFC928 6373207261656C63FFFFFFFFFFFFC930 203A0A0D6E656572 db ": = Edit memory bytes",CR,LFFFFFFFFFFFFFC938 6D2074696445203DFFFFFFFFFFFFC940 79622079726F6D65FFFFFFFFFFFFC948 3D204C0A0D736574 db "L = Load S19 file",CR,LFFFFFFFFFFFFFC950 31532064616F4C20FFFFFFFFFFFFC958 0A0D656C69662039FFFFFFFFFFFFC960 7C487C437C425B44 db "D[B|C|H|W] = Dump memory",CR,LFFFFFFFFFFFFFC968 6D7544203D205D57FFFFFFFFFFFFC970 79726F6D656D2070FFFFFFFFFFFFC978 7C437C425B460A0D db "F[B|C|H|W] = Fill memory",CR,LFFFFFFFFFFFFFC980 46203D205D577C48FFFFFFFFFFFFC988 6F6D656D206C6C69FFFFFFFFFFFFC990 203D20420A0D7972 db "B = start tiny basic",CR,LFFFFFFFFFFFFFC998 6974207472617473FFFFFFFFFFFFC9A0 636973616220796EFFFFFFFFFFFFC9A8 754A203D204A0A0D db "J = Jump to code",CR,LFFFFFFFFFFFFFC9B0 6F63206F7420706DFFFFFFFFFFFFC9B8 203D20490A0D6564 db "I = Invaders",CR,LFFFFFFFFFFFFFC9C0 7372656461766E49FFFFFFFFFFFFC9C8 6152203D20520A0D db "R = Random lines",CR,LFFFFFFFFFFFFFC9D0 6E696C206D6F646EFFFFFFFFFFFFC9D8 203D20540A0D7365 db "T = get temperature",CR,LFFFFFFFFFFFFFC9E0 706D657420746567FFFFFFFFFFFFC9E8 0D65727574617265FFFFFFFFFFFFC9F0 616950203D20500A db "P = Piano",CR,LF,0FFFFFFFFFFFFC9F8 000000000A0D6F6E align 4FFFFFFFFFFFFCA00 align 4;------------------------------------------------------------------------------; Ignore blanks in the input; r3 = text pointer; r1 destroyed;------------------------------------------------------------------------------;FFFFFFFFFFFFCA00 ignBlanks:FFFFFFFFFFFFCA00 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFCA04 67EF8000 sw r31,[sp]FFFFFFFFFFFFCA08 ignBlanks1:FFFFFFFFFFFFCA08 82308000 inch r1,[r3]FFFFFFFFFFFFCA0C 0A318002 addui r3,r3,#2FFFFFFFFFFFFCA10 31FFF06B call ScreenToAsciiFFFFFFFFFFFFCA14 B01FFD20 beqi r1,#' ',ignBlanks1FFFFFFFFFFFFCA18 0E318002 subui r3,r3,#2FFFFFFFFFFFFCA1C 47EF8000 lw r31,[sp]FFFFFFFFFFFFCA20 37EF8008 ret #8;------------------------------------------------------------------------------; Edit memory byte(s).;------------------------------------------------------------------------------;FFFFFFFFFFFFCA24 EditMem:FFFFFFFFFFFFCA24 31FFF280 call ignBlanksFFFFFFFFFFFFCA28 31FFF2D4 call GetHexNumberFFFFFFFFFFFFCA2C 04101409 or r5,r1,r0FFFFFFFFFFFFCA30 E1000007 setlo r4,#7FFFFFFFFFFFFCA34 edtmem1:FFFFFFFFFFFFCA34 31FFF280 call ignBlanksFFFFFFFFFFFFCA38 31FFF2D4 call GetHexNumberFFFFFFFFFFFFCA3C 60508000 sb r1,[r5]FFFFFFFFFFFFCA40 0A528001 addui r5,r5,#1FFFFFFFFFFFFCA44 BE027F8F loop r4,edtmem1FFFFFFFFFFFFCA48 33FFF20A jmp Monitor;------------------------------------------------------------------------------; Execute code at the specified address.;------------------------------------------------------------------------------;FFFFFFFFFFFFCA4C ExecuteCode:FFFFFFFFFFFFCA4C 31FFF280 call ignBlanksFFFFFFFFFFFFCA50 31FFF2D4 call GetHexNumberFFFFFFFFFFFFCA54 341F8000 jal r31,[r1]FFFFFFFFFFFFCA58 33FFF20A jmp MonitorFFFFFFFFFFFFCA5C LoadSector:FFFFFFFFFFFFCA5C 31FFF280 call ignBlanksFFFFFFFFFFFFCA60 31FFF2D4 call GetHexNumberFFFFFFFFFFFFCA64 16013800 lw r2,#0x3800FFFFFFFFFFFFCA68 31FFF56D call spi_read_sectorFFFFFFFFFFFFCA6C 33FFF20A jmp Monitor;------------------------------------------------------------------------------; Do a memory dump of the requested location.;------------------------------------------------------------------------------;FFFFFFFFFFFFCA70 DumpMem:FFFFFFFFFFFFCA70 82308000 inch r1,[r3]FFFFFFFFFFFFCA74 0A318002 addui r3,r3,#2FFFFFFFFFFFFCA78 31FFF06B call ScreenToAsciiFFFFFFFFFFFFCA7C 02130009 mov r6,r1 ; r6 = fill type characterFFFFFFFFFFFFCA80 31FFF280 call ignBlanksFFFFFFFFFFFFCA84 31FFF2D4 call GetHexNumber ; get start address of dumpFFFFFFFFFFFFCA88 02110009 mov r2,r1FFFFFFFFFFFFCA8C 31FFF280 call ignBlanksFFFFFFFFFFFFCA90 31FFF2D4 call GetHexNumber ; get number of bytes to dumpFFFFFFFFFFFFCA94 06108601 shrui r1,r1,#3 ; 1/8 as many dump rowsFFFFFFFFFFFFCA98 B2100200 bnei r1,#0,Dumpmem2FFFFFFFFFFFFCA9C 16008001 lw r1,#1 ; dump at least one rowFFFFFFFFFFFFCAA0 Dumpmem2:FFFFFFFFFFFFCAA0 31FFF135 call CRLFFFFFFFFFFFFFCAA4 B0600857 beqi r6,#'W',DumpmemW; beqi r6,#'H',DumpmemHFFFFFFFFFFFFCAA8 B0600443 beqi r6,#'C',DumpmemCFFFFFFFFFFFFCAAC DumpmemB:FFFFFFFFFFFFCAAC 31FFF175 call DisplayMemBFFFFFFFFFFFFCAB0 BE00FFEF loop r1,DumpmemBFFFFFFFFFFFFCAB4 33FFF20A jmp MonitorFFFFFFFFFFFFCAB8 DumpmemC:FFFFFFFFFFFFCAB8 31FFF189 call DisplayMemCFFFFFFFFFFFFCABC BE00FFEF loop r1,DumpmemCFFFFFFFFFFFFCAC0 33FFF20A jmp MonitorFFFFFFFFFFFFCAC4 DumpmemW:FFFFFFFFFFFFCAC4 31FFF19D call DisplayMemWFFFFFFFFFFFFCAC8 BE00FFEF loop r1,DumpmemWFFFFFFFFFFFFCACC 33FFF20A jmp Monitor; call DisplayMem; call DisplayMem; call DisplayMem; call DisplayMem; call DisplayMem; call DisplayMem; call DisplayMemFFFFFFFFFFFFCAD0 BE006ACA bra MonitorFFFFFFFFFFFFCAD4 Fillmem:FFFFFFFFFFFFCAD4 82308000 inch r1,[r3]FFFFFFFFFFFFCAD8 0A318002 addui r3,r3,#2FFFFFFFFFFFFCADC 31FFF06B call ScreenToAsciiFFFFFFFFFFFFCAE0 02130009 mov r6,r1 ; r6 = fill type characterFFFFFFFFFFFFCAE4 31FFF280 call ignBlanksFFFFFFFFFFFFCAE8 31FFF2D4 call GetHexNumber ; get start address of dumpFFFFFFFFFFFFCAEC 02110009 mov r2,r1FFFFFFFFFFFFCAF0 31FFF280 call ignBlanksFFFFFFFFFFFFCAF4 31FFF2D4 call GetHexNumber ; get number of bytes to fillFFFFFFFFFFFFCAF8 02128009 mov r5,r1FFFFFFFFFFFFCAFC 31FFF280 call ignBlanksFFFFFFFFFFFFCB00 31FFF2D4 call GetHexNumber ; get the fill byteFFFFFFFFFFFFCB04 B0600743 beqi r6,#'C',FillmemCFFFFFFFFFFFFCB08 B0600A48 beqi r6,#'H',FillmemHFFFFFFFFFFFFCB0C B0600D57 beqi r6,#'W',FillmemWFFFFFFFFFFFFCB10 FillmemB:FFFFFFFFFFFFCB10 60208000 sb r1,[r2]FFFFFFFFFFFFCB14 0A210001 addui r2,r2,#1FFFFFFFFFFFFCB18 BE02FFCF loop r5,FillmemBFFFFFFFFFFFFCB1C 33FFF20A jmp MonitorFFFFFFFFFFFFCB20 FillmemC:FFFFFFFFFFFFCB20 62208000 sc r1,[r2]FFFFFFFFFFFFCB24 0A210002 addui r2,r2,#2FFFFFFFFFFFFCB28 BE02FFCF loop r5,FillmemCFFFFFFFFFFFFCB2C 33FFF20A jmp MonitorFFFFFFFFFFFFCB30 FillmemH:FFFFFFFFFFFFCB30 64208000 sh r1,[r2]FFFFFFFFFFFFCB34 0A210004 addui r2,r2,#4FFFFFFFFFFFFCB38 BE02FFCF loop r5,FillmemHFFFFFFFFFFFFCB3C 33FFF20A jmp MonitorFFFFFFFFFFFFCB40 FillmemW:FFFFFFFFFFFFCB40 66208000 sw r1,[r2]FFFFFFFFFFFFCB44 0A210008 addui r2,r2,#8FFFFFFFFFFFFCB48 BE02FFCF loop r5,FillmemWFFFFFFFFFFFFCB4C 33FFF20A jmp Monitor;------------------------------------------------------------------------------; Get a hexidecimal number. Maximum of sixteen digits.; R3 = text pointer (updated); R1 = hex number;------------------------------------------------------------------------------;FFFFFFFFFFFFCB50 GetHexNumber:FFFFFFFFFFFFCB50 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFCB54 67E10000 sw r2,[sp]FFFFFFFFFFFFCB58 67E20008 sw r4,8[sp]FFFFFFFFFFFFCB5C 67EF8010 sw lr,16[sp]FFFFFFFFFFFFCB60 E0800000 setlo r2,#0FFFFFFFFFFFFCB64 E100000F setlo r4,#15FFFFFFFFFFFFCB68 gthxn2:FFFFFFFFFFFFCB68 82308000 inch r1,[r3]FFFFFFFFFFFFCB6C 0A318002 addui r3,r3,#2FFFFFFFFFFFFCB70 31FFF06B call ScreenToAsciiFFFFFFFFFFFFCB74 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCB78 B01005FF beqi r1,#-1,gthxn1FFFFFFFFFFFFCB7C 06210800 shli r2,r2,#4FFFFFFFFFFFFCB80 1410800F andi r1,r1,#0x0fFFFFFFFFFFFFCB84 04208809 or r2,r2,r1FFFFFFFFFFFFCB88 BE027F0F loop r4,gthxn2FFFFFFFFFFFFCB8C gthxn1:FFFFFFFFFFFFCB8C 02208009 mov r1,r2FFFFFFFFFFFFCB90 47EF8010 lw lr,16[sp]FFFFFFFFFFFFCB94 47E20008 lw r4,8[sp]FFFFFFFFFFFFCB98 47E10000 lw r2,[sp]FFFFFFFFFFFFCB9C 37EF8018 ret #24;------------------------------------------------------------------------------; Convert ASCII character in the range '0' to '9', 'a' to 'f' or 'A' to 'F'; to a hex nybble.;------------------------------------------------------------------------------;FFFFFFFFFFFFCBA0 AsciiToHexNybble:FFFFFFFFFFFFCBA0 A8100E30 bltui r1,#'0',gthx3FFFFFFFFFFFFCBA4 AE100339 bgtui r1,#'9',gthx5FFFFFFFFFFFFCBA8 0E108030 subui r1,r1,#'0'FFFFFFFFFFFFCBAC 37EF8000 retFFFFFFFFFFFFCBB0 gthx5:FFFFFFFFFFFFCBB0 A8100A41 bltui r1,#'A',gthx3FFFFFFFFFFFFCBB4 AE100446 bgtui r1,#'F',gthx6FFFFFFFFFFFFCBB8 0E108041 subui r1,r1,#'A'FFFFFFFFFFFFCBBC 0A10800A addui r1,r1,#10FFFFFFFFFFFFCBC0 37EF8000 retFFFFFFFFFFFFCBC4 gthx6:FFFFFFFFFFFFCBC4 A8100561 bltui r1,#'a',gthx3FFFFFFFFFFFFCBC8 AE100466 bgtui r1,#'f',gthx3FFFFFFFFFFFFCBCC 0E108061 subui r1,r1,#'a'FFFFFFFFFFFFCBD0 0A10800A addui r1,r1,#10FFFFFFFFFFFFCBD4 37EF8000 retFFFFFFFFFFFFCBD8 gthx3:FFFFFFFFFFFFCBD8 E07FFFFF setlo r1,#-1 ; not a hex numberFFFFFFFFFFFFCBDC 37EF8000 ret;==============================================================================; Load an S19 format file;==============================================================================;FFFFFFFFFFFFCBE0 LoadS19:FFFFFFFFFFFFCBE0 BE00006A bra ProcessRecFFFFFFFFFFFFCBE4 NextRec:FFFFFFFFFFFFCBE4 31FFF36A call sGetCharFFFFFFFFFFFFCBE8 B21FFF0A bne r1,#LF,NextRecFFFFFFFFFFFFCBEC ProcessRec:FFFFFFFFFFFFCBEC 31FFF36A call sGetCharFFFFFFFFFFFFCBF0 B01F0E1A beqi r1,#26,Monitor ; CTRL-Z ?FFFFFFFFFFFFCBF4 B21FFC53 bnei r1,#'S',NextRecFFFFFFFFFFFFCBF8 31FFF36A call sGetCharFFFFFFFFFFFFCBFC A01FFA30 blt r1,#'0',NextRecFFFFFFFFFFFFCC00 A61FF939 bgt r1,#'9',NextRecFFFFFFFFFFFFCC04 04101009 or r4,r1,r0 ; r4 = record typeFFFFFFFFFFFFCC08 31FFF36A call sGetCharFFFFFFFFFFFFCC0C 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCC10 04100809 or r2,r1,r0FFFFFFFFFFFFCC14 31FFF36A call sGetCharFFFFFFFFFFFFCC18 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCC1C 06210800 shli r2,r2,#4FFFFFFFFFFFFCC20 04208809 or r2,r2,r1 ; r2 = byte countFFFFFFFFFFFFCC24 04208C09 or r3,r2,r1 ; r3 = byte countFFFFFFFFFFFFCC28 B04FEF30 beqi r4,#'0',NextRec ; manufacturer ID record, ignoreFFFFFFFFFFFFCC2C B0401E31 beqi r4,#'1',ProcessS1FFFFFFFFFFFFCC30 B0401F32 beqi r4,#'2',ProcessS2FFFFFFFFFFFFCC34 B0402033 beqi r4,#'3',ProcessS3FFFFFFFFFFFFCC38 B04FEB35 beqi r4,#'5',NextRec ; record count record, ignoreFFFFFFFFFFFFCC3C B0402037 beqi r4,#'7',ProcessS7FFFFFFFFFFFFCC40 B0402238 beqi r4,#'8',ProcessS8FFFFFFFFFFFFCC44 B0402439 beqi r4,#'9',ProcessS9FFFFFFFFFFFFCC48 BE007CEA bra NextRecFFFFFFFFFFFFCC4C pcssxa:FFFFFFFFFFFFCC4C 143180FF andi r3,r3,#0xffFFFFFFFFFFFFCC50 0E318001 subui r3,r3,#1 ; one less for loopFFFFFFFFFFFFCC54 pcss1a:FFFFFFFFFFFFCC54 31FFF36A call sGetCharFFFFFFFFFFFFCC58 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCC5C 06210800 shli r2,r2,#4FFFFFFFFFFFFCC60 04208809 or r2,r2,r1FFFFFFFFFFFFCC64 31FFF36A call sGetCharFFFFFFFFFFFFCC68 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCC6C 06210800 shli r2,r2,#4FFFFFFFFFFFFCC70 04208809 or r2,r2,r1FFFFFFFFFFFFCC74 60510000 sb r2,[r5]FFFFFFFFFFFFCC78 0A528001 addui r5,r5,#1FFFFFFFFFFFFCC7C BE01FECF loop r3,pcss1a; Get the checksum byteFFFFFFFFFFFFCC80 31FFF36A call sGetCharFFFFFFFFFFFFCC84 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCC88 06210800 shli r2,r2,#4FFFFFFFFFFFFCC8C 04208809 or r2,r2,r1FFFFFFFFFFFFCC90 31FFF36A call sGetCharFFFFFFFFFFFFCC94 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCC98 06210800 shli r2,r2,#4FFFFFFFFFFFFCC9C 04208809 or r2,r2,r1FFFFFFFFFFFFCCA0 BE007A2A bra NextRecFFFFFFFFFFFFCCA4 ProcessS1:FFFFFFFFFFFFCCA4 31FFF338 call S19Get16BitAddressFFFFFFFFFFFFCCA8 BE007D2A bra pcssxaFFFFFFFFFFFFCCAC ProcessS2:FFFFFFFFFFFFCCAC 31FFF33E call S19Get24BitAddressFFFFFFFFFFFFCCB0 BE007CEA bra pcssxaFFFFFFFFFFFFCCB4 ProcessS3:FFFFFFFFFFFFCCB4 31FFF344 call S19Get32BitAddressFFFFFFFFFFFFCCB8 BE007CAA bra pcssxaFFFFFFFFFFFFCCBC ProcessS7:FFFFFFFFFFFFCCBC 31FFF344 call S19Get32BitAddressFFFFFFFFFFFFCCC0 66028000 sw r5,S19StartAddressFFFFFFFFFFFFCCC4 BE005B2A bra MonitorFFFFFFFFFFFFCCC8 ProcessS8:FFFFFFFFFFFFCCC8 31FFF33E call S19Get24BitAddressFFFFFFFFFFFFCCCC 66028000 sw r5,S19StartAddressFFFFFFFFFFFFCCD0 BE005ACA bra MonitorFFFFFFFFFFFFCCD4 ProcessS9:FFFFFFFFFFFFCCD4 31FFF338 call S19Get16BitAddressFFFFFFFFFFFFCCD8 66028000 sw r5,S19StartAddressFFFFFFFFFFFFCCDC 33FFF20A jmp MonitorFFFFFFFFFFFFCCE0 S19Get16BitAddress:FFFFFFFFFFFFCCE0 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFCCE4 67EF8000 sw r31,[sp]FFFFFFFFFFFFCCE8 31FFF36A call sGetCharFFFFFFFFFFFFCCEC 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCCF0 04100809 or r2,r1,r0FFFFFFFFFFFFCCF4 BE00038A bra S1932bFFFFFFFFFFFFCCF8 S19Get24BitAddress:FFFFFFFFFFFFCCF8 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFCCFC 67EF8000 sw r31,[sp]FFFFFFFFFFFFCD00 31FFF36A call sGetCharFFFFFFFFFFFFCD04 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD08 04100809 or r2,r1,r0FFFFFFFFFFFFCD0C BE0001CA bra S1932aFFFFFFFFFFFFCD10 S19Get32BitAddress:FFFFFFFFFFFFCD10 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFCD14 67EF8000 sw r31,[sp]FFFFFFFFFFFFCD18 31FFF36A call sGetCharFFFFFFFFFFFFCD1C 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD20 04100809 or r2,r1,r0FFFFFFFFFFFFCD24 31FFF36A call sGetCharFFFFFFFFFFFFCD28 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD2C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD30 04110809 or r2,r1,r2FFFFFFFFFFFFCD34 31FFF36A call sGetCharFFFFFFFFFFFFCD38 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD3C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD40 04208809 or r2,r2,r1FFFFFFFFFFFFCD44 S1932a:FFFFFFFFFFFFCD44 31FFF36A call sGetCharFFFFFFFFFFFFCD48 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD4C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD50 04208809 or r2,r2,r1FFFFFFFFFFFFCD54 31FFF36A call sGetCharFFFFFFFFFFFFCD58 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD5C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD60 04208809 or r2,r2,r1FFFFFFFFFFFFCD64 S1932b:FFFFFFFFFFFFCD64 31FFF36A call sGetCharFFFFFFFFFFFFCD68 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD6C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD70 04208809 or r2,r2,r1FFFFFFFFFFFFCD74 31FFF36A call sGetCharFFFFFFFFFFFFCD78 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD7C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD80 04208809 or r2,r2,r1FFFFFFFFFFFFCD84 31FFF36A call sGetCharFFFFFFFFFFFFCD88 31FFF2E8 call AsciiToHexNybbleFFFFFFFFFFFFCD8C 06210800 shli r2,r2,#4FFFFFFFFFFFFCD90 04208809 or r2,r2,r1FFFFFFFFFFFFCD94 0442100A xor r4,r4,r4FFFFFFFFFFFFCD98 04201409 or r5,r2,r0FFFFFFFFFFFFCD9C 47EF8000 lw r31,[sp]FFFFFFFFFFFFCDA0 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFCDA4 37EF8000 ret;------------------------------------------------------------------------------; Get a character from auxillary input, checking the keyboard status for a; CTRL-C;------------------------------------------------------------------------------;FFFFFFFFFFFFCDA8 sGetChar:FFFFFFFFFFFFCDA8 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFCDAC 67EF8000 sw r31,[sp]FFFFFFFFFFFFCDB0 sgc2:FFFFFFFFFFFFCDB0 31FFEF1C call KeybdCheckForKeyFFFFFFFFFFFFCDB4 BE103C08 beq r1,r0,sgc1FFFFFFFFFFFFCDB8 31FFEF07 call KeybdGetcharFFFFFFFFFFFFCDBC B01E9B00 beqi r1,#CRTLC,MonitorFFFFFFFFFFFFCDC0 sgc1:FFFFFFFFFFFFCDC0 31FFFD9D call AUXINFFFFFFFFFFFFCDC4 BE107F62 ble r1,r0,sgc2FFFFFFFFFFFFCDC8 47EF8000 lw r31,[sp]FFFFFFFFFFFFCDCC 37EF8008 ret #8;--------------------------------------------------------------------------; Draw random lines on the bitmap screen.;--------------------------------------------------------------------------;FFFFFFFFFFFFCDD0 RandomLines:FFFFFFFFFFFFCDD0 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFCDD4 67E08000 sw r1,[sp]FFFFFFFFFFFFCDD8 67E18008 sw r3,8[sp]FFFFFFFFFFFFCDDC 67EF8010 sw lr,16[sp]FFFFFFFFFFFFCDE0 660020E8 sw r0,ctx3start ; prevent restarting context over and over againFFFFFFFFFFFFCDE4 rl5:FFFFFFFFFFFFCDE4 00000050 granFFFFFFFFFFFFCDE8 020088A8 mfspr r1,rand ; select a random colorFFFFFFFFFFFFCDEC E69AE000 ; SETLOFFFFFFFFFFFFCDF0 EE800003 ; SETMIDFFFFFFFFFFFFCDF4 6A0D042A outh r1,GACCELFFFFFFFFFFFFCDF8 rl1: ; random X0FFFFFFFFFFFFCDF8 00000050 granFFFFFFFFFFFFCDFC 020088A8 mfspr r1,randFFFFFFFFFFFFCE00 16018554 lw r3,#1364FFFFFFFFFFFFCE04 0411841C modu r1,r1,r3FFFFFFFFFFFFCE08 E69AE008 ; SETLOFFFFFFFFFFFFCE0C EE800003 ; SETMIDFFFFFFFFFFFFCE10 6A0D042A outh r1,GACCEL+8FFFFFFFFFFFFCE14 rl2: ; random X1FFFFFFFFFFFFCE14 00000050 granFFFFFFFFFFFFCE18 020088A8 mfspr r1,randFFFFFFFFFFFFCE1C 16018554 lw r3,#1364FFFFFFFFFFFFCE20 0411841C modu r1,r1,r3FFFFFFFFFFFFCE24 E69AE010 ; SETLOFFFFFFFFFFFFCE28 EE800003 ; SETMIDFFFFFFFFFFFFCE2C 6A0D042A outh r1,GACCEL+16FFFFFFFFFFFFCE30 rl3: ; random Y0FFFFFFFFFFFFCE30 00000050 granFFFFFFFFFFFFCE34 020088A8 mfspr r1,randFFFFFFFFFFFFCE38 16018300 lw r3,#768FFFFFFFFFFFFCE3C 0411841C modu r1,r1,r3FFFFFFFFFFFFCE40 E69AE00C ; SETLOFFFFFFFFFFFFCE44 EE800003 ; SETMIDFFFFFFFFFFFFCE48 6A0D042A outh r1,GACCEL+12FFFFFFFFFFFFCE4C rl4: ; random Y1FFFFFFFFFFFFCE4C 00000050 granFFFFFFFFFFFFCE50 020088A8 mfspr r1,randFFFFFFFFFFFFCE54 16018300 lw r3,#768FFFFFFFFFFFFCE58 0411841C modu r1,r1,r3FFFFFFFFFFFFCE5C E69AE014 ; SETLOFFFFFFFFFFFFCE60 EE800003 ; SETMIDFFFFFFFFFFFFCE64 6A0D042A outh r1,GACCEL+20FFFFFFFFFFFFCE68 E0400002 setlo r1,#2 ; draw line commandFFFFFFFFFFFFCE6C E69AE03C ; SETLOFFFFFFFFFFFFCE70 EE800003 ; SETMIDFFFFFFFFFFFFCE74 6A0D042A outh r1,GACCEL+60FFFFFFFFFFFFCE78 rl8:; call KeybdGetChar; beqi r1,#CTRLC,rl7FFFFFFFFFFFFCE78 E69AE038 ; SETLOFFFFFFFFFFFFCE7C EE800003 ; SETMIDFFFFFFFFFFFFCE80 6A0D0421 inch r1,GACCEL+56 ; ensure controller is in IDLE stateFFFFFFFFFFFFCE84 BE107FA9 bne r1,r0,rl8FFFFFFFFFFFFCE88 BE007AEA bra rl5FFFFFFFFFFFFCE8C rl7:FFFFFFFFFFFFCE8C 47EF8010 lw lr,16[sp]FFFFFFFFFFFFCE90 47E18008 lw r3,8[sp]FFFFFFFFFFFFCE94 47E08000 lw r1,[sp]FFFFFFFFFFFFCE98 37EF8018 ret #24;--------------------------------------------------------------------------; Initialize sprite image caches with random data.;--------------------------------------------------------------------------FFFFFFFFFFFFCE9C RandomizeSprram:FFFFFFFFFFFFCE9C E6980000 ; SETLOFFFFFFFFFFFFCEA0 EE800003 ; SETMIDFFFFFFFFFFFFCEA4 6A0D082D lea r2,SPRRAMFFFFFFFFFFFFCEA8 E10037FF setlo r4,#14335 ; number of chars to initializeFFFFFFFFFFFFCEAC rsr1:FFFFFFFFFFFFCEAC 00000050 granFFFFFFFFFFFFCEB0 020088A8 mfspr r1,randFFFFFFFFFFFFCEB4 92208000 outc r1,[r2]FFFFFFFFFFFFCEB8 0A210002 addui r2,r2,#2FFFFFFFFFFFFCEBC BE027F8F loop r4,rsr1FFFFFFFFFFFFCEC0 37EF8000 ret;--------------------------------------------------------------------------; Setup the AC97/LM4550 audio controller. Check keyboard for a CTRL-C; interrupt which may be necessary if the audio controller isn't; responding.;--------------------------------------------------------------------------;FFFFFFFFFFFFCEC4 SetupAC97:FFFFFFFFFFFFCEC4 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFCEC8 67E08000 sw r1,[sp]FFFFFFFFFFFFCECC 67EF8008 sw lr,8[sp]FFFFFFFFFFFFCED0 sac974:FFFFFFFFFFFFCED0 E69C1026 ; SETLOFFFFFFFFFFFFCED4 EE800003 ; SETMIDFFFFFFFFFFFFCED8 6A0D0029 outc r0,AC97+0x26 ; trigger a read of register 26 (status reg)FFFFFFFFFFFFCEDC sac971: ; wait for status to register 0xF (all ready)FFFFFFFFFFFFCEDC 31FFEF07 call KeybdGetChar ; see if we needed to CTRL-CFFFFFFFFFFFFCEE0 B0100A03 beqi r1,#CTRLC,sac973FFFFFFFFFFFFCEE4 E69C1068 ; SETLOFFFFFFFFFFFFCEE8 EE800003 ; SETMIDFFFFFFFFFFFFCEEC 6A0D0421 inch r1,AC97+0x68 ; wait for dirty bit to clearFFFFFFFFFFFFCEF0 BE107F69 bne r1,r0,sac971FFFFFFFFFFFFCEF4 E69C1026 ; SETLOFFFFFFFFFFFFCEF8 EE800003 ; SETMIDFFFFFFFFFFFFCEFC 6A0D0421 inch r1,AC97+0x26 ; check status at reg h26, wait forFFFFFFFFFFFFCF00 1410800F andi r1,r1,#0x0F ; analogue to be readyFFFFFFFFFFFFCF04 B21FF30F bnei r1,#0x0F,sac974FFFFFFFFFFFFCF08 sac973:FFFFFFFFFFFFCF08 E69C1002 ; SETLOFFFFFFFFFFFFCF0C EE800003 ; SETMIDFFFFFFFFFFFFCF10 6A0D0029 outc r0,AC97+2 ; master volume, 0db attenuation, mute offFFFFFFFFFFFFCF14 E69C1004 ; SETLOFFFFFFFFFFFFCF18 EE800003 ; SETMIDFFFFFFFFFFFFCF1C 6A0D0029 outc r0,AC97+4 ; headphone volume, 0db attenuation, mute offFFFFFFFFFFFFCF20 E69C1018 ; SETLOFFFFFFFFFFFFCF24 EE800003 ; SETMIDFFFFFFFFFFFFCF28 6A0D0029 outc r0,AC97+0x18 ; PCM gain (mixer) mute off, no attenuationFFFFFFFFFFFFCF2C E69C100A ; SETLOFFFFFFFFFFFFCF30 EE800003 ; SETMIDFFFFFFFFFFFFCF34 6A0D0029 outc r0,AC97+0x0A ; mute PC beepFFFFFFFFFFFFCF38 E07F8000 setlo r1,#0x8000 ; bypass 3D soundFFFFFFFFFFFFCF3C E69C1020 ; SETLOFFFFFFFFFFFFCF40 EE800003 ; SETMIDFFFFFFFFFFFFCF44 6A0D0429 outc r1,AC97+0x20FFFFFFFFFFFFCF48 sac972:FFFFFFFFFFFFCF48 31FFEF07 call KeybdGetCharFFFFFFFFFFFFCF4C B0100503 beqi r1,#CTRLC,sac975FFFFFFFFFFFFCF50 E69C1068 ; SETLOFFFFFFFFFFFFCF54 EE800003 ; SETMIDFFFFFFFFFFFFCF58 6A0D0421 inch r1,AC97+0x68 ; wait for dirty bits to clearFFFFFFFFFFFFCF5C BE107F69 bne r1,r0,sac972 ; wait a while for the settings to take effectFFFFFFFFFFFFCF60 sac975:FFFFFFFFFFFFCF60 47EF8008 lw lr,8[sp]FFFFFFFFFFFFCF64 47E08000 lw r1,[sp]FFFFFFFFFFFFCF68 37EF8010 ret #16;--------------------------------------------------------------------------; Sound a 800 Hz beep;--------------------------------------------------------------------------;FFFFFFFFFFFFCF6C Beep:FFFFFFFFFFFFCF6C 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFCF70 67E08000 sw r1,[sp]FFFFFFFFFFFFCF74 67EF8008 sw lr,8[sp]FFFFFFFFFFFFCF78 E0400008 setlo r1,#8FFFFFFFFFFFFCF7C E69C0600 ; SETLOFFFFFFFFFFFFCF80 EE800003 ; SETMIDFFFFFFFFFFFFCF84 6A0D0428 outb r1,LEDFFFFFFFFFFFFCF88 1600800F ori r1,r0,#15 ; master volume to maxFFFFFFFFFFFFCF8C E6950080 ; SETLOFFFFFFFFFFFFCF90 EE800003 ; SETMIDFFFFFFFFFFFFCF94 6A0D0429 outc r1,PSG+128FFFFFFFFFFFFCF98 1600B46E ori r1,r0,#13422 ; 800HzFFFFFFFFFFFFCF9C E6950000 ; SETLOFFFFFFFFFFFFCFA0 EE800003 ; SETMIDFFFFFFFFFFFFCFA4 6A0D0429 outc r1,PSGFREQ0FFFFFFFFFFFFCFA8 E0400009 setlo r1,#9FFFFFFFFFFFFCFAC E69C0600 ; SETLOFFFFFFFFFFFFCFB0 EE800003 ; SETMIDFFFFFFFFFFFFCFB4 6A0D0428 outb r1,LED; decay (16.384 ms)2; attack (8.192 ms)1; release (1.024 s)A; sustain level CFFFFFFFFFFFFCFB8 E07FCA12 setlo r1,#0xCA12FFFFFFFFFFFFCFBC E6950006 ; SETLOFFFFFFFFFFFFCFC0 EE800003 ; SETMIDFFFFFFFFFFFFCFC4 6A0D0429 outc r1,PSGADSR0FFFFFFFFFFFFCFC8 16009104 ori r1,r0,#0x1104 ; gate, output enable, triangle waveformFFFFFFFFFFFFCFCC E6950004 ; SETLOFFFFFFFFFFFFCFD0 EE800003 ; SETMIDFFFFFFFFFFFFCFD4 6A0D0429 outc r1,PSGCTRL0FFFFFFFFFFFFCFD8 E6A625A0 ; SETLOFFFFFFFFFFFFCFDC EE800000 ; SETMIDFFFFFFFFFFFFCFE0 040D0409 ori r1,r0,#2500000 ; delay about 1sFFFFFFFFFFFFCFE4 beep1:FFFFFFFFFFFFCFE4 BE00800F loop r1,beep1FFFFFFFFFFFFCFE8 E040000D setlo r1,#13FFFFFFFFFFFFCFEC E69C0600 ; SETLOFFFFFFFFFFFFCFF0 EE800003 ; SETMIDFFFFFFFFFFFFCFF4 6A0D0428 outb r1,LEDFFFFFFFFFFFFCFF8 16008104 ori r1,r0,#0x0104 ; gate off, output enable, triangle waveformFFFFFFFFFFFFCFFC E6950004 ; SETLOFFFFFFFFFFFFD000 EE800003 ; SETMIDFFFFFFFFFFFFD004 6A0D0429 outc r1,PSGCTRL0FFFFFFFFFFFFD008 E6A625A0 ; SETLOFFFFFFFFFFFFD00C EE800000 ; SETMIDFFFFFFFFFFFFD010 040D0409 ori r1,r0,#2500000 ; delay about 1sFFFFFFFFFFFFD014 beep2:FFFFFFFFFFFFD014 BE00800F loop r1,beep2FFFFFFFFFFFFD018 E0400010 setlo r1,#16FFFFFFFFFFFFD01C E69C0600 ; SETLOFFFFFFFFFFFFD020 EE800003 ; SETMIDFFFFFFFFFFFFD024 6A0D0428 outb r1,LEDFFFFFFFFFFFFD028 16008000 ori r1,r0,#0x0000 ; gate off, output enable off, no waveformFFFFFFFFFFFFD02C E6950004 ; SETLOFFFFFFFFFFFFD030 EE800003 ; SETMIDFFFFFFFFFFFFD034 6A0D0429 outc r1,PSGCTRL0FFFFFFFFFFFFD038 47EF8008 lw lr,8[sp]FFFFFFFFFFFFD03C 47E08000 lw r1,[sp]FFFFFFFFFFFFD040 37EF8010 ret #16;--------------------------------------------------------------------------;--------------------------------------------------------------------------;FFFFFFFFFFFFD044 Piano:FFFFFFFFFFFFD044 1600800F ori r1,r0,#15 ; master volume to maxFFFFFFFFFFFFD048 E6950080 ; SETLOFFFFFFFFFFFFD04C EE800003 ; SETMIDFFFFFFFFFFFFD050 6A0D0429 outc r1,PSG+128FFFFFFFFFFFFD054 playnt:FFFFFFFFFFFFD054 31FFEF07 call KeybdGetCharFFFFFFFFFFFFD058 B01DF403 beqi r1,#CTRLC,MonitorFFFFFFFFFFFFD05C B0100861 beqi r1,#'a',playnt1aFFFFFFFFFFFFD060 B0100A62 beqi r1,#'b',playnt1bFFFFFFFFFFFFD064 B0100C63 beqi r1,#'c',playnt1cFFFFFFFFFFFFD068 B0100E64 beqi r1,#'d',playnt1dFFFFFFFFFFFFD06C B0101065 beqi r1,#'e',playnt1eFFFFFFFFFFFFD070 B0101266 beqi r1,#'f',playnt1fFFFFFFFFFFFFD074 B0101467 beqi r1,#'g',playnt1gFFFFFFFFFFFFD078 BE007EEA bra playntFFFFFFFFFFFFD07C playnt1a:FFFFFFFFFFFFD07C E0401C31 setlo r1,#7217FFFFFFFFFFFFD080 31FFF434 call ToneFFFFFFFFFFFFD084 BE007E8A bra playntFFFFFFFFFFFFD088 playnt1b:FFFFFFFFFFFFD088 E0401FA5 setlo r1,#8101FFFFFFFFFFFFD08C 31FFF434 call ToneFFFFFFFFFFFFD090 BE007E2A bra playntFFFFFFFFFFFFD094 playnt1c:FFFFFFFFFFFFD094 E04010C3 setlo r1,#4291FFFFFFFFFFFFD098 31FFF434 call ToneFFFFFFFFFFFFD09C BE007DCA bra playntFFFFFFFFFFFFD0A0 playnt1d:FFFFFFFFFFFFD0A0 E04012D1 setlo r1,#4817FFFFFFFFFFFFD0A4 31FFF434 call ToneFFFFFFFFFFFFD0A8 BE007D6A bra playntFFFFFFFFFFFFD0AC playnt1e:FFFFFFFFFFFFD0AC E040151F setlo r1,#5407FFFFFFFFFFFFD0B0 31FFF434 call ToneFFFFFFFFFFFFD0B4 BE007D0A bra playntFFFFFFFFFFFFD0B8 playnt1f:FFFFFFFFFFFFD0B8 E0401660 setlo r1,#5728FFFFFFFFFFFFD0BC 31FFF434 call ToneFFFFFFFFFFFFD0C0 BE007CAA bra playntFFFFFFFFFFFFD0C4 playnt1g:FFFFFFFFFFFFD0C4 E040191E setlo r1,#6430FFFFFFFFFFFFD0C8 31FFF434 call ToneFFFFFFFFFFFFD0CC BE007C4A bra playntFFFFFFFFFFFFD0D0 Tone:FFFFFFFFFFFFD0D0 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFD0D4 67E08000 sw r1,[sp]FFFFFFFFFFFFD0D8 67EF8008 sw lr,8[sp]FFFFFFFFFFFFD0DC E6950000 ; SETLOFFFFFFFFFFFFD0E0 EE800003 ; SETMIDFFFFFFFFFFFFD0E4 6A0D0429 outc r1,PSGFREQ0; decay (16.384 ms)2; attack (8.192 ms)1; release (1.024 s)A; sustain level CFFFFFFFFFFFFD0E8 E07FCA12 setlo r1,#0xCA12FFFFFFFFFFFFD0EC E6950006 ; SETLOFFFFFFFFFFFFD0F0 EE800003 ; SETMIDFFFFFFFFFFFFD0F4 6A0D0429 outc r1,PSGADSR0FFFFFFFFFFFFD0F8 16009104 ori r1,r0,#0x1104 ; gate, output enable, triangle waveformFFFFFFFFFFFFD0FC E6950004 ; SETLOFFFFFFFFFFFFD100 EE800003 ; SETMIDFFFFFFFFFFFFD104 6A0D0429 outc r1,PSGCTRL0FFFFFFFFFFFFD108 E683D090 ; SETLOFFFFFFFFFFFFD10C 040D0409 ori r1,r0,#250000 ; delay about 10msFFFFFFFFFFFFD110 tone1:FFFFFFFFFFFFD110 BE00800F loop r1,tone1FFFFFFFFFFFFD114 16008104 ori r1,r0,#0x0104 ; gate off, output enable, triangle waveformFFFFFFFFFFFFD118 E6950004 ; SETLOFFFFFFFFFFFFD11C EE800003 ; SETMIDFFFFFFFFFFFFD120 6A0D0429 outc r1,PSGCTRL0FFFFFFFFFFFFD124 E683D090 ; SETLOFFFFFFFFFFFFD128 040D0409 ori r1,r0,#250000 ; delay about 10msFFFFFFFFFFFFD12C tone2:FFFFFFFFFFFFD12C BE00800F loop r1,tone2FFFFFFFFFFFFD130 16008000 ori r1,r0,#0x0000 ; gate off, output enable off, no waveformFFFFFFFFFFFFD134 E6950004 ; SETLOFFFFFFFFFFFFD138 EE800003 ; SETMIDFFFFFFFFFFFFD13C 6A0D0429 outc r1,PSGCTRL0FFFFFFFFFFFFD140 47EF8008 lw lr,8[sp]FFFFFFFFFFFFD144 47E08000 lw r1,[sp]FFFFFFFFFFFFD148 37EF8010 ret #16;==============================================================================;==============================================================================FFFFFFFFFFFFD14C SetupRasterIRQ:FFFFFFFFFFFFD14C 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFD150 67E08000 sw r1,[sp]FFFFFFFFFFFFD154 E04000C8 setlo r1,#200FFFFFFFFFFFFD158 E69A0100 ; SETLOFFFFFFFFFFFFD15C EE800003 ; SETMIDFFFFFFFFFFFFD160 6A0D0429 outc r1,RASTERIRQFFFFFFFFFFFFD164 E04000F0 setlo r1,#240FFFFFFFFFFFFD168 E69A0102 ; SETLOFFFFFFFFFFFFD16C EE800003 ; SETMIDFFFFFFFFFFFFD170 6A0D0429 outc r1,RASTERIRQ+2FFFFFFFFFFFFD174 E0400118 setlo r1,#280FFFFFFFFFFFFD178 E69A0104 ; SETLOFFFFFFFFFFFFD17C EE800003 ; SETMIDFFFFFFFFFFFFD180 6A0D0429 outc r1,RASTERIRQ+4FFFFFFFFFFFFD184 E0400140 setlo r1,#320FFFFFFFFFFFFD188 E69A0106 ; SETLOFFFFFFFFFFFFD18C EE800003 ; SETMIDFFFFFFFFFFFFD190 6A0D0429 outc r1,RASTERIRQ+6FFFFFFFFFFFFD194 E0400168 setlo r1,#360FFFFFFFFFFFFD198 E69A0108 ; SETLOFFFFFFFFFFFFD19C EE800003 ; SETMIDFFFFFFFFFFFFD1A0 6A0D0429 outc r1,RASTERIRQ+8FFFFFFFFFFFFD1A4 47E08000 lw r1,[sp]FFFFFFFFFFFFD1A8 37EF8008 ret #8FFFFFFFFFFFFD1AC RasterIRQfn:FFFFFFFFFFFFD1AC E69A011E ; SETLOFFFFFFFFFFFFD1B0 EE800003 ; SETMIDFFFFFFFFFFFFD1B4 6A0D0421 inch r1,RASTERIRQ+30 ; get the raster compare register # (clears IRQ)FFFFFFFFFFFFD1B8 B0100901 beqi r1,#1,rirq1FFFFFFFFFFFFD1BC B0100802 beqi r1,#2,rirq2FFFFFFFFFFFFD1C0 B0100703 beqi r1,#3,rirq3FFFFFFFFFFFFD1C4 B0100604 beqi r1,#4,rirq4FFFFFFFFFFFFD1C8 B0100505 beqi r1,#5,rirq5FFFFFFFFFFFFD1CC B0100406 beqi r1,#6,rirq6FFFFFFFFFFFFD1D0 B0100307 beqi r1,#7,rirq7FFFFFFFFFFFFD1D4 B0100208 beqi r1,#8,rirq8FFFFFFFFFFFFD1D8 37EF8000 retFFFFFFFFFFFFD1DC rirq1:FFFFFFFFFFFFD1DC rirq2:FFFFFFFFFFFFD1DC rirq3:FFFFFFFFFFFFD1DC rirq4:FFFFFFFFFFFFD1DC rirq5:FFFFFFFFFFFFD1DC rirq6:FFFFFFFFFFFFD1DC rirq7:FFFFFFFFFFFFD1DC rirq8:FFFFFFFFFFFFD1DC 1A108028 mului r1,r1,#40FFFFFFFFFFFFD1E0 0A1080CC addui r1,r1,#204FFFFFFFFFFFFD1E4 E69AD002 ; SETLOFFFFFFFFFFFFD1E8 EE800003 ; SETMIDFFFFFFFFFFFFD1EC 6A0D0429 outc r1,SPRITEREGS+2FFFFFFFFFFFFD1F0 E69AD012 ; SETLOFFFFFFFFFFFFD1F4 EE800003 ; SETMIDFFFFFFFFFFFFD1F8 6A0D0429 outc r1,SPRITEREGS+18FFFFFFFFFFFFD1FC E69AD022 ; SETLOFFFFFFFFFFFFD200 EE800003 ; SETMIDFFFFFFFFFFFFD204 6A0D0429 outc r1,SPRITEREGS+34FFFFFFFFFFFFD208 E69AD032 ; SETLOFFFFFFFFFFFFD20C EE800003 ; SETMIDFFFFFFFFFFFFD210 6A0D0429 outc r1,SPRITEREGS+50FFFFFFFFFFFFD214 E69AD042 ; SETLOFFFFFFFFFFFFD218 EE800003 ; SETMIDFFFFFFFFFFFFD21C 6A0D0429 outc r1,SPRITEREGS+66FFFFFFFFFFFFD220 E69AD052 ; SETLOFFFFFFFFFFFFD224 EE800003 ; SETMIDFFFFFFFFFFFFD228 6A0D0429 outc r1,SPRITEREGS+82FFFFFFFFFFFFD22C E69AD062 ; SETLOFFFFFFFFFFFFD230 EE800003 ; SETMIDFFFFFFFFFFFFD234 6A0D0429 outc r1,SPRITEREGS+98FFFFFFFFFFFFD238 E69AD072 ; SETLOFFFFFFFFFFFFD23C EE800003 ; SETMIDFFFFFFFFFFFFD240 6A0D0429 outc r1,SPRITEREGS+114FFFFFFFFFFFFD244 37EF8000 ret;------------------------------------------------------------------------------;------------------------------------------------------------------------------FFFFFFFFFFFFD248 DisplayDatetime:FFFFFFFFFFFFD248 0FEF0030 subui sp,sp,#48FFFFFFFFFFFFD24C 67E08000 sw r1,[sp]FFFFFFFFFFFFD250 67E10008 sw r2,8[sp]FFFFFFFFFFFFD254 67E18010 sw r3,16[sp]FFFFFFFFFFFFD258 67E20018 sw r4,24[sp]FFFFFFFFFFFFD25C 67E28020 sw r5,32[sp]FFFFFFFFFFFFD260 67EF8018 sw lr,24[sp]FFFFFFFFFFFFD264 31FFEFF2 call CursorOffFFFFFFFFFFFFD268 16008003 lw r1,#3 ; get cursor positionFFFFFFFFFFFFD26C 0181CD17 syscall #410FFFFFFFFFFFFD270 02120009 mov r4,r1 ; r4 = rowFFFFFFFFFFFFD274 02228009 mov r5,r2 ; r5 = colFFFFFFFFFFFFD278 16008002 lw r1,#2 ; set cursor positionFFFFFFFFFFFFD27C 1601002E lw r2,#46 ; move cursor down to last display lineFFFFFFFFFFFFD280 16018040 lw r3,#64FFFFFFFFFFFFD284 0181CD17 syscall #410FFFFFFFFFFFFD288 16008001 lw r1,#1 ; get the snapshotted date and timeFFFFFFFFFFFFD28C 0181D017 syscall #416FFFFFFFFFFFFD290 31FFF169 call DisplayWord ; display on screenFFFFFFFFFFFFD294 16008002 lw r1,#2 ; restore cursor positionFFFFFFFFFFFFD298 02410009 mov r2,r4 ; r2 = rowFFFFFFFFFFFFD29C 02518009 mov r3,r5 ; r3 = colFFFFFFFFFFFFD2A0 0181CD17 syscall #410FFFFFFFFFFFFD2A4 31FFEFF7 call CursorOnFFFFFFFFFFFFD2A8 47EF8018 lw lr,24[sp]FFFFFFFFFFFFD2AC 47E18010 lw r3,16[sp]FFFFFFFFFFFFD2B0 47E10008 lw r2,8[sp]FFFFFFFFFFFFD2B4 47E08000 lw r1,[sp]FFFFFFFFFFFFD2B8 47E20018 lw r4,24[sp]FFFFFFFFFFFFD2BC 47E28020 lw r5,32[sp]FFFFFFFFFFFFD2C0 37EF8030 ret #48;==============================================================================;==============================================================================FFFFFFFFFFFFD2C4 InitializeGame:FFFFFFFFFFFFD2C4 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFD2C8 27F40000004 sm [sp],r3/lrFFFFFFFFFFFFD2CC E0C00140 setlo r3,#320FFFFFFFFFFFFD2D0 62019508 sc r3,ManposFFFFFFFFFFFFD2D4 62001500 sc r0,ScoreFFFFFFFFFFFFD2D8 60001510 sb r0,MissileActiveFFFFFFFFFFFFD2DC 62001512 sc r0,MissileXFFFFFFFFFFFFD2E0 62001514 sc r0,MissileYFFFFFFFFFFFFD2E4 27740000004 lm [sp],r3/lrFFFFFFFFFFFFD2E8 37EF8010 ret #16FFFFFFFFFFFFD2EC DrawScore:FFFFFFFFFFFFD2EC 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFD2F0 27F40000005 sm [sp],r1/r3/lrFFFFFFFFFFFFD2F4 E0C00001 setlo r3,#1FFFFFFFFFFFFD2F8 60019417 sb r3,CursorRowFFFFFFFFFFFFD2FC E0C00028 setlo r3,#40FFFFFFFFFFFFD300 60019418 sb r3,CursorColFFFFFFFFFFFFD304 40009500 lb r1,ScoreFFFFFFFFFFFFD308 31FFF14B call DisplayByteFFFFFFFFFFFFD30C 40009501 lb r1,Score+1FFFFFFFFFFFFD310 31FFF14B call DisplayByteFFFFFFFFFFFFD314 27740000005 lm [sp],r1/r3/lrFFFFFFFFFFFFD318 37EF8018 ret #24FFFFFFFFFFFFD31C DrawMissile:FFFFFFFFFFFFD31C 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFD320 27F40000001 sm [sp],r1/lrFFFFFFFFFFFFD324 42009514 lc r1,MissileYFFFFFFFFFFFFD328 AC101402 bleu r1,#2,MissileOffFFFFFFFFFFFFD32C 42009512 lc r1,MissileXFFFFFFFFFFFFD330 06108601 shrui r1,r1,#3FFFFFFFFFFFFD334 60009418 sb r1,CursorColFFFFFFFFFFFFD338 42009514 lc r1,MissileYFFFFFFFFFFFFD33C 60009417 sb r1,CursorRowFFFFFFFFFFFFD340 0E108001 subui r1,r1,#1FFFFFFFFFFFFD344 62009514 sc r1,MissileYFFFFFFFFFFFFD348 E040005E setlo r1,#'^'FFFFFFFFFFFFD34C 31FFF07F call DisplayCharFFFFFFFFFFFFD350 40009418 lb r1,CursorColFFFFFFFFFFFFD354 0E108001 subui r1,r1,#1FFFFFFFFFFFFD358 60009418 sb r1,CursorColFFFFFFFFFFFFD35C 40009417 lb r1,CursorRowFFFFFFFFFFFFD360 0E108001 subui r1,r1,#1FFFFFFFFFFFFD364 60009417 sb r1,CursorRowFFFFFFFFFFFFD368 E0400020 setlo r1,#' 'FFFFFFFFFFFFD36C 31FFF07F call DisplayCharFFFFFFFFFFFFD370 27740000001 lm [sp],r1/lrFFFFFFFFFFFFD374 37EF8010 ret #16FFFFFFFFFFFFD378 MissileOff:FFFFFFFFFFFFD378 60001510 sb r0,MissileActiveFFFFFFFFFFFFD37C 42009512 lc r1,MissileXFFFFFFFFFFFFD380 06108601 shrui r1,r1,#3FFFFFFFFFFFFD384 60009418 sb r1,CursorColFFFFFFFFFFFFD388 42009514 lc r1,MissileYFFFFFFFFFFFFD38C 60009417 sb r1,CursorRowFFFFFFFFFFFFD390 E0400020 setlo r1,#' 'FFFFFFFFFFFFD394 31FFF07F call DisplayCharFFFFFFFFFFFFD398 27740000001 lm [sp],r1/lrFFFFFFFFFFFFD39C 37EF8010 ret #16FFFFFFFFFFFFD3A0 DrawMan:FFFFFFFFFFFFD3A0 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFD3A4 27F40000005 sm [sp],r1/r3/lrFFFFFFFFFFFFD3A8 E0C0002E setlo r3,#46FFFFFFFFFFFFD3AC 60019417 sb r3,CursorRowFFFFFFFFFFFFD3B0 42019508 lc r3,ManposFFFFFFFFFFFFD3B4 06318601 shrui r3,r3,#3FFFFFFFFFFFFD3B8 60019418 sb r3,CursorColFFFFFFFFFFFFD3BC E0400020 setlo r1,#' 'FFFFFFFFFFFFD3C0 31FFF07F call DisplayCharFFFFFFFFFFFFD3C4 E0400023 setlo r1,#'#'FFFFFFFFFFFFD3C8 31FFF07F call DisplayCharFFFFFFFFFFFFD3CC E0400041 setlo r1,#'A'FFFFFFFFFFFFD3D0 31FFF07F call DisplayCharFFFFFFFFFFFFD3D4 E0400023 setlo r1,#'#'FFFFFFFFFFFFD3D8 31FFF07F call DisplayCharFFFFFFFFFFFFD3DC E0400020 setlo r1,#' 'FFFFFFFFFFFFD3E0 31FFF07F call DisplayCharFFFFFFFFFFFFD3E4 27740000005 lm [sp],r1/r3/lrFFFFFFFFFFFFD3E8 37EF8018 ret #24FFFFFFFFFFFFD3EC DrawInvader:FFFFFFFFFFFFD3EC 46018000 lw r3,InvaderPosFFFFFFFFFFFFD3F0 160080E9 lw r1,#233FFFFFFFFFFFFD3F4 62308000 sc r1,[r3]FFFFFFFFFFFFD3F8 160080F2 lw r1,#242FFFFFFFFFFFFD3FC 62308001 sc r1,1[r3]FFFFFFFFFFFFD400 160080DF lw r1,#223FFFFFFFFFFFFD404 62308002 sc r1,2[r3]FFFFFFFFFFFFD408 37EF8000 retFFFFFFFFFFFFD40C DrawInvaders:FFFFFFFFFFFFD40C 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFD410 27F4000000F sm [sp],r1/r2/r3/r4/lrFFFFFFFFFFFFD414 42009520 lc r1,InvadersRow1FFFFFFFFFFFFD418 42021570 lc r4,InvadersColposFFFFFFFFFFFFD41C 14110001 andi r2,r1,#1FFFFFFFFFFFFD420 BE2003A8 beq r2,r0,dinv1FFFFFFFFFFFFD424 40019571 lb r3,InvadersRowposFFFFFFFFFFFFD428 60019417 sb r3,CursorRowFFFFFFFFFFFFD42C 60021418 sb r4,CursorColFFFFFFFFFFFFD430 E0400020 setlo r1,#' 'FFFFFFFFFFFFD434 31FFF14B call DisplayByteFFFFFFFFFFFFD438 E0400023 setlo r1,#'#'FFFFFFFFFFFFD43C 31FFF14B call DisplayByteFFFFFFFFFFFFD440 E0400023 setlo r1,#'#'FFFFFFFFFFFFD444 31FFF14B call DisplayByteFFFFFFFFFFFFD448 E0400023 setlo r1,#'#'FFFFFFFFFFFFD44C 31FFF14B call DisplayByteFFFFFFFFFFFFD450 E0400020 setlo r1,#' 'FFFFFFFFFFFFD454 31FFF14B call DisplayByteFFFFFFFFFFFFD458 40009417 lb r1,CursorRowFFFFFFFFFFFFD45C 0A108001 addui r1,r1,#1FFFFFFFFFFFFD460 60009417 sb r1,CursorRowFFFFFFFFFFFFD464 40009418 lb r1,CursorColFFFFFFFFFFFFD468 0E108005 subui r1,r1,#5FFFFFFFFFFFFD46C E0400020 setlo r1,#' 'FFFFFFFFFFFFD470 31FFF14B call DisplayByteFFFFFFFFFFFFD474 E0400058 setlo r1,#'X'FFFFFFFFFFFFD478 31FFF14B call DisplayByteFFFFFFFFFFFFD47C E0400020 setlo r1,#' 'FFFFFFFFFFFFD480 31FFF14B call DisplayByteFFFFFFFFFFFFD484 E0400058 setlo r1,#'X'FFFFFFFFFFFFD488 31FFF14B call DisplayByteFFFFFFFFFFFFD48C E0400020 setlo r1,#' 'FFFFFFFFFFFFD490 31FFF14B call DisplayByteFFFFFFFFFFFFD494 dinv1:FFFFFFFFFFFFD494 2774000000F lm [sp],r1/r2/r3/r4/lrFFFFFFFFFFFFD498 37EF8028 ret #40FFFFFFFFFFFFD49C DrawBombs:FFFFFFFFFFFFD49C 37EF8000 retFFFFFFFFFFFFD4A0 Invaders:FFFFFFFFFFFFD4A0 FFFFFFFFFFFF0000 subui sp,#240FFFFFFFFFFFFD4A4 27F4000000F sm [sp],r1/r2/r3/r4/lrFFFFFFFFFFFFD4A8 31FFF4B1 call InitializeGameFFFFFFFFFFFFD4AC InvadersLoop:FFFFFFFFFFFFD4AC 31FFF4BB call DrawScoreFFFFFFFFFFFFD4B0 31FFF503 call DrawInvadersFFFFFFFFFFFFD4B4 31FFF527 call DrawBombsFFFFFFFFFFFFD4B8 31FFF4C7 call DrawMissileFFFFFFFFFFFFD4BC 31FFF4E8 call DrawManFFFFFFFFFFFFD4C0 TestMoveMan:FFFFFFFFFFFFD4C0 31FFEF07 call KeybdGetCharFFFFFFFFFFFFD4C4 B010046B beqi r1,#'k',MoveManRightFFFFFFFFFFFFD4C8 B010096A beqi r1,#'j',MoveManLeftFFFFFFFFFFFFD4CC B0100D20 beqi r1,#' ',FireMissileFFFFFFFFFFFFD4D0 BE0002AA bra Invaders1FFFFFFFFFFFFD4D4 MoveManRight:FFFFFFFFFFFFD4D4 42011508 lc r2,ManposFFFFFFFFFFFFD4D8 E6800280 ; SETLOFFFFFFFFFFFFD4DC BE2D0247 bgtu r2,#640,Invaders1FFFFFFFFFFFFD4E0 0A210008 addui r2,r2,#8FFFFFFFFFFFFD4E4 62011508 sc r2,ManposFFFFFFFFFFFFD4E8 BE0001EA bra Invaders1FFFFFFFFFFFFD4EC MoveManLeft:FFFFFFFFFFFFD4EC 42011508 lc r2,ManposFFFFFFFFFFFFD4F0 BE2001A2 ble r2,r0,Invaders1FFFFFFFFFFFFD4F4 0E210008 subui r2,r2,#8FFFFFFFFFFFFD4F8 62011508 sc r2,ManposFFFFFFFFFFFFD4FC BE00014A bra Invaders1FFFFFFFFFFFFD500 FireMissile:FFFFFFFFFFFFD500 40011510 lb r2,MissileActiveFFFFFFFFFFFFD504 BE200109 bne r2,r0,Invaders1FFFFFFFFFFFFD508 E0800001 setlo r2,#1FFFFFFFFFFFFD50C 60011510 sb r2,MissileActiveFFFFFFFFFFFFD510 42011508 lc r2,ManposFFFFFFFFFFFFD514 62011512 sc r2,MissileXFFFFFFFFFFFFD518 E080002E setlo r2,#46FFFFFFFFFFFFD51C 62011514 sc r2,MissileYFFFFFFFFFFFFD520 BE00002A bra Invaders1FFFFFFFFFFFFD524 Invaders1:FFFFFFFFFFFFD524 B0100203 beqi r1,#CTRLC,InvadersEndFFFFFFFFFFFFD528 BE007C2A bra InvadersLoopFFFFFFFFFFFFD52C InvadersEnd:FFFFFFFFFFFFD52C 2774000000F lm [sp],r1/r2/r3/r4/lrFFFFFFFFFFFFD530 0BEF00F0 addui sp,sp,#240FFFFFFFFFFFFD534 BE0017AA bra Monitor;==============================================================================;==============================================================================;; Initialize the SD card; Returns; r = 0 if successful, 1 otherwise;FFFFFFFFFFFFD538 spi_init:FFFFFFFFFFFFD538 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFD53C 67EF8000 sw lr,[sp]FFFFFFFFFFFFD540 67E10008 sw r2,8[sp]FFFFFFFFFFFFD544 67E18010 sw r3,16[sp]FFFFFFFFFFFFD548 E69C0500 ; SETLOFFFFFFFFFFFFD54C EE800003 ; SETMIDFFFFFFFFFFFFD550 6A0D0C2D lea r3,SPIMASTERFFFFFFFFFFFFD554 16008001 lw r1,#SPI_INIT_SDFFFFFFFFFFFFD558 90308002 outb r1,SPI_TRANS_TYPE_REG[r3]FFFFFFFFFFFFD55C 16008001 lw r1,#SPI_TRANS_STARTFFFFFFFFFFFFD560 90308003 outb r1,SPI_TRANS_CTRL_REG[r3]FFFFFFFFFFFFD564 DE000000 nopFFFFFFFFFFFFD568 spi_init1:FFFFFFFFFFFFD568 80308004 inb r1,SPI_TRANS_STATUS_REG[r3]FFFFFFFFFFFFD56C 02110009 mov r2,r1 ; note: some time needs to be wastedFFFFFFFFFFFFD570 02208009 mov r1,r2 ; between status reads.FFFFFFFFFFFFD574 B01FFD01 beqi r1,#SPI_TRANS_BUSY,spi_init1FFFFFFFFFFFFD578 80308005 inb r1,SPI_TRANS_ERROR_REG[r3]FFFFFFFFFFFFD57C 2A108204 bfext r1,r1,#1,#0FFFFFFFFFFFFD580 B2100500 bne r1,#SPI_INIT_NO_ERROR,spi_errorFFFFFFFFFFFFD584 9A00D946 lea r1,spi_init_ok_msgFFFFFFFFFFFFD588 31FFF122 call DisplayStringFFFFFFFFFFFFD58C 0410840A xor r1,r1,r1FFFFFFFFFFFFD590 BE0000AA bra spi_init_exitFFFFFFFFFFFFD594 spi_error:FFFFFFFFFFFFD594 31FFF14B call DisplayByteFFFFFFFFFFFFD598 9A00D960 lea r1,spi_init_error_msgFFFFFFFFFFFFD59C 31FFF122 call DisplayStringFFFFFFFFFFFFD5A0 16008001 lw r1,#1FFFFFFFFFFFFD5A4 spi_init_exit:FFFFFFFFFFFFD5A4 47EF8000 lw lr,[sp]FFFFFFFFFFFFD5A8 47E10008 lw r2,8[sp]FFFFFFFFFFFFD5AC 47E18010 lw r3,16[sp]FFFFFFFFFFFFD5B0 37EF8018 ret #24; SPI read sector;; r1= sector number to read; r2= address to place read data; Returns:; r1 = 0 if successful;FFFFFFFFFFFFD5B4 spi_read_sector:FFFFFFFFFFFFD5B4 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFD5B8 67EF8000 sw lr,[sp]FFFFFFFFFFFFD5BC 67E28008 sw r5,8[sp]FFFFFFFFFFFFD5C0 67E10010 sw r2,16[sp]FFFFFFFFFFFFD5C4 67E18018 sw r3,24[sp]FFFFFFFFFFFFD5C8 67E20020 sw r4,32[sp]FFFFFFFFFFFFD5CC E69C0500 ; SETLOFFFFFFFFFFFFD5D0 EE800003 ; SETMIDFFFFFFFFFFFFD5D4 6A0D0C2D lea r3,SPIMASTER; spi master wants a byte address, so we multiply the sector number; by 512.FFFFFFFFFFFFD5D8 06109206 shlui r1,r1,#9FFFFFFFFFFFFD5DC 90308007 outb r1,SPI_SD_ADDR_7_0_REG[r3]FFFFFFFFFFFFD5E0 06109001 shrui r1,r1,#8FFFFFFFFFFFFD5E4 90308008 outb r1,SPI_SD_ADDR_15_8_REG[r3]FFFFFFFFFFFFD5E8 06109001 shrui r1,r1,#8FFFFFFFFFFFFD5EC 90308009 outb r1,SPI_SD_ADDR_23_16_REG[r3]FFFFFFFFFFFFD5F0 06109001 shrui r1,r1,#8FFFFFFFFFFFFD5F4 9030800A outb r1,SPI_SD_ADDR_31_24_REG[r3]; Force the reciever fifo to be empty, in case a prior error leaves it; in an unknown state.FFFFFFFFFFFFD5F8 16008001 lw r1,#1FFFFFFFFFFFFD5FC 90308014 outb r1,SPI_RX_FIFO_CTRL_REG[r3]FFFFFFFFFFFFD600 16008002 lw r1,#RW_READ_SD_BLOCKFFFFFFFFFFFFD604 90308002 outb r1,SPI_TRANS_TYPE_REG[r3]FFFFFFFFFFFFD608 16008001 lw r1,#SPI_TRANS_STARTFFFFFFFFFFFFD60C 90308003 outb r1,SPI_TRANS_CTRL_REG[r3]FFFFFFFFFFFFD610 DE000000 nopFFFFFFFFFFFFD614 spi_read_sect1:FFFFFFFFFFFFD614 80308004 inb r1,SPI_TRANS_STATUS_REG[r3]FFFFFFFFFFFFD618 02120009 mov r4,r1 ; just a delay between consecutive status reg readsFFFFFFFFFFFFD61C 02408009 mov r1,r4FFFFFFFFFFFFD620 B01FFD01 beqi r1,#SPI_TRANS_BUSY,spi_read_sect1FFFFFFFFFFFFD624 80308005 inb r1,SPI_TRANS_ERROR_REG[r3]FFFFFFFFFFFFD628 2A108614 bfext r1,r1,#3,#2FFFFFFFFFFFFD62C B2100800 bnei r1,#SPI_READ_NO_ERROR,spi_read_errorFFFFFFFFFFFFD630 16020200 lw r4,#512 ; read 512 bytes from fifoFFFFFFFFFFFFD634 spi_read_sect2:FFFFFFFFFFFFD634 80308010 inb r1,SPI_RX_FIFO_DATA_REG[r3]FFFFFFFFFFFFD638 60208000 sb r1,[r2]FFFFFFFFFFFFD63C 0A210001 addui r2,r2,#1FFFFFFFFFFFFD640 BE027FAF loop r4,spi_read_sect2FFFFFFFFFFFFD644 0410840A xor r1,r1,r1FFFFFFFFFFFFD648 BE0000AA bra spi_read_retFFFFFFFFFFFFD64C spi_read_error:FFFFFFFFFFFFD64C 31FFF14B call DisplayByteFFFFFFFFFFFFD650 9A00D99E lea r1,spi_read_error_msgFFFFFFFFFFFFD654 31FFF122 call DisplayStringFFFFFFFFFFFFD658 16008001 lw r1,#1FFFFFFFFFFFFD65C spi_read_ret:FFFFFFFFFFFFD65C 47EF8000 lw lr,[sp]FFFFFFFFFFFFD660 47E28008 lw r5,8[sp]FFFFFFFFFFFFD664 47E10010 lw r2,16[sp]FFFFFFFFFFFFD668 47E18018 lw r3,24[sp]FFFFFFFFFFFFD66C 47E20020 lw r4,32[sp]FFFFFFFFFFFFD670 37EF8028 ret #40; Read the boot sector from the disk.; Must find it first by looking for the signature bytes 'EB' and '55AA'.;FFFFFFFFFFFFD674 spi_read_boot:FFFFFFFFFFFFD674 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFD678 67EF8000 sw lr,[sp]FFFFFFFFFFFFD67C 67E10008 sw r2,8[sp]FFFFFFFFFFFFD680 67E18010 sw r3,16[sp]FFFFFFFFFFFFD684 67E28018 sw r5,24[sp]FFFFFFFFFFFFD688 660030F8 sw r0,startSector ; default starting sectorFFFFFFFFFFFFD68C 160181F4 lw r3,#500 ;1934720 ; number of sectors to read (up to 1GB)FFFFFFFFFFFFD690 16028000 lw r5,#0 ; r5 = starting addressFFFFFFFFFFFFD694 spi_read_boot1:FFFFFFFFFFFFD694 02508009 mov r1,r5 ; r1 = sector numberFFFFFFFFFFFFD698 16010008 lw r2,#8 ; eight digitsFFFFFFFFFFFFD69C 60001418 sb r0,CursorColFFFFFFFFFFFFD6A0 31FFF13F call DisplayNum ; Display the sector number being checkedFFFFFFFFFFFFD6A4 02508009 mov r1,r5 ; r1 = sector numberFFFFFFFFFFFFD6A8 E6800000 ; SETLOFFFFFFFFFFFFD6AC EE800402 ; SETMIDFFFFFFFFFFFFD6B0 040D0809 lw r2,#0x100800000 ; r2 = target addressFFFFFFFFFFFFD6B4 31FFF56D call spi_read_sector; The following displays the contents of the sector; lw r1,#0x10; lw r2,#0x3800;spi_read_boot5:; call DisplayMemB; loop r1,spi_read_boot5FFFFFFFFFFFFD6B8 0A528001 addui r5,r5,#1 ; move to next sectorFFFFFFFFFFFFD6BC E6800000 ; SETLOFFFFFFFFFFFFD6C0 EE800402 ; SETMIDFFFFFFFFFFFFD6C4 6A0D0405 lbu r1,0x100800000FFFFFFFFFFFFD6C8 121100EB cmpui r2,r1,#0xEBFFFFFFFFFFFFD6CC BE200088 beq r2,r0,spi_read_boot2FFFFFFFFFFFFD6D0 spi_read_boot3:FFFFFFFFFFFFD6D0 BE01FE2F loop r3,spi_read_boot1FFFFFFFFFFFFD6D4 16008001 lw r1,#1 ; r1 = 1 for errorFFFFFFFFFFFFD6D8 BE0001EA bra spi_read_boot4FFFFFFFFFFFFD6DC spi_read_boot2:FFFFFFFFFFFFD6DC 9A00D728 lea r1,msgFoundEBFFFFFFFFFFFFD6E0 31FFF122 call DisplayStringFFFFFFFFFFFFD6E4 E68001FE ; SETLOFFFFFFFFFFFFD6E8 EE800402 ; SETMIDFFFFFFFFFFFFD6EC 6A0D0405 lbu r1,0x1008001FE ; check for 0x55AA signatureFFFFFFFFFFFFD6F0 B21FF855 bnei r1,#0x55,spi_read_boot3FFFFFFFFFFFFD6F4 E68001FF ; SETLOFFFFFFFFFFFFD6F8 EE800402 ; SETMIDFFFFFFFFFFFFD6FC 6A0D0405 lbu r1,0x1008001FFFFFFFFFFFFFFD700 E68000AA ; SETLOFFFFFFFFFFFFD704 BE1D7E69 bnei r1,#0xAA,spi_read_boot3FFFFFFFFFFFFD708 0E508001 subui r1,r5,#1FFFFFFFFFFFFD70C 6600B0F8 sw r1,startSectorFFFFFFFFFFFFD710 0410840A xor r1,r1,r1 ; r1 = 0, for okay statusFFFFFFFFFFFFD714 spi_read_boot4:FFFFFFFFFFFFD714 47EF8000 lw lr,[sp]FFFFFFFFFFFFD718 47E10008 lw r2,8[sp]FFFFFFFFFFFFD71C 47E18010 lw r3,16[sp]FFFFFFFFFFFFD720 47E28018 lw r5,24[sp]FFFFFFFFFFFFD724 37EF8020 ret #32FFFFFFFFFFFFD728 msgFoundEB:FFFFFFFFFFFFD728 424520646E756F46 db "Found EB code.",CR,LF,0FFFFFFFFFFFFD730 0A0D2E65646F6320FFFFFFFFFFFFD73C .align 4; Load the FAT tables into memory;FFFFFFFFFFFFD73C loadFAT:FFFFFFFFFFFFD73C 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFD740 67EF8000 sw lr,[sp]FFFFFFFFFFFFD744 E6800016 ; SETLOFFFFFFFFFFFFD748 EE800402 ; SETMIDFFFFFFFFFFFFD74C 6A0D0C06 lcu r3,0x100800016 ; sectors per FATFFFFFFFFFFFFD750 E6800010 ; SETLOFFFFFFFFFFFFD754 EE800402 ; SETMIDFFFFFFFFFFFFD758 6A0D0805 lbu r2,0x100800010 ; number of FATsFFFFFFFFFFFFD75C 04310C18 mulu r3,r3,r2 ; offsetFFFFFFFFFFFFD760 E6800200 ; SETLOFFFFFFFFFFFFD764 EE800402 ; SETMIDFFFFFFFFFFFFD768 6A0D082D lea r2,0x100800200 ; where to place FATFFFFFFFFFFFFD76C E680000E ; SETLOFFFFFFFFFFFFD770 EE800402 ; SETMIDFFFFFFFFFFFFD774 6A0D1406 lcu r5,0x10080000E ; r5 = # reserved sectors before FATFFFFFFFFFFFFD778 460330F8 lw r6,startSectorFFFFFFFFFFFFD77C 04531403 addu r5,r5,r6FFFFFFFFFFFFD780 loadFAT1:FFFFFFFFFFFFD780 02508009 mov r1,r5 ; r1 = sector #FFFFFFFFFFFFD784 31FFF56D call spi_read_sectorFFFFFFFFFFFFD788 0A528001 addui r5,r5,#1FFFFFFFFFFFFD78C 0A210200 addui r2,r2,#512 ; advance 512 bytesFFFFFFFFFFFFD790 BE01FF8F loop r3,loadFAT1FFFFFFFFFFFFD794 47EF8000 lw lr,[sp]FFFFFFFFFFFFD798 37EF8008 ret #8; Load the root directory from disk; r2 = where to place root directory in memory;FFFFFFFFFFFFD79C loadRootDirectory:FFFFFFFFFFFFD79C E6800016 ; SETLOFFFFFFFFFFFFD7A0 EE800402 ; SETMIDFFFFFFFFFFFFD7A4 6A0D0C06 lcu r3,0x100800016 ; sectors per FATFFFFFFFFFFFFD7A8 E6800010 ; SETLOFFFFFFFFFFFFD7AC EE800402 ; SETMIDFFFFFFFFFFFFD7B0 6A0D1005 lbu r4,0x100800010 ; number of FATsFFFFFFFFFFFFD7B4 04320C18 mulu r3,r3,r4 ; offsetFFFFFFFFFFFFD7B8 E680000E ; SETLOFFFFFFFFFFFFD7BC EE800402 ; SETMIDFFFFFFFFFFFFD7C0 6A0D1006 lcu r4,0x10080000E ; r2 = # reserved sectors before FATFFFFFFFFFFFFD7C4 04320C03 addu r3,r3,r4 ; r3 = root directory sector numberFFFFFFFFFFFFD7C8 460330F8 lw r6,startSectorFFFFFFFFFFFFD7CC 04331403 addu r5,r3,r6 ; r5 = root directory sector number; we have to use two byte loads here because the number is at an unaligned data addressFFFFFFFFFFFFD7D0 E6800011 ; SETLOFFFFFFFFFFFFD7D4 EE800402 ; SETMIDFFFFFFFFFFFFD7D8 6A0D1C05 lbu r7,0x100800011 ; r7 <= number of root directory entriesFFFFFFFFFFFFD7DC E6800012 ; SETLOFFFFFFFFFFFFD7E0 EE800402 ; SETMIDFFFFFFFFFFFFD7E4 6A0D2005 lbu r8,0x100800012FFFFFFFFFFFFD7E8 06841006 shlui r8,r8,#8FFFFFFFFFFFFD7EC 04741C09 or r7,r7,r8FFFFFFFFFFFFD7F0 02740009 mov r8,r7 ; r8 = number of root directory entriesFFFFFFFFFFFFD7F4 06738A06 shlui r7,r7,#5 ; r7 *=32 = size of root directory table (bytes)FFFFFFFFFFFFD7F8 06739201 shrui r7,r7,#9 ; r7 /= 512 = number of sectors in root directoryFFFFFFFFFFFFD7FC 02718009 mov r3,r7FFFFFFFFFFFFD800 loadRootDir1:FFFFFFFFFFFFD800 02508009 mov r1,r5FFFFFFFFFFFFD804 31FFF56D call spi_read_sectorFFFFFFFFFFFFD808 0A528001 addui r5,r5,#1FFFFFFFFFFFFD80C 0A210200 addui r2,r2,#512FFFFFFFFFFFFD810 BE01FF8F loop r3,loadRootDir1FFFFFFFFFFFFD814 loadBootFile:; For now we cheat and just go directly to sector 512.FFFFFFFFFFFFD814 BE0004AA bra loadBootFileTmpFFFFFFFFFFFFD818 E6800016 ; SETLOFFFFFFFFFFFFD81C EE800402 ; SETMIDFFFFFFFFFFFFD820 6A0D0C06 lcu r3,0x100800016 ; sectors per FATFFFFFFFFFFFFD824 E6800010 ; SETLOFFFFFFFFFFFFD828 EE800402 ; SETMIDFFFFFFFFFFFFD82C 6A0D0805 lbu r2,0x100800010 ; number of FATsFFFFFFFFFFFFD830 04310C18 mulu r3,r3,r2 ; offsetFFFFFFFFFFFFD834 E680000E ; SETLOFFFFFFFFFFFFD838 EE800402 ; SETMIDFFFFFFFFFFFFD83C 6A0D0806 lcu r2,0x10080000E ; r2 = # reserved sectors before FATFFFFFFFFFFFFD840 04310C03 addu r3,r3,r2 ; r3 = root directory sector number; we have to use two byte loads here because the number is at an unaligned data addressFFFFFFFFFFFFD844 E6800011 ; SETLOFFFFFFFFFFFFD848 EE800402 ; SETMIDFFFFFFFFFFFFD84C 6A0D1C05 lbu r7,0x100800011 ; r7 <= number of root directory entriesFFFFFFFFFFFFD850 E6800012 ; SETLOFFFFFFFFFFFFD854 EE800402 ; SETMIDFFFFFFFFFFFFD858 6A0D2005 lbu r8,0x100800012FFFFFFFFFFFFD85C 06841006 shlui r8,r8,#8FFFFFFFFFFFFD860 04741C09 or r7,r7,r8FFFFFFFFFFFFD864 02740009 mov r8,r7 ; r8 = number of root directory entriesFFFFFFFFFFFFD868 06738A06 shlui r7,r7,#5 ; r7 *=32 = size of root directory table (bytes)FFFFFFFFFFFFD86C 06739201 shrui r7,r7,#9 ; r7 /= 512 = number of sectors in root directory; now we need to fetch the sectors of the root directory and put them somewhere in; memory;FFFFFFFFFFFFD870 loadBootFile4:FFFFFFFFFFFFD870 46308000 lw r1,[r3] ; get filenameFFFFFFFFFFFFD874 E68F4F42 ; SETLOFFFFFFFFFFFFD878 EEA51951 ; SETMIDFFFFFFFFFFFFD87C F68454C4 ; SETHIFFFFFFFFFFFFD880 041D0407 cmpui r1,r1,#0x454C4946544F4F42 ; "BOOTFILE"FFFFFFFFFFFFD884 BE100068 beq r1,r0,loadBootFile5FFFFFFFFFFFFD888 loadBootFile3:FFFFFFFFFFFFD888 0A318020 addui r3,r3,#32 ; move to next directory entryFFFFFFFFFFFFD88C BE03FF2F loop r7,loadBootFile4; boot file not found; here we found the file in the directory;FFFFFFFFFFFFD890 loadBootFile5:FFFFFFFFFFFFD890 4C31001A lcu r2,0x1a[r3] ; get starting clusterFFFFFFFFFFFFD894 E6800011 ; SETLOFFFFFFFFFFFFD898 EE800402 ; SETMIDFFFFFFFFFFFFD89C 6A0D1C06 lcu r7,0x100800011 ; r7 = number of root directory entriesFFFFFFFFFFFFD8A0 06738A06 shlui r7,r7,#5 ; r7 *=32 = size of root directory table (bytes)FFFFFFFFFFFFD8A4 06739201 shrui r7,r7,#9 ; r7 /= 512 = number of sectors in root directoryFFFFFFFFFFFFD8A8 loadBootFileTmp:; We load the number of sectors per cluster, then load a single cluster of the file.; This is 16kibFFFFFFFFFFFFD8A8 E680000D ; SETLOFFFFFFFFFFFFD8AC EE800402 ; SETMIDFFFFFFFFFFFFD8B0 6A0D0C05 lbu r3,0x10080000D ; sectors per clusterFFFFFFFFFFFFD8B4 E6800200 ; SETLOFFFFFFFFFFFFD8B8 EE800402 ; SETMIDFFFFFFFFFFFFD8BC 6A0D082D lea r2,0x100800200 ; where to place FAT in memoryFFFFFFFFFFFFD8C0 4602B0F8 lw r5,startSector ; r5=start sector of diskFFFFFFFFFFFFD8C4 0A528200 addui r5,r5,#512 ; r5= sector 512FFFFFFFFFFFFD8C8 loadBootFile1:FFFFFFFFFFFFD8C8 02508009 mov r1,r5 ; r1=sector to readFFFFFFFFFFFFD8CC 31FFF56D call spi_read_sectorFFFFFFFFFFFFD8D0 0A528001 addui r5,r5,#1 ; r5 = next sectorFFFFFFFFFFFFD8D4 0A210200 addui r2,r2,#512FFFFFFFFFFFFD8D8 BE01FF8F loop r3,loadBootFile1FFFFFFFFFFFFD8DC E6800200 ; SETLOFFFFFFFFFFFFD8E0 EE800402 ; SETMIDFFFFFFFFFFFFD8E4 6A0D0407 lhu r1,0x100800200 ; make sure it's bootableFFFFFFFFFFFFD8E8 E68F4F42 ; SETLOFFFFFFFFFFFFD8EC EE800151 ; SETMIDFFFFFFFFFFFFD8F0 BE1D0129 bnei r1,#0x544F4F42,loadBootFile2FFFFFFFFFFFFD8F4 16008016 lw r1,#0x16FFFFFFFFFFFFD8F8 9A00D920 lea r1,msgJumpingToBootFFFFFFFFFFFFD8FC 31FFF122 call DisplayStringFFFFFFFFFFFFD900 E6800204 ; SETLOFFFFFFFFFFFFD904 EE800402 ; SETMIDFFFFFFFFFFFFD908 040D0409 lw r1,#0x100800204FFFFFFFFFFFFD90C 341F8000 jal lr,[r1]FFFFFFFFFFFFD910 33FFF20A jmp MonitorFFFFFFFFFFFFD914 loadBootFile2:FFFFFFFFFFFFD914 9A00D930 lea r1,msgNotBootableFFFFFFFFFFFFD918 31FFF122 call DisplayStringFFFFFFFFFFFFD91C 33FFF20A jmp MonitorFFFFFFFFFFFFD920 msgJumpingToBoot:FFFFFFFFFFFFD920 20676E69706D754A db "Jumping to boot",0FFFFFFFFFFFFD928 00746F6F62206F74FFFFFFFFFFFFD930 msgNotBootable:FFFFFFFFFFFFD930 2064726163204453 db "SD card not bootable.",0FFFFFFFFFFFFD938 746F6F6220746F6EFFFFFFFFFFFFD946 spi_init_ok_msg:FFFFFFFFFFFFD940 4453002E656C6261 db "SD card initialized okay.",0FFFFFFFFFFFFD948 6E69206472616320FFFFFFFFFFFFD950 657A696C61697469FFFFFFFFFFFFD958 002E79616B6F2064FFFFFFFFFFFFD960 spi_init_error_msg:FFFFFFFFFFFFD960 20726F727265203A db ": error occurred initializing the SD card.",0FFFFFFFFFFFFD968 646572727563636FFFFFFFFFFFFFD970 6C616974696E6920FFFFFFFFFFFFD978 687420676E697A69FFFFFFFFFFFFD980 7261632044532065FFFFFFFFFFFFD98B spi_boot_error_msg:FFFFFFFFFFFFD988 6163204453002E64 db "SD card boot error",0FFFFFFFFFFFFD990 20746F6F62206472FFFFFFFFFFFFD99E spi_read_error_msg:FFFFFFFFFFFFD998 445300726F727265 db "SD card read error",0FFFFFFFFFFFFD9A0 6572206472616320FFFFFFFFFFFFD9A8 726F727265206461FFFFFFFFFFFFD9B4 .align 4;==============================================================================; Ethernet;==============================================================================my_MAC1 EQU 0x00my_MAC2 EQU 0xFFmy_MAC3 EQU 0xEEmy_MAC4 EQU 0xF0my_MAC5 EQU 0xDAmy_MAC6 EQU 0x42FFFFFFFFFFFFD9B4 .bssFFFFFFFFFFFFD9B4 0000000000000000 eth_unique_id dw 0FFFFFFFFFFFFD9BC .code; Initialize the ethmac controller.; Supply a MAC address, set MD clock;FFFFFFFFFFFFD9BC eth_init:FFFFFFFFFFFFD9BC E69C2000 ; SETLOFFFFFFFFFFFFD9C0 EE800003 ; SETMIDFFFFFFFFFFFFD9C4 6A0D0C2D lea r3,ETHMACFFFFFFFFFFFFD9C8 16008064 lw r1,#0x64 ; 100FFFFFFFFFFFFD9CC 64308028 sh r1,MIIMODER[r3]FFFFFFFFFFFFD9D0 16008007 lw r1,#7 ; PHY addressFFFFFFFFFFFFD9D4 64308030 sh r1,MIIADDRESS[r3]FFFFFFFFFFFFD9D8 E6B0DA42 ; SETLOFFFFFFFFFFFFD9DC EEBFFFBB ; SETMIDFFFFFFFFFFFFD9E0 040D0409 lw r1,#0xEEF0DA42FFFFFFFFFFFFD9E4 64308040 sh r1,0x40[r3] ; MAC0FFFFFFFFFFFFD9E8 160080FF lw r1,#0x00FFFFFFFFFFFFFFD9EC 64308044 sh r1,0x44[r3] ; MAC1FFFFFFFFFFFFD9F0 37EF8000 ret; Request a packet and display on screen; r1 = address where to put packet;FFFFFFFFFFFFD9F4 eth_request_packet:FFFFFFFFFFFFD9F4 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFD9F8 67E18000 sw r3,[sp]FFFFFFFFFFFFD9FC 67E10008 sw r2,8[sp]FFFFFFFFFFFFDA00 67E20010 sw r4,16[sp]FFFFFFFFFFFFDA04 E69C2000 ; SETLOFFFFFFFFFFFFDA08 EE800003 ; SETMIDFFFFFFFFFFFFDA0C 6A0D0C2D lea r3,ETHMACFFFFFFFFFFFFDA10 16010004 lw r2,#4 ; clear rx interruptFFFFFFFFFFFFDA14 64310004 sh r2,4[r3]FFFFFFFFFFFFDA18 64308604 sh r1,0x604[r3] ; storage addressFFFFFFFFFFFFDA1C 16016000 lw r2,#0xe000 ; enable interruptFFFFFFFFFFFFDA20 64310600 sh r2,0x600[r3]FFFFFFFFFFFFDA24 eth1:FFFFFFFFFFFFDA24 DE000000 nopFFFFFFFFFFFFDA28 84310004 inh r2,4[r3]FFFFFFFFFFFFDA2C 2A210414 bfext r2,r2,#2,#2 ; get bit #2FFFFFFFFFFFFDA30 BE207FA8 beq r2,r0,eth1FFFFFFFFFFFFDA34 84310600 inh r2,0x600[r3] ; get from descriptorFFFFFFFFFFFFDA38 06212001 shrui r2,r2,#16FFFFFFFFFFFFDA3C 16018000 lw r3,#0FFFFFFFFFFFFDA40 E6901D88 ; SETLOFFFFFFFFFFFFDA44 EE800003 ; SETMIDFFFFFFFFFFFFDA48 6A0D102D lea r4,TEXTSCR+7560 ; second last line of screenFFFFFFFFFFFFDA4C eth20:FFFFFFFFFFFFDA4C 6A118805 lbu r2,[r1+r3] ; get byteFFFFFFFFFFFFDA50 6A418911 sc r2,[r4+r3*2] ; store to screenFFFFFFFFFFFFDA54 0A318001 addui r3,r3,#1FFFFFFFFFFFFDA58 12310053 cmpui r2,r3,#83FFFFFFFFFFFFDA5C BE207F89 bne r2,r0,eth20FFFFFFFFFFFFDA60 47E18000 lw r3,[sp]FFFFFFFFFFFFDA64 47E10008 lw r2,8[sp]FFFFFFFFFFFFDA68 47E20010 lw r4,16[sp]FFFFFFFFFFFFDA6C 37EF8018 ret #24; r1 = packet address;FFFFFFFFFFFFDA70 eth_interpret_packet:FFFFFFFFFFFFDA70 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFDA74 67E18000 sw r3,[sp]FFFFFFFFFFFFDA78 67E10008 sw r2,8[sp]FFFFFFFFFFFFDA7C 4A11000C lbu r2,12[r1]FFFFFFFFFFFFDA80 4A11800D lbu r3,13[r1]FFFFFFFFFFFFDA84 B2200608 bnei r2,#8,eth2 ; 0x806 ?FFFFFFFFFFFFDA88 B2300506 bnei r3,#6,eth2FFFFFFFFFFFFDA8C 16008002 lw r1,#2 ; return r1 = 2 for ARPFFFFFFFFFFFFDA90 eth5:FFFFFFFFFFFFDA90 47E18000 lw r3,[sp]FFFFFFFFFFFFDA94 47E10008 lw r2,8[sp]FFFFFFFFFFFFDA98 37EF8010 ret #16FFFFFFFFFFFFDA9C eth2:FFFFFFFFFFFFDA9C B2200C08 bnei r2,#8,eth3 ; 0x800 ?FFFFFFFFFFFFDAA0 B2300B00 bnei r3,#0,eth3FFFFFFFFFFFFDAA4 4A110017 lbu r2,23[r1]FFFFFFFFFFFFDAA8 B2200301 bnei r2,#1,eth4FFFFFFFFFFFFDAAC 16008001 lw r1,#1FFFFFFFFFFFFDAB0 BE007F0A bra eth5 ; return 1 ICMPFFFFFFFFFFFFDAB4 eth4:FFFFFFFFFFFFDAB4 B2200311 bnei r2,#0x11,eth6FFFFFFFFFFFFDAB8 16008003 lw r1,#3 ; return 3 for UDPFFFFFFFFFFFFDABC BE007EAA bra eth5FFFFFFFFFFFFDAC0 eth6:FFFFFFFFFFFFDAC0 B2200306 bnei r2,#6,eth7FFFFFFFFFFFFDAC4 16008004 lw r1,#4 ; return 4 for TCPFFFFFFFFFFFFDAC8 BE007E4A bra eth5FFFFFFFFFFFFDACC eth7:FFFFFFFFFFFFDACC eth3:FFFFFFFFFFFFDACC 0410840A xor r1,r1,r1 ; return zero for unknownFFFFFFFFFFFFDAD0 47E18000 lw r3,[sp]FFFFFFFFFFFFDAD4 47E10008 lw r2,8[sp]FFFFFFFFFFFFDAD8 37EF8010 ret #16; r1 = address of packet to send; r2 = packet length;FFFFFFFFFFFFDADC eth_send_packet:FFFFFFFFFFFFDADC 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFDAE0 67E18000 sw r3,[sp]FFFFFFFFFFFFDAE4 67E20008 sw r4,8[sp]FFFFFFFFFFFFDAE8 E69C2000 ; SETLOFFFFFFFFFFFFDAEC EE800003 ; SETMIDFFFFFFFFFFFFDAF0 6A0D0C2D lea r3,ETHMAC; wait for tx buffer to be clearFFFFFFFFFFFFDAF4 eth8:FFFFFFFFFFFFDAF4 84320400 inh r4,0x400[r3]FFFFFFFFFFFFDAF8 2A421E7C bfext r4,r4,#15,#15FFFFFFFFFFFFDAFC B04FFE01 beqi r4,#1,eth8FFFFFFFFFFFFDB00 16020001 lw r4,#1 ; clear tx interruptFFFFFFFFFFFFDB04 64320004 sh r4,4[r3]; set addressFFFFFFFFFFFFDB08 64308404 sh r1,0x404[r3]; set the packet length field and enable interruptsFFFFFFFFFFFFDB0C 06212006 shlui r2,r2,#16FFFFFFFFFFFFDB10 16217000 ori r2,r2,#0xF000FFFFFFFFFFFFDB14 64310400 sh r2,0x400[r3]FFFFFFFFFFFFDB18 47E20008 lw r4,8[sp]FFFFFFFFFFFFDB1C 47E18000 lw r3,[sp]FFFFFFFFFFFFDB20 37EF8010 ret #16; Only for IP type packets (not ARP); r1 = rx buffer address; r2 = swap flag; Returns:; r1 = data start index;FFFFFFFFFFFFDB24 eth_build_packet:FFFFFFFFFFFFDB24 0FEF0040 subui sp,sp,#64FFFFFFFFFFFFDB28 67E18000 sw r3,[sp]FFFFFFFFFFFFDB2C 67E20008 sw r4,8[sp]FFFFFFFFFFFFDB30 67E28010 sw r5,16[sp]FFFFFFFFFFFFDB34 67E30018 sw r6,24[sp]FFFFFFFFFFFFDB38 67E38020 sw r7,32[sp]FFFFFFFFFFFFDB3C 67E40028 sw r8,40[sp]FFFFFFFFFFFFDB40 67E48030 sw r9,48[sp]FFFFFFFFFFFFDB44 67E50038 sw r10,56[sp]FFFFFFFFFFFFDB48 4A118006 lbu r3,6[r1]FFFFFFFFFFFFDB4C 4A120007 lbu r4,7[r1]FFFFFFFFFFFFDB50 4A128008 lbu r5,8[r1]FFFFFFFFFFFFDB54 4A130009 lbu r6,9[r1]FFFFFFFFFFFFDB58 4A13800A lbu r7,10[r1]FFFFFFFFFFFFDB5C 4A14000B lbu r8,11[r1]; write to destination headerFFFFFFFFFFFFDB60 60118000 sb r3,[r1]FFFFFFFFFFFFDB64 60120001 sb r4,1[r1]FFFFFFFFFFFFDB68 60128002 sb r5,2[r1]FFFFFFFFFFFFDB6C 60130003 sb r6,3[r1]FFFFFFFFFFFFDB70 60138004 sb r7,4[r1]FFFFFFFFFFFFDB74 60140005 sb r8,5[r1]; write to source headerFFFFFFFFFFFFDB78 16018000 lw r3,#my_MAC1FFFFFFFFFFFFDB7C 60118006 sb r3,6[r1]FFFFFFFFFFFFDB80 160180FF lw r3,#my_MAC2FFFFFFFFFFFFDB84 60118007 sb r3,7[r1]FFFFFFFFFFFFDB88 160180EE lw r3,#my_MAC3FFFFFFFFFFFFDB8C 60118008 sb r3,8[r1]FFFFFFFFFFFFDB90 160180F0 lw r3,#my_MAC4FFFFFFFFFFFFDB94 60118009 sb r3,9[r1]FFFFFFFFFFFFDB98 160180DA lw r3,#my_MAC5FFFFFFFFFFFFDB9C 6011800A sb r3,10[r1]FFFFFFFFFFFFDBA0 16018042 lw r3,#my_MAC6FFFFFFFFFFFFDBA4 6011800B sb r3,11[r1]FFFFFFFFFFFFDBA8 B2201101 bnei r2,#1,eth16 // if (swap)FFFFFFFFFFFFDBAC 4A11801A lbu r3,26[r1]FFFFFFFFFFFFDBB0 4A12001B lbu r4,27[r1]FFFFFFFFFFFFDBB4 4A12801C lbu r5,28[r1]FFFFFFFFFFFFDBB8 4A13001D lbu r6,29[r1]; read destinationFFFFFFFFFFFFDBBC 4A13801E lbu r7,30[r1]FFFFFFFFFFFFDBC0 4A14001F lbu r8,31[r1]FFFFFFFFFFFFDBC4 4A148020 lbu r9,32[r1]FFFFFFFFFFFFDBC8 4A150021 lbu r10,33[r1]; write to senderFFFFFFFFFFFFDBCC 6013801A sb r7,26[r1]FFFFFFFFFFFFDBD0 6014001B sb r8,27[r1]FFFFFFFFFFFFDBD4 6014801C sb r9,28[r1]FFFFFFFFFFFFDBD8 6015001D sb r10,29[r1]; write destinationFFFFFFFFFFFFDBDC 6011801E sb r3,30[r1]FFFFFFFFFFFFDBE0 6012001F sb r4,31[r1]FFFFFFFFFFFFDBE4 60128020 sb r5,32[r1]FFFFFFFFFFFFDBE8 60130021 sb r6,33[r1]FFFFFFFFFFFFDBEC eth16:FFFFFFFFFFFFDBEC 4601D9B4 lw r3,eth_unique_idFFFFFFFFFFFFDBF0 0A318001 addui r3,r3,#1FFFFFFFFFFFFDBF4 6601D9B4 sw r3,eth_unique_idFFFFFFFFFFFFDBF8 60118013 sb r3,19[r1]FFFFFFFFFFFFDBFC 06319001 shrui r3,r3,#8FFFFFFFFFFFFDC00 60118012 sb r3,18[r1]FFFFFFFFFFFFDC04 4A11800E lbu r3,14[r1]FFFFFFFFFFFFDC08 1431800F andi r3,r3,#0xFFFFFFFFFFFFFDC0C 06318406 shlui r3,r3,#2 ; *4FFFFFFFFFFFFDC10 0A30800E addui r1,r3,#14 ; return datastart in r1FFFFFFFFFFFFDC14 47E18000 lw r3,[sp]FFFFFFFFFFFFDC18 47E20008 lw r4,8[sp]FFFFFFFFFFFFDC1C 47E28010 lw r5,16[sp]FFFFFFFFFFFFDC20 47E30018 lw r6,24[sp]FFFFFFFFFFFFDC24 47E38020 lw r7,32[sp]FFFFFFFFFFFFDC28 47E40028 lw r8,40[sp]FFFFFFFFFFFFDC2C 47E48030 lw r9,48[sp]FFFFFFFFFFFFDC30 47E50038 lw r10,56[sp]FFFFFFFFFFFFDC34 37EF8040 ret #64; Compute IPv4 checksum of header; r1 = packet address; r2 = data start;FFFFFFFFFFFFDC38 eth_checksum:FFFFFFFFFFFFDC38 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFDC3C 67E18000 sw r3,[sp]FFFFFFFFFFFFDC40 67E20008 sw r4,8[sp]FFFFFFFFFFFFDC44 67E28010 sw r5,16[sp]; set checksum to zeroFFFFFFFFFFFFDC48 60100018 sb r0,24[r1]FFFFFFFFFFFFDC4C 60100019 sb r0,25[r1]FFFFFFFFFFFFDC50 04318C0A xor r3,r3,r3 ; r3 = sum = zeroFFFFFFFFFFFFDC54 1602000E lw r4,#14FFFFFFFFFFFFDC58 eth15:FFFFFFFFFFFFDC58 02228009 mov r5,r2FFFFFFFFFFFFDC5C 0E528001 subui r5,r5,#1 ; r5 = datastart - 1FFFFFFFFFFFFDC60 BE428101 bge r4,r5,eth14FFFFFFFFFFFFDC64 6A121405 lbu r5,[r1+r4] ; shi = [rx_addr+i]FFFFFFFFFFFFDC68 6A121845 lbu r6,1[r1+r4] ; slo = [rx_addr+i+1]FFFFFFFFFFFFDC6C 06529006 shlui r5,r5,#8FFFFFFFFFFFFDC70 04531409 or r5,r5,r6 ; shiloFFFFFFFFFFFFDC74 04328C03 addu r3,r3,r5 ; sum = sum + shiloFFFFFFFFFFFFDC78 0A420002 addui r4,r4,#2 ; i = i + 2FFFFFFFFFFFFDC7C BE007EEA bra eth15FFFFFFFFFFFFDC80 eth14:FFFFFFFFFFFFDC80 02328009 mov r5,r3 ; r5 = sumFFFFFFFFFFFFDC84 1431FFFF andi r3,r3,#0xffffFFFFFFFFFFFFDC88 0652A001 shrui r5,r5,#16FFFFFFFFFFFFDC8C 04328C03 addu r3,r3,r5FFFFFFFFFFFFDC90 02318004 com r3,r3FFFFFFFFFFFFDC94 60118019 sb r3,25[r1] ; low byteFFFFFFFFFFFFDC98 06319001 shrui r3,r3,#8FFFFFFFFFFFFDC9C 60118018 sb r3,24[r1] ; high byteFFFFFFFFFFFFDCA0 67E18000 sw r3,[sp]FFFFFFFFFFFFDCA4 67E20008 sw r4,8[sp]FFFFFFFFFFFFDCA8 67E28010 sw r5,16[sp]FFFFFFFFFFFFDCAC 37EF8018 ret #24; r1 = packet address; returns r1 = 1 if this IP;FFFFFFFFFFFFDCB0 eth_verifyIP:FFFFFFFFFFFFDCB0 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFDCB4 67E10000 sw r2,[sp]FFFFFFFFFFFFDCB8 67E18008 sw r3,8[sp]FFFFFFFFFFFFDCBC 67E20010 sw r4,16[sp]FFFFFFFFFFFFDCC0 67E28018 sw r5,24[sp]FFFFFFFFFFFFDCC4 4A11001E lbu r2,30[r1]FFFFFFFFFFFFDCC8 4A11801F lbu r3,31[r1]FFFFFFFFFFFFDCCC 4A120020 lbu r4,32[r1]FFFFFFFFFFFFDCD0 4A128021 lbu r5,33[r1]; Check for general broadcastFFFFFFFFFFFFDCD4 E68000FF ; SETLOFFFFFFFFFFFFDCD8 BE2D01A9 bnei r2,#0xFF,eth11FFFFFFFFFFFFDCDC E68000FF ; SETLOFFFFFFFFFFFFDCE0 BE3D0169 bnei r3,#0xFF,eth11FFFFFFFFFFFFDCE4 E68000FF ; SETLOFFFFFFFFFFFFDCE8 BE4D0129 bnei r4,#0xFF,eth11FFFFFFFFFFFFDCEC E68000FF ; SETLOFFFFFFFFFFFFDCF0 BE5D00E9 bnei r5,#0xFF,eth11FFFFFFFFFFFFDCF4 eth12:FFFFFFFFFFFFDCF4 16008001 lw r1,#1FFFFFFFFFFFFDCF8 eth13:FFFFFFFFFFFFDCF8 47E10000 lw r2,[sp]FFFFFFFFFFFFDCFC 47E18008 lw r3,8[sp]FFFFFFFFFFFFDD00 47E20010 lw r4,16[sp]FFFFFFFFFFFFDD04 47E28018 lw r5,24[sp]FFFFFFFFFFFFDD08 37EF8020 ret #32FFFFFFFFFFFFDD0C eth11:FFFFFFFFFFFFDD0C 02208009 mov r1,r2FFFFFFFFFFFFDD10 06109006 shlui r1,r1,#8FFFFFFFFFFFFDD14 04118409 or r1,r1,r3FFFFFFFFFFFFDD18 06109006 shlui r1,r1,#8FFFFFFFFFFFFDD1C 04120409 or r1,r1,r4FFFFFFFFFFFFDD20 06109006 shlui r1,r1,#8FFFFFFFFFFFFDD24 04128409 or r1,r1,r5FFFFFFFFFFFFDD28 E6A8012A ; SETLOFFFFFFFFFFFFDD2C EEBFFF02 ; SETMIDFFFFFFFFFFFFDD30 BE1D7E28 beqi r1,#0xC0A8012A,eth12FFFFFFFFFFFFDD34 0410840A xor r1,r1,r1FFFFFFFFFFFFDD38 BE007E0A bra eth13FFFFFFFFFFFFDD3C eth_main:FFFFFFFFFFFFDD3C 31FFF66F call eth_initFFFFFFFFFFFFDD40 eth_loop:FFFFFFFFFFFFDD40 0410840A xor r1,r1,r1FFFFFFFFFFFFDD44 E6800000 ; SETLOFFFFFFFFFFFFDD48 EE800400 ; SETMIDFFFFFFFFFFFFDD4C 040D0409 lw r1,#0x1_00000000 ; memory address zeroFFFFFFFFFFFFDD50 31FFF67D call eth_request_packetFFFFFFFFFFFFDD54 31FFF69C call eth_interpret_packet ; r1 = packet typeFFFFFFFFFFFFDD58 B2102801 bnei r1,#1,eth10FFFFFFFFFFFFDD5C 02110009 mov r2,r1 ; save off r1, r2 = packet typeFFFFFFFFFFFFDD60 E6800000 ; SETLOFFFFFFFFFFFFDD64 EE800400 ; SETMIDFFFFFFFFFFFFDD68 040D0409 lw r1,#0x1_00000000 ; memory address zeroFFFFFFFFFFFFDD6C 31FFF72C call eth_verifyIPFFFFFFFFFFFFDD70 02118009 mov r3,r1FFFFFFFFFFFFDD74 02208009 mov r1,r2 ; r1 = packet type againFFFFFFFFFFFFDD78 B2302001 bnei r3,#1,eth10FFFFFFFFFFFFDD7C E6800000 ; SETLOFFFFFFFFFFFFDD80 EE800400 ; SETMIDFFFFFFFFFFFFDD84 040D0409 lw r1,#0x1_00000000 ; memory address zeroFFFFFFFFFFFFDD88 16010001 lw r2,#1FFFFFFFFFFFFDD8C 31FFF6C9 call eth_build_packetFFFFFFFFFFFFDD90 02118009 mov r3,r1 ; r3 = icmpstartFFFFFFFFFFFFDD94 E6800000 ; SETLOFFFFFFFFFFFFDD98 EE800400 ; SETMIDFFFFFFFFFFFFDD9C 040D0409 lw r1,#0x1_00000000 ; memory address zeroFFFFFFFFFFFFDDA0 6A118010 sb r0,[r1+r3] ; [rx_addr+icmpstart] = 0FFFFFFFFFFFFDDA4 4A110011 lbu r2,17[r1]FFFFFFFFFFFFDDA8 0A21000E addui r2,r2,#14 ; r2 = lenFFFFFFFFFFFFDDAC 02230009 mov r6,r2 ; r6 = lenFFFFFFFFFFFFDDB0 6A119085 lbu r4,2[r1+r3] ; shiFFFFFFFFFFFFDDB4 6A1194C5 lbu r5,3[r1+r3] ; sloFFFFFFFFFFFFDDB8 06421006 shlui r4,r4,#8FFFFFFFFFFFFDDBC 04429009 or r4,r4,r5 ; sum = {shi,slo};FFFFFFFFFFFFDDC0 02420004 com r4,r4 ; sum = ~sumFFFFFFFFFFFFDDC4 0E420800 subui r4,r4,#0x800 ; sum = sum - 0x800FFFFFFFFFFFFDDC8 02420004 com r4,r4 ; sum = ~sumFFFFFFFFFFFFDDCC 6A1190D0 sb r4,3[r1+r3]FFFFFFFFFFFFDDD0 06421001 shrui r4,r4,#8FFFFFFFFFFFFDDD4 6A119090 sb r4,2[r1+r3]FFFFFFFFFFFFDDD8 02310009 mov r2,r3FFFFFFFFFFFFDDDC 31FFF70E call eth_checksumFFFFFFFFFFFFDDE0 E6800000 ; SETLOFFFFFFFFFFFFDDE4 EE800400 ; SETMIDFFFFFFFFFFFFDDE8 040D0409 lw r1,#0x1_00000000 ; memory address zeroFFFFFFFFFFFFDDEC 02610009 mov r2,r6FFFFFFFFFFFFDDF0 31FFF6B7 call eth_send_packetFFFFFFFFFFFFDDF4 33FFF750 jmp eth_loopFFFFFFFFFFFFDDF8 eth10:; r2 = rx_addrFFFFFFFFFFFFDDF8 B21FD202 bnei r1,#2,eth_loop ; Do we have ARP ?; xor r2,r2,r2 ; memory address zeroFFFFFFFFFFFFDDFC E6B5E100 ; SETLOFFFFFFFFFFFFDE00 EE800017 ; SETMIDFFFFFFFFFFFFDE04 040D0809 lw r2,#1_00000000; get the opcodeFFFFFFFFFFFFDE08 4A268015 lbu r13,21[r2]FFFFFFFFFFFFDE0C B2DFCD01 bnei r13,#1,eth_loop ; ARP request; get destination IP addressFFFFFFFFFFFFDE10 4A248026 lbu r9,38[r2]FFFFFFFFFFFFDE14 4A250027 lbu r10,39[r2]FFFFFFFFFFFFDE18 4A258028 lbu r11,40[r2]FFFFFFFFFFFFDE1C 4A260029 lbu r12,41[r2]; set r15 = destination IPFFFFFFFFFFFFDE20 02978009 mov r15,r9FFFFFFFFFFFFDE24 06F79006 shlui r15,r15,#8FFFFFFFFFFFFDE28 04F53C09 or r15,r15,r10FFFFFFFFFFFFDE2C 06F79006 shlui r15,r15,#8FFFFFFFFFFFFDE30 04F5BC09 or r15,r15,r11FFFFFFFFFFFFDE34 06F79006 shlui r15,r15,#8FFFFFFFFFFFFDE38 04F63C09 or r15,r15,r12; Is it our IP ?FFFFFFFFFFFFDE3C E6A8012A ; SETLOFFFFFFFFFFFFDE40 EEBFFF02 ; SETMIDFFFFFFFFFFFFDE44 BEFD77E9 bnei r15,#0xC0A8012A,eth_loop; //192.168.1.42; get source IP addressFFFFFFFFFFFFDE48 4A22801C lbu r5,28[r2]FFFFFFFFFFFFDE4C 4A23001D lbu r6,29[r2]FFFFFFFFFFFFDE50 4A23801E lbu r7,30[r2]FFFFFFFFFFFFDE54 4A24001F lbu r8,31[r2]; set r14 = source IPFFFFFFFFFFFFDE58 02570009 mov r14,r5FFFFFFFFFFFFDE5C 06E71006 shlui r14,r14,#8FFFFFFFFFFFFDE60 04E33809 or r14,r14,r6FFFFFFFFFFFFDE64 06E71006 shlui r14,r14,#8FFFFFFFFFFFFDE68 04E3B809 or r14,r14,r7FFFFFFFFFFFFDE6C 06E71006 shlui r14,r14,#8FFFFFFFFFFFFDE70 04E43809 or r14,r14,r8; Get the source MAC addressFFFFFFFFFFFFDE74 4A280016 lbu r16,22[r2]FFFFFFFFFFFFDE78 4A288017 lbu r17,23[r2]FFFFFFFFFFFFDE7C 4A290018 lbu r18,24[r2]FFFFFFFFFFFFDE80 4A298019 lbu r19,25[r2]FFFFFFFFFFFFDE84 4A2A001A lbu r20,26[r2]FFFFFFFFFFFFDE88 4A2A801B lbu r21,27[r2]; write to destination headerFFFFFFFFFFFFDE8C 60280000 sb r16,[r2]FFFFFFFFFFFFDE90 60288001 sb r17,1[r2]FFFFFFFFFFFFDE94 60290002 sb r18,2[r2]FFFFFFFFFFFFDE98 60298003 sb r19,3[r2]FFFFFFFFFFFFDE9C 602A0004 sb r20,4[r2]FFFFFFFFFFFFDEA0 602A8005 sb r21,5[r2]; and write to ARP destinationFFFFFFFFFFFFDEA4 60280020 sb r16,32[r2]FFFFFFFFFFFFDEA8 60288021 sb r17,33[r2]FFFFFFFFFFFFDEAC 60290022 sb r18,34[r2]FFFFFFFFFFFFDEB0 60298023 sb r19,35[r2]FFFFFFFFFFFFDEB4 602A0024 sb r20,36[r2]FFFFFFFFFFFFDEB8 602A8025 sb r21,37[r2]; write to source header; stbc #0x00,6[r2]; stbc #0xFF,7[r2]; stbc #0xEE,8[r2]; stbc #0xF0,9[r2]; stbc #0xDA,10[r2]; stbc #0x42,11[r2]FFFFFFFFFFFFDEBC 60200006 sb r0,6[r2]FFFFFFFFFFFFDEC0 160080FF lw r1,#0xFFFFFFFFFFFFFFDEC4 60208007 sb r1,7[r2]FFFFFFFFFFFFDEC8 160080EE lw r1,#0xEEFFFFFFFFFFFFDECC 60208008 sb r1,8[r2]FFFFFFFFFFFFDED0 160080F0 lw r1,#0xF0FFFFFFFFFFFFDED4 60208009 sb r1,9[r2]FFFFFFFFFFFFDED8 160080DA lw r1,#0xDAFFFFFFFFFFFFDEDC 6020800A sb r1,10[r2]FFFFFFFFFFFFDEE0 16008042 lw r1,#0x42FFFFFFFFFFFFDEE4 6020800B sb r1,11[r2]; write to ARP source; stbc #0x00,22[r2]; stbc #0xFF,23[r2]; stbc #0xEE,24[r2]; stbc #0xF0,25[r2]; stbc #0xDA,26[r2]; stbc #0x42,27[r2]FFFFFFFFFFFFDEE8 60200016 sb r0,22[r2]FFFFFFFFFFFFDEEC 160080FF lw r1,#0xFFFFFFFFFFFFFFDEF0 60208017 sb r1,23[r2]FFFFFFFFFFFFDEF4 160080EE lw r1,#0xEEFFFFFFFFFFFFDEF8 60208018 sb r1,24[r2]FFFFFFFFFFFFDEFC 160080F0 lw r1,#0xF0FFFFFFFFFFFFDF00 60208019 sb r1,25[r2]FFFFFFFFFFFFDF04 160080DA lw r1,#0xDAFFFFFFFFFFFFDF08 6020801A sb r1,26[r2]FFFFFFFFFFFFDF0C 16008042 lw r1,#0x42FFFFFFFFFFFFDF10 6020801B sb r1,27[r2]; swap sender / destination IP; write senderFFFFFFFFFFFFDF14 6024801C sb r9,28[r2]FFFFFFFFFFFFDF18 6025001D sb r10,29[r2]FFFFFFFFFFFFDF1C 6025801E sb r11,30[r2]FFFFFFFFFFFFDF20 6026001F sb r12,31[r2]; write destinationFFFFFFFFFFFFDF24 60228026 sb r5,38[r2]FFFFFFFFFFFFDF28 60230027 sb r6,39[r2]FFFFFFFFFFFFDF2C 60238028 sb r7,40[r2]FFFFFFFFFFFFDF30 60240029 sb r8,41[r2]; change request to reply; stbc #2,21[r2]FFFFFFFFFFFFDF34 16008002 lw r1,#2FFFFFFFFFFFFDF38 60208015 sb r1,21[r2]FFFFFFFFFFFFDF3C 02208009 mov r1,r2 ; r1 = packet addressFFFFFFFFFFFFDF40 1601002A lw r2,#0x2A ; r2 = packet lengthFFFFFFFFFFFFDF44 31FFF6B7 call eth_send_packetFFFFFFFFFFFFDF48 33FFF750 jmp eth_loop;==============================================================================;==============================================================================;****************************************************************;; ;; Tiny BASIC for the Raptor64 ;; ;; Derived from a 68000 derivative of Palo Alto Tiny BASIC as ;; published in the May 1976 issue of Dr. Dobb's Journal. ;; Adapted to the 68000 by: ;; Gordon brndly ;; 12147 - 51 Street ;; Edmonton AB T5W 3G8 ;; Canada ;; (updated mailing address for 1996) ;; ;; Adapted to the Raptor64 by: ;; Robert Finch ;; Ontario, Canada ;; robfinch<remove>@opencores.org ;;****************************************************************;; Copyright (C) 2012 by Robert Finch. This program may be ;; freely distributed for personal use only. All commercial ;; rights are reserved. ;;****************************************************************;;; Register Usage; r8 = text pointer (global usage); r3,r4 = inputs parameters to subroutines; r2 = return value;;* Vers. 1.0 1984/7/17 - Original version by Gordon brndly;* 1.1 1984/12/9 - Addition of '0x' print term by Marvin Lipford;* 1.2 1985/4/9 - Bug fix in multiply routine by Rick Murray;; Standard jump table. You can change these addresses if you are; customizing this interpreter for a different environment.;FFFFFFFFFFFFDF4C GOSTART:FFFFFFFFFFFFDF4C 33FFF7E0 jmp CSTART ; Cold Start entry pointFFFFFFFFFFFFDF50 GOWARM:FFFFFFFFFFFFDF50 33FFF801 jmp WSTART ; Warm Start entry pointFFFFFFFFFFFFDF54 GOOUT:FFFFFFFFFFFFDF54 33FFFD9B jmp OUTC ; Jump to character-out routineFFFFFFFFFFFFDF58 GOIN:FFFFFFFFFFFFDF58 33FFFD9C jmp INC ;Jump to character-in routineFFFFFFFFFFFFDF5C GOAUXO:FFFFFFFFFFFFDF5C 33FFFDA3 jmp AUXOUT ; Jump to auxiliary-out routineFFFFFFFFFFFFDF60 GOAUXI:FFFFFFFFFFFFDF60 33FFFD9D jmp AUXIN ; Jump to auxiliary-in routineFFFFFFFFFFFFDF64 GOBYE:FFFFFFFFFFFFDF64 33FFFE28 jmp BYEBYE ; Jump to monitor, DOS, etc.;; Modifiable system constants:;FFFFFFFFFFFFDF68 align 8FFFFFFFFFFFFDF68 0000000010060000 TXTBGN dw 0x000000001_00600000 ;TXT ;beginning of program memoryFFFFFFFFFFFFDF70 00000000107FFFF8 ENDMEM dw 0x000000001_07FFFFF8 ; end of available memory;; The main interpreter starts here:;; Usage; r1 = temp; r8 = text buffer pointer; r12 = end of text in text buffer;FFFFFFFFFFFFDF78 0000000000000000 align 16FFFFFFFFFFFFDF80 align 16FFFFFFFFFFFFDF80 CSTART:; First save off the link register and OS sp valueFFFFFFFFFFFFDF80 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFDF84 67EF8000 sw lr,[sp]FFFFFFFFFFFFDF88 660F1088 sw sp,OSSPFFFFFFFFFFFFDF8C 460F5F70 lw sp,ENDMEM ; initialize stack pointerFFFFFFFFFFFFDF90 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFDF94 67EF8000 sw lr,[sp] ; save off return addressFFFFFFFFFFFFDF98 60001417 sb r0,CursorRow ; set screen outputFFFFFFFFFFFFDF9C 60001418 sb r0,CursorColFFFFFFFFFFFFDFA0 6000141A sb r0,CursorFlashFFFFFFFFFFFFDFA4 6400104C sh r0,posFFFFFFFFFFFFDFA8 E6800020 ; SETLOFFFFFFFFFFFFDFAC EE800040 ; SETMIDFFFFFFFFFFFFDFB0 040D0809 lw r2,#0x10000020 ; black chars, yellow background; sh r2,charToPrintFFFFFFFFFFFFDFB4 31FFF011 call ClearScreenFFFFFFFFFFFFDFB8 9A00F6B8 lea r1,msgInit ; tell who we are; call PRMESGAUXFFFFFFFFFFFFDFBC 9A00F6B8 lea r1,msgInit ; tell who we areFFFFFFFFFFFFDFC0 31FFFD81 call PRMESGFFFFFFFFFFFFDFC4 4600DF68 lw r1,TXTBGN ; init. end-of-program pointerFFFFFFFFFFFFDFC8 660090D0 sw r1,TXTUNFFFFFFFFFFFFFDFCC 4600DF70 lw r1,ENDMEM ; get address of end of memoryFFFFFFFFFFFFDFD0 0E109000 subui r1,r1,#4096 ; reserve 4K for the stackFFFFFFFFFFFFDFD4 660090F8 sw r1,STKBOTFFFFFFFFFFFFDFD8 E6804000 ; SETLOFFFFFFFFFFFFDFDC 041D0405 subui r1,r1,#16384 ; 1000 varsFFFFFFFFFFFFDFE0 660090D8 sw r1,VARBGNFFFFFFFFFFFFDFE4 31FFF905 call clearVars ; clear the variable areaFFFFFFFFFFFFDFE8 460090D8 lw r1,VARBGN ; calculate number of bytes freeFFFFFFFFFFFFDFEC 460190D0 lw r3,TXTUNFFFFFFFFFFFFFDFF0 04118405 subu r1,r1,r3FFFFFFFFFFFFDFF4 E0800000 setlo r2,#0FFFFFFFFFFFFDFF8 31FFFCCC call PRTNUMFFFFFFFFFFFFDFFC 9A00F760 lea r1,msgBytesFreeFFFFFFFFFFFFE000 31FFFD81 call PRMESGFFFFFFFFFFFFE004 WSTART:FFFFFFFFFFFFE004 660010A8 sw r0,LOPVAR ; initialize internal variablesFFFFFFFFFFFFE008 66001098 sw r0,STKGOSFFFFFFFFFFFFE00C 66001090 sw r0,CURRNT ; current line number pointer = 0FFFFFFFFFFFFE010 460F5F70 lw sp,ENDMEM ; init S.P. again, just in caseFFFFFFFFFFFFE014 9A00F76E lea r1,msgReady ; display "Ready"FFFFFFFFFFFFE018 31FFFD81 call PRMESGFFFFFFFFFFFFE01C ST3:FFFFFFFFFFFFE01C E040003E setlo r1,#'>' ; Prompt with a '>' andFFFFFFFFFFFFE020 31FFFC1A call GETLN ; read a line.FFFFFFFFFFFFE024 31FFFD5E call TOUPBUF ; convert to upper caseFFFFFFFFFFFFE028 02860009 mov r12,r8 ; save pointer to end of lineFFFFFFFFFFFFE02C 9A04111B lea r8,BUFFER ; point to the beginning of lineFFFFFFFFFFFFE030 31FFFD3E call TSTNUM ; is there a number there?FFFFFFFFFFFFE034 31FFFD55 call IGNBLK ; skip trailing blanks; does line no. exist? (or nonzero?)FFFFFFFFFFFFE038 BE101708 beq r1,r0,DIRECT ; if not, it's a direct statementFFFFFFFFFFFFE03C AC1003FF bleu r1,#0xFFFF,ST2 ; see if line no. is <= 16 bitsFFFFFFFFFFFFE040 9A00F78C lea r1,msgLineRange ; if not, we've overflowedFFFFFFFFFFFFE044 BE007F2A bra ERRORFFFFFFFFFFFFE048 ST2:; ugliness - store a character at potentially an; odd address (unaligned).FFFFFFFFFFFFE048 02110009 mov r2,r1 ; r2 = line numberFFFFFFFFFFFFE04C 60817FFE sb r2,-2[r8]FFFFFFFFFFFFE050 06211001 shrui r2,r2,#8FFFFFFFFFFFFE054 60817FFF sb r2,-1[r8] ; store the binary line no.FFFFFFFFFFFFE058 0E840002 subui r8,r8,#2FFFFFFFFFFFFE05C 31FFFC4E call FNDLN ; find this line in save areaFFFFFFFFFFFFE060 02968009 mov r13,r9 ; save possible line pointerFFFFFFFFFFFFE064 BE1001C8 beq r1,r0,ST4 ; if not found, insert; here we found the line, so we're replacing the line; in the text area; first step - delete the lineFFFFFFFFFFFFE068 E0400000 setlo r1,#0FFFFFFFFFFFFE06C 31FFFC62 call FNDNXT ; find the next line (into r9)FFFFFFFFFFFFE070 BE100049 bne r1,r0,ST7FFFFFFFFFFFFE074 BE900108 beq r9,r0,ST6 ; no more linesFFFFFFFFFFFFE078 ST7:FFFFFFFFFFFFE078 02908009 mov r1,r9 ; r1 = pointer to next lineFFFFFFFFFFFFE07C 02D10009 mov r2,r13 ; pointer to line to be deletedFFFFFFFFFFFFE080 460190D0 lw r3,TXTUNF ; points to top of save areaFFFFFFFFFFFFE084 31FFFC6B call MVUP ; move up to deleteFFFFFFFFFFFFE088 660110D0 sw r2,TXTUNF ; update the end pointer; we moved the lines of text after the line being; deleted down, so the pointer to the next line; needs to be resetFFFFFFFFFFFFE08C 02D48009 mov r9,r13FFFFFFFFFFFFE090 BE00006A bra ST4; here there were no more lines, so just move the; end of text pointer downFFFFFFFFFFFFE094 ST6:FFFFFFFFFFFFE094 660690D0 sw r13,TXTUNFFFFFFFFFFFFFE098 02D48009 mov r9,r13FFFFFFFFFFFFE09C ST4:; here we're inserting because the line wasn't found; or it was deleted from the text areaFFFFFFFFFFFFE09C 02C08009 mov r1,r12 ; calculate the length of new lineFFFFFFFFFFFFE0A0 04140404 sub r1,r1,r8FFFFFFFFFFFFE0A4 A41FDE03 blei r1,#3,ST3 ; is it just a line no. & CR? if so, it was just a deleteFFFFFFFFFFFFE0A8 460590D0 lw r11,TXTUNF ; compute new end of textFFFFFFFFFFFFE0AC 02B50009 mov r10,r11 ; r10 = old TXTUNFFFFFFFFFFFFFE0B0 04B0AC02 add r11,r11,r1 ; r11 = new top of TXTUNF (r1=line length)FFFFFFFFFFFFE0B4 460090D8 lw r1,VARBGN ; see if there's enough roomFFFFFFFFFFFFE0B8 BEB08064 bltu r11,r1,ST5FFFFFFFFFFFFE0BC 9A00F867 lea r1,msgTooBig ; if not, say soFFFFFFFFFFFFE0C0 33FFFC0A jmp ERROR; open a space in the text areaFFFFFFFFFFFFE0C4 ST5:FFFFFFFFFFFFE0C4 660590D0 sw r11,TXTUNF ; if so, store new end positionFFFFFFFFFFFFE0C8 02A08009 mov r1,r10 ; points to old end of textFFFFFFFFFFFFE0CC 02B10009 mov r2,r11 ; points to new end of textFFFFFFFFFFFFE0D0 02918009 mov r3,r9 ; points to start of line after insert lineFFFFFFFFFFFFE0D4 31FFFC71 call MVDOWN ; move things out of the way; copy line into text spaceFFFFFFFFFFFFE0D8 02808009 mov r1,r8 ; set up to do the insertion; move from bufferFFFFFFFFFFFFE0DC 02D10009 mov r2,r13 ; to vacated spaceFFFFFFFFFFFFE0E0 02C18009 mov r3,r12 ; until end of bufferFFFFFFFFFFFFE0E4 31FFFC6B call MVUP ; do itFFFFFFFFFFFFE0E8 BE0079AA bra ST3 ; go back and get another line;******************************************************************;; *** Tables *** DIRECT *** EXEC ***;; This section of the code tests a string against a table. When; a match is found, control is transferred to the section of; code according to the table.;; At 'EXEC', r8 should point to the string, r9 should point to; the character table, and r10 should point to the execution; table. At 'DIRECT', r8 should point to the string, r9 and; r10 will be set up to point to TAB1 and TAB1_1, which are; the tables of all direct and statement commands.;; A '.' in the string will terminate the test and the partial; match will be considered as a match, e.g. 'P.', 'PR.','PRI.',; 'PRIN.', or 'PRINT' will all match 'PRINT'.;; There are two tables: the character table and the execution; table. The character table consists of any number of text items.; Each item is a string of characters with the last character's; high bit set to one. The execution table holds a 32-bit; execution addresses that correspond to each entry in the; character table.;; The end of the character table is a 0 byte which corresponds; to the default routine in the execution table, which is; executed if none of the other table items are matched.;; Character-matching tables:FFFFFFFFFFFFE0EC TAB1:FFFFFFFFFFFFE0E8 D453494CBE0079AA db "LIS",'T'+0x80 ; Direct commandsFFFFFFFFFFFFE0F0 52D7454EC4414F4C db "RU",'N'+0x80FFFFFFFFFFFFE0FE TAB2:FFFFFFFFFFFFE0F8 454EC5564153CE55 db "NEX",'T'+0x80 ; Direct / statementFFFFFFFFFFFFE100 47C649D4454CD458 db "GOT",'O'+0x80FFFFFFFFFFFFE108 C255534F47CF544F db "GOSU",'B'+0x80FFFFFFFFFFFFE110 4552CE5255544552 db "RE",'M'+0x80FFFFFFFFFFFFE118 55504E49D24F46CD db "INPU",'T'+0x80FFFFFFFFFFFFE120 4F50D44E495250D4 db "POKE",'C'+0x80FFFFFFFFFFFFE128 C8454B4F50C3454B db "POKE",'H'+0x80FFFFFFFFFFFFE130 4B4F50D7454B4F50 db "POK",'E'+0x80FFFFFFFFFFFFE138 C55942D04F5453C5 db "BY",'E'+0x80FFFFFFFFFFFFE140 4C43D34C43D35953 db "CL",'R'+0x80FFFFFFFFFFFFE14E TAB4:FFFFFFFFFFFFE148 455000C6434452D2 db "PEEK",'C'+0x80 ;FunctionsFFFFFFFFFFFFE150 C84B454550C34B45 db "PEEK",'H'+0x80 ;FunctionsFFFFFFFFFFFFE158 454550D74B454550 db "PEE",'K'+0x80 ;FunctionsFFFFFFFFFFFFE160 53D34241C44E52CB db "SIZ",'E'+0x80FFFFFFFFFFFFE16F TAB5:FFFFFFFFFFFFE168 5400D25355C55A49 db "T",'O'+0x80 ;"TO" in "FOR"FFFFFFFFFFFFE172 TAB6:FFFFFFFFFFFFE177 TAB8:FFFFFFFFFFFFE170 3E00D045545300CF db '>','='+0x80 ;Relational operatorsFFFFFFFFFFFFE178 BCBD3CBDBEBE3CBD db '<'+0x80FFFFFFFFFFFFE181 TAB9:FFFFFFFFFFFFE185 TAB10:FFFFFFFFFFFFE180 00D24F00C44E4100 db 0FFFFFFFFFFFFE188 .align 8;* Execution address tables:FFFFFFFFFFFFE188 TAB1_1:FFFFFFFFFFFFE188 FFFFFFFFFFFFE440 dw LISTX ;Direct commandsFFFFFFFFFFFFE190 FFFFFFFFFFFFE784 dw LOADFFFFFFFFFFFFE198 FFFFFFFFFFFFE38C dw NEWFFFFFFFFFFFFE1A0 FFFFFFFFFFFFE3A4 dw RUNFFFFFFFFFFFFE1A8 FFFFFFFFFFFFE830 dw SAVEFFFFFFFFFFFFE1B0 TAB2_1:FFFFFFFFFFFFE1B0 FFFFFFFFFFFFE610 dw NEXT ; Direct / statementFFFFFFFFFFFFE1B8 FFFFFFFFFFFFE76C dw LETFFFFFFFFFFFFE1C0 FFFFFFFFFFFFE680 dw IFFFFFFFFFFFFFE1C8 FFFFFFFFFFFFE3EC dw GOTOFFFFFFFFFFFFE1D0 FFFFFFFFFFFFE520 dw GOSUBFFFFFFFFFFFFE1D8 FFFFFFFFFFFFE55C dw RETURNFFFFFFFFFFFFE1E0 FFFFFFFFFFFFE688 dw IF2 ; REMFFFFFFFFFFFFE1E8 FFFFFFFFFFFFE594 dw FORFFFFFFFFFFFFE1F0 FFFFFFFFFFFFE6B0 dw INPUTFFFFFFFFFFFFE1F8 FFFFFFFFFFFFE488 dw PRINTFFFFFFFFFFFFE200 FFFFFFFFFFFFE944 dw POKECFFFFFFFFFFFFE208 FFFFFFFFFFFFE970 dw POKEHFFFFFFFFFFFFE210 FFFFFFFFFFFFE99C dw POKEWFFFFFFFFFFFFE218 FFFFFFFFFFFFE910 dw POKEFFFFFFFFFFFFE220 FFFFFFFFFFFFE39C dw STOPFFFFFFFFFFFFE228 FFFFFFFFFFFFDF64 dw GOBYEFFFFFFFFFFFFE230 FFFFFFFFFFFFE9C8 dw SYSXFFFFFFFFFFFFE238 FFFFFFFFFFFFF690 dw _clsFFFFFFFFFFFFE240 FFFFFFFFFFFFE40C dw _clrFFFFFFFFFFFFE248 FFFFFFFFFFFFF6A4 dw _rdcfFFFFFFFFFFFFE250 FFFFFFFFFFFFE764 dw DEFLTFFFFFFFFFFFFE258 TAB4_1:FFFFFFFFFFFFE258 FFFFFFFFFFFFEE44 dw PEEKCFFFFFFFFFFFFE260 FFFFFFFFFFFFEE58 dw PEEKHFFFFFFFFFFFFE268 FFFFFFFFFFFFEE6C dw PEEKWFFFFFFFFFFFFE270 FFFFFFFFFFFFEE34 dw PEEK ;FunctionsFFFFFFFFFFFFE278 FFFFFFFFFFFFEE9C dw RNDFFFFFFFFFFFFE280 FFFFFFFFFFFFEF34 dw ABSFFFFFFFFFFFFE288 FFFFFFFFFFFFEF54 dw SIZEXFFFFFFFFFFFFE290 FFFFFFFFFFFFEE80 dw USRXFFFFFFFFFFFFE298 FFFFFFFFFFFFEC58 dw XP40FFFFFFFFFFFFE2A0 TAB5_1FFFFFFFFFFFFE2A0 FFFFFFFFFFFFE5AC dw FR1 ;"TO" in "FOR"FFFFFFFFFFFFE2A8 FFFFFFFFFFFFF024 dw QWHATFFFFFFFFFFFFE2B0 TAB6_1FFFFFFFFFFFFE2B0 FFFFFFFFFFFFE5C0 dw FR2 ;"STEP" in "FOR"FFFFFFFFFFFFE2B8 FFFFFFFFFFFFE5C8 dw FR3FFFFFFFFFFFFE2C0 TAB8_1FFFFFFFFFFFFE2C0 FFFFFFFFFFFFEAD8 dw XP11 ;>= Relational operatorsFFFFFFFFFFFFE2C8 FFFFFFFFFFFFEAE8 dw XP12 ;<>FFFFFFFFFFFFE2D0 FFFFFFFFFFFFEAF8 dw XP13 ;>FFFFFFFFFFFFE2D8 FFFFFFFFFFFFEB18 dw XP15 ;=FFFFFFFFFFFFE2E0 FFFFFFFFFFFFEB08 dw XP14 ;<=FFFFFFFFFFFFE2E8 FFFFFFFFFFFFEB28 dw XP16 ;<FFFFFFFFFFFFE2F0 FFFFFFFFFFFFEB50 dw XP17FFFFFFFFFFFFE2F8 TAB9_1FFFFFFFFFFFFE2F8 FFFFFFFFFFFFEA44 dw XP_ANDFFFFFFFFFFFFE300 FFFFFFFFFFFFEA54 dw XP_ANDXFFFFFFFFFFFFE308 TAB10_1FFFFFFFFFFFFE308 FFFFFFFFFFFFEA0C dw XP_ORFFFFFFFFFFFFE310 FFFFFFFFFFFFEA1C dw XP_ORXFFFFFFFFFFFFE318 .align 4;*; r3 = match flag (trashed); r9 = text table; r10 = exec table; r11 = trashedFFFFFFFFFFFFE318 DIRECT:FFFFFFFFFFFFE318 9A04E0EC lea r9,TAB1FFFFFFFFFFFFE31C 9A056188 lea r10,TAB1_1FFFFFFFFFFFFE320 EXEC:FFFFFFFFFFFFE320 03F58009 mov r11,lr ; save link regFFFFFFFFFFFFE324 31FFFD55 call IGNBLK ; ignore leading blanksFFFFFFFFFFFFE328 02BF8009 mov lr,r11 ; restore link regFFFFFFFFFFFFE32C 02858009 mov r11,r8 ; save the pointerFFFFFFFFFFFFE330 E0C00000 setlo r3,#0 ; clear match flagFFFFFFFFFFFFE334 EXLP:FFFFFFFFFFFFE334 4A808000 lbu r1,[r8] ; get the program characterFFFFFFFFFFFFE338 0A840001 addui r8,r8,#1FFFFFFFFFFFFE33C 4A910000 lbu r2,[r9] ; get the table characterFFFFFFFFFFFFE340 BE200069 bne r2,r0,EXNGO ; If end of table,FFFFFFFFFFFFE344 02B40009 mov r8,r11 ; restore the text pointer and...FFFFFFFFFFFFE348 BE0001EA bra EXGO ; execute the default.FFFFFFFFFFFFE34C EXNGO:FFFFFFFFFFFFE34C BE1181C8 beq r1,r3,EXGO ; Else check for period... if so, executeFFFFFFFFFFFFE350 1421007F andi r2,r2,#0x7f ; ignore the table's high bitFFFFFFFFFFFFE354 BE208108 beq r2,r1,EXMAT; is there a match?FFFFFFFFFFFFE358 0AA50008 addui r10,r10,#8 ;if not, try the next entryFFFFFFFFFFFFE35C 02B40009 mov r8,r11 ; reset the program pointerFFFFFFFFFFFFE360 E0C00000 setlo r3,#0 ; sorry, no matchFFFFFFFFFFFFE364 EX1:FFFFFFFFFFFFE364 0A948001 addui r9,r9,#1FFFFFFFFFFFFE368 4090FFFF lb r1,-1[r9] ; get to the end of the entryFFFFFFFFFFFFE36C BE107FC3 bgt r1,r0,EX1FFFFFFFFFFFFE370 BE007E2A bra EXLP ; back for more matchingFFFFFFFFFFFFE374 EXMAT:FFFFFFFFFFFFE374 E0C0002E setlo r3,#'.' ; we've got a match so farFFFFFFFFFFFFE378 0A948001 addui r9,r9,#1FFFFFFFFFFFFE37C 4090FFFF lb r1,-1[r9] ; end of table entry?FFFFFFFFFFFFE380 BE107DA3 bgt r1,r0,EXLP ; if not, go back for moreFFFFFFFFFFFFE384 EXGO:FFFFFFFFFFFFE384 46A58000 lw r11,[r10] ; execute the appropriate routineFFFFFFFFFFFFE388 34B00000 jal r0,[r11]; lb r1,[r8] ; get token from text space; bpl; and r1,#0x7f; shl r1,#2 ; * 4 - word offset; add r1,r1,#TAB1_1; lw r1,[r1]; jmp [r1];******************************************************************;; What follows is the code to execute direct and statement; commands. Control is transferred to these points via the command; table lookup code of 'DIRECT' and 'EXEC' in the last section.; After the command is executed, control is transferred to other; sections as follows:;; For 'LISTX', 'NEW', and 'STOP': go back to the warm start point.; For 'RUN': go execute the first stored line if any; else go; back to the warm start point.; For 'GOTO' and 'GOSUB': go execute the target line.; For 'RETURN' and 'NEXT'; go back to saved return line.; For all others: if 'CURRNT' is 0, go to warm start; else go; execute next command. (This is done in 'FINISH'.);;******************************************************************;; *** NEW *** STOP *** RUN (& friends) *** GOTO ***;; 'NEW<CR>' sets TXTUNF to point to TXTBGN;; 'STOP<CR>' goes back to WSTART;; 'RUN<CR>' finds the first stored line, stores its address; in CURRNT, and starts executing it. Note that only those; commands in TAB2 are legal for a stored program.;; There are 3 more entries in 'RUN':; 'RUNNXL' finds next line, stores it's address and executes it.; 'RUNTSL' stores the address of this line and executes it.; 'RUNSML' continues the execution on same line.;; 'GOTO expr<CR>' evaluates the expression, finds the target; line, and jumps to 'RUNTSL' to do it.;FFFFFFFFFFFFE38C NEW:FFFFFFFFFFFFE38C 31FFFBFB call ENDCHKFFFFFFFFFFFFE390 4600DF68 lw r1,TXTBGNFFFFFFFFFFFFE394 660090D0 sw r1,TXTUNF ; set the end pointerFFFFFFFFFFFFE398 31FFF905 call clearVarsFFFFFFFFFFFFE39C STOP:FFFFFFFFFFFFE39C 31FFFBFB call ENDCHKFFFFFFFFFFFFE3A0 BE00632A bra WSTART ; WSTART will reset the stackFFFFFFFFFFFFE3A4 RUN:FFFFFFFFFFFFE3A4 31FFFBFB call ENDCHKFFFFFFFFFFFFE3A8 46045F68 lw r8,TXTBGN ; set pointer to beginningFFFFFFFFFFFFE3AC 66041090 sw r8,CURRNTFFFFFFFFFFFFE3B0 31FFF905 call clearVarsFFFFFFFFFFFFE3B4 RUNNXL: ; RUN <next line>FFFFFFFFFFFFE3B4 46009090 lw r1,CURRNT ; executing a program?FFFFFFFFFFFFE3B8 BE106268 beq r1,r0,WSTART ; if not, we've finished a direct stat.FFFFFFFFFFFFE3BC E0400000 setlo r1,#0 ; else find the next line numberFFFFFFFFFFFFE3C0 02848009 mov r9,r8FFFFFFFFFFFFE3C4 31FFFC52 call FNDLNP ; search for the next lineFFFFFFFFFFFFE3C8 BE100069 bne r1,r0,RUNTSLFFFFFFFFFFFFE3CC BE900049 bne r9,r0,RUNTSLFFFFFFFFFFFFE3D0 BE0061AA bra WSTART ; if we've fallen off the end, stopFFFFFFFFFFFFE3D4 RUNTSL: ; RUN <this line>FFFFFFFFFFFFE3D4 66049090 sw r9,CURRNT ; set CURRNT to point to the line no.FFFFFFFFFFFFE3D8 9A940002 lea r8,2[r9] ; set the text pointer toFFFFFFFFFFFFE3DC RUNSML: ; RUN <same line>FFFFFFFFFFFFE3DC 31FFFD77 call CHKIO ; see if a control-C was pressedFFFFFFFFFFFFE3E0 9A04E0FE lea r9,TAB2 ; find command in TAB2FFFFFFFFFFFFE3E4 9A0561B0 lea r10,TAB2_1FFFFFFFFFFFFE3E8 BE0079CA bra EXEC ; and execute itFFFFFFFFFFFFE3EC GOTO:FFFFFFFFFFFFE3EC 31FFFA7C call OREXPR ;evaluate the following expressionFFFFFFFFFFFFE3F0 02128009 mov r5,r1FFFFFFFFFFFFE3F4 31FFFBFB call ENDCHK ;must find end of lineFFFFFFFFFFFFE3F8 02508009 mov r1,r5FFFFFFFFFFFFE3FC 31FFFC4E call FNDLN ; find the target lineFFFFFFFFFFFFE400 BE107EA9 bne r1,r0,RUNTSL ; go do itFFFFFFFFFFFFE404 9A00F833 lea r1,msgBadGotoGosubFFFFFFFFFFFFE408 BE00610A bra ERROR ; no such line no.FFFFFFFFFFFFE40C _clr:FFFFFFFFFFFFE40C 31FFF905 call clearVarsFFFFFFFFFFFFE410 BE00084A bra FINISH; Clear the variable area of memoryFFFFFFFFFFFFE414 clearVars:FFFFFFFFFFFFE414 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFE418 67E30000 sw r6,[sp]FFFFFFFFFFFFE41C 67EF8008 sw lr,8[sp]FFFFFFFFFFFFE420 E1800800 setlo r6,#2048 ; number of words to clearFFFFFFFFFFFFE424 460090D8 lw r1,VARBGNFFFFFFFFFFFFE428 cv1:FFFFFFFFFFFFE428 66100000 sw r0,[r1]FFFFFFFFFFFFE42C 08108008 add r1,r1,#8FFFFFFFFFFFFE430 BE037FCF loop r6,cv1FFFFFFFFFFFFE434 47EF8008 lw lr,8[sp]FFFFFFFFFFFFE438 47E30000 lw r6,[sp]FFFFFFFFFFFFE43C 37EF8010 ret #16;******************************************************************; LIST;; LISTX has two forms:; 'LIST<CR>' lists all saved lines; 'LIST #<CR>' starts listing at the line #; Control-S pauses the listing, control-C stops it.;******************************************************************;FFFFFFFFFFFFE440 LISTX:FFFFFFFFFFFFE440 31FFFD3E call TSTNUM ; see if there's a line no.FFFFFFFFFFFFE444 02128009 mov r5,r1FFFFFFFFFFFFE448 31FFFBFB call ENDCHK ; if not, we get a zeroFFFFFFFFFFFFE44C 02508009 mov r1,r5FFFFFFFFFFFFE450 31FFFC4E call FNDLN ; find this or next lineFFFFFFFFFFFFE454 LS1:FFFFFFFFFFFFE454 BE100049 bne r1,r0,LS4FFFFFFFFFFFFE458 BE905D68 beq r9,r0,WSTART ; warm start if we passed the endFFFFFFFFFFFFE45C LS4:FFFFFFFFFFFFE45C 02908009 mov r1,r9FFFFFFFFFFFFE460 31FFFD1E call PRTLN ; print the lineFFFFFFFFFFFFE464 02148009 mov r9,r1 ; set pointer for nextFFFFFFFFFFFFE468 31FFFD77 call CHKIO ; check for listing halt requestFFFFFFFFFFFFE46C BE100088 beq r1,r0,LS3FFFFFFFFFFFFE470 B2100313 bnei r1,#CTRLS,LS3 ; pause the listing?FFFFFFFFFFFFE474 LS2:FFFFFFFFFFFFE474 31FFFD77 call CHKIO ; if so, wait for another keypressFFFFFFFFFFFFE478 BE107FE8 beq r1,r0,LS2FFFFFFFFFFFFE47C LS3:FFFFFFFFFFFFE47C E0400000 setlo r1,#0FFFFFFFFFFFFE480 31FFFC52 call FNDLNP ; find the next lineFFFFFFFFFFFFE484 BE007E8A bra LS1;******************************************************************; PRINT command is 'PRINT ....:' or 'PRINT ....<CR>'; where '....' is a list of expressions, formats, back-arrows,; and strings. These items a separated by commas.;; A format is a pound sign followed by a number. It controls; the number of spaces the value of an expression is going to; be printed in. It stays effective for the rest of the print; command unless changed by another format. If no format is; specified, 11 positions will be used.;; A string is quoted in a pair of single- or double-quotes.;; An underline (back-arrow) means generate a <CR> without a <LF>;; A <CR LF> is generated after the entire list has been printed; or if the list is empty. If the list ends with a semicolon,; however, no <CR LF> is generated.;******************************************************************;FFFFFFFFFFFFE488 PRINT:FFFFFFFFFFFFE488 1602800B lw r5,#11 ; D4 = number of print spacesFFFFFFFFFFFFE48C E0C0003A setlo r3,#':'FFFFFFFFFFFFE490 9A0264A0 lea r4,PR2FFFFFFFFFFFFE494 31FFFD30 call TSTC ; if null list and ":"FFFFFFFFFFFFE498 31FFF135 call CRLF ; give CR-LF and continueFFFFFFFFFFFFE49C BE007A0A bra RUNSML ; execution on the same lineFFFFFFFFFFFFE4A0 PR2:FFFFFFFFFFFFE4A0 E0C0000D setlo r3,#CRFFFFFFFFFFFFE4A4 9A0264B4 lea r4,PR0FFFFFFFFFFFFE4A8 31FFFD30 call TSTC ;if null list and <CR>FFFFFFFFFFFFE4AC 31FFF135 call CRLF ;also give CR-LF andFFFFFFFFFFFFE4B0 BE00782A bra RUNNXL ;execute the next lineFFFFFFFFFFFFE4B4 PR0:FFFFFFFFFFFFE4B4 E0C00023 setlo r3,#'#'FFFFFFFFFFFFE4B8 9A0264CC lea r4,PR1FFFFFFFFFFFFE4BC 31FFFD30 call TSTC ;else is it a format?FFFFFFFFFFFFE4C0 31FFFA7C call OREXPR ; yes, evaluate expressionFFFFFFFFFFFFE4C4 04101409 lw r5,r1 ; and save it as print widthFFFFFFFFFFFFE4C8 BE00012A bra PR3 ; look for more to printFFFFFFFFFFFFE4CC PR1:FFFFFFFFFFFFE4CC E0C00024 setlo r3,#'$'FFFFFFFFFFFFE4D0 9A0264E4 lea r4,PR4FFFFFFFFFFFFE4D4 31FFFD30 call TSTC ; is character expression? (MRL)FFFFFFFFFFFFE4D8 31FFFA7C call OREXPR ; yep. Evaluate expression (MRL)FFFFFFFFFFFFE4DC 31FFF7D5 call GOOUT ; print low byte (MRL)FFFFFFFFFFFFE4E0 BE00006A bra PR3 ;look for more. (MRL)FFFFFFFFFFFFE4E4 PR4:FFFFFFFFFFFFE4E4 31FFFCA9 call QTSTG ; is it a string?; the following branch must occupy only two bytes!FFFFFFFFFFFFE4E8 BE00010A bra PR8 ; if not, must be an expressionFFFFFFFFFFFFE4EC PR3:FFFFFFFFFFFFE4EC E0C0002C setlo r3,#','FFFFFFFFFFFFE4F0 9A026500 lea r4,PR6FFFFFFFFFFFFE4F4 31FFFD30 call TSTC ; if ",", go find nextFFFFFFFFFFFFE4F8 31FFFBEC call FIN ;in the list.FFFFFFFFFFFFE4FC BE007DCA bra PR0FFFFFFFFFFFFE500 PR6:FFFFFFFFFFFFE500 31FFF135 call CRLF ;list ends hereFFFFFFFFFFFFE504 BE0000AA bra FINISHFFFFFFFFFFFFE508 PR8:FFFFFFFFFFFFE508 31FFFA7C call OREXPR ; evaluate the expressionFFFFFFFFFFFFE50C 04500809 lw r2,r5 ; set the widthFFFFFFFFFFFFE510 31FFFCCC call PRTNUM ; print its valueFFFFFFFFFFFFE514 BE007ECA bra PR3 ; more to print?FFFFFFFFFFFFE518 FINISH:FFFFFFFFFFFFE518 31FFFBEC call FIN ; Check end of commandFFFFFFFFFFFFE51C 33FFFC09 jmp QWHAT ; print "What?" if wrong;*******************************************************************;; *** GOSUB *** & RETURN ***;; 'GOSUB expr:' or 'GOSUB expr<CR>' is like the 'GOTO' command,; except that the current text pointer, stack pointer, etc. are; saved so that execution can be continued after the subroutine; 'RETURN's. In order that 'GOSUB' can be nested (and even; recursive), the save area must be stacked. The stack pointer; is saved in 'STKGOS'. The old 'STKGOS' is saved on the stack.; If we are in the main routine, 'STKGOS' is zero (this was done; in the initialization section of the interpreter), but we still; save it as a flag for no further 'RETURN's.;******************************************************************;FFFFFFFFFFFFE520 GOSUB:FFFFFFFFFFFFE520 31FFFC80 call PUSHA ; save the current 'FOR' parametersFFFFFFFFFFFFE524 31FFFA7C call OREXPR ; get line numberFFFFFFFFFFFFE528 31FFFC4E call FNDLN ; find the target lineFFFFFFFFFFFFE52C BE100069 bne r1,r0,gosub1FFFFFFFFFFFFE530 9A00F833 lea r1,msgBadGotoGosubFFFFFFFFFFFFE534 BE0057AA bra ERROR ; if not there, say "How?"FFFFFFFFFFFFE538 gosub1:FFFFFFFFFFFFE538 0DEF0018 sub sp,sp,#24FFFFFFFFFFFFE53C 67E40000 sw r8,[sp] ; save text pointerFFFFFFFFFFFFE540 46009090 lw r1,CURRNTFFFFFFFFFFFFE544 67E08008 sw r1,8[sp] ; found it, save old 'CURRNT'...FFFFFFFFFFFFE548 46009098 lw r1,STKGOSFFFFFFFFFFFFE54C 67E08010 sw r1,16[sp] ; and 'STKGOS'FFFFFFFFFFFFE550 660010A8 sw r0,LOPVAR ; load new valuesFFFFFFFFFFFFE554 660F1098 sw sp,STKGOSFFFFFFFFFFFFE558 BE0073EA bra RUNTSL;******************************************************************; 'RETURN<CR>' undoes everything that 'GOSUB' did, and thus; returns the execution to the command after the most recent; 'GOSUB'. If 'STKGOS' is zero, it indicates that we never had; a 'GOSUB' and is thus an error.;******************************************************************;FFFFFFFFFFFFE55C RETURN:FFFFFFFFFFFFE55C 31FFFBFB call ENDCHK ; there should be just a <CR>FFFFFFFFFFFFE560 46009098 lw r1,STKGOS ; get old stack pointerFFFFFFFFFFFFE564 BE100069 bne r1,r0,return1FFFFFFFFFFFFE568 9A00F850 lea r1,msgRetWoGosubFFFFFFFFFFFFE56C BE0055EA bra ERROR ; if zero, it doesn't existFFFFFFFFFFFFE570 return1:FFFFFFFFFFFFE570 021F0009 mov sp,r1 ; else restore itFFFFFFFFFFFFE574 47E08010 lw r1,16[sp]FFFFFFFFFFFFE578 66009098 sw r1,STKGOS ; and the old 'STKGOS'FFFFFFFFFFFFE57C 47E08008 lw r1,8[sp]FFFFFFFFFFFFE580 66009090 sw r1,CURRNT ; and the old 'CURRNT'FFFFFFFFFFFFE584 47E40000 lw r8,[sp] ; and the old text pointerFFFFFFFFFFFFE588 09EF0018 add sp,sp,#24FFFFFFFFFFFFE58C 31FFFC73 call POPA ;and the old 'FOR' parametersFFFFFFFFFFFFE590 BE007C4A bra FINISH ;and we are back home;******************************************************************; *** FOR *** & NEXT ***;; 'FOR' has two forms:; 'FOR var=exp1 TO exp2 STEP exp1' and 'FOR var=exp1 TO exp2'; The second form means the same thing as the first form with a; STEP of positive 1. The interpreter will find the variable 'var'; and set its value to the current value of 'exp1'. It also; evaluates 'exp2' and 'exp1' and saves all these together with; the text pointer, etc. in the 'FOR' save area, which consists of; 'LOPVAR', 'LOPINC', 'LOPLMT', 'LOPLN', and 'LOPPT'. If there is; already something in the save area (indicated by a non-zero; 'LOPVAR'), then the old save area is saved on the stack before; the new values are stored. The interpreter will then dig in the; stack and find out if this same variable was used in another; currently active 'FOR' loop. If that is the case, then the old; 'FOR' loop is deactivated. (i.e. purged from the stack);******************************************************************;FFFFFFFFFFFFE594 FOR:FFFFFFFFFFFFE594 31FFFC80 call PUSHA ; save the old 'FOR' save areaFFFFFFFFFFFFE598 31FFFBDA call SETVAL ; set the control variableFFFFFFFFFFFFE59C 660090A8 sw r1,LOPVAR ; save its addressFFFFFFFFFFFFE5A0 9A04E16F lea r9,TAB5FFFFFFFFFFFFE5A4 9A0562A0 lea r10,TAB5_1; use 'EXEC' to test for 'TO'FFFFFFFFFFFFE5A8 33FFF8C8 jmp EXECFFFFFFFFFFFFE5AC FR1:FFFFFFFFFFFFE5AC 31FFFA7C call OREXPR ; evaluate the limitFFFFFFFFFFFFE5B0 660090B8 sw r1,LOPLMT ; save thatFFFFFFFFFFFFE5B4 9A04E172 lea r9,TAB6FFFFFFFFFFFFE5B8 9A0562B0 lea r10,TAB6_1 ; use 'EXEC' to test for the word 'STEPFFFFFFFFFFFFE5BC 33FFF8C8 jmp EXECFFFFFFFFFFFFE5C0 FR2:FFFFFFFFFFFFE5C0 31FFFA7C call OREXPR ; found it, get the step valueFFFFFFFFFFFFE5C4 BE00004A bra FR4FFFFFFFFFFFFE5C8 FR3:FFFFFFFFFFFFE5C8 E0400001 setlo r1,#1 ; not found, step defaults to 1FFFFFFFFFFFFE5CC FR4:FFFFFFFFFFFFE5CC 660090B0 sw r1,LOPINC ; save that tooFFFFFFFFFFFFE5D0 FR5:FFFFFFFFFFFFE5D0 46011090 lw r2,CURRNTFFFFFFFFFFFFE5D4 660110C0 sw r2,LOPLN ; save address of current line numberFFFFFFFFFFFFE5D8 660410C8 sw r8,LOPPT ; and text pointerFFFFFFFFFFFFE5DC 05E00C09 lw r3,sp ; dig into the stack to find 'LOPVAR'FFFFFFFFFFFFE5E0 460310A8 lw r6,LOPVARFFFFFFFFFFFFE5E4 BE00004A bra FR7FFFFFFFFFFFFE5E8 FR6:FFFFFFFFFFFFE5E8 0A318028 addui r3,r3,#40 ; look at next stack frameFFFFFFFFFFFFE5EC FR7:FFFFFFFFFFFFE5EC 46310000 lw r2,[r3] ; is it zero?FFFFFFFFFFFFE5F0 BE2000E8 beq r2,r0,FR8 ; if so, we're doneFFFFFFFFFFFFE5F4 BE237FA9 bne r2,r6,FR6 ; same as current LOPVAR? nope, look some moreFFFFFFFFFFFFE5F8 04300409 lw r1,r3 ; Else remove 5 long words from...FFFFFFFFFFFFE5FC 0A310028 addui r2,r3,#40 ; inside the stack.FFFFFFFFFFFFE600 05E00C09 lw r3,spFFFFFFFFFFFFE604 31FFFC71 call MVDOWNFFFFFFFFFFFFE608 09EF0028 add sp,sp,#40 ; set the SP 5 long words upFFFFFFFFFFFFE60C FR8:FFFFFFFFFFFFE60C BE00786A bra FINISH ; and continue execution;******************************************************************; 'NEXT var' serves as the logical (not necessarily physical) end; of the 'FOR' loop. The control variable 'var' is checked with; the 'LOPVAR'. If they are not the same, the interpreter digs in; the stack to find the right one and purges all those that didn't; match. Either way, it then adds the 'STEP' to that variable and; checks the result with against the limit value. If it is within; the limit, control loops back to the command following the; 'FOR'. If it's outside the limit, the save area is purged and; execution continues.;******************************************************************;FFFFFFFFFFFFE610 NEXT:FFFFFFFFFFFFE610 E0400000 setlo r1,#0 ; don't allocate itFFFFFFFFFFFFE614 31FFFB2E call TSTV ; get address of variableFFFFFFFFFFFFE618 BE100069 bne r1,r0,NX4FFFFFFFFFFFFE61C 9A00F80F lea r1,msgNextVarFFFFFFFFFFFFE620 BE00504A bra ERROR ; if no variable, say "What?"FFFFFFFFFFFFE624 NX4:FFFFFFFFFFFFE624 02148009 mov r9,r1 ; save variable's addressFFFFFFFFFFFFE628 NX0:FFFFFFFFFFFFE628 460090A8 lw r1,LOPVAR ; If 'LOPVAR' is zero, we never...FFFFFFFFFFFFE62C BE100069 bne r1,r0,NX5 ; had a FOR loopFFFFFFFFFFFFE630 9A00F7FC lea r1,msgNextForFFFFFFFFFFFFE634 BE004FAA bra ERRORFFFFFFFFFFFFE638 NX5:FFFFFFFFFFFFE638 BE148068 beq r1,r9,NX2 ; else we check them OK, they agreeFFFFFFFFFFFFE63C 31FFFC73 call POPA ; nope, let's see the next frameFFFFFFFFFFFFE640 BE007F4A bra NX0FFFFFFFFFFFFE644 NX2:FFFFFFFFFFFFE644 46908000 lw r1,[r9] ; get control variable's valueFFFFFFFFFFFFE648 460110B0 lw r2,LOPINCFFFFFFFFFFFFE64C 04110403 addu r1,r1,r2 ; add in loop increment; BVS.L QHOW say "How?" for 32-bit overflowFFFFFFFFFFFFE650 66908000 sw r1,[r9] ; save control variable's new valueFFFFFFFFFFFFE654 460190B8 lw r3,LOPLMT ; get loop's limit valueFFFFFFFFFFFFE658 BE200063 bgt r2,r0,NX1 ; check loop increment, branch if loop increment is positiveFFFFFFFFFFFFE65C BE1180E0 blt r1,r3,NXPurge ; test against limitFFFFFFFFFFFFE660 BE00004A bra NX3FFFFFFFFFFFFE664 NX1:FFFFFFFFFFFFE664 BE1180A3 bgt r1,r3,NXPurgeFFFFFFFFFFFFE668 NX3:FFFFFFFFFFFFE668 460410C0 lw r8,LOPLN ; Within limit, go back to the...FFFFFFFFFFFFE66C 66041090 sw r8,CURRNTFFFFFFFFFFFFE670 460410C8 lw r8,LOPPT ; saved 'CURRNT' and text pointer.FFFFFFFFFFFFE674 BE00752A bra FINISHFFFFFFFFFFFFE678 NXPurge:FFFFFFFFFFFFE678 31FFFC73 call POPA ; purge this loopFFFFFFFFFFFFE67C BE0074EA bra FINISH;******************************************************************; *** REM *** IF *** INPUT *** LET (& DEFLT) ***;; 'REM' can be followed by anything and is ignored by the; interpreter.;;REM; br IF2 ; skip the rest of the line; 'IF' is followed by an expression, as a condition and one or; more commands (including other 'IF's) separated by colons.; Note that the word 'THEN' is not used. The interpreter evaluates; the expression. If it is non-zero, execution continues. If it; is zero, the commands that follow are ignored and execution; continues on the next line.;******************************************************************;FFFFFFFFFFFFE680 IF:FFFFFFFFFFFFE680 31FFFA7C call OREXPR ; evaluate the expressionFFFFFFFFFFFFE684 IF1:FFFFFFFFFFFFE684 BE106AC9 bne r1,r0,RUNSML ; is it zero? if not, continueFFFFFFFFFFFFE688 IF2:FFFFFFFFFFFFE688 02848009 mov r9,r8 ; set lookup pointerFFFFFFFFFFFFE68C E0400000 setlo r1,#0 ; find line #0 (impossible)FFFFFFFFFFFFE690 31FFFC63 call FNDSKP ; if so, skip the rest of the lineFFFFFFFFFFFFE694 BE104B83 bgt r1,r0,WSTART ; if no next line, do a warm startFFFFFFFFFFFFE698 IF3:FFFFFFFFFFFFE698 BE0069EA bra RUNTSL ; run the next line;******************************************************************; INPUT is called first and establishes a stack frameFFFFFFFFFFFFE69C INPERR:FFFFFFFFFFFFE69C 460F10A0 lw sp,STKINP ; restore the old stack pointerFFFFFFFFFFFFE6A0 47E40010 lw r8,16[sp]FFFFFFFFFFFFE6A4 66041090 sw r8,CURRNT ; and old 'CURRNT'FFFFFFFFFFFFE6A8 47E40008 lw r8,8[sp] ; and old text pointerFFFFFFFFFFFFE6AC 0BEF0028 addui sp,sp,#40 ; fall through will subtract 40; 'INPUT' is like the 'PRINT' command, and is followed by a list; of items. If the item is a string in single or double quotes,; or is an underline (back arrow), it has the same effect as in; 'PRINT'. If an item is a variable, this variable name is; printed out followed by a colon, then the interpreter waits for; an expression to be typed in. The variable is then set to the; value of this expression. If the variable is preceeded by a; string (again in single or double quotes), the string will be; displayed followed by a colon. The interpreter the waits for an; expression to be entered and sets the variable equal to the; expression's value. If the input expression is invalid, the; interpreter will print "What?", "How?", or "Sorry" and reprint; the prompt and redo the input. The execution will not terminate; unless you press control-C. This is handled in 'INPERR'.;FFFFFFFFFFFFE6B0 INPUT:FFFFFFFFFFFFE6B0 0FEF0028 subui sp,sp,#40 ; allocate stack frameFFFFFFFFFFFFE6B4 67E28020 sw r5,32[sp]FFFFFFFFFFFFE6B8 IP6:FFFFFFFFFFFFE6B8 67E40000 sw r8,[sp] ; save in case of errorFFFFFFFFFFFFE6BC 31FFFCA9 call QTSTG ; is next item a string?FFFFFFFFFFFFE6C0 BE0000CA bra IP2 ; nope - this branch must take only two bytesFFFFFFFFFFFFE6C4 E0400001 setlo r1,#1 ; allocate varFFFFFFFFFFFFE6C8 31FFFB2E call TSTV ; yes, but is it followed by a variable?FFFFFFFFFFFFE6CC BE1003E8 beq r1,r0,IP4 ; if not, brnchFFFFFFFFFFFFE6D0 02150009 mov r10,r1 ; put away the variable's addressFFFFFFFFFFFFE6D4 BE0001AA bra IP3 ; if so, input to variableFFFFFFFFFFFFE6D8 IP2:FFFFFFFFFFFFE6D8 67E40008 sw r8,8[sp] ; save for 'PRTSTG'FFFFFFFFFFFFE6DC E0400001 setlo r1,#1FFFFFFFFFFFFE6E0 31FFFB2E call TSTV ; must be a variable nowFFFFFFFFFFFFE6E4 BE100069 bne r1,r0,IP7FFFFFFFFFFFFE6E8 9A00F7DF lea r1,msgInputVarFFFFFFFFFFFFE6EC BE0049EA bra ERROR ; "What?" it isn't?FFFFFFFFFFFFE6F0 IP7:FFFFFFFFFFFFE6F0 02150009 mov r10,r1 ; put away the variable's addressFFFFFFFFFFFFE6F4 40828000 lb r5,[r8] ; get ready for 'PRTSTG' by null terminatingFFFFFFFFFFFFE6F8 60800000 sb r0,[r8]FFFFFFFFFFFFE6FC 47E08008 lw r1,8[sp] ; get back text pointerFFFFFFFFFFFFE700 31FFFC93 call PRTSTG ; print string as promptFFFFFFFFFFFFE704 60828000 sb r5,[r8] ; un-null terminateFFFFFFFFFFFFE708 IP3FFFFFFFFFFFFE708 67E40008 sw r8,8[sp] ; save in case of errorFFFFFFFFFFFFE70C 46009090 lw r1,CURRNTFFFFFFFFFFFFE710 67E08010 sw r1,16[sp] ; also save 'CURRNT'FFFFFFFFFFFFE714 E07FFFFF setlo r1,#-1FFFFFFFFFFFFE718 66009090 sw r1,CURRNT ; flag that we are in INPUTFFFFFFFFFFFFE71C 660F10A0 sw sp,STKINP ; save the stack pointer tooFFFFFFFFFFFFE720 67E50018 sw r10,24[sp] ; save the variable addressFFFFFFFFFFFFE724 E040003A setlo r1,#':' ; print a colon firstFFFFFFFFFFFFE728 31FFFC1A call GETLN ; then get an input lineFFFFFFFFFFFFE72C 9A04111B lea r8,BUFFER ; point to the bufferFFFFFFFFFFFFE730 31FFFA7C call OREXPR ; evaluate the inputFFFFFFFFFFFFE734 47E50018 lw r10,24[sp] ; restore the variable addressFFFFFFFFFFFFE738 66A08000 sw r1,[r10] ; save value in variableFFFFFFFFFFFFE73C 47E08010 lw r1,16[sp] ; restore old 'CURRNT'FFFFFFFFFFFFE740 66009090 sw r1,CURRNTFFFFFFFFFFFFE744 47E40008 lw r8,8[sp] ; and the old text pointerFFFFFFFFFFFFE748 IP4:FFFFFFFFFFFFE748 E0C0002C setlo r3,#','FFFFFFFFFFFFE74C 9A026758 lea r4,IP5 ; is the next thing a comma?FFFFFFFFFFFFE750 31FFFD30 call TSTCFFFFFFFFFFFFE754 BE007B2A bra IP6 ; yes, more itemsFFFFFFFFFFFFE758 IP5:FFFFFFFFFFFFE758 47E28020 lw r5,32[sp]FFFFFFFFFFFFE75C 09EF0028 add sp,sp,#40 ; clean up the stackFFFFFFFFFFFFE760 33FFF946 jmp FINISHFFFFFFFFFFFFE764 DEFLT:FFFFFFFFFFFFE764 40808000 lb r1,[r8]FFFFFFFFFFFFE768 B01F6C0D beq r1,#CR,FINISH ; empty line is OK else it is 'LET';******************************************************************; 'LET' is followed by a list of items separated by commas.; Each item consists of a variable, an equals sign, and an; expression. The interpreter evaluates the expression and sets; the variable to that value. The interpreter will also handle; 'LET' commands without the word 'LET'. This is done by 'DEFLT'.;******************************************************************;FFFFFFFFFFFFE76C LET:FFFFFFFFFFFFE76C 31FFFBDA call SETVAL ; do the assignmentFFFFFFFFFFFFE770 E0C0002C setlo r3,#','FFFFFFFFFFFFE774 9A026518 lea r4,FINISHFFFFFFFFFFFFE778 31FFFD30 call TSTC ; check for more 'LET' itemsFFFFFFFFFFFFE77C BE007F8A bra LETFFFFFFFFFFFFE780 LT1:FFFFFFFFFFFFE780 BE006CCA bra FINISH ; until we are finished.;******************************************************************; *** LOAD *** & SAVE ***;; These two commands transfer a program to/from an auxiliary; device such as a cassette, another computer, etc. The program; is converted to an easily-stored format: each line starts with; a colon, the line no. as 4 hex digits, and the rest of the line.; At the end, a line starting with an '@' sign is sent. This; format can be read back with a minimum of processing time by; the Butterfly.;******************************************************************;FFFFFFFFFFFFE784 LOADFFFFFFFFFFFFE784 46045F68 lw r8,TXTBGN ; set pointer to start of prog. areaFFFFFFFFFFFFE788 E040000D setlo r1,#CR ; For a CP/M host, tell it we're ready...FFFFFFFFFFFFE78C 31FFF7D7 call GOAUXO ; by sending a CR to finish PIP command.FFFFFFFFFFFFE790 LOD1:FFFFFFFFFFFFE790 31FFF7D8 call GOAUXI ; look for start of lineFFFFFFFFFFFFE794 BE107FE2 ble r1,r0,LOD1FFFFFFFFFFFFE798 B0100E40 beq r1,#'@',LODEND ; end of program?FFFFFFFFFFFFE79C B0100D1A beq r1,#0x1A,LODEND ; or EOF markerFFFFFFFFFFFFE7A0 B21FFC3A bne r1,#':',LOD1 ; if not, is it start of line? if not, wait for itFFFFFFFFFFFFE7A4 31FFF9F6 call GCHAR ; get line numberFFFFFFFFFFFFE7A8 60808000 sb r1,[r8] ; store itFFFFFFFFFFFFE7AC 06109001 shrui r1,r1,#8FFFFFFFFFFFFE7B0 60808001 sb r1,1[r8]FFFFFFFFFFFFE7B4 0A840002 addui r8,r8,#2FFFFFFFFFFFFE7B8 LOD2:FFFFFFFFFFFFE7B8 31FFF7D8 call GOAUXI ; get another text char.FFFFFFFFFFFFE7BC BE107FE2 ble r1,r0,LOD2FFFFFFFFFFFFE7C0 60808000 sb r1,[r8]FFFFFFFFFFFFE7C4 0A840001 addui r8,r8,#1 ; store itFFFFFFFFFFFFE7C8 B21FFC0D bne r1,#CR,LOD2 ; is it the end of the line? if not, go back for moreFFFFFFFFFFFFE7CC BE007E2A bra LOD1 ; if so, start a new lineFFFFFFFFFFFFE7D0 LODEND:FFFFFFFFFFFFE7D0 660410D0 sw r8,TXTUNF ; set end-of program pointerFFFFFFFFFFFFE7D4 BE00418A bra WSTART ; back to direct mode; get character from input (16 bit value)FFFFFFFFFFFFE7D8 GCHAR:FFFFFFFFFFFFE7D8 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFE7DC 67E28000 sw r5,[sp]FFFFFFFFFFFFE7E0 67E30008 sw r6,8[sp]FFFFFFFFFFFFE7E4 67EF8010 sw lr,16[sp]FFFFFFFFFFFFE7E8 E1800003 setlo r6,#3 ; repeat four timesFFFFFFFFFFFFE7EC E1400000 setlo r5,#0FFFFFFFFFFFFE7F0 GCHAR1:FFFFFFFFFFFFE7F0 31FFF7D8 call GOAUXI ; get a charFFFFFFFFFFFFE7F4 BE107FE2 ble r1,r0,GCHAR1FFFFFFFFFFFFE7F8 31FFFA07 call asciiToHexFFFFFFFFFFFFE7FC 06528800 shli r5,r5,#4FFFFFFFFFFFFE800 04509409 or r5,r5,r1FFFFFFFFFFFFE804 BE037F6F loop r6,GCHAR1FFFFFFFFFFFFE808 02508009 mov r1,r5FFFFFFFFFFFFE80C 47EF8010 lw lr,16[sp]FFFFFFFFFFFFE810 47E30008 lw r6,8[sp]FFFFFFFFFFFFE814 47E28000 lw r5,[sp]FFFFFFFFFFFFE818 37EF8018 ret #24; convert an ascii char to hex code; input; r1 = char to convertFFFFFFFFFFFFE81C asciiToHex:FFFFFFFFFFFFE81C A4100239 blei r1,#'9',a2h1 ; less than '9'FFFFFFFFFFFFE820 0E108007 subui r1,r1,#7 ; shift 'A' to '9'+1FFFFFFFFFFFFE824 a2h1:FFFFFFFFFFFFE824 0E108030 subui r1,r1,#'0' ;FFFFFFFFFFFFE828 1410800F andi r1,r1,#15 ; make sure a nybbleFFFFFFFFFFFFE82C 37EF8000 retFFFFFFFFFFFFE830 SAVE:FFFFFFFFFFFFE830 46045F68 lw r8,TXTBGN ;set pointer to start of prog. areaFFFFFFFFFFFFE834 460490D0 lw r9,TXTUNF ;set pointer to end of prog. areaFFFFFFFFFFFFE838 SAVE1:FFFFFFFFFFFFE838 31FFFA23 call AUXOCRLF ; send out a CR & LF (CP/M likes this)FFFFFFFFFFFFE83C BE8481C5 bgeu r8,r9,SAVEND ; are we finished?FFFFFFFFFFFFE840 E040003A setlo r1,#':' ; if not, start a lineFFFFFFFFFFFFE844 31FFF7D7 call GOAUXOFFFFFFFFFFFFE848 4A808000 lbu r1,[r8] ; get line numberFFFFFFFFFFFFE84C 4A810001 lbu r2,1[r8]FFFFFFFFFFFFE850 06211000 shli r2,r2,#8FFFFFFFFFFFFE854 04110409 or r1,r1,r2FFFFFFFFFFFFE858 0A840002 addui r8,r8,#2FFFFFFFFFFFFE85C 31FFFA2B call PWORD ; output line number as 4-digit hexFFFFFFFFFFFFE860 SAVE2:FFFFFFFFFFFFE860 40808000 lb r1,[r8] ; get a text char.FFFFFFFFFFFFE864 0A840001 addui r8,r8,#1FFFFFFFFFFFFE868 B01FF40D beqi r1,#CR,SAVE1 ; is it the end of the line? if so, send CR & LF and start new lineFFFFFFFFFFFFE86C 31FFF7D7 call GOAUXO ; send it outFFFFFFFFFFFFE870 BE007F8A bra SAVE2 ; go back for more textFFFFFFFFFFFFE874 SAVEND:FFFFFFFFFFFFE874 E0400040 setlo r1,#'@' ; send end-of-program indicatorFFFFFFFFFFFFE878 31FFF7D7 call GOAUXOFFFFFFFFFFFFE87C 31FFFA23 call AUXOCRLF ; followed by a CR & LFFFFFFFFFFFFFE880 E040001A setlo r1,#0x1A ; and a control-Z to end the CP/M fileFFFFFFFFFFFFE884 31FFF7D7 call GOAUXOFFFFFFFFFFFFE888 BE003BEA bra WSTART ; then go do a warm start; output a CR LF sequence to auxillary output; Registers Affected; r3 = LFFFFFFFFFFFFFE88C AUXOCRLF:FFFFFFFFFFFFE88C 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFE890 67EF8000 sw lr,[sp]FFFFFFFFFFFFE894 E040000D setlo r1,#CRFFFFFFFFFFFFE898 31FFF7D7 call GOAUXOFFFFFFFFFFFFE89C E040000A setlo r1,#LFFFFFFFFFFFFFE8A0 31FFF7D7 call GOAUXOFFFFFFFFFFFFE8A4 47EF8000 lw lr,[sp]FFFFFFFFFFFFE8A8 37EF8008 ret #8; output a word in hex format; tricky because of the need to reverse the order of the charsFFFFFFFFFFFFE8AC PWORD:FFFFFFFFFFFFE8AC 0DEF0010 sub sp,sp,#16FFFFFFFFFFFFE8B0 67EF8000 sw lr,[sp]FFFFFFFFFFFFE8B4 67E28008 sw r5,8[sp]FFFFFFFFFFFFE8B8 9A02910F lea r5,NUMWKA+15FFFFFFFFFFFFE8BC 02120009 mov r4,r1 ; r4 = valueFFFFFFFFFFFFE8C0 pword1:FFFFFFFFFFFFE8C0 02408009 mov r1,r4 ; r1 = valueFFFFFFFFFFFFE8C4 06420801 shrui r4,r4,#4 ; shift over to next nybbleFFFFFFFFFFFFE8C8 31FFFA3F call toAsciiHex ; convert LS nybble to ascii hexFFFFFFFFFFFFE8CC 60508000 sb r1,[r5] ; save in work areaFFFFFFFFFFFFE8D0 0E528001 subui r5,r5,#1FFFFFFFFFFFFE8D4 12509100 cmpui r1,r5,#NUMWKAFFFFFFFFFFFFE8D8 BE107F41 bge r1,r0,pword1FFFFFFFFFFFFE8DC pword2:FFFFFFFFFFFFE8DC 0A528001 addui r5,r5,#1FFFFFFFFFFFFE8E0 40508000 lb r1,[r5] ; get char to outputFFFFFFFFFFFFE8E4 31FFF7D7 call GOAUXO ; send itFFFFFFFFFFFFE8E8 1250910F cmpui r1,r5,#NUMWKA+15FFFFFFFFFFFFE8EC BE107F80 blt r1,r0,pword2FFFFFFFFFFFFE8F0 47E28008 lw r5,8[sp]FFFFFFFFFFFFE8F4 47EF8000 lw lr,[sp]FFFFFFFFFFFFE8F8 37EF8010 ret #16; convert nybble in r2 to ascii hex char2; r2 = character to convertFFFFFFFFFFFFE8FC toAsciiHex:FFFFFFFFFFFFE8FC 1410800F andi r1,r1,#15 ; make sure it's a nybbleFFFFFFFFFFFFE900 A010020A blti r1,#10,tah1 ; > 10 ?FFFFFFFFFFFFE904 08108007 addi r1,r1,#7 ; bump it up to the letter 'A'FFFFFFFFFFFFE908 tah1:FFFFFFFFFFFFE908 0A108030 addui r1,r1,#'0' ; bump up to ascii '0'FFFFFFFFFFFFE90C 37EF8000 ret;******************************************************************; *** POKE *** & SYSX ***;; 'POKE expr1,expr2' stores the byte from 'expr2' into the memory; address specified by 'expr1'.;; 'SYSX expr' jumps to the machine language subroutine whose; starting address is specified by 'expr'. The subroutine can use; all registers but must leave the stack the way it found it.; The subroutine returns to the interpreter by executing an RET.;******************************************************************;FFFFFFFFFFFFE910 POKE:FFFFFFFFFFFFE910 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFE914 31FFFA7C call OREXPR ; get the memory addressFFFFFFFFFFFFE918 E0C0002C setlo r3,#','FFFFFFFFFFFFE91C 9A02693C lea r4,PKER ; it must be followed by a commaFFFFFFFFFFFFE920 31FFFD30 call TSTC ; it must be followed by a commaFFFFFFFFFFFFE924 67E08000 sw r1,[sp] ; save the addressFFFFFFFFFFFFE928 31FFFA7C call OREXPR ; get the byte to be POKE'dFFFFFFFFFFFFE92C 47E10000 lw r2,[sp] ; get the address backFFFFFFFFFFFFE930 60208000 sb r1,[r2] ; store the byte in memoryFFFFFFFFFFFFE934 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFE938 BE005F0A bra FINISHFFFFFFFFFFFFE93C PKER:FFFFFFFFFFFFE93C 9A00F778 lea r1,msgCommaFFFFFFFFFFFFE940 BE00374A bra ERROR ; if no comma, say "What?"FFFFFFFFFFFFE944 POKEC:FFFFFFFFFFFFE944 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFE948 31FFFA7C call OREXPR ; get the memory addressFFFFFFFFFFFFE94C E0C0002C setlo r3,#','FFFFFFFFFFFFE950 9A02693C lea r4,PKER ; it must be followed by a commaFFFFFFFFFFFFE954 31FFFD30 call TSTC ; it must be followed by a commaFFFFFFFFFFFFE958 67E08000 sw r1,[sp] ; save the addressFFFFFFFFFFFFE95C 31FFFA7C call OREXPR ; get the byte to be POKE'dFFFFFFFFFFFFE960 47E10000 lw r2,[sp] ; get the address backFFFFFFFFFFFFE964 62208000 sc r1,[r2] ; store the char in memoryFFFFFFFFFFFFE968 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFE96C 33FFF946 jmp FINISHFFFFFFFFFFFFE970 POKEH:FFFFFFFFFFFFE970 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFE974 31FFFA7C call OREXPR ; get the memory addressFFFFFFFFFFFFE978 E0C0002C setlo r3,#','FFFFFFFFFFFFE97C 9A02693C lea r4,PKER ; it must be followed by a commaFFFFFFFFFFFFE980 31FFFD30 call TSTCFFFFFFFFFFFFE984 67E08000 sw r1,[sp] ; save the addressFFFFFFFFFFFFE988 31FFFA7C call OREXPR ; get the byte to be POKE'dFFFFFFFFFFFFE98C 47E10000 lw r2,[sp] ; get the address backFFFFFFFFFFFFE990 64208000 sh r1,[r2] ; store the word in memoryFFFFFFFFFFFFE994 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFE998 33FFF946 jmp FINISHFFFFFFFFFFFFE99C POKEW:FFFFFFFFFFFFE99C 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFE9A0 31FFFA7C call OREXPR ; get the memory addressFFFFFFFFFFFFE9A4 E0C0002C setlo r3,#','FFFFFFFFFFFFE9A8 9A02693C lea r4,PKER ; it must be followed by a commaFFFFFFFFFFFFE9AC 31FFFD30 call TSTCFFFFFFFFFFFFE9B0 67E08000 sw r1,[sp] ; save the addressFFFFFFFFFFFFE9B4 31FFFA7C call OREXPR ; get the word to be POKE'dFFFFFFFFFFFFE9B8 47E10000 lw r2,[sp] ; get the address backFFFFFFFFFFFFE9BC 66208000 sw r1,[r2] ; store the word in memoryFFFFFFFFFFFFE9C0 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFE9C4 33FFF946 jmp FINISHFFFFFFFFFFFFE9C8 SYSX:FFFFFFFFFFFFE9C8 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFE9CC 31FFFA7C call OREXPR ; get the subroutine's addressFFFFFFFFFFFFE9D0 BE100069 bne r1,r0,sysx1 ; make sure we got a valid addressFFFFFFFFFFFFE9D4 9A00F7CD lea r1,msgSYSBadFFFFFFFFFFFFE9D8 BE00328A bra ERRORFFFFFFFFFFFFE9DC sysx1:FFFFFFFFFFFFE9DC 67E40000 sw r8,[sp] ; save the text pointerFFFFFFFFFFFFE9E0 341F8000 jal r31,[r1] ; jump to the subroutineFFFFFFFFFFFFE9E4 47E40000 lw r8,[sp] ; restore the text pointerFFFFFFFFFFFFE9E8 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFE9EC BE00596A bra FINISH;******************************************************************; *** EXPR ***;; 'EXPR' evaluates arithmetical or logical expressions.; <OREXPR>::= <ANDEXPR> OR <ANDEXPR> ...; <ANDEXPR>::=<EXPR> AND <EXPR> ...; <EXPR>::=<EXPR2>; <EXPR2><rel.op.><EXPR2>; where <rel.op.> is one of the operators in TAB8 and the result; of these operations is 1 if true and 0 if false.; <EXPR2>::=(+ or -)<EXPR3>(+ or -)<EXPR3>(...; where () are optional and (... are optional repeats.; <EXPR3>::=<EXPR4>( <* or /><EXPR4> )(...; <EXPR4>::=<variable>; <function>; (<EXPR>); <EXPR> is recursive so that the variable '@' can have an <EXPR>; as an index, functions can have an <EXPR> as arguments, and; <EXPR4> can be an <EXPR> in parenthesis.;; <OREXPR>::=<ANDEXPR> OR <ANDEXPR> ...;FFFFFFFFFFFFE9F0 OREXPR:FFFFFFFFFFFFE9F0 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFE9F4 67EF8000 sw lr,[sp]FFFFFFFFFFFFE9F8 31FFFA8A call ANDEXPR ; get first <ANDEXPR>FFFFFFFFFFFFE9FC XP_OR1:FFFFFFFFFFFFE9FC 67E08004 sw r1,4[sp] ; save <ANDEXPR> valueFFFFFFFFFFFFEA00 9A04E185 lea r9,TAB10 ; look up a logical operatorFFFFFFFFFFFFEA04 9A056308 lea r10,TAB10_1FFFFFFFFFFFFEA08 33FFF8C8 jmp EXEC ; go do itFFFFFFFFFFFFEA0C XP_OR:FFFFFFFFFFFFEA0C 31FFFA8A call ANDEXPRFFFFFFFFFFFFEA10 47E10008 lw r2,8[sp]FFFFFFFFFFFFEA14 04110409 or r1,r1,r2FFFFFFFFFFFFEA18 BE007F2A bra XP_OR1FFFFFFFFFFFFEA1C XP_ORX:FFFFFFFFFFFFEA1C 47E08008 lw r1,8[sp]FFFFFFFFFFFFEA20 47EF8000 lw lr,[sp]FFFFFFFFFFFFEA24 37EF8010 ret #16; <ANDEXPR>::=<EXPR> AND <EXPR> ...;FFFFFFFFFFFFEA28 ANDEXPR:FFFFFFFFFFFFEA28 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEA2C 67EF8000 sw lr,[sp]FFFFFFFFFFFFEA30 31FFFAAF call EXPR ; get first <EXPR>FFFFFFFFFFFFEA34 XP_AND1:FFFFFFFFFFFFEA34 67E08008 sw r1,8[sp] ; save <EXPR> valueFFFFFFFFFFFFEA38 9A04E181 lea r9,TAB9 ; look up a logical operatorFFFFFFFFFFFFEA3C 9A0562F8 lea r10,TAB9_1FFFFFFFFFFFFEA40 33FFF8C8 jmp EXEC ; go do itFFFFFFFFFFFFEA44 XP_AND:FFFFFFFFFFFFEA44 31FFFAAF call EXPRFFFFFFFFFFFFEA48 47E10008 lw r2,8[sp]FFFFFFFFFFFFEA4C 04110408 and r1,r1,r2FFFFFFFFFFFFEA50 BE007F2A bra XP_AND1FFFFFFFFFFFFEA54 XP_ANDX:FFFFFFFFFFFFEA54 47E08008 lw r1,8[sp]FFFFFFFFFFFFEA58 47EF8000 lw lr,[sp]FFFFFFFFFFFFEA5C 37EF8010 ret #16; Determine if the character is a digit; Parameters; r1 = char to test; Returns; r1 = 1 if digit, otherwise 0;FFFFFFFFFFFFEA60 isDigit:FFFFFFFFFFFFEA60 A0100430 blt r1,#'0',isDigitFalseFFFFFFFFFFFFEA64 A6100339 bgt r1,#'9',isDigitFalseFFFFFFFFFFFFEA68 E0400001 setlo r1,#1FFFFFFFFFFFFEA6C 37EF8000 retFFFFFFFFFFFFEA70 isDigitFalse:FFFFFFFFFFFFEA70 E0400000 setlo r1,#0FFFFFFFFFFFFEA74 37EF8000 ret; Determine if the character is a alphabetic; Parameters; r1 = char to test; Returns; r1 = 1 if alpha, otherwise 0;FFFFFFFFFFFFEA78 isAlpha:FFFFFFFFFFFFEA78 A0100641 blt r1,#'A',isAlphaFalseFFFFFFFFFFFFEA7C A410035A ble r1,#'Z',isAlphaTrueFFFFFFFFFFFFEA80 A0100461 blt r1,#'a',isAlphaFalseFFFFFFFFFFFFEA84 A610037A bgt r1,#'z',isAlphaFalseFFFFFFFFFFFFEA88 isAlphaTrue:FFFFFFFFFFFFEA88 E0400001 setlo r1,#1FFFFFFFFFFFFEA8C 37EF8000 retFFFFFFFFFFFFEA90 isAlphaFalse:FFFFFFFFFFFFEA90 E0400000 setlo r1,#0FFFFFFFFFFFFEA94 37EF8000 ret; Determine if the character is a alphanumeric; Parameters; r1 = char to test; Returns; r1 = 1 if alpha, otherwise 0;FFFFFFFFFFFFEA98 isAlnum:FFFFFFFFFFFFEA98 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFEA9C 67EF8000 sw lr,[sp]FFFFFFFFFFFFEAA0 04100809 or r2,r1,r0 ; save test charFFFFFFFFFFFFEAA4 31FFFA98 call isDigitFFFFFFFFFFFFEAA8 BE100069 bne r1,r0,isDigitx ; if it is a digitFFFFFFFFFFFFEAAC 04200409 or r1,r2,r0 ; get back test charFFFFFFFFFFFFEAB0 31FFFA9E call isAlphaFFFFFFFFFFFFEAB4 isDigitx:FFFFFFFFFFFFEAB4 47EF8000 lw lr,[sp]FFFFFFFFFFFFEAB8 37EF8008 ret #8FFFFFFFFFFFFEABC EXPR:FFFFFFFFFFFFEABC 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEAC0 67EF8000 sw lr,[sp]FFFFFFFFFFFFEAC4 31FFFADE call EXPR2FFFFFFFFFFFFEAC8 67E08008 sw r1,8[sp] ; save <EXPR2> valueFFFFFFFFFFFFEACC 9A04E177 lea r9,TAB8 ; look up a relational operatorFFFFFFFFFFFFEAD0 9A0562C0 lea r10,TAB8_1FFFFFFFFFFFFEAD4 33FFF8C8 jmp EXEC ; go do itFFFFFFFFFFFFEAD8 XP11:FFFFFFFFFFFFEAD8 47E08008 lw r1,8[sp]FFFFFFFFFFFFEADC 31FFFAD7 call XP18 ; is it ">="?FFFFFFFFFFFFEAE0 BE208321 bge r2,r1,XPRT1 ; no, return r2=1FFFFFFFFFFFFEAE4 BE0002AA bra XPRT0 ; else return r2=0FFFFFFFFFFFFEAE8 XP12:FFFFFFFFFFFFEAE8 47E08008 lw r1,8[sp]FFFFFFFFFFFFEAEC 31FFFAD7 call XP18 ; is it "<>"?FFFFFFFFFFFFEAF0 BE2082A9 bne r2,r1,XPRT1 ; no, return r2=1FFFFFFFFFFFFEAF4 BE00022A bra XPRT0 ; else return r2=0FFFFFFFFFFFFEAF8 XP13:FFFFFFFFFFFFEAF8 47E08008 lw r1,8[sp]FFFFFFFFFFFFEAFC 31FFFAD7 call XP18 ; is it ">"?FFFFFFFFFFFFEB00 BE208223 bgt r2,r1,XPRT1 ; no, return r2=1FFFFFFFFFFFFEB04 BE0001AA bra XPRT0 ; else return r2=0FFFFFFFFFFFFEB08 XP14:FFFFFFFFFFFFEB08 47E08008 lw r1,8[sp]FFFFFFFFFFFFEB0C 31FFFAD7 call XP18 ; is it "<="?FFFFFFFFFFFFEB10 BE2081A2 ble r2,r1,XPRT1 ; no, return r2=1FFFFFFFFFFFFEB14 BE00012A bra XPRT0 ; else return r2=0FFFFFFFFFFFFEB18 XP15:FFFFFFFFFFFFEB18 47E08008 lw r1,8[sp]FFFFFFFFFFFFEB1C 31FFFAD7 call XP18 ; is it "="?FFFFFFFFFFFFEB20 BE208128 beq r2,r1,XPRT1 ; if not, return r2=1FFFFFFFFFFFFEB24 BE0000AA bra XPRT0 ; else return r2=0FFFFFFFFFFFFEB28 XP16:FFFFFFFFFFFFEB28 47E08008 lw r1,8[sp]FFFFFFFFFFFFEB2C 31FFFAD7 call XP18 ; is it "<"?FFFFFFFFFFFFEB30 BE2080A0 blt r2,r1,XPRT1 ; if not, return r2=1FFFFFFFFFFFFEB34 BE00002A bra XPRT0 ; else return r2=0FFFFFFFFFFFFEB38 XPRT0:FFFFFFFFFFFFEB38 47EF8000 lw lr,[sp]FFFFFFFFFFFFEB3C E0400000 setlo r1,#0 ; return r1=0 (false)FFFFFFFFFFFFEB40 37EF8010 ret #16FFFFFFFFFFFFEB44 XPRT1:FFFFFFFFFFFFEB44 47EF8000 lw lr,[sp]FFFFFFFFFFFFEB48 E0400001 setlo r1,#1 ; return r1=1 (true)FFFFFFFFFFFFEB4C 37EF8010 ret #16FFFFFFFFFFFFEB50 XP17: ; it's not a rel. operatorFFFFFFFFFFFFEB50 47E08008 lw r1,8[sp] ; return r2=<EXPR2>FFFFFFFFFFFFEB54 47EF8000 lw lr,[sp]FFFFFFFFFFFFEB58 37EF8010 ret #16FFFFFFFFFFFFEB5C XP18:FFFFFFFFFFFFEB5C 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEB60 67EF8000 sw lr,[sp]FFFFFFFFFFFFEB64 67E08008 sw r1,8[sp]FFFFFFFFFFFFEB68 31FFFADE call EXPR2 ; do a second <EXPR2>FFFFFFFFFFFFEB6C 47E10008 lw r2,8[sp]FFFFFFFFFFFFEB70 47EF8000 lw lr,[sp]FFFFFFFFFFFFEB74 37EF8010 ret #16; <EXPR2>::=(+ or -)<EXPR3>(+ or -)<EXPR3>(...FFFFFFFFFFFFEB78 EXPR2:FFFFFFFFFFFFEB78 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEB7C 67EF8000 sw lr,[sp]FFFFFFFFFFFFEB80 E0C0002D setlo r3,#'-'FFFFFFFFFFFFEB84 9A026B98 lea r4,XP21FFFFFFFFFFFFEB88 31FFFD30 call TSTC ; negative sign?FFFFFFFFFFFFEB8C E0400000 setlo r1,#0 ; yes, fake '0-'FFFFFFFFFFFFEB90 67E00008 sw r0,8[sp]FFFFFFFFFFFFEB94 BE00020A bra XP26FFFFFFFFFFFFEB98 XP21:FFFFFFFFFFFFEB98 E0C0002B setlo r3,#'+'FFFFFFFFFFFFEB9C 9A026BA4 lea r4,XP22FFFFFFFFFFFFEBA0 31FFFD30 call TSTC ; positive sign? ignore itFFFFFFFFFFFFEBA4 XP22:FFFFFFFFFFFFEBA4 31FFFAFB call EXPR3 ; first <EXPR3>FFFFFFFFFFFFEBA8 XP23:FFFFFFFFFFFFEBA8 67E08008 sw r1,8[sp] ; yes, save the valueFFFFFFFFFFFFEBAC E0C0002B setlo r3,#'+'FFFFFFFFFFFFEBB0 9A026BC8 lea r4,XP25FFFFFFFFFFFFEBB4 31FFFD30 call TSTC ; add?FFFFFFFFFFFFEBB8 31FFFAFB call EXPR3 ; get the second <EXPR3>FFFFFFFFFFFFEBBC XP24:FFFFFFFFFFFFEBBC 47E10008 lw r2,8[sp]FFFFFFFFFFFFEBC0 04110402 add r1,r1,r2 ; add it to the first <EXPR3>; BVS.L QHOW brnch if there's an overflowFFFFFFFFFFFFEBC4 BE007F2A bra XP23 ; else go back for more operationsFFFFFFFFFFFFEBC8 XP25:FFFFFFFFFFFFEBC8 E0C0002D setlo r3,#'-'FFFFFFFFFFFFEBCC 9A026BE0 lea r4,XP45FFFFFFFFFFFFEBD0 31FFFD30 call TSTC ; subtract?FFFFFFFFFFFFEBD4 XP26:FFFFFFFFFFFFEBD4 31FFFAFB call EXPR3 ; get second <EXPR3>FFFFFFFFFFFFEBD8 02108006 neg r1,r1 ; change its signFFFFFFFFFFFFEBDC BE007F0A bra XP24 ; and do an additionFFFFFFFFFFFFEBE0 XP45:FFFFFFFFFFFFEBE0 47E08008 lw r1,8[sp]FFFFFFFFFFFFEBE4 47EF8000 lw lr,[sp]FFFFFFFFFFFFEBE8 37EF8010 ret #16; <EXPR3>::=<EXPR4>( <* or /><EXPR4> )(...FFFFFFFFFFFFEBEC EXPR3:FFFFFFFFFFFFEBEC 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEBF0 67EF8000 sw lr,[sp]FFFFFFFFFFFFEBF4 31FFFB11 call EXPR4 ; get first <EXPR4>FFFFFFFFFFFFEBF8 XP31:FFFFFFFFFFFFEBF8 67E08008 sw r1,8[sp] ; yes, save that first resultFFFFFFFFFFFFEBFC E0C0002A setlo r3,#'*'FFFFFFFFFFFFEC00 9A026C18 lea r4,XP34FFFFFFFFFFFFEC04 31FFFD30 call TSTC ; multiply?FFFFFFFFFFFFEC08 31FFFB11 call EXPR4 ; get second <EXPR4>FFFFFFFFFFFFEC0C 47E10008 lw r2,8[sp]FFFFFFFFFFFFEC10 04110419 muls r1,r1,r2 ; multiply the twoFFFFFFFFFFFFEC14 BE007F2A bra XP31 ; then look for more termsFFFFFFFFFFFFEC18 XP34:FFFFFFFFFFFFEC18 E0C0002F setlo r3,#'/'FFFFFFFFFFFFEC1C 9A026C38 lea r4,XP47FFFFFFFFFFFFEC20 31FFFD30 call TSTC ; divide?FFFFFFFFFFFFEC24 31FFFB11 call EXPR4 ; get second <EXPR4>FFFFFFFFFFFFEC28 04100809 or r2,r1,r0FFFFFFFFFFFFEC2C 47E08008 lw r1,8[sp]FFFFFFFFFFFFEC30 0411041B divs r1,r1,r2 ; do the divisionFFFFFFFFFFFFEC34 BE007E2A bra XP31 ; go back for any more termsFFFFFFFFFFFFEC38 XP47:FFFFFFFFFFFFEC38 47E08008 lw r1,8[sp]FFFFFFFFFFFFEC3C 47EF8000 lw lr,[sp]FFFFFFFFFFFFEC40 37EF8010 ret #16; Functions are called through EXPR4; <EXPR4>::=<variable>; <function>; (<EXPR>)FFFFFFFFFFFFEC44 EXPR4:FFFFFFFFFFFFEC44 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFEC48 67EF8000 sw lr,[sp]FFFFFFFFFFFFEC4C 9A04E14E lea r9,TAB4 ; find possible functionFFFFFFFFFFFFEC50 9A056258 lea r10,TAB4_1FFFFFFFFFFFFEC54 33FFF8C8 jmp EXEC ; branch to function which does subsequent ret for EXPR4FFFFFFFFFFFFEC58 XP40: ; we get here if it wasn't a functionFFFFFFFFFFFFEC58 E0400000 setlo r1,#0FFFFFFFFFFFFEC5C 31FFFB2E call TSTVFFFFFFFFFFFFEC60 BE100088 beq r1,r0,XP41 ; nor a variableFFFFFFFFFFFFEC64 46108000 lw r1,[r1] ; if a variable, return its value in r1FFFFFFFFFFFFEC68 47EF8000 lw lr,[sp]FFFFFFFFFFFFEC6C 37EF8018 ret #24FFFFFFFFFFFFEC70 XP41:FFFFFFFFFFFFEC70 31FFFD3E call TSTNUM ; or is it a number?FFFFFFFFFFFFEC74 BE200049 bne r2,r0,XP46 ; (if not, # of digits will be zero) if so, return it in r1FFFFFFFFFFFFEC78 31FFFB21 call PARN ; check for (EXPR)FFFFFFFFFFFFEC7C XP46:FFFFFFFFFFFFEC7C 47EF8000 lw lr,[sp]FFFFFFFFFFFFEC80 37EF8018 ret #24; Check for a parenthesized expressionFFFFFFFFFFFFEC84 PARN:FFFFFFFFFFFFEC84 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFEC88 67EF8000 sw lr,[sp]FFFFFFFFFFFFEC8C E0C00028 setlo r3,#'('FFFFFFFFFFFFEC90 9A026CB0 lea r4,XP43FFFFFFFFFFFFEC94 31FFFD30 call TSTC ; else look for ( OREXPR )FFFFFFFFFFFFEC98 31FFFA7C call OREXPRFFFFFFFFFFFFEC9C E0C00029 setlo r3,#')'FFFFFFFFFFFFECA0 9A026CB0 lea r4,XP43FFFFFFFFFFFFECA4 31FFFD30 call TSTCFFFFFFFFFFFFECA8 XP42:FFFFFFFFFFFFECA8 47EF8000 lw lr,[sp]FFFFFFFFFFFFECAC 37EF8008 ret #8FFFFFFFFFFFFECB0 XP43:FFFFFFFFFFFFECB0 9A00F6F5 lea r1,msgWhatFFFFFFFFFFFFECB4 BE001BAA bra ERROR; ===== Test for a valid variable name. Returns Z=1 if not; found, else returns Z=0 and the address of the; variable in r1.; Parameters; r1 = 1 = allocate if not found; Returns; r1 = address of variable, zero if not foundFFFFFFFFFFFFECB8 TSTV:FFFFFFFFFFFFECB8 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFECBC 67EF8000 sw lr,[sp]FFFFFFFFFFFFECC0 67E28008 sw r5,8[sp]FFFFFFFFFFFFECC4 04101409 or r5,r1,r0 ; allocate flagFFFFFFFFFFFFECC8 31FFFD55 call IGNBLKFFFFFFFFFFFFECCC 4A808000 lbu r1,[r8] ; look at the program textFFFFFFFFFFFFECD0 A0101740 blt r1,#'@',tstv_notfound ; C=1: not a variableFFFFFFFFFFFFECD4 B2100F40 bne r1,#'@',TV1 ; brnch if not "@" arrayFFFFFFFFFFFFECD8 0A840001 addui r8,r8,#1 ; If it is, it should beFFFFFFFFFFFFECDC 31FFFB21 call PARN ; followed by (EXPR) as its index.FFFFFFFFFFFFECE0 06108600 shli r1,r1,#3; BCS.L QHOW say "How?" if index is too bigFFFFFFFFFFFFECE4 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFECE8 67E08008 sw r1,8[sp] ; save the indexFFFFFFFFFFFFECEC 67EF8000 sw lr,[sp]FFFFFFFFFFFFECF0 31FFFBD5 call SIZEX ; get amount of free memoryFFFFFFFFFFFFECF4 47EF8000 lw lr,[sp]FFFFFFFFFFFFECF8 47E10008 lw r2,8[sp] ; get back the indexFFFFFFFFFFFFECFC BE208044 bltu r2,r1,TV2 ; see if there's enough memoryFFFFFFFFFFFFED00 33FFFC07 jmp QSORRY ; if not, say "Sorry"FFFFFFFFFFFFED04 TV2:FFFFFFFFFFFFED04 9A0090D8 lea r1,VARBGN ; put address of array element...FFFFFFFFFFFFED08 04110405 subu r1,r1,r2 ; into r1 (neg. offset is used)FFFFFFFFFFFFED0C BE0000AA bra TSTVRTFFFFFFFFFFFFED10 TV1:FFFFFFFFFFFFED10 31FFFB4F call getVarName ; get variable nameFFFFFFFFFFFFED14 BE100068 beq r1,r0,TSTVRT ; if not, return r1=0FFFFFFFFFFFFED18 02510009 mov r2,r5FFFFFFFFFFFFED1C 31FFFB75 call findVar ; find or allocateFFFFFFFFFFFFED20 TSTVRT:FFFFFFFFFFFFED20 47E28008 lw r5,8[sp]FFFFFFFFFFFFED24 47EF8000 lw lr,[sp]FFFFFFFFFFFFED28 37EF8018 ret #24 ; r1<>0 (found)FFFFFFFFFFFFED2C tstv_notfound:FFFFFFFFFFFFED2C 47E28008 lw r5,8[sp]FFFFFFFFFFFFED30 47EF8000 lw lr,[sp]FFFFFFFFFFFFED34 E0400000 setlo r1,#0 ; r1=0 if not foundFFFFFFFFFFFFED38 37EF8018 ret #24; Returns; r1 = 6 character variable name + type;FFFFFFFFFFFFED3C getVarName:FFFFFFFFFFFFED3C 0FEF0018 subui sp,sp,#24FFFFFFFFFFFFED40 67EF8000 sw lr,[sp]FFFFFFFFFFFFED44 67E28010 sw r5,16[sp]FFFFFFFFFFFFED48 40808000 lb r1,[r8] ; get first characterFFFFFFFFFFFFED4C 67E08008 sw r1,8[sp] ; save off current nameFFFFFFFFFFFFED50 31FFFA9E call isAlphaFFFFFFFFFFFFED54 BE100388 beq r1,r0,gvn1FFFFFFFFFFFFED58 E1400005 setlo r5,#5 ; loop six more times; check for second/third characterFFFFFFFFFFFFED5C gvn4:FFFFFFFFFFFFED5C 0A840001 addui r8,r8,#1FFFFFFFFFFFFED60 40808000 lb r1,[r8] ; do we have another char ?FFFFFFFFFFFFED64 31FFFAA6 call isAlnumFFFFFFFFFFFFED68 BE100168 beq r1,r0,gvn2 ; nopeFFFFFFFFFFFFED6C 47E08008 lw r1,8[sp] ; get varnameFFFFFFFFFFFFED70 06109000 shli r1,r1,#8FFFFFFFFFFFFED74 40810000 lb r2,[r8]FFFFFFFFFFFFED78 04110409 or r1,r1,r2 ; add in new charFFFFFFFFFFFFED7C 67E08008 sw r1,8[sp] ; save off name againFFFFFFFFFFFFED80 BE02FEEF loop r5,gvn4; now ignore extra variable name charactersFFFFFFFFFFFFED84 gvn6:FFFFFFFFFFFFED84 0A840001 addui r8,r8,#1FFFFFFFFFFFFED88 40808000 lb r1,[r8]FFFFFFFFFFFFED8C 31FFFAA6 call isAlnumFFFFFFFFFFFFED90 BE107FA9 bne r1,r0,gvn6 ; keep looping as long as we have identifier chars; check for a variable typeFFFFFFFFFFFFED94 gvn2:FFFFFFFFFFFFED94 40808000 lb r1,[r8]FFFFFFFFFFFFED98 B0100425 beq r1,#'%',gvn3FFFFFFFFFFFFED9C B0100324 beq r1,#'$',gvn3FFFFFFFFFFFFEDA0 E0400000 setlo r1,#0FFFFFFFFFFFFEDA4 0E840001 subui r8,r8,#1; insert variable type indicator and returnFFFFFFFFFFFFEDA8 gvn3:FFFFFFFFFFFFEDA8 0A840001 addui r8,r8,#1FFFFFFFFFFFFEDAC 47E10008 lw r2,8[sp]FFFFFFFFFFFFEDB0 06211000 shli r2,r2,#8FFFFFFFFFFFFEDB4 04110409 or r1,r1,r2 ; add in variable typeFFFFFFFFFFFFEDB8 47EF8000 lw lr,[sp]FFFFFFFFFFFFEDBC 47E28010 lw r5,16[sp]FFFFFFFFFFFFEDC0 37EF8018 ret #24 ; return Z = 0, r1 = varname; not a variable nameFFFFFFFFFFFFEDC4 gvn1:FFFFFFFFFFFFEDC4 47EF8000 lw lr,[sp]FFFFFFFFFFFFEDC8 47E28010 lw r5,16[sp]FFFFFFFFFFFFEDCC E0400000 setlo r1,#0 ; return Z = 1 if not a varnameFFFFFFFFFFFFEDD0 37EF8018 ret #24; Find variable; r1 = varname; r2 = allocate flag; Returns; r1 = variable address, Z =0 if found / allocated, Z=1 if not foundFFFFFFFFFFFFEDD4 findVar:FFFFFFFFFFFFEDD4 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEDD8 67EF8000 sw lr,[sp]FFFFFFFFFFFFEDDC 67E38008 sw r7,8[sp]FFFFFFFFFFFFEDE0 460190D8 lw r3,VARBGNFFFFFFFFFFFFEDE4 fv4:FFFFFFFFFFFFEDE4 46338000 lw r7,[r3] ; get varname / typeFFFFFFFFFFFFEDE8 BE700108 beq r7,r0,fv3 ; no more vars ?FFFFFFFFFFFFEDEC BE138128 beq r1,r7,fv1 ; match ?FFFFFFFFFFFFEDF0 08318008 add r3,r3,#8 ; move to next varFFFFFFFFFFFFEDF4 460390F8 lw r7,STKBOTFFFFFFFFFFFFEDF8 BE33FF60 blt r3,r7,fv4 ; loop back to look at next var; variable not found; no more memoryFFFFFFFFFFFFEDFC E07FF748 setlo r1,#<msgVarSpaceFFFFFFFFFFFFEE00 F04FFFFF sethi r1,#>msgVarSpaceFFFFFFFFFFFFEE04 BE00112A bra ERROR; lw lr,[sp]; lw r7,4[sp]; add sp,sp,#8; lw r1,#0; ret; variable not found; allocate new ?FFFFFFFFFFFFEE08 fv3:FFFFFFFFFFFFEE08 BE2000C8 beq r2,r0,fv2FFFFFFFFFFFFEE0C 66308000 sw r1,[r3] ; save varname / type; found variable; return addressFFFFFFFFFFFFEE10 fv1:FFFFFFFFFFFFEE10 0A308008 addui r1,r3,#8FFFFFFFFFFFFEE14 47EF8000 lw lr,[sp]FFFFFFFFFFFFEE18 47E38008 lw r7,8[sp]FFFFFFFFFFFFEE1C 37EF8010 ret #16 ; Z = 0, r1 = address; didn't find var and not allocatingFFFFFFFFFFFFEE20 fv2:FFFFFFFFFFFFEE20 47EF8000 lw lr,[sp]FFFFFFFFFFFFEE24 47E38008 lw r7,8[sp]FFFFFFFFFFFFEE28 0BEF0010 addui sp,sp,#16 ; Z = 0, r1 = addressFFFFFFFFFFFFEE2C E0400000 setlo r1,#0 ; Z = 1, r1 = 0FFFFFFFFFFFFEE30 37EF8000 ret; ===== Multiplies the 32 bit values in r1 and r2, returning; the 32 bit result in r1.;; ===== Divide the 32 bit value in r2 by the 32 bit value in r3.; Returns the 32 bit quotient in r1, remainder in r2;; r2 = a; r3 = b; r6 = remainder; r7 = iteration count; r8 = sign;; q = a / b; a = r1; b = r2; q = r2; ===== The PEEK function returns the byte stored at the address; contained in the following expression.;FFFFFFFFFFFFEE34 PEEK:FFFFFFFFFFFFEE34 31FFFB21 call PARN ; get the memory addressFFFFFFFFFFFFEE38 4A108000 lbu r1,[r1] ; get the addressed byteFFFFFFFFFFFFEE3C 47EF8000 lw lr,[sp] ; and return itFFFFFFFFFFFFEE40 37EF8018 ret #24; ===== The PEEK function returns the byte stored at the address; contained in the following expression.;FFFFFFFFFFFFEE44 PEEKC:FFFFFFFFFFFFEE44 31FFFB21 call PARN ; get the memory addressFFFFFFFFFFFFEE48 1410FFFE andi r1,r1,#-2 ; align to char addressFFFFFFFFFFFFEE4C 4C108000 lcu r1,[r1] ; get the addressed charFFFFFFFFFFFFEE50 47EF8000 lw lr,[sp] ; and return itFFFFFFFFFFFFEE54 37EF8018 ret #24; ===== The PEEK function returns the byte stored at the address; contained in the following expression.;FFFFFFFFFFFFEE58 PEEKH:FFFFFFFFFFFFEE58 31FFFB21 call PARN ; get the memory addressFFFFFFFFFFFFEE5C 1410FFFC andi r1,r1,#-4 ; align to half-word addressFFFFFFFFFFFFEE60 4E108000 lhu r1,[r1] ; get the addressed charFFFFFFFFFFFFEE64 47EF8000 lw lr,[sp] ; and return itFFFFFFFFFFFFEE68 37EF8018 ret #24; ===== The PEEK function returns the byte stored at the address; contained in the following expression.;FFFFFFFFFFFFEE6C PEEKW:FFFFFFFFFFFFEE6C 31FFFB21 call PARN ; get the memory addressFFFFFFFFFFFFEE70 1410FFF8 andi r1,r1,#-8 ; align to word addressFFFFFFFFFFFFEE74 46108000 lw r1,[r1] ; get the addressed wordFFFFFFFFFFFFEE78 47EF8000 lw lr,[sp] ; and return itFFFFFFFFFFFFEE7C 37EF8018 ret #24; user function call; call the user function with argument in r1FFFFFFFFFFFFEE80 USRX:FFFFFFFFFFFFEE80 31FFFB21 call PARN ; get expression valueFFFFFFFFFFFFEE84 67E40008 sw r8,8[sp] ; save the text pointerFFFFFFFFFFFFEE88 46011028 lw r2,usrJmp ; get usr vectorFFFFFFFFFFFFEE8C 342F8000 jal r31,[r2] ; jump to the subroutineFFFFFFFFFFFFEE90 47E40008 lw r8,8[sp] ; restore the text pointerFFFFFFFFFFFFEE94 47EF8000 lw lr,[sp]FFFFFFFFFFFFEE98 37EF8018 ret #24; ===== The RND function returns a random number from 1 to; the value of the following expression in D0.;FFFFFFFFFFFFEE9C RND:FFFFFFFFFFFFEE9C 31FFFB21 call PARN ; get the upper limitFFFFFFFFFFFFEEA0 BE100168 beq r1,r0,rnd2 ; it must be positive and non-zeroFFFFFFFFFFFFEEA4 BE100100 blt r1,r0,rnd1FFFFFFFFFFFFEEA8 04100809 lw r2,r1FFFFFFFFFFFFEEAC 00000050 gran ; generate a random numberFFFFFFFFFFFFEEB0 020088A8 mfspr r1,rand ; get the numberFFFFFFFFFFFFEEB4 31FFFBB7 call modu4 ; RND(n)=MOD(number,n)+1FFFFFFFFFFFFEEB8 0A108001 addui r1,r1,#1FFFFFFFFFFFFEEBC 47EF8000 lw lr,[sp]FFFFFFFFFFFFEEC0 37EF8018 ret #24FFFFFFFFFFFFEEC4 rnd1:FFFFFFFFFFFFEEC4 9A00F7B9 lea r1,msgRNDBadFFFFFFFFFFFFEEC8 BE000B0A bra ERRORFFFFFFFFFFFFEECC rnd2:FFFFFFFFFFFFEECC 00000050 granFFFFFFFFFFFFEED0 020088A8 mfspr r1,randFFFFFFFFFFFFEED4 47EF8000 lw lr,[sp]FFFFFFFFFFFFEED8 37EF8018 ret #24; r = a mod b; a = r1; b = r2; r = r6FFFFFFFFFFFFEEDC modu4:FFFFFFFFFFFFEEDC 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFEEE0 67E18000 sw r3,[sp]FFFFFFFFFFFFEEE4 67E28008 sw r5,8[sp]FFFFFFFFFFFFEEE8 67E30010 sw r6,16[sp]FFFFFFFFFFFFEEEC 67E38018 sw r7,24[sp]FFFFFFFFFFFFEEF0 1603803F lw r7,#63 ; n = 64FFFFFFFFFFFFEEF4 0452940A xor r5,r5,r5 ; w = 0FFFFFFFFFFFFEEF8 0463180A xor r6,r6,r6 ; r = 0FFFFFFFFFFFFEEFC mod2:FFFFFFFFFFFFEEFC 06108202 roli r1,r1,#1 ; a <<= 1FFFFFFFFFFFFEF00 14118001 andi r3,r1,#1FFFFFFFFFFFFEF04 06630200 shli r6,r6,#1 ; r <<= 1FFFFFFFFFFFFEF08 04619809 or r6,r6,r3FFFFFFFFFFFFEF0C 1410FFFE andi r1,r1,#-2FFFFFFFFFFFFEF10 BE230047 bgtu r2,r6,mod1 ; b < r ?FFFFFFFFFFFFEF14 04611805 subu r6,r6,r2 ; r -= bFFFFFFFFFFFFEF18 mod1:FFFFFFFFFFFFEF18 BE03FF2F loop r7,mod2 ; n--FFFFFFFFFFFFEF1C 02608009 mov r1,r6FFFFFFFFFFFFEF20 47E18000 lw r3,[sp]FFFFFFFFFFFFEF24 47E28008 lw r5,8[sp]FFFFFFFFFFFFEF28 47E30010 lw r6,16[sp]FFFFFFFFFFFFEF2C 47E38018 lw r7,24[sp]FFFFFFFFFFFFEF30 37EF8020 ret #32; ===== The ABS function returns an absolute value in r2.;FFFFFFFFFFFFEF34 ABS:FFFFFFFFFFFFEF34 31FFFB21 call PARN ; get the following expr.'s valueFFFFFFFFFFFFEF38 02108007 abs r1,r1FFFFFFFFFFFFEF3C 47EF8000 lw lr,[sp]FFFFFFFFFFFFEF40 37EF8018 ret #24; ===== The SGN function returns the sign in r1. +1,0, or -1;FFFFFFFFFFFFEF44 SGN:FFFFFFFFFFFFEF44 31FFFB21 call PARN ; get the following expr.'s valueFFFFFFFFFFFFEF48 02108008 sgn r1,r1FFFFFFFFFFFFEF4C 47EF8000 lw lr,[sp]FFFFFFFFFFFFEF50 37EF8018 ret #24; ===== The SIZE function returns the size of free memory in r1.;FFFFFFFFFFFFEF54 SIZEX:FFFFFFFFFFFFEF54 460090D8 lw r1,VARBGN ; get the number of free bytes...FFFFFFFFFFFFEF58 460110D0 lw r2,TXTUNF ; between 'TXTUNF' and 'VARBGN'FFFFFFFFFFFFEF5C 04110405 subu r1,r1,r2FFFFFFFFFFFFEF60 47EF8000 lw lr,[sp]FFFFFFFFFFFFEF64 37EF8018 ret #24 ; return the number in r2;******************************************************************;; *** SETVAL *** FIN *** ENDCHK *** ERROR (& friends) ***;; 'SETVAL' expects a variable, followed by an equal sign and then; an expression. It evaluates the expression and sets the variable; to that value.;; 'FIN' checks the end of a command. If it ended with ":",; execution continues. If it ended with a CR, it finds the; the next line and continues from there.;; 'ENDCHK' checks if a command is ended with a CR. This is; required in certain commands, such as GOTO, RETURN, STOP, etc.;; 'ERROR' prints the string pointed to by r1. It then prints the; line pointed to by CURRNT with a "?" inserted at where the; old text pointer (should be on top of the stack) points to.; Execution of Tiny BASIC is stopped and a warm start is done.; If CURRNT is zero (indicating a direct command), the direct; command is not printed. If CURRNT is -1 (indicating; 'INPUT' command in progress), the input line is not printed; and execution is not terminated but continues at 'INPERR'.;; Related to 'ERROR' are the following:; 'QWHAT' saves text pointer on stack and gets "What?" message.; 'AWHAT' just gets the "What?" message and jumps to 'ERROR'.; 'QSORRY' and 'ASORRY' do the same kind of thing.; 'QHOW' and 'AHOW' also do this for "How?".;; returns; r2 = variable's address;FFFFFFFFFFFFEF68 SETVAL:FFFFFFFFFFFFEF68 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFEF6C 67EF8000 sw lr,[sp]FFFFFFFFFFFFEF70 E0400001 setlo r1,#1 ; allocate varFFFFFFFFFFFFEF74 31FFFB2E call TSTV ; variable name?FFFFFFFFFFFFEF78 BE100069 bne r1,r0,sv2FFFFFFFFFFFFEF7C 9A00F7A2 lea r1,msgVarFFFFFFFFFFFFEF80 BE00054A bra ERRORFFFFFFFFFFFFEF84 sv2:FFFFFFFFFFFFEF84 67E08008 sw r1,8[sp] ; save the variable's addressFFFFFFFFFFFFEF88 E0C0003D setlo r3,#'='FFFFFFFFFFFFEF8C 9A026FAC lea r4,SV1FFFFFFFFFFFFEF90 31FFFD30 call TSTC ; get past the "=" signFFFFFFFFFFFFEF94 31FFFA7C call OREXPR ; evaluate the expressionFFFFFFFFFFFFEF98 47E10008 lw r2,8[sp] ; get back the variable's addressFFFFFFFFFFFFEF9C 66208000 sw r1,[r2] ; and save value in the variableFFFFFFFFFFFFEFA0 04200409 lw r1,r2 ; return r1 = variable addressFFFFFFFFFFFFEFA4 47EF8000 lw lr,[sp]FFFFFFFFFFFFEFA8 37EF8010 ret #16FFFFFFFFFFFFEFAC SV1:FFFFFFFFFFFFEFAC BE0003CA bra QWHAT ; if no "=" signFFFFFFFFFFFFEFB0 FIN:FFFFFFFFFFFFEFB0 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFEFB4 67EF8000 sw lr,[sp]FFFFFFFFFFFFEFB8 E0C0003A setlo r3,#':'FFFFFFFFFFFFEFBC 9A026FCC lea r4,FI1FFFFFFFFFFFFEFC0 31FFFD30 call TSTC ; *** FIN ***FFFFFFFFFFFFEFC4 0BEF0008 addui sp,sp,#8 ; if ":", discard return addressFFFFFFFFFFFFEFC8 BE0020AA bra RUNSML ; continue on the same lineFFFFFFFFFFFFEFCC FI1:FFFFFFFFFFFFEFCC E0C0000D setlo r3,#CRFFFFFFFFFFFFEFD0 9A026FE4 lea r4,FI2FFFFFFFFFFFFEFD4 31FFFD30 call TSTC ; not ":", is it a CR?FFFFFFFFFFFFEFD8 47EF8000 lw lr,[sp] ; else return to the callerFFFFFFFFFFFFEFDC 0BEF0008 addui sp,sp,#8 ; yes, purge return addressFFFFFFFFFFFFEFE0 BE001EAA bra RUNNXL ; execute the next lineFFFFFFFFFFFFEFE4 FI2:FFFFFFFFFFFFEFE4 47EF8000 lw lr,[sp] ; else return to the callerFFFFFFFFFFFFEFE8 37EF8008 ret #8; Check that there is nothing else on the line; Registers Affected; r1;FFFFFFFFFFFFEFEC ENDCHK:FFFFFFFFFFFFEFEC 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFEFF0 67EF8000 sw lr,[sp]FFFFFFFFFFFFEFF4 31FFFD55 call IGNBLKFFFFFFFFFFFFEFF8 40808000 lb r1,[r8]FFFFFFFFFFFFEFFC B010040D beq r1,#CR,ec1 ; does it end with a CR?FFFFFFFFFFFFF000 E07FF87C setlo r1,#<msgExtraCharsFFFFFFFFFFFFF004 F04FFFFF sethi r1,#>msgExtraCharsFFFFFFFFFFFFF008 33FFFC0A jmp ERRORFFFFFFFFFFFFF00C ec1:FFFFFFFFFFFFF00C 47EF8000 lw lr,[sp]FFFFFFFFFFFFF010 37EF8008 ret #8FFFFFFFFFFFFF014 TOOBIG:FFFFFFFFFFFFF014 9A00F867 lea r1,msgTooBigFFFFFFFFFFFFF018 BE00008A bra ERRORFFFFFFFFFFFFF01C QSORRY:FFFFFFFFFFFFF01C 9A00F6FD lea r1,SRYMSGFFFFFFFFFFFFF020 BE00004A bra ERRORFFFFFFFFFFFFF024 QWHAT:FFFFFFFFFFFFF024 9A00F6F5 lea r1,msgWhatFFFFFFFFFFFFF028 ERROR:FFFFFFFFFFFFF028 31FFFD81 call PRMESG ; display the error messageFFFFFFFFFFFFF02C 46009090 lw r1,CURRNT ; get the current line numberFFFFFFFFFFFFF030 BE107EA8 beq r1,r0,WSTART ; if zero, do a warm startFFFFFFFFFFFFF034 B01D9AFF beq r1,#-1,INPERR ; is the line no. pointer = -1? if so, redo inputFFFFFFFFFFFFF038 40828000 lb r5,[r8] ; save the char. pointed toFFFFFFFFFFFFF03C 60800000 sb r0,[r8] ; put a zero where the error isFFFFFFFFFFFFF040 46009090 lw r1,CURRNT ; point to start of current lineFFFFFFFFFFFFF044 31FFFD1E call PRTLN ; display the line in error up to the 0FFFFFFFFFFFFF048 04101809 or r6,r1,r0 ; save off end pointerFFFFFFFFFFFFF04C 60828000 sb r5,[r8] ; restore the characterFFFFFFFFFFFFF050 E040003F setlo r1,#'?' ; display a "?"FFFFFFFFFFFFF054 31FFF7D5 call GOOUTFFFFFFFFFFFFF058 E0800000 setlo r2,#0 ; stop char = 0FFFFFFFFFFFFF05C 0E608001 subui r1,r6,#1 ; point back to the error char.FFFFFFFFFFFFF060 31FFFC93 call PRTSTG ; display the rest of the lineFFFFFFFFFFFFF064 33FFF801 jmp WSTART ; and do a warm start;******************************************************************;; *** GETLN *** FNDLN (& friends) ***;; 'GETLN' reads in input line into 'BUFFER'. It first prompts with; the character in r3 (given by the caller), then it fills the; buffer and echos. It ignores LF's but still echos; them back. Control-H is used to delete the last character; entered (if there is one), and control-X is used to delete the; whole line and start over again. CR signals the end of a line,; and causes 'GETLN' to return.;;FFFFFFFFFFFFF068 GETLN:FFFFFFFFFFFFF068 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFF06C 67EF8000 sw lr,[sp]FFFFFFFFFFFFF070 67E28008 sw r5,8[sp]FFFFFFFFFFFFF074 31FFF7D5 call GOOUT ; display the promptFFFFFFFFFFFFF078 E0400001 setlo r1,#1 ; turn on cursor flashFFFFFFFFFFFFF07C 60009052 sb r1,cursFlashFFFFFFFFFFFFF080 E0400020 setlo r1,#' ' ; and a spaceFFFFFFFFFFFFF084 31FFF7D5 call GOOUTFFFFFFFFFFFFF088 E200111B setlo r8,#<BUFFER ; r8 is the buffer pointerFFFFFFFFFFFFF08C F2000000 sethi r8,#>BUFFERFFFFFFFFFFFFF090 GL1:FFFFFFFFFFFFF090 31FFFD77 call CHKIO ; check keyboardFFFFFFFFFFFFF094 BE107FE8 beq r1,r0,GL1 ; wait for a char. to come inFFFFFFFFFFFFF098 B0100B08 beq r1,#CTRLH,GL3 ; delete last character? if soFFFFFFFFFFFFF09C B0101418 beq r1,#CTRLX,GL4 ; delete the whole line?FFFFFFFFFFFFF0A0 B010020D beq r1,#CR,GL2 ; accept a CRFFFFFFFFFFFFF0A4 A81FFB20 bltu r1,#' ',GL1 ; if other control char., discard itFFFFFFFFFFFFF0A8 GL2:FFFFFFFFFFFFF0A8 60808000 sb r1,[r8] ; save the char.FFFFFFFFFFFFF0AC 08840001 add r8,r8,#1FFFFFFFFFFFFF0B0 31FFF7D5 call GOOUT ; echo the char back outFFFFFFFFFFFFF0B4 4080FFFF lb r1,-1[r8] ; get char back (GOOUT destroys r1)FFFFFFFFFFFFF0B8 B010190D beq r1,#CR,GL7 ; if it's a CR, end the lineFFFFFFFFFFFFF0BC 1280916A cmpui r1,r8,#BUFFER+BUFLEN-1 ; any more room?FFFFFFFFFFFFF0C0 BE107E80 blt r1,r0,GL1 ; yes: get some more, else delete last char.FFFFFFFFFFFFF0C4 GL3:FFFFFFFFFFFFF0C4 E0400008 setlo r1,#CTRLH ; delete a char. if possibleFFFFFFFFFFFFF0C8 31FFF7D5 call GOOUTFFFFFFFFFFFFF0CC E0400020 setlo r1,#' 'FFFFFFFFFFFFF0D0 31FFF7D5 call GOOUTFFFFFFFFFFFFF0D4 1280911B cmpui r1,r8,#BUFFER ; any char.'s left?FFFFFFFFFFFFF0D8 BE107DC2 ble r1,r0,GL1 ; if notFFFFFFFFFFFFF0DC E0400008 setlo r1,#CTRLH ; if so, finish the BS-space-BS sequenceFFFFFFFFFFFFF0E0 31FFF7D5 call GOOUTFFFFFFFFFFFFF0E4 0C840001 sub r8,r8,#1 ; decrement the text pointerFFFFFFFFFFFFF0E8 BE007D4A bra GL1 ; back for moreFFFFFFFFFFFFF0EC GL4:FFFFFFFFFFFFF0EC 04800409 or r1,r8,r0 ; delete the whole lineFFFFFFFFFFFFF0F0 0E12911B subui r5,r1,#BUFFER ; figure out how many backspaces we needFFFFFFFFFFFFF0F4 BE500108 beq r5,r0,GL6 ; if none needed, brnchFFFFFFFFFFFFF0F8 GL5:FFFFFFFFFFFFF0F8 E0400008 setlo r1,#CTRLH ; and display BS-space-BS sequencesFFFFFFFFFFFFF0FC 31FFF7D5 call GOOUTFFFFFFFFFFFFF100 E0400020 setlo r1,#' 'FFFFFFFFFFFFF104 31FFF7D5 call GOOUTFFFFFFFFFFFFF108 E0400008 setlo r1,#CTRLHFFFFFFFFFFFFF10C 31FFF7D5 call GOOUTFFFFFFFFFFFFF110 BE02FF4F loop r5,GL5FFFFFFFFFFFFF114 GL6:FFFFFFFFFFFFF114 9A04111B lea r8,BUFFER ; reinitialize the text pointerFFFFFFFFFFFFF118 BE007BCA bra GL1 ; and go back for moreFFFFFFFFFFFFF11C GL7:FFFFFFFFFFFFF11C E0400000 setlo r1,#0 ; turn off cursor flashFFFFFFFFFFFFF120 60009052 sb r1,cursFlashFFFFFFFFFFFFF124 E040000A setlo r1,#LF ; echo a LF for the CRFFFFFFFFFFFFF128 31FFF7D5 call GOOUTFFFFFFFFFFFFF12C 47EF8000 lw lr,[sp]FFFFFFFFFFFFF130 47E28008 lw r5,8[sp]FFFFFFFFFFFFF134 37EF8010 ret #16; 'FNDLN' finds a line with a given line no. (in r1) in the; text save area. r9 is used as the text pointer. If the line; is found, r9 will point to the beginning of that line; (i.e. the high byte of the line no.), and flags are Z.; If that line is not there and a line with a higher line no.; is found, r9 points there and flags are NC & NZ. If we reached; the end of the text save area and cannot find the line, flags; are C & NZ.; Z=1 if line found; N=1 if end of text save area; Z=0 & N=0 if higher line found; r0 = 1 <= line is found; r9 = pointer to line; r0 = 0 <= line is not found; r9 = zero, if end of text area; r9 = otherwise higher line number;; 'FNDLN' will initialize r9 to the beginning of the text save; area to start the search. Some other entries of this routine; will not initialize r9 and do the search.; 'FNDLNP' will start with r9 and search for the line no.; 'FNDNXT' will bump r9 by 2, find a CR and then start search.; 'FNDSKP' uses r9 to find a CR, and then starts the search.; return Z=1 if line is found, r9 = pointer to line;; Parameters; r1 = line number to find;FFFFFFFFFFFFF138 FNDLN:FFFFFFFFFFFFF138 AC1003FF bleui r1,#0xFFFF,fl1 ; line no. must be < 65535FFFFFFFFFFFFF13C 9A00F78C lea r1,msgLineRangeFFFFFFFFFFFFF140 BE00774A bra ERRORFFFFFFFFFFFFF144 fl1:FFFFFFFFFFFFF144 4604DF68 lw r9,TXTBGN ; init. the text save pointerFFFFFFFFFFFFF148 FNDLNP:FFFFFFFFFFFFF148 460510D0 lw r10,TXTUNF ; check if we passed the endFFFFFFFFFFFFF14C 0EA50001 subui r10,r10,#1FFFFFFFFFFFFF150 BE950127 bgtu r9,r10,FNDRET1 ; if so, return with r9=0,r1=0FFFFFFFFFFFFF154 4A918000 lbu r3,[r9] ; get low order byte of line numberFFFFFFFFFFFFF158 4A910001 lbu r2,1[r9] ; get high order byteFFFFFFFFFFFFF15C 06211000 shli r2,r2,#8FFFFFFFFFFFFF160 04218809 or r2,r2,r3 ; build whole line numberFFFFFFFFFFFFF164 BE110127 bgtu r1,r2,FNDNXT ; is this the line we want? no, not there yetFFFFFFFFFFFFF168 BE1100C8 beq r1,r2,FNDRET2FFFFFFFFFFFFF16C FNDRET:FFFFFFFFFFFFF16C 0410840A xor r1,r1,r1 ; line not found, but r9=next line pointerFFFFFFFFFFFFF170 37EF8000 ret ; return the cond. codesFFFFFFFFFFFFF174 FNDRET1:FFFFFFFFFFFFF174 0494A40A xor r9,r9,r9 ; no higher lineFFFFFFFFFFFFF178 0410840A xor r1,r1,r1 ; line not foundFFFFFFFFFFFFF17C 37EF8000 retFFFFFFFFFFFFF180 FNDRET2:FFFFFFFFFFFFF180 E0400001 setlo r1,#1 ; line foundFFFFFFFFFFFFF184 37EF8000 retFFFFFFFFFFFFF188 FNDNXT:FFFFFFFFFFFFF188 0A948002 addui r9,r9,#2 ; find the next lineFFFFFFFFFFFFF18C FNDSKP:FFFFFFFFFFFFF18C 4A910000 lbu r2,[r9]FFFFFFFFFFFFF190 0A948001 addui r9,r9,#1FFFFFFFFFFFFF194 B22FFE0D bnei r2,#CR,FNDSKP ; try to find a CR, keep lookingFFFFFFFFFFFFF198 BE007D8A bra FNDLNP ; check if end of text;******************************************************************; 'MVUP' moves a block up from where r1 points to where r2 points; until r1=r3;FFFFFFFFFFFFF19C MVUP1:FFFFFFFFFFFFF19C 40120000 lb r4,[r1]FFFFFFFFFFFFF1A0 60220000 sb r4,[r2]FFFFFFFFFFFFF1A4 08108001 add r1,r1,#1FFFFFFFFFFFFF1A8 08210001 add r2,r2,#1FFFFFFFFFFFFF1AC MVUP:FFFFFFFFFFFFF1AC BE11FF89 bne r1,r3,MVUP1FFFFFFFFFFFFF1B0 MVRET:FFFFFFFFFFFFF1B0 37EF8000 ret; 'MVDOWN' moves a block down from where r1 points to where r2; points until r1=r3;FFFFFFFFFFFFF1B4 MVDOWN1:FFFFFFFFFFFFF1B4 0C108001 sub r1,r1,#1FFFFFFFFFFFFF1B8 0C210001 sub r2,r2,#1FFFFFFFFFFFFF1BC 40120000 lb r4,[r1]FFFFFFFFFFFFF1C0 60220000 sb r4,[r2]FFFFFFFFFFFFF1C4 MVDOWN:FFFFFFFFFFFFF1C4 BE11FF89 bne r1,r3,MVDOWN1FFFFFFFFFFFFF1C8 37EF8000 ret; 'POPA' restores the 'FOR' loop variable save area from the stack;; 'PUSHA' stacks for 'FOR' loop variable save area onto the stack;; Note: a single zero word is stored on the stack in the; case that no FOR loops need to be saved. This needs to be; done because PUSHA / POPA is called all the time.FFFFFFFFFFFFF1CC POPA:FFFFFFFFFFFFF1CC 47E08000 lw r1,[sp] ; restore LOPVAR, but zero means no moreFFFFFFFFFFFFF1D0 660090A8 sw r1,LOPVARFFFFFFFFFFFFF1D4 BE100148 beq r1,r0,PP1FFFFFFFFFFFFF1D8 47E08020 lw r1,32[sp] ; if not zero, restore the restFFFFFFFFFFFFF1DC 660090C8 sw r1,LOPPTFFFFFFFFFFFFF1E0 47E08018 lw r1,24[sp]FFFFFFFFFFFFF1E4 660090C0 sw r1,LOPLNFFFFFFFFFFFFF1E8 47E08010 lw r1,16[sp]FFFFFFFFFFFFF1EC 660090B8 sw r1,LOPLMTFFFFFFFFFFFFF1F0 47E08008 lw r1,8[sp]FFFFFFFFFFFFF1F4 660090B0 sw r1,LOPINCFFFFFFFFFFFFF1F8 37EF8028 ret #40FFFFFFFFFFFFF1FC PP1:FFFFFFFFFFFFF1FC 37EF8008 ret #8FFFFFFFFFFFFF200 PUSHA:FFFFFFFFFFFFF200 460090F8 lw r1,STKBOT ; Are we running out of stack room?FFFFFFFFFFFFF204 0A108028 addui r1,r1,#40 ; we might need this many bytesFFFFFFFFFFFFF208 BFE0F0A4 bltu sp,r1,QSORRY ; out of stack spaceFFFFFFFFFFFFF20C 460090A8 lw r1,LOPVAR ; save loop variablesFFFFFFFFFFFFF210 BE100188 beq r1,r0,PU1 ; if LOPVAR is zero, that's allFFFFFFFFFFFFF214 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFF218 67E08000 sw r1,[sp]FFFFFFFFFFFFF21C 460090C8 lw r1,LOPPTFFFFFFFFFFFFF220 67E08020 sw r1,32[sp] ; else save all the othersFFFFFFFFFFFFF224 460090C0 lw r1,LOPLNFFFFFFFFFFFFF228 67E08018 sw r1,24[sp]FFFFFFFFFFFFF22C 460090B8 lw r1,LOPLMTFFFFFFFFFFFFF230 67E08010 sw r1,16[sp]FFFFFFFFFFFFF234 460090B0 lw r1,LOPINCFFFFFFFFFFFFF238 67E08008 sw r1,8[sp]FFFFFFFFFFFFF23C 37EF8000 retFFFFFFFFFFFFF240 PU1:FFFFFFFFFFFFF240 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFF244 67E08000 sw r1,[sp]FFFFFFFFFFFFF248 37EF8000 ret;******************************************************************;; *** PRTSTG *** QTSTG *** PRTNUM *** PRTLN ***;; 'PRTSTG' prints a string pointed to by r3. It stops printing; and returns to the caller when either a CR is printed or when; the next byte is the same as what was passed in r4 by the; caller.;; 'QTSTG' looks for an underline (back-arrow on some systems),; single-quote, or double-quote. If none of these are found, returns; to the caller. If underline, outputs a CR without a LF. If single; or double quote, prints the quoted string and demands a matching; end quote. After the printing, the next i-word of the caller is; skipped over (usually a branch instruction).;; 'PRTNUM' prints the 32 bit number in r3, leading blanks are added if; needed to pad the number of spaces to the number in r4.; However, if the number of digits is larger than the no. in; r4, all digits are printed anyway. Negative sign is also; printed and counted in, positive sign is not.;; 'PRTLN' prints the saved text line pointed to by r3; with line no. and all.;; r1 = pointer to string; r2 = stop character; return r1 = pointer to end of line + 1FFFFFFFFFFFFF24C PRTSTG:FFFFFFFFFFFFF24C 0FEF0020 subui sp,sp,#32FFFFFFFFFFFFF250 67E28000 sw r5,[sp]FFFFFFFFFFFFF254 67E28008 sw r5,8[sp]FFFFFFFFFFFFF258 67E38010 sw r7,16[sp]FFFFFFFFFFFFF25C 67EF8018 sw lr,24[sp]FFFFFFFFFFFFF260 02128009 mov r5,r1 ; r5 = pointerFFFFFFFFFFFFF264 02230009 mov r6,r2 ; r6 = stop charFFFFFFFFFFFFF268 PS1:FFFFFFFFFFFFF268 4A538000 lbu r7,[r5] ; get a text characterFFFFFFFFFFFFF26C 0A528001 addui r5,r5,#1FFFFFFFFFFFFF270 BE7300C8 beq r7,r6,PRTRET ; same as stop character? if so, returnFFFFFFFFFFFFF274 02708009 mov r1,r7FFFFFFFFFFFFF278 31FFF7D5 call GOOUT ; display the char.FFFFFFFFFFFFF27C B27FFB0D bnei r7,#CR,PS1 ; is it a C.R.? no, go back for moreFFFFFFFFFFFFF280 E040000A setlo r1,#LF ; yes, add a L.F.FFFFFFFFFFFFF284 31FFF7D5 call GOOUTFFFFFFFFFFFFF288 PRTRET:FFFFFFFFFFFFF288 02710009 mov r2,r7 ; return r2 = stop charFFFFFFFFFFFFF28C 02508009 mov r1,r5 ; return r1 = line pointerFFFFFFFFFFFFF290 47EF8018 lw lr,24[sp]FFFFFFFFFFFFF294 47E38010 lw r7,16[sp]FFFFFFFFFFFFF298 47E28008 lw r5,8[sp]FFFFFFFFFFFFF29C 47E28000 lw r5,[sp]FFFFFFFFFFFFF2A0 37EF8020 ret #32 ; then returnFFFFFFFFFFFFF2A4 QTSTG:FFFFFFFFFFFFF2A4 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFF2A8 67EF8000 sw lr,[sp]FFFFFFFFFFFFF2AC E0C00022 setlo r3,#'"'FFFFFFFFFFFFF2B0 9A0272D4 lea r4,QT3FFFFFFFFFFFFF2B4 31FFFD30 call TSTC ; *** QTSTG ***FFFFFFFFFFFFF2B8 E0800022 setlo r2,#'"' ; it is a "FFFFFFFFFFFFF2BC QT1:FFFFFFFFFFFFF2BC 04800409 or r1,r8,r0FFFFFFFFFFFFF2C0 31FFFC93 call PRTSTG ; print until anotherFFFFFFFFFFFFF2C4 04102009 lw r8,r1FFFFFFFFFFFFF2C8 B2200D0A bne r2,#LF,QT2 ; was last one a CR?FFFFFFFFFFFFF2CC 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFF2D0 BE00072A bra RUNNXL ; if so, run next lineFFFFFFFFFFFFF2D4 QT3:FFFFFFFFFFFFF2D4 E0C00027 setlo r3,#''''FFFFFFFFFFFFF2D8 9A0272E8 lea r4,QT4FFFFFFFFFFFFF2DC 31FFFD30 call TSTC ; is it a single quote?FFFFFFFFFFFFF2E0 E0800027 setlo r2,#'''' ; if so, do same as aboveFFFFFFFFFFFFF2E4 BE007ECA bra QT1FFFFFFFFFFFFF2E8 QT4:FFFFFFFFFFFFF2E8 E0C0005F setlo r3,#'_'FFFFFFFFFFFFF2EC 9A027308 lea r4,QT5FFFFFFFFFFFFF2F0 31FFFD30 call TSTC ; is it an underline?FFFFFFFFFFFFF2F4 E040000D setlo r1,#CR ; if so, output a CR without LFFFFFFFFFFFFFF2F8 31FFF7D5 call GOOUTFFFFFFFFFFFFF2FC QT2:FFFFFFFFFFFFF2FC 47EF8000 lw lr,[sp]FFFFFFFFFFFFF300 0BEF0008 addui sp,sp,#8FFFFFFFFFFFFF304 35F00004 jal r0,4[lr] ; skip over next i-word when returningFFFFFFFFFFFFF308 QT5: ; not " ' or _FFFFFFFFFFFFF308 47EF8000 lw lr,[sp]FFFFFFFFFFFFF30C 37EF8008 ret #8; Output a CR LF sequence;FFFFFFFFFFFFF310 prCRLF:FFFFFFFFFFFFF310 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFF314 67EF8000 sw lr,[sp]FFFFFFFFFFFFF318 E040000D setlo r1,#CRFFFFFFFFFFFFF31C 31FFF7D5 call GOOUTFFFFFFFFFFFFF320 E040000A setlo r1,#LFFFFFFFFFFFFFF324 31FFF7D5 call GOOUTFFFFFFFFFFFFF328 47EF8000 lw lr,[sp]FFFFFFFFFFFFF32C 37EF8008 ret #8; r1 = number to print; r2 = number of digits; Register Usage; r5 = number of padding spacesFFFFFFFFFFFFF330 PRTNUM:FFFFFFFFFFFFF330 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFF334 67E18000 sw r3,[sp]FFFFFFFFFFFFF338 67E28008 sw r5,8[sp]FFFFFFFFFFFFF33C 67E30010 sw r6,16[sp]FFFFFFFFFFFFF340 67E38018 sw r7,24[sp]FFFFFFFFFFFFF344 67EF8020 sw lr,32[sp]FFFFFFFFFFFFF348 9A039100 lea r7,NUMWKA ; r7 = pointer to numeric work areaFFFFFFFFFFFFF34C 02130009 mov r6,r1 ; save number for laterFFFFFFFFFFFFF350 02228009 mov r5,r2 ; r5 = min number of charsFFFFFFFFFFFFF354 BE100063 bgt r1,r0,PN2 ; is it negative? if notFFFFFFFFFFFFF358 02108006 neg r1,r1 ; else make it positiveFFFFFFFFFFFFF35C 0E528001 subui r5,r5,#1 ; one less for width countFFFFFFFFFFFFF360 PN2:FFFFFFFFFFFFF360 1601800A lw r3,#10FFFFFFFFFFFFF364 PN1:FFFFFFFFFFFFF364 0411881C modu r2,r1,r3 ; r2 = r1 mod 10FFFFFFFFFFFFF368 1E10800A divui r1,r1,#10 ; r1 /= 10 divide by 10FFFFFFFFFFFFF36C 0A210030 addui r2,r2,#'0' ; convert remainder to asciiFFFFFFFFFFFFF370 60710000 sb r2,[r7] ; and store in bufferFFFFFFFFFFFFF374 0A738001 addui r7,r7,#1FFFFFFFFFFFFF378 0E528001 subui r5,r5,#1 ; decrement widthFFFFFFFFFFFFF37C BE107F49 bne r1,r0,PN1FFFFFFFFFFFFF380 PN6:FFFFFFFFFFFFF380 BE500082 ble r5,r0,PN4 ; test pad count, skip padding if not neededFFFFFFFFFFFFF384 PN3:FFFFFFFFFFFFF384 E0400020 setlo r1,#' ' ; display the required leading spacesFFFFFFFFFFFFF388 31FFF7D5 call GOOUTFFFFFFFFFFFFF38C BE02FFCF loop r5,PN3FFFFFFFFFFFFF390 PN4:FFFFFFFFFFFFF390 BE600061 bge r6,r0,PN5 ; is number negative?FFFFFFFFFFFFF394 E040002D setlo r1,#'-' ; if so, display the signFFFFFFFFFFFFF398 31FFF7D5 call GOOUTFFFFFFFFFFFFF39C PN5:FFFFFFFFFFFFF39C 0E738001 subui r7,r7,#1FFFFFFFFFFFFF3A0 40708000 lb r1,[r7] ; now unstack the digits and displayFFFFFFFFFFFFF3A4 31FFF7D5 call GOOUTFFFFFFFFFFFFF3A8 12709100 cmpui r1,r7,#NUMWKAFFFFFFFFFFFFF3AC BE107F87 bgtu r1,r0,PN5FFFFFFFFFFFFF3B0 PNRET:FFFFFFFFFFFFF3B0 47EF8020 lw lr,32[sp]FFFFFFFFFFFFF3B4 47E38018 lw r7,24[sp]FFFFFFFFFFFFF3B8 47E30010 lw r6,16[sp]FFFFFFFFFFFFF3BC 47E28008 lw r5,8[sp]FFFFFFFFFFFFF3C0 47E18000 lw r3,[sp]FFFFFFFFFFFFF3C4 37EF8028 ret #40; r1 = number to print; r2 = number of digitsFFFFFFFFFFFFF3C8 PRTHEXNUM:FFFFFFFFFFFFF3C8 0FEF0028 subui sp,sp,#40FFFFFFFFFFFFF3CC 67E28000 sw r5,[sp]FFFFFFFFFFFFF3D0 67E30008 sw r6,8[sp]FFFFFFFFFFFFF3D4 67E38010 sw r7,16[sp]FFFFFFFFFFFFF3D8 67E40018 sw r8,24[sp]FFFFFFFFFFFFF3DC 67EF8020 sw lr,32[sp]FFFFFFFFFFFFF3E0 9A039100 lea r7,NUMWKA ; r7 = pointer to numeric work areaFFFFFFFFFFFFF3E4 04101809 or r6,r1,r0 ; save number for laterFFFFFFFFFFFFF3E8 E1400014 setlo r5,#20 ; r5 = min number of charsFFFFFFFFFFFFF3EC 02120009 mov r4,r1FFFFFFFFFFFFF3F0 BE400083 bgt r4,r0,PHN1 ; is it negative? if notFFFFFFFFFFFFF3F4 02420006 neg r4,r4 ; else make it positiveFFFFFFFFFFFFF3F8 0E528001 subui r5,r5,#1 ; one less for width countFFFFFFFFFFFFF3FC E2000014 setlo r8,#20 ; maximum of 10 digitsFFFFFFFFFFFFF400 PHN1:FFFFFFFFFFFFF400 02408009 mov r1,r4FFFFFFFFFFFFF404 1410800F andi r1,r1,#15FFFFFFFFFFFFF408 A010030A blt r1,#10,PHN7FFFFFFFFFFFFF40C 0A108037 addui r1,r1,#'A'-10FFFFFFFFFFFFF410 BE00004A bra PHN8FFFFFFFFFFFFF414 PHN7:FFFFFFFFFFFFF414 08108030 add r1,r1,#'0' ; convert remainder to asciiFFFFFFFFFFFFF418 PHN8:FFFFFFFFFFFFF418 60708000 sb r1,[r7] ; and store in bufferFFFFFFFFFFFFF41C 0A738001 addui r7,r7,#1FFFFFFFFFFFFF420 0E528001 subui r5,r5,#1 ; decrement widthFFFFFFFFFFFFF424 06420801 shrui r4,r4,#4FFFFFFFFFFFFF428 BE400048 beq r4,r0,PHN6 ; is it zero yet ?FFFFFFFFFFFFF42C BE047EAF loop r8,PHN1 ; safetyFFFFFFFFFFFFF430 PHN6: ; test pad countFFFFFFFFFFFFF430 BE500082 ble r5,r0,PHN4 ; skip padding if not neededFFFFFFFFFFFFF434 PHN3:FFFFFFFFFFFFF434 E0400020 setlo r1,#' ' ; display the required leading spacesFFFFFFFFFFFFF438 31FFF7D5 call GOOUTFFFFFFFFFFFFF43C BE02FFCF loop r5,PHN3FFFFFFFFFFFFF440 PHN4:FFFFFFFFFFFFF440 BE600063 bgt r6,r0,PHN5 ; is number negative?FFFFFFFFFFFFF444 E040002D setlo r1,#'-' ; if so, display the signFFFFFFFFFFFFF448 31FFF7D5 call GOOUTFFFFFFFFFFFFF44C PHN5:FFFFFFFFFFFFF44C 0E738001 subui r7,r7,#1FFFFFFFFFFFFF450 40708000 lb r1,[r7] ; now unstack the digits and displayFFFFFFFFFFFFF454 31FFF7D5 call GOOUTFFFFFFFFFFFFF458 12709100 cmpui r1,r7,#NUMWKAFFFFFFFFFFFFF45C BE107F83 bgt r1,r0,PHN5FFFFFFFFFFFFF460 PHNRET:FFFFFFFFFFFFF460 47EF8020 lw lr,32[sp]FFFFFFFFFFFFF464 47E40018 lw r8,24[sp]FFFFFFFFFFFFF468 47E38010 lw r7,16[sp]FFFFFFFFFFFFF46C 47E30008 lw r6,8[sp]FFFFFFFFFFFFF470 47E28000 lw r5,[sp]FFFFFFFFFFFFF474 37EF8028 ret #40; r1 = pointer to line; returns r1 = pointer to end of line + 1FFFFFFFFFFFFF478 PRTLN:FFFFFFFFFFFFF478 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFF47C 67E28000 sw r5,[sp]FFFFFFFFFFFFF480 67EF8008 sw lr,8[sp]FFFFFFFFFFFFF484 08128002 addi r5,r1,#2FFFFFFFFFFFFF488 4A50FFFE lbu r1,-2[r5] ; get the binary line numberFFFFFFFFFFFFF48C 4A517FFF lbu r2,-1[r5]FFFFFFFFFFFFF490 06211000 shli r2,r2,#8FFFFFFFFFFFFF494 04110409 or r1,r1,r2FFFFFFFFFFFFF498 E0800000 setlo r2,#0 ; display a 0 or more digit line no.FFFFFFFFFFFFF49C 31FFFCCC call PRTNUMFFFFFFFFFFFFF4A0 E0400020 setlo r1,#' ' ; followed by a blankFFFFFFFFFFFFF4A4 31FFF7D5 call GOOUTFFFFFFFFFFFFF4A8 E0800000 setlo r2,#0 ; stop char. is a zeroFFFFFFFFFFFFF4AC 04500409 or r1,r5,r0FFFFFFFFFFFFF4B0 31FFFC93 call PRTSTG ; display the rest of the lineFFFFFFFFFFFFF4B4 47EF8008 lw lr,8[sp]FFFFFFFFFFFFF4B8 47E28000 lw r5,[sp]FFFFFFFFFFFFF4BC 37EF8010 ret #16; ===== Test text byte following the call to this subroutine. If it; equals the byte pointed to by r8, return to the code following; the call. If they are not equal, brnch to the point; indicated in r4.;; Registers Affected; r3,r8; Returns; r8 = updated text pointer;FFFFFFFFFFFFF4C0 TSTCFFFFFFFFFFFFF4C0 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFF4C4 67EF8000 sw lr,[sp]FFFFFFFFFFFFF4C8 67E08008 sw r1,8[sp]FFFFFFFFFFFFF4CC 31FFFD55 call IGNBLK ; ignore leading blanksFFFFFFFFFFFFF4D0 40808000 lb r1,[r8]FFFFFFFFFFFFF4D4 BE3080A8 beq r3,r1,TC1 ; is it = to what r8 points to? if soFFFFFFFFFFFFF4D8 47E08008 lw r1,8[sp]FFFFFFFFFFFFF4DC 47EF8000 lw lr,[sp]FFFFFFFFFFFFF4E0 0BEF0010 addui sp,sp,#16FFFFFFFFFFFFF4E4 34400000 jal r0,[r4] ; jump to the routineFFFFFFFFFFFFF4E8 TC1:FFFFFFFFFFFFF4E8 0A840001 addui r8,r8,#1 ; if equal, bump text pointerFFFFFFFFFFFFF4EC 47E08008 lw r1,8[sp]FFFFFFFFFFFFF4F0 47EF8000 lw lr,[sp]FFFFFFFFFFFFF4F4 37EF8010 ret #16; ===== See if the text pointed to by r8 is a number. If so,; return the number in r2 and the number of digits in r3,; else return zero in r2 and r3.; Registers Affected; r1,r2,r3,r4; Returns; r1 = number; r2 = number of digits in number; r8 = updated text pointer;FFFFFFFFFFFFF4F8 TSTNUM:FFFFFFFFFFFFF4F8 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFF4FC 67EF8000 sw lr,[sp]FFFFFFFFFFFFF500 31FFFD55 call IGNBLK ; skip over blanksFFFFFFFFFFFFF504 E0400000 setlo r1,#0 ; initialize return parametersFFFFFFFFFFFFF508 E0800000 setlo r2,#0FFFFFFFFFFFFF50C TN1:FFFFFFFFFFFFF50C 40818000 lb r3,[r8]FFFFFFFFFFFFF510 A8300F30 bltui r3,#'0',TSNMRET ; is it less than zero?FFFFFFFFFFFFF514 AE300E39 bgtui r3,#'9',TSNMRET ; is it greater than nine?FFFFFFFFFFFFF518 E6BFFFFF ; SETLOFFFFFFFFFFFFF51C EEBFFFFF ; SETMIDFFFFFFFFFFFFF520 F6807FFF ; SETHIFFFFFFFFFFFFF524 040D1009 lw r4,#0x07FFFFFF_FFFFFFFFFFFFFFFFFFFFF528 BE120066 bleu r1,r4,TN2 ; see if there's room for new digitFFFFFFFFFFFFF52C 9A00F721 lea r1,msgNumTooBigFFFFFFFFFFFFF530 BE0057CA bra ERROR ; if not, we've overflowdFFFFFFFFFFFFF534 TN2:FFFFFFFFFFFFF534 1A10800A mului r1,r1,#10 ; quickly multiply result by 10FFFFFFFFFFFFF538 0A840001 addui r8,r8,#1 ; adjust text pointerFFFFFFFFFFFFF53C 1431800F andi r3,r3,#0x0F ; add in the new digitFFFFFFFFFFFFF540 04118403 addu r1,r1,r3FFFFFFFFFFFFF544 0A210001 addui r2,r2,#1 ; increment the no. of digitsFFFFFFFFFFFFF548 BE007E2A bra TN1FFFFFFFFFFFFF54C TSNMRET:FFFFFFFFFFFFF54C 47EF8000 lw lr,[sp]FFFFFFFFFFFFF550 37EF8008 ret #8;===== Skip over blanks in the text pointed to by r8.;; Registers Affected:; r8; Returns; r8 = pointer updateded past any spaces or tabs;FFFFFFFFFFFFF554 IGNBLK:FFFFFFFFFFFFF554 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFF558 67E08000 sw r1,[sp]FFFFFFFFFFFFF55C IGB2:FFFFFFFFFFFFF55C 40808000 lb r1,[r8] ; get charFFFFFFFFFFFFF560 B0100220 beqi r1,#' ',IGB1 ; see if it's a spaceFFFFFFFFFFFFF564 B2100300 bnei r1,#'\t',IGBRET ; or a tabFFFFFFFFFFFFF568 IGB1:FFFFFFFFFFFFF568 0A840001 addui r8,r8,#1 ; increment the text pointerFFFFFFFFFFFFF56C BE007F8A bra IGB2FFFFFFFFFFFFF570 IGBRET:FFFFFFFFFFFFF570 47E08000 lw r1,[sp]FFFFFFFFFFFFF574 37EF8008 ret #8; ===== Convert the line of text in the input buffer to upper; case (except for stuff between quotes).;; Registers Affected; r1,r3; Returns; r8 = pointing to end of text in buffer;FFFFFFFFFFFFF578 TOUPBUF:FFFFFFFFFFFFF578 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFF57C 67EF8000 sw lr,[sp]FFFFFFFFFFFFF580 9A04111B lea r8,BUFFER ; set up text pointerFFFFFFFFFFFFF584 E0C00000 setlo r3,#0 ; clear quote flagFFFFFFFFFFFFF588 TOUPB1:FFFFFFFFFFFFF588 40808000 lb r1,[r8] ; get the next text char.FFFFFFFFFFFFF58C 0A840001 addui r8,r8,#1FFFFFFFFFFFFF590 B0100D0D beqi r1,#CR,TOUPBRT ; is it end of line?FFFFFFFFFFFFF594 B0100622 beqi r1,#'"',DOQUO ; a double quote?FFFFFFFFFFFFF598 B0100527 beqi r1,#'''',DOQUO ; or a single quote?FFFFFFFFFFFFF59C BE307F69 bne r3,r0,TOUPB1 ; inside quotes?FFFFFFFFFFFFF5A0 31FFFD73 call toUpper ; convert to upper caseFFFFFFFFFFFFF5A4 6080FFFF sb r1,-1[r8] ; store itFFFFFFFFFFFFF5A8 BE007F0A bra TOUPB1 ; and go back for moreFFFFFFFFFFFFF5AC DOQUO:FFFFFFFFFFFFF5AC BE300069 bne r3,r0,DOQUO1; are we inside quotes?FFFFFFFFFFFFF5B0 02118009 mov r3,r1 ; if not, toggle inside-quotes flagFFFFFFFFFFFFF5B4 BE007EAA bra TOUPB1FFFFFFFFFFFFF5B8 DOQUO1:FFFFFFFFFFFFF5B8 BE30FE89 bne r3,r1,TOUPB1 ; make sure we're ending proper quoteFFFFFFFFFFFFF5BC E0C00000 setlo r3,#0 ; else clear quote flagFFFFFFFFFFFFF5C0 BE007E4A bra TOUPB1FFFFFFFFFFFFF5C4 TOUPBRT:FFFFFFFFFFFFF5C4 47EF8000 lw lr,[sp]FFFFFFFFFFFFF5C8 37EF8008 ret #8; ===== Convert the character in r1 to upper case;FFFFFFFFFFFFF5CC toUpperFFFFFFFFFFFFF5CC A0100361 blti r1,#'a',TOUPRET ; is it < 'a'?FFFFFFFFFFFFF5D0 A610027A bgti r1,#'z',TOUPRET ; or > 'z'?FFFFFFFFFFFFF5D4 0E108020 subui r1,r1,#32 ; if not, make it upper caseFFFFFFFFFFFFF5D8 TOUPRETFFFFFFFFFFFFF5D8 37EF8000 ret; 'CHKIO' checks the input. If there's no input, it will return; to the caller with the r1=0. If there is input, the input byte is in r1.; However, if a control-C is read, 'CHKIO' will warm-start BASIC and will; not return to the caller.;FFFFFFFFFFFFF5DC CHKIO:FFFFFFFFFFFFF5DC 0FEF0008 subui sp,sp,#8 ; save link regFFFFFFFFFFFFF5E0 67EF8000 sw lr,[sp]FFFFFFFFFFFFF5E4 31FFF7D6 call GOIN ; get input if possibleFFFFFFFFFFFFF5E8 B01003FF beqi r1,#-1,CHKRET2 ; if Zero, no inputFFFFFFFFFFFFF5EC B2100303 bnei r1,#CTRLC,CHKRET ; is it control-C?FFFFFFFFFFFFF5F0 33FFF801 jmp WSTART ; if so, do a warm startFFFFFFFFFFFFF5F4 CHKRET2:FFFFFFFFFFFFF5F4 0410840A xor r1,r1,r1FFFFFFFFFFFFF5F8 CHKRET:FFFFFFFFFFFFF5F8 47EF8000 lw lr,[sp] ;r1=0FFFFFFFFFFFFF5FC 37EF8008 ret #8; ===== Display a CR-LF sequence;FFFFFFFFFFFFF600 CRLF:FFFFFFFFFFFFF600 E07FF703 setlo r1,CLMSG; ===== Display a zero-ended string pointed to by register r1; Registers Affected; r1,r2,r4;FFFFFFFFFFFFF604 PRMESG:FFFFFFFFFFFFF604 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFF608 67E28000 sw r5,[sp]FFFFFFFFFFFFF60C 67EF8008 sw lr,8[sp]FFFFFFFFFFFFF610 02128009 mov r5,r1 ; r5 = pointer to messageFFFFFFFFFFFFF614 PRMESG1:FFFFFFFFFFFFF614 0A528001 addui r5,r5,#1FFFFFFFFFFFFF618 4A50FFFF lbu r1,-1[r5] ; get the char.FFFFFFFFFFFFF61C BE100068 beq r1,r0,PRMRETFFFFFFFFFFFFF620 31FFF7D5 call GOOUT ;else display it trashes r4FFFFFFFFFFFFF624 BE007F8A bra PRMESG1FFFFFFFFFFFFF628 PRMRET:FFFFFFFFFFFFF628 02508009 mov r1,r5FFFFFFFFFFFFF62C 47EF8008 lw lr,8[sp]FFFFFFFFFFFFF630 47E28000 lw r5,[sp]FFFFFFFFFFFFF634 37EF8010 ret #16; ===== Display a zero-ended string pointed to by register r1; Registers Affected; r1,r2,r3;FFFFFFFFFFFFF638 PRMESGAUX:FFFFFFFFFFFFF638 0FEF0010 subui sp,sp,#16FFFFFFFFFFFFF63C 67E28000 sw r5,[sp]FFFFFFFFFFFFF640 67EF8008 sw lr,8[sp]FFFFFFFFFFFFF644 02128009 mov r5,r1 ; r3 = pointerFFFFFFFFFFFFF648 PRMESGA1:FFFFFFFFFFFFF648 0A528001 addui r5,r5,#1FFFFFFFFFFFFF64C 4050FFFF lb r1,-1[r5] ; get the char.FFFFFFFFFFFFF650 BE100068 beq r1,r0,PRMRETAFFFFFFFFFFFFF654 31FFF7D7 call GOAUXO ;else display itFFFFFFFFFFFFF658 BE007F8A bra PRMESGA1FFFFFFFFFFFFF65C PRMRETA:FFFFFFFFFFFFF65C 02508009 mov r1,r5FFFFFFFFFFFFF660 47EF8008 lw lr,8[sp]FFFFFFFFFFFFF664 47E28000 lw r5,[sp]FFFFFFFFFFFFF668 37EF8010 ret #16;*****************************************************; The following routines are the only ones that need *; to be changed for a different I/O environment. *;*****************************************************; ===== Output character to the console (Port 1) from register r1; (Preserves all registers.);FFFFFFFFFFFFF66C OUTC:FFFFFFFFFFFFF66C 33FFF07F jmp DisplayChar; ===== Input a character from the console into register R1 (or; return Zero status if there's no character available).;FFFFFFFFFFFFF670 INC:FFFFFFFFFFFFF670 33FFEF07 jmp KeybdGetChar;*;* ===== Input a character from the host into register r1 (or;* return Zero status if there's no character available).;*FFFFFFFFFFFFF674 AUXIN:FFFFFFFFFFFFF674 31FFEDA4 call SerialGetCharFFFFFFFFFFFFF678 B01003FF beqi r1,#-1,AXIRET_ZEROFFFFFFFFFFFFF67C 1410807F andi r1,r1,#0x7f ;zero out the high bitFFFFFFFFFFFFF680 AXIRET:FFFFFFFFFFFFF680 37EF8000 retFFFFFFFFFFFFF684 AXIRET_ZERO:FFFFFFFFFFFFF684 0410840A xor r1,r1,r1FFFFFFFFFFFFF688 37EF8000 ret; ===== Output character to the host (Port 2) from register r1; (Preserves all registers.);FFFFFFFFFFFFF68C AUXOUTFFFFFFFFFFFFF68C 33FFED5C jmp SerialPutChar ; call boot rom routineFFFFFFFFFFFFF690 _clsFFFFFFFFFFFFF690 31FFF011 call clearScreenFFFFFFFFFFFFF694 BE00742A bra FINISHFFFFFFFFFFFFF698 _wait10FFFFFFFFFFFFF698 37EF8000 retFFFFFFFFFFFFF69C _getATAStatusFFFFFFFFFFFFF69C 37EF8000 retFFFFFFFFFFFFF6A0 _waitCFNotBusyFFFFFFFFFFFFF6A0 37EF8000 retFFFFFFFFFFFFF6A4 _rdcfFFFFFFFFFFFFF6A4 BE0073AA br FINISHFFFFFFFFFFFFF6A8 rdcf6FFFFFFFFFFFFF6A8 BE004C0A br ERROR; ===== Return to the resident monitor, operating system, etc.;FFFFFFFFFFFFF6AC BYEBYE:FFFFFFFFFFFFF6AC 460F1088 lw sp,OSSPFFFFFFFFFFFFF6B0 47EF8000 lw lr,[sp]FFFFFFFFFFFFF6B4 37EF8008 ret #8; MOVE.B #228,D7 return to Tutor; TRAP #14FFFFFFFFFFFFF6B8 726F747061520A0D msgInit db CR,LF,"Raptor64 Tiny BASIC v1.0",CR,LF,"(C) 2013 Robert Finch",CR,LF,LF,0FFFFFFFFFFFFF6C0 20796E6954203436FFFFFFFFFFFFF6C8 3176204349534142FFFFFFFFFFFFF6D0 202943280A0D302EFFFFFFFFFFFFF6D8 6F52202033313032FFFFFFFFFFFFF6E0 6E69462074726562FFFFFFFFFFFFF6E8 0A0D000A0A0D6863 OKMSG db CR,LF,"OK",CR,LF,0FFFFFFFFFFFFF6F0 616857000A0D4B4F msgWhat db "What?",CR,LF,0FFFFFFFFFFFFF6F8 726F53000A0D3F74 SRYMSG db "Sorry."FFFFFFFFFFFFF700 6F43000A0D2E7972 msgReadError db "Compact FLASH read error",CR,LF,0FFFFFFFFFFFFF708 4C4620746361706DFFFFFFFFFFFFF710 6461657220485341FFFFFFFFFFFFF718 0A0D726F72726520FFFFFFFFFFFFF720 207265626D754E00 msgNumTooBig db "Number is too big",CR,LF,0FFFFFFFFFFFFF728 62206F6F74207369FFFFFFFFFFFFF730 766944000A0D6769 msgDivZero db "Division by zero",CR,LF,0FFFFFFFFFFFFF738 7962206E6F697369FFFFFFFFFFFFF740 000A0D6F72657A20FFFFFFFFFFFFF748 7620666F2074754F msgVarSpace db "Out of variable space",CR,LF,0FFFFFFFFFFFFF750 20656C6261697261FFFFFFFFFFFFF758 000A0D6563617073FFFFFFFFFFFFF760 6620736574796220 msgBytesFree db " bytes free",CR,LF,0FFFFFFFFFFFFF768 0A0D000A0D656572 msgReady db CR,LF,"Ready",CR,LF,0FFFFFFFFFFFFF770 000A0D7964616552FFFFFFFFFFFFF778 6E69746365707845 msgComma db "Expecting a comma",CR,LF,0FFFFFFFFFFFFF780 6D6D6F6320612067FFFFFFFFFFFFF788 656E694C000A0D61 msgLineRange db "Line number too big",CR,LF,0FFFFFFFFFFFFF790 207265626D756E20FFFFFFFFFFFFF798 0D676962206F6F74FFFFFFFFFFFFF7A0 746365707845000A msgVar db "Expecting a variable",CR,LF,0FFFFFFFFFFFFF7A8 6176206120676E69FFFFFFFFFFFFF7B0 0A0D656C62616972FFFFFFFFFFFFF7B8 64616220444E5200 msgRNDBad db "RND bad parameter",CR,LF,0FFFFFFFFFFFFF7C0 74656D6172617020FFFFFFFFFFFFF7C8 535953000A0D7265 msgSYSBad db "SYS bad address",CR,LF,0FFFFFFFFFFFFF7D0 6464612064616220FFFFFFFFFFFFF7D8 49000A0D73736572 msgInputVar db "INPUT expecting a variable",CR,LF,0FFFFFFFFFFFFF7E0 707865205455504EFFFFFFFFFFFFF7E8 6120676E69746365FFFFFFFFFFFFF7F0 6C62616972617620FFFFFFFFFFFFF7F8 5458454E000A0D65 msgNextFor db "NEXT without FOR",CR,LF,0FFFFFFFFFFFFF800 74756F6874697720FFFFFFFFFFFFF808 4E000A0D524F4620 msgNextVar db "NEXT expecting a defined variable",CR,LF,0FFFFFFFFFFFFF810 6570786520545845FFFFFFFFFFFFF818 206120676E697463FFFFFFFFFFFFF820 2064656E69666564FFFFFFFFFFFFF828 656C626169726176FFFFFFFFFFFFF830 2F4F544F47000A0D msgBadGotoGosub db "GOTO/GOSUB bad line number",CR,LF,0FFFFFFFFFFFFF838 6162204255534F47FFFFFFFFFFFFF840 6E20656E696C2064FFFFFFFFFFFFF848 000A0D7265626D75FFFFFFFFFFFFF850 77204E5255544552 msgRetWoGosub db "RETURN without GOSUB",CR,LF,0FFFFFFFFFFFFF858 472074756F687469FFFFFFFFFFFFF860 50000A0D4255534F msgTooBig db "Program is too big",CR,LF,0FFFFFFFFFFFFF868 69206D6172676F72FFFFFFFFFFFFF870 6962206F6F742073FFFFFFFFFFFFF878 72747845000A0D67 msgExtraChars db "Extra characters on line ignored",CR,LF,0FFFFFFFFFFFFF880 6361726168632061FFFFFFFFFFFFF888 206E6F2073726574FFFFFFFFFFFFF890 6E676920656E696CFFFFFFFFFFFFF898 00000A0D6465726F align 8FFFFFFFFFFFFF8A0 align 8LSTROM equ * ; end of possible ROM area; END;*;* ===== Return to the resident monitor, operating system, etc.;*FFFFFFFFFFFFF8A0 BYEBYE:FFFFFFFFFFFFF8A0 33FFF20A jmp Monitor; MOVE.B #228,D7 ;return to Tutor; TRAP #14;==============================================================================; Checkerboard RAM tester;==============================================================================;FFFFFFFFFFFFF8A4 codeFFFFFFFFFFFFF8A0 0000000033FFF20A align 16FFFFFFFFFFFFF8A8 0000000000000000FFFFFFFFFFFFF8B0 align 16FFFFFFFFFFFFF8B0 ramtest:FFFFFFFFFFFFF8B0 04002009 or r8,r0,r0 ; r8 = 0FFFFFFFFFFFFF8B4 E6AA5555 ; SETLOFFFFFFFFFFFFF8B8 EE9556AA ; SETMIDFFFFFFFFFFFFF8BC F68AAAA5 ; SETHIFFFFFFFFFFFFF8C0 040D0409 ori r1,r0,#0xAAAA5555AAAA5555 ; checkerboard patternFFFFFFFFFFFFF8C4 ramtest2:FFFFFFFFFFFFF8C4 66808000 sw r1,[r8] ; save the checkerboard to memoryFFFFFFFFFFFFF8C8 46810000 lw r2,[r8] ; read it backFFFFFFFFFFFFF8CC 04110C06 cmp r3,r1,r2 ; is it the same ?FFFFFFFFFFFFF8D0 BE3000C9 bne r3,r0,ramtest1FFFFFFFFFFFFF8D4 0A840008 addui r8,r8,#8 ; increment RAM pointerFFFFFFFFFFFFF8D8 E6800000 ; SETLOFFFFFFFFFFFFF8DC EE800010 ; SETMIDFFFFFFFFFFFFF8E0 048D0C06 cmpi r3,r8,#0x0000_0000_0400_0000FFFFFFFFFFFFF8E4 BE307F00 blt r3,r0,ramtest2FFFFFFFFFFFFF8E8 ramtest1:FFFFFFFFFFFFF8E8 04802809 or r10,r8,r0 ; r10 = max ram address; readback the checkerboard patternFFFFFFFFFFFFF8EC 04002009 or r8,r0,r0 ; r8 = 0FFFFFFFFFFFFF8F0 ramtest4:FFFFFFFFFFFFF8F0 46810000 lw r2,[r8]FFFFFFFFFFFFF8F4 E6AA5555 ; SETLOFFFFFFFFFFFFF8F8 EE9556AA ; SETMIDFFFFFFFFFFFFF8FC F68AAAA5 ; SETHIFFFFFFFFFFFFF900 042D0C06 cmpi r3,r2,#0xAAAA5555AAAA5555FFFFFFFFFFFFF904 BE3000C9 bne r3,r0,ramtest3FFFFFFFFFFFFF908 08840008 addi r8,r8,#8FFFFFFFFFFFFF90C E6800000 ; SETLOFFFFFFFFFFFFF910 EE800004 ; SETMIDFFFFFFFFFFFFF914 048D0C06 cmpi r3,r8,#0x0000_0000_0100_0000FFFFFFFFFFFFF918 BE307EC0 blt r3,r0,ramtest4FFFFFFFFFFFFF91C ramtest3:FFFFFFFFFFFFF91C BE850389 bne r8,r10,ramtest8 ; check for equal maximum address; perform ramtest again with inverted checkerboardFFFFFFFFFFFFF920 04002009 or r8,r0,r0 ; r8 = 0FFFFFFFFFFFFF924 E695AAAA ; SETLOFFFFFFFFFFFFF928 EEAAA955 ; SETMIDFFFFFFFFFFFFF92C F685555A ; SETHIFFFFFFFFFFFFF930 040D0409 ori r1,r0,#0x5555AAAA5555AAAAFFFFFFFFFFFFF934 ramtest5:FFFFFFFFFFFFF934 66808000 sw r1,[r8]FFFFFFFFFFFFF938 46810000 lw r2,[r8]FFFFFFFFFFFFF93C 04110C06 cmp r3,r1,r2FFFFFFFFFFFFF940 BE3000C9 bne r3,r0,ramtest6FFFFFFFFFFFFF944 08840008 addi r8,r8,#8FFFFFFFFFFFFF948 E6800000 ; SETLOFFFFFFFFFFFFF94C EE800004 ; SETMIDFFFFFFFFFFFFF950 048D0C06 cmpi r3,r8,#0x0000_0000_0100_0000FFFFFFFFFFFFF954 BE307F00 blt r3,r0,ramtest5FFFFFFFFFFFFF958 ramtest6:FFFFFFFFFFFFF958 04802C09 or r11,r8,r0 ; r11 = max ram address; readback checkerboardFFFFFFFFFFFFF95C 04002009 or r8,r0,r0FFFFFFFFFFFFF960 ramtest7:FFFFFFFFFFFFF960 46810000 lw r2,[r8]FFFFFFFFFFFFF964 E695AAAA ; SETLOFFFFFFFFFFFFF968 EEAAA955 ; SETMIDFFFFFFFFFFFFF96C F685555A ; SETHIFFFFFFFFFFFFF970 042D0C06 cmpi r3,r2,#0x5555AAAA5555AAAAFFFFFFFFFFFFF974 BE3000C9 bne r3,r0,ramtest8FFFFFFFFFFFFF978 08840008 addi r8,r8,#8FFFFFFFFFFFFF97C E6800000 ; SETLOFFFFFFFFFFFFF980 EE800004 ; SETMIDFFFFFFFFFFFFF984 048D0C06 cmpi r3,r8,#0x0000_0000_0100_0000FFFFFFFFFFFFF988 BE307EC0 blt r3,r0,ramtest7FFFFFFFFFFFFF98C ramtest8:FFFFFFFFFFFFF98C BE858048 beq r8,r11,ramtest9FFFFFFFFFFFFF990 0485A014 min r8,r8,r11FFFFFFFFFFFFF994 ramtest9:FFFFFFFFFFFFF994 BE850048 beq r8,r10,ramtest10FFFFFFFFFFFFF998 04852014 min r8,r8,r10FFFFFFFFFFFFF99C ramtest10:FFFFFFFFFFFFF99C 66040400 sw r8,0x00000400 ;memendFFFFFFFFFFFFF9A0 37EF8000 ret;-------------------------------------------;-------------------------------------------;FFFFFFFFFFFFF9A4 iberr_rout:FFFFFFFFFFFFF9A4 9A00FA3B lea r1,msgiberrFFFFFFFFFFFFF9A8 31FFF122 call DisplayStringFFFFFFFFFFFFF9AC 020085E8 mfspr r1,EPCFFFFFFFFFFFFF9B0 31FFF169 call DisplayWordFFFFFFFFFFFFF9B4 00000028 waitFFFFFFFFFFFFF9B8 33FFEC0B jmp startFFFFFFFFFFFFF9BC dberr_rout:FFFFFFFFFFFFF9BC E6A00100 ; SETLOFFFFFFFFFFFFF9C0 EE800400 ; SETMIDFFFFFFFFFFFFF9C4 040D7809 lw sp,#0x100200100FFFFFFFFFFFFF9C8 9A00FA20 lea r1,msgdberrFFFFFFFFFFFFF9CC 31FFF122 call DisplayStringFFFFFFFFFFFFF9D0 02008628 mfspr r1,ERRADRFFFFFFFFFFFFF9D4 31FFF169 call DisplayWordFFFFFFFFFFFFF9D8 9A00FA34 lea r1,msgEPCFFFFFFFFFFFFF9DC 31FFF122 call DisplayStringFFFFFFFFFFFFF9E0 020085E8 mfspr r1,EPCFFFFFFFFFFFFF9E4 31FFF169 call DisplayWordFFFFFFFFFFFFF9E8 31FFFD80 call CRLFFFFFFFFFFFFFF9EC 1601001F lw r2,#31FFFFFFFFFFFFF9F0 dberr1:FFFFFFFFFFFFF9F0 02200FA9 mtspr PCHI,r2FFFFFFFFFFFFF9F4 DE000000 nopFFFFFFFFFFFFF9F8 DE000000 nopFFFFFFFFFFFFF9FC DE000000 nopFFFFFFFFFFFFFA00 02008FE8 mfspr r1,PCHISTORICFFFFFFFFFFFFFA04 31FFF169 call DisplayWordFFFFFFFFFFFFFA08 31FFFD80 call CRLFFFFFFFFFFFFFFA0C BE017F2F loop r2,dberr1FFFFFFFFFFFFFA10 00000028 waitFFFFFFFFFFFFFA14 33FFEC0B jmp startFFFFFFFFFFFFFA18 0000000000000000 .align 16FFFFFFFFFFFFFA20 .align 16FFFFFFFFFFFFFA20 msgdberr:FFFFFFFFFFFFFA20 7375622061746144 db "Data bus error at: ",0FFFFFFFFFFFFFA28 6120726F72726520FFFFFFFFFFFFFA34 msgEPC:FFFFFFFFFFFFFA30 4350452000203A74 db " EPC: ",0FFFFFFFFFFFFFA3B msgiberr:FFFFFFFFFFFFFA38 662072724500203A db "Err fetching instruction at: ",0FFFFFFFFFFFFFA40 20676E6968637465FFFFFFFFFFFFFA48 7463757274736E69FFFFFFFFFFFFFA50 203A7461206E6F69FFFFFFFFFFFFFA5C .align 4;------------------------------------------------------------------------------; IRQ routine;; Interrupts are automatically disabled at the time of the interrupt in order; to prevent nested interrupts from occuring. Interrupts are re-enabled by; the IRET instruction at the end of the interrupt routine. If the interrupt; turns out to not match a hardware interrupt, then a software context; switching interrupt is assumed.;; This routine uses it's own private interrupt stack; the stack of the; interrupted context is not used at all. A couple of working registers are; saved off not on the stack. We can get away with this because nested; interrupts are not allowed.;------------------------------------------------------------------------------;FFFFFFFFFFFFFA5C irqrout:FFFFFFFFFFFFFA5C 660F1460 sw sp,sp_save ; use our own private stack for interrupt processingFFFFFFFFFFFFFA60 660F9468 sw lr,lr_save ; so, save off the sp and working registersFFFFFFFFFFFFFA64 660D1480 sw r26,r26_saveFFFFFFFFFFFFFA68 66009470 sw r1,r1_saveFFFFFFFFFFFFFA6C 66011478 sw r2,r2_saveFFFFFFFFFFFFFA70 E6801000 ; SETLOFFFFFFFFFFFFFA74 EE800400 ; SETMIDFFFFFFFFFFFFFA78 040D7809 lw sp,#0x1_00001000 ; the second two kbytesFFFFFFFFFFFFFA7C E69C0FF0 ; SETLOFFFFFFFFFFFFFA80 EE800003 ; SETMIDFFFFFFFFFFFFFA84 6A0D0421 inch r1,PIC ; r1= which IRQ line is active; Dispatch fork, in order of required timelinessFFFFFFFFFFFFFA88 B0100D02 beqi r1,#2,irq1000HzFFFFFFFFFFFFFA8C B0101903 beqi r1,#3,irq100HzFFFFFFFFFFFFFA90 B0102008 beqi r1,#8,irqSerialFFFFFFFFFFFFFA94 B010220D beqi r1,#13,irqRasterFFFFFFFFFFFFFA98 B010240F beqi r1,#15,irqKeybdFFFFFFFFFFFFFA9C B0102601 beqi r1,#1,irqColdStart ; CTRL-ALT-DEL interrupt; Here, none of the hardware interrupts were active so; assume software context switch interrupt;FFFFFFFFFFFFFAA0 460F1460 lw sp,sp_saveFFFFFFFFFFFFFAA4 460F9468 lw lr,lr_saveFFFFFFFFFFFFFAA8 460D1480 lw r26,r26_saveFFFFFFFFFFFFFAAC 46009470 lw r1,r1_saveFFFFFFFFFFFFFAB0 46011478 lw r2,r2_saveFFFFFFFFFFFFFAB4 0000000F ieppFFFFFFFFFFFFFAB8 01900020 iret; 1000 Hz interrupt; This IRQ must be fast, so it's placed inline. It's also the first; IRQ checked for in the interrupt dispatch.; Increments the millisecond counter, and switches to the next context;FFFFFFFFFFFFFABC irq1000Hz:FFFFFFFFFFFFFABC E69CFFFD ; SETLOFFFFFFFFFFFFFAC0 EE800003 ; SETMIDFFFFFFFFFFFFFAC4 6A0D0028 outb r0,0xDCFFFD ; acknowledge interruptFFFFFFFFFFFFFAC8 46009400 lw r1,Milliseconds ; increment milliseconds countFFFFFFFFFFFFFACC 0A108001 addui r1,r1,#1FFFFFFFFFFFFFAD0 66009400 sw r1,MillisecondsFFFFFFFFFFFFFAD4 460F1460 lw sp,sp_saveFFFFFFFFFFFFFAD8 460F9468 lw lr,lr_saveFFFFFFFFFFFFFADC 460D1480 lw r26,r26_saveFFFFFFFFFFFFFAE0 46009470 lw r1,r1_saveFFFFFFFFFFFFFAE4 46011478 lw r2,r2_saveFFFFFFFFFFFFFAE8 0000000F iepp ; move to the next contextFFFFFFFFFFFFFAEC 01900020 iret ; return to the next context; 100 Hz interrupt; This IRQ could have some work to do, including flashing a cursor. So; we call a subroutine.;FFFFFFFFFFFFFAF0 irq100Hz:FFFFFFFFFFFFFAF0 4600B000 lw r1,p100IRQvec; jal lr,[r1]FFFFFFFFFFFFFAF4 31FFEF73 call Pulse100FFFFFFFFFFFFFAF8 irqret:FFFFFFFFFFFFFAF8 460F1460 lw sp,sp_saveFFFFFFFFFFFFFAFC 460F9468 lw lr,lr_saveFFFFFFFFFFFFFB00 460D1480 lw r26,r26_saveFFFFFFFFFFFFFB04 46009470 lw r1,r1_saveFFFFFFFFFFFFFB08 46011478 lw r2,r2_saveFFFFFFFFFFFFFB0C 01900020 iretFFFFFFFFFFFFFB10 irqSerial:FFFFFFFFFFFFFB10 4600B010 lw r1,serialIRQvecFFFFFFFFFFFFFB14 341F8000 jal lr,[r1]FFFFFFFFFFFFFB18 BE007F0A bra irqretFFFFFFFFFFFFFB1C irqRaster:FFFFFFFFFFFFFB1C 4600B018 lw r1,rasterIRQvec; jal lr,[r1]FFFFFFFFFFFFFB20 31FFF46B call RasterIRQfnFFFFFFFFFFFFFB24 BE007EAA bra irqretFFFFFFFFFFFFFB28 irqKeybd:FFFFFFFFFFFFFB28 4600B008 lw r1,keybdIRQvecFFFFFFFFFFFFFB2C 31FFEEF0 call KeybdIRQ; jal lr,[r1]FFFFFFFFFFFFFB30 BE007E4A bra irqretFFFFFFFFFFFFFB34 irqColdStart:FFFFFFFFFFFFFB34 33FFEC0B jmp ColdStart;------------------------------------------------------------------------------; NMI routine;; The NMI line is tied to the parity error signal. But also any non-initialized; interrupts get sent here.;------------------------------------------------------------------------------;FFFFFFFFFFFFFB38 nmirout:FFFFFFFFFFFFFB38 660F1460 sw sp,sp_saveFFFFFFFFFFFFFB3C 66009470 sw r1,r1_saveFFFFFFFFFFFFFB40 660D1480 sw r26,r26_saveFFFFFFFFFFFFFB44 E6801000 ; SETLOFFFFFFFFFFFFFB48 EE800400 ; SETMIDFFFFFFFFFFFFFB4C 040D7809 lw sp,#0x100001000FFFFFFFFFFFFFB50 E69CFFFE ; SETLOFFFFFFFFFFFFFB54 EE800003 ; SETMIDFFFFFFFFFFFFFB58 6A0D0028 outb r0,0xDCFFFE ; acknowledge interruptFFFFFFFFFFFFFB5C 9A00FB80 lea r1,msgPerrFFFFFFFFFFFFFB60 31FFF122 call DisplayStringFFFFFFFFFFFFFB64 02008868 mfspr r1,IPCFFFFFFFFFFFFFB68 31FFF169 call DisplayWordFFFFFFFFFFFFFB6C 31FFFD80 call CRLFFFFFFFFFFFFFFB70 460F1460 lw sp,sp_saveFFFFFFFFFFFFFB74 46009470 lw r1,r1_saveFFFFFFFFFFFFFB78 460D1480 lw r26,r26_saveFFFFFFFFFFFFFB7C 01900020 iretFFFFFFFFFFFFFB80 msgPerr:FFFFFFFFFFFFFB80 6520797469726150 db "Parity error at: ",0FFFFFFFFFFFFFB88 3A746120726F7272;-------------------------------------------; Unimplemented instructions end up here;-------------------------------------------FFFFFFFFFFFFFB94 .align 4FFFFFFFFFFFFFB94 ui_irout:FFFFFFFFFFFFFB94 0FEF0008 subui sp,sp,#8FFFFFFFFFFFFFB98 67E08000 sw r1,[sp]FFFFFFFFFFFFFB9C 9A00FBC0 lea r1,msgUnimpFFFFFFFFFFFFFBA0 31FFF122 call DisplayStringFFFFFFFFFFFFFBA4 02008868 mfspr r1,IPCFFFFFFFFFFFFFBA8 31FFF169 call DisplayWordFFFFFFFFFFFFFBAC 31FFFD80 call CRLFFFFFFFFFFFFFFBB0 47E08000 lw r1,[sp]FFFFFFFFFFFFFBB4 0BEF0008 addui sp,sp,#8; hang the contextFFFFFFFFFFFFFBB8 ui_irout1:FFFFFFFFFFFFFBB8 BE00000A bra ui_irout1FFFFFFFFFFFFFBBC 01900020 iretFFFFFFFFFFFFFBC0 msgUnimp:FFFFFFFFFFFFFBC0 6D656C706D696E55 db "Unimplemented instruction at: ",0FFFFFFFFFFFFFBC8 6E69206465746E65FFFFFFFFFFFFFBD0 6F69746375727473;-------------------------------------------; Handle miss on Data TLB;-------------------------------------------FFFFFFFFFFFFFBD8 0000203A7461206E .align 4FFFFFFFFFFFFFBE0 .align 4FFFFFFFFFFFFFBE0 DTLBHandler:FFFFFFFFFFFFFBE0 E6BF0000 ; SETLOFFFFFFFFFFFFFBE4 6A0D0413 sw r1,0xFFFF_FFFF_FFFF_0000FFFFFFFFFFFFFBE8 E6BF0008 ; SETLOFFFFFFFFFFFFFBEC 6A0D0813 sw r2,0xFFFF_FFFF_FFFF_0008FFFFFFFFFFFFFBF0 dh1:FFFFFFFFFFFFFBF0 02008034 omgi r1,#0 ; try open mutex gate #0 (TLB protector)FFFFFFFFFFFFFBF4 BE107FE9 bne r1,r0,dh1 ; spinlock if gate is closedFFFFFFFFFFFFFBF8 02008128 mfspr r1,PTA ; get the page table addressFFFFFFFFFFFFFBFC 02010228 mfspr r2,BadVAddr ; get the bad virtual addressFFFFFFFFFFFFFC00 022002E9 mtspr TLBVirtPage,r2 ; which virtual address to updateFFFFFFFFFFFFFC04 06211A01 shrui r2,r2,#13 ; turn va into indexFFFFFFFFFFFFFC08 04110403 addu r1,r1,r2FFFFFFFFFFFFFC0C 46110000 lw r2,[r1] ; get the physical address from the tableFFFFFFFFFFFFFC10 14210000 and r2,r2,#FFFF_FFFF_FFFF_E000 ; mask off lower bitsFFFFFFFFFFFFFC14 022002A9 mtspr TLBPhysPage0,r2 ;FFFFFFFFFFFFFC18 46110008 lw r2,8[r1] ; get the physical address from the tableFFFFFFFFFFFFFC1C 14210000 and r2,r2,#FFFF_FFFF_FFFF_E000 ; mask off lower bitsFFFFFFFFFFFFFC20 022002E9 mtspr TLBPhysPage1,r2 ;FFFFFFFFFFFFFC24 02000034 tlbwr ; update a random entry in the TLBFFFFFFFFFFFFFC28 02000035 cmgi #0 ; close the mutex gateFFFFFFFFFFFFFC2C E6BF0000 ; SETLOFFFFFFFFFFFFFC30 6A0D0403 lw r1,0xFFFF_FFFF_FFFF_0000FFFFFFFFFFFFFC34 E6BF0008 ; SETLOFFFFFFFFFFFFFC38 6A0D0803 lw r2,0xFFFF_FFFF_FFFF_0008FFFFFFFFFFFFFC3C 01900020 iretFFFFFFFFFFFFFC40 .align 32FFFFFFFFFFFFFFB0 org 0xFFFF_FFFF_FFFF_FFB0FFFFFFFFFFFFFFB0 33FFFEF8 jmp DTLBHandlerFFFFFFFFFFFFFFB4 DE000000 nopFFFFFFFFFFFFFFB8 DE000000 nopFFFFFFFFFFFFFFC0 org 0xFFFF_FFFF_FFFF_FFC0FFFFFFFFFFFFFFC0 33FFFEF8 jmp DTLBHandlerFFFFFFFFFFFFFFC4 DE000000 nopFFFFFFFFFFFFFFC8 DE000000 nopFFFFFFFFFFFFFFE0 org 0xFFFF_FFFF_FFFF_FFE0FFFFFFFFFFFFFFE0 0000000000000000 dw 0 ;FFFFFFFFFFFFFFE8 0000000000000000 dw 0 ;; RST vectorFFFFFFFFFFFFFFF0 org 0xFFFF_FFFF_FFFF_FFF0FFFFFFFFFFFFFFF0 33FFEC0B jmp start; ROM checksum goes hereFFFFFFFFFFFFFFF8 org 0xFFFF_FFFF_FFFF_FFF8FFFFFFFFFFFFFFF8 0000000000000000 dw 00000000000000000 000000000000000000000004 00000000Symbol Table:==========================================================Name Typ Segment Address/Value----------------------------------------------------------CR C constant 000000000000000DLF C constant 000000000000000ATAB C constant 0000000000000009CTRLC C constant 0000000000000003CTRLH C constant 0000000000000008CTRLI C constant 0000000000000009CTRLJ C constant 000000000000000ACTRLK C constant 000000000000000BCTRLM C constant 000000000000000DCTRLS C constant 0000000000000013CTRLX C constant 0000000000000018XON C constant 0000000000000011XOFF C constant 0000000000000013EX_IRQ C constant 00000000000001C1DATA_PRESENT C constant 0000000000000001XMIT_NOT_FULL C constant 0000000000000020BUFLEN C constant 0000000000000050STACKTOP0 C constant FFFFFFFFFFFEFFF8STACKTOP1 C constant FFFFFFFFFFFEFBF8STACKTOP2 C constant FFFFFFFFFFFEF7F8STACKTOP3 C constant FFFFFFFFFFFEF3F8STACKTOP4 C constant FFFFFFFFFFFEEFF8STACKTOP5 C constant FFFFFFFFFFFEEBF8STACKTOP6 C constant FFFFFFFFFFFEE7F8STACKTOP7 C constant FFFFFFFFFFFEE3F8STACKTOP8 C constant FFFFFFFFFFFEDFF8STACKTOP9 C constant FFFFFFFFFFFEDBF8STACKTOP10 C constant FFFFFFFFFFFED7F8STACKTOP11 C constant FFFFFFFFFFFED3F8STACKTOP12 C constant FFFFFFFFFFFECFF8STACKTOP13 C constant FFFFFFFFFFFECBF8STACKTOP14 C constant FFFFFFFFFFFEC7F8STACKTOP15 C constant FFFFFFFFFFFEC3F8TCBSize C constant 0000000000000200TCBBase C constant 0000000100000000TCBr1 C constant 0000000000000000TCBr2 C constant 0000000000000008TCBr3 C constant 0000000000000010TCBr4 C constant 0000000000000018TCBr5 C constant 0000000000000020TCBr6 C constant 0000000000000028TCBr7 C constant 0000000000000030TCBr8 C constant 0000000000000038TCBr9 C constant 0000000000000040TCBr10 C constant 0000000000000048TCBr11 C constant 0000000000000050TCBr12 C constant 0000000000000058TCBr13 C constant 0000000000000060TCBr14 C constant 0000000000000068TCBr15 C constant 0000000000000070TCBr16 C constant 0000000000000078TCBr17 C constant 0000000000000080TCBr18 C constant 0000000000000088TCBr19 C constant 0000000000000090TCBr20 C constant 0000000000000098TCBr21 C constant 00000000000000A0TCBr22 C constant 00000000000000A8TCBr23 C constant 00000000000000B0TCBr24 C constant 00000000000000B8TCBr25 C constant 00000000000000C0TCBr26 C constant 00000000000000C8TCBr27 C constant 00000000000000D0TCBr28 C constant 00000000000000D8TCBr29 C constant 00000000000000E0TCBr30 C constant 00000000000000E8TCBr31 C constant 00000000000000F0SCREENGATE C constant 0000000000000000KEYBDGATE C constant 0000000000000001VIDEOGATE C constant 0000000000000002CARDGATE C constant 0000000000000003warmStart C constant 0000000000001020usrJmp C constant 0000000000001028TickIRQAddr C constant 0000000000001030TaskBlock C constant 0000000000001038Milliseconds C constant 0000000000001400Lastloc C constant 0000000000001408CharColor C constant 0000000000001410ScreenColor C constant 0000000000001414CursorRow C constant 0000000000001417CursorCol C constant 0000000000001418CursorFlash C constant 000000000000141AKeybdEcho C constant 000000000000141CKeybdBuffer C constant 0000000000001440KeybdHead C constant 0000000000001450KeybdTail C constant 0000000000001451sp_save C constant 0000000000001460lr_save C constant 0000000000001468r1_save C constant 0000000000001470r2_save C constant 0000000000001478r26_save C constant 0000000000001480Score C constant 0000000000001500Manpos C constant 0000000000001508MissileActive C constant 0000000000001510MissileX C constant 0000000000001512MissileY C constant 0000000000001514InvadersRow1 C constant 0000000000001520InvadersRow2 C constant 0000000000001530InvadersRow3 C constant 0000000000001540InvadersRow4 C constant 0000000000001550InvadersRow5 C constant 0000000000001560InvadersColpos C constant 0000000000001570InvadersRowpos C constant 0000000000001571Uart_rxfifo C constant 0000000000001600Uart_rxhead C constant 0000000000001800Uart_rxtail C constant 0000000000001802Uart_ms C constant 0000000000001808Uart_rxrts C constant 0000000000001809Uart_rxdtr C constant 000000000000180AUart_rxxon C constant 000000000000180BUart_rxflow C constant 000000000000180CUart_fon C constant 000000000000180EUart_foff C constant 0000000000001810Uart_txrts C constant 0000000000001812Uart_txdtr C constant 0000000000001813Uart_txxon C constant 0000000000001814Uart_txxonoff C constant 0000000000001815TaskList C constant 0000000000002000ReadyList1 C constant 0000000000002000ReadyList2 C constant 0000000000002020ReadyList3 C constant 0000000000002040ReadyList4 C constant 0000000000002060ReadyList5 C constant 0000000000002080ReadyNdx1 C constant 00000000000020A0ReadyNdx2 C constant 00000000000020A1ReadyNdx3 C constant 00000000000020A2ReadyNdx4 C constant 00000000000020A3ReadyNdx5 C constant 00000000000020A4RunningTCB C constant 00000000000020A6NextToRunTCB C constant 00000000000020A8r1save C constant 00000000000020B0r2save C constant 00000000000020B8AXCstart C constant 00000000000020C0ctx0start C constant 00000000000020D0ctx1start C constant 00000000000020D8ctx2start C constant 00000000000020E0ctx3start C constant 00000000000020E8ctx4start C constant 00000000000020F0ctx5start C constant 00000000000020F8ctx6start C constant 0000000000002100ctx7start C constant 0000000000002108ctx8start C constant 0000000000002110ctx9start C constant 0000000000002118ctx10start C constant 0000000000002120ctx11start C constant 0000000000002128ctx12start C constant 0000000000002130ctx13start C constant 0000000000002138ctx14start C constant 0000000000002140ctx15start C constant 0000000000002148sp_saves C constant 0000000000002200sp_saves_end C constant 0000000000002280p100IRQvec C constant 0000000000003000keybdIRQvec C constant 0000000000003008serialIRQvec C constant 0000000000003010rasterIRQvec C constant 0000000000003018startSector C constant 00000000000030F8BPB C constant 0000000000003100TEXTSCR C constant 0000000000D00000COLORSCR C constant 0000000000D10000TEXTREG C constant 0000000000DA0000TEXT_COLS C constant 0000000000000000TEXT_ROWS C constant 0000000000000002TEXT_CURPOS C constant 0000000000000016KEYBD C constant 0000000000DC0000KEYBDCLR C constant 0000000000DC0002UART C constant 0000000000DC0A00UART_LS C constant 0000000000DC0A01UART_IS C constant 0000000000DC0A03UART_IE C constant 0000000000DC0A04UART_MC C constant 0000000000DC0A06DATETIME C constant 0000000000DC0400SPIMASTER C constant 0000000000DC0500SPI_MASTER_VERSION_REG C constant 0000000000000000SPI_MASTER_CONTROL_REG C constant 0000000000000001SPI_TRANS_TYPE_REG C constant 0000000000000002SPI_TRANS_CTRL_REG C constant 0000000000000003SPI_TRANS_STATUS_REG C constant 0000000000000004SPI_TRANS_ERROR_REG C constant 0000000000000005SPI_DIRECT_ACCESS_DATA_REG C constant 0000000000000006SPI_SD_ADDR_7_0_REG C constant 0000000000000007SPI_SD_ADDR_15_8_REG C constant 0000000000000008SPI_SD_ADDR_23_16_REG C constant 0000000000000009SPI_SD_ADDR_31_24_REG C constant 000000000000000ASPI_RX_FIFO_DATA_REG C constant 0000000000000010SPI_RX_FIFO_DATA_COUNT_MSB C constant 0000000000000012SPI_RX_FIFO_DATA_COUNT_LSB C constant 0000000000000013SPI_RX_FIFO_CTRL_REG C constant 0000000000000014SPI_TX_FIFO_DATA_REG C constant 0000000000000020SPI_TX_FIFO_CTRL_REG C constant 0000000000000024SPI_INIT_SD C constant 0000000000000001SPI_TRANS_START C constant 0000000000000001SPI_TRANS_BUSY C constant 0000000000000001SPI_INIT_NO_ERROR C constant 0000000000000000SPI_READ_NO_ERROR C constant 0000000000000000RW_READ_SD_BLOCK C constant 0000000000000002RW_WRITE_SD_BLOCK C constant 0000000000000003PIC C constant 0000000000DC0FF0PIC_IE C constant 0000000000DC0FF2PSG C constant 0000000000D50000PSGFREQ0 C constant 0000000000D50000PSGPW0 C constant 0000000000D50002PSGCTRL0 C constant 0000000000D50004PSGADSR0 C constant 0000000000D50006SPRRAM C constant 0000000000D80000AC97 C constant 0000000000DC1000TMP C constant 0000000000DC0300LED C constant 0000000000DC0600ETHMAC C constant 0000000000DC2000CONFIGREC C constant 0000000000DCFFFFMIIMODER C constant 0000000000000028MIIADDRESS C constant 0000000000000030GACCEL C constant 0000000000DAE000RASTERIRQ C constant 0000000000DA0100BOOT_STACK C constant FFFFFFFFFFFEFFF8SPRITEREGS C constant 0000000000DAD000BITMAPSCR C constant 0000000100200000BOOTJMP C constant 0000000100800204txempty C constant 0000000000000040rxfull C constant 0000000000000001txtWidth L bss 0000000000001048txtHeight L bss 0000000000001049cursx L bss 000000000000104Acursy L bss 000000000000104Bpos L bss 000000000000104Cdh L bss 000000000000104C0 L bss 000000000000104CcharToPrint L bss 000000000000104CfgColor L bss 000000000000104EbkColor L bss 0000000000001051cursFlash L bss 0000000000001052lineLinkTbl L bss 0000000000001053typef L bss 0000000000001085OSSP L bss 0000000000001088CURRNT L bss 0000000000001090STKGOS L bss 0000000000001098STKINP L bss 00000000000010A0LOPVAR L bss 00000000000010A8LOPINC L bss 00000000000010B0LOPLMT L bss 00000000000010B8LOPLN L bss 00000000000010C0LOPPT L bss 00000000000010C8TXTUNF L bss 00000000000010D0VARBGN L bss 00000000000010D8IVARBGN L bss 00000000000010E0SVARBGN L bss 00000000000010E8FVARBGN L bss 00000000000010F0STKBOT L bss 00000000000010F8NUMWKA L bss 0000000000001100BUFFER L bss 000000000000111BTXT C constant 0000000100600000start L code FFFFFFFFFFFFB02CColdStart L code FFFFFFFFFFFFB02Cict1 L code FFFFFFFFFFFFB084ctxstart3 L code FFFFFFFFFFFFB214ctxstart2 L code FFFFFFFFFFFFB224ctxstart L code FFFFFFFFFFFFB228ctxstart1 L code FFFFFFFFFFFFB3FCcsj5 L code FFFFFFFFFFFFB240skip5 L code FFFFFFFFFFFFB2E4skip4 L code FFFFFFFFFFFFB2FCdcokay L code FFFFFFFFFFFFB330skip1 L code FFFFFFFFFFFFB368skip2 L code FFFFFFFFFFFFB3B0skip3 L code FFFFFFFFFFFFB3D8skip_spi_read L code FFFFFFFFFFFFB3F0j4 L code FFFFFFFFFFFFB3F4ctx12 L code FFFFFFFFFFFFB410context1disp L code FFFFFFFFFFFFB428ctx11 L code FFFFFFFFFFFFB448HelloWorld L code FFFFFFFFFFFFB460j3 L code FFFFFFFFFFFFB478j2 L code FFFFFFFFFFFFB48CMSG L code FFFFFFFFFFFFB4A0MSGSTART L code FFFFFFFFFFFFB4ADPICInit L code FFFFFFFFFFFFB4D0PICret L code FFFFFFFFFFFFB4ECSerialInit L code FFFFFFFFFFFFB4F0SerialGetCharDirect L code FFFFFFFFFFFFB534sgc1 L code FFFFFFFFFFFFCDC0SerialCheckForCharDirect L code FFFFFFFFFFFFB558SerialPutChar L code FFFFFFFFFFFFB570spcb1 L code FFFFFFFFFFFFB5D0spcb3 L code FFFFFFFFFFFFB5B0spcabort L code FFFFFFFFFFFFB658spcb2 L code FFFFFFFFFFFFB600spcb4 L code FFFFFFFFFFFFB5E0spcb5 L code FFFFFFFFFFFFB61Cspcb6 L code FFFFFFFFFFFFB608spcb8 L code FFFFFFFFFFFFB624spcb7 L code FFFFFFFFFFFFB64CCharsInRxBuf L code FFFFFFFFFFFFB66Ccirxb1 L code FFFFFFFFFFFFB68CSerialGetChar L code FFFFFFFFFFFFB690sgcfifo1 L code FFFFFFFFFFFFB750sgcfifo2 L code FFFFFFFFFFFFB73Csgcfifo3 L code FFFFFFFFFFFFB700sgcfifo4 L code FFFFFFFFFFFFB724sgcfifo5 L code FFFFFFFFFFFFB73CSerialIRQ L code FFFFFFFFFFFFB768sirq1 L code FFFFFFFFFFFFB7A0srxirq L code FFFFFFFFFFFFB7C8stxirq L code FFFFFFFFFFFFB7C4smsirq L code FFFFFFFFFFFFB7B8srxirq1 L code FFFFFFFFFFFFB7C8srxirq3 L code FFFFFFFFFFFFB7F8srxirq2 L code FFFFFFFFFFFFB7ECsrxirq5 L code FFFFFFFFFFFFB814srxirq8 L code FFFFFFFFFFFFB8A4srxirq6 L code FFFFFFFFFFFFB868srxirq7 L code FFFFFFFFFFFFB88CVideoSC L code FFFFFFFFFFFFB8A8Video1 L code FFFFFFFFFFFFB8D0Video_x02 L code FFFFFFFFFFFFB90CVideo_x03 L code FFFFFFFFFFFFB91CVideo_x06 L code FFFFFFFFFFFFB928Video_x09 L code FFFFFFFFFFFFB930Video_x0A L code FFFFFFFFFFFFB944Video_x0C L code FFFFFFFFFFFFB954Video_x0D L code FFFFFFFFFFFFB98CVideo_x14 L code FFFFFFFFFFFFB9E0Video_x15 L code FFFFFFFFFFFFB9ECVideo_x16 L code FFFFFFFFFFFFB9FCVideo_x17 L code FFFFFFFFFFFFBA08Video_x1A L code FFFFFFFFFFFFBA14VideoRet L code FFFFFFFFFFFFBA20Video_x09a L code FFFFFFFFFFFFB938Video_x0Aa L code FFFFFFFFFFFFB948vxd1 L code FFFFFFFFFFFFB9C0SDCARDSC L code FFFFFFFFFFFFBA38SDC_1 L code FFFFFFFFFFFFBA60SDC_x00 L code FFFFFFFFFFFFBA78SDC_x01 L code FFFFFFFFFFFFBA80SDC_x02 L code FFFFFFFFFFFFBA90SDCRet L code FFFFFFFFFFFFBA90RTCSC L code FFFFFFFFFFFFBAA8RTC_x00 L code FFFFFFFFFFFFBAD8RTC_x01 L code FFFFFFFFFFFFBAE0RTCRet L code FFFFFFFFFFFFBB00KeybdSC L code FFFFFFFFFFFFBB14kbdsc5 L code FFFFFFFFFFFFBB3Ckbd_x00 L code FFFFFFFFFFFFBB60kbd_x01 L code FFFFFFFFFFFFBB68kbd_x02 L code FFFFFFFFFFFFBB74kbd_x03 L code FFFFFFFFFFFFBB7Ckbd_x04 L code FFFFFFFFFFFFBB84kbd_x05 L code FFFFFFFFFFFFBB8CkbdscRet L code FFFFFFFFFFFFBB94KeybdInit L code FFFFFFFFFFFFBBACKeybdIRQ L code FFFFFFFFFFFFBBC0KeybdIRQa L code FFFFFFFFFFFFBBD0KeybdIRQb L code FFFFFFFFFFFFBBF8KeybdIRQc L code FFFFFFFFFFFFBC0CSetKeyboardEcho L code FFFFFFFFFFFFBC14KeybdGetChar L code FFFFFFFFFFFFBC1Cnochar L code FFFFFFFFFFFFBC60kgc3 L code FFFFFFFFFFFFBC64kgc2 L code FFFFFFFFFFFFBC58KeybdCheckForKey L code FFFFFFFFFFFFBC70KeybdCheckForKeyDirect L code FFFFFFFFFFFFBC80KeybdGetCharDirect L code FFFFFFFFFFFFBC94kgc1 L code FFFFFFFFFFFFBCA4gk1 L code FFFFFFFFFFFFBCDCgk2 L code FFFFFFFFFFFFBCD8tmp_init L code FFFFFFFFFFFFBCE8tmp_init4 L code FFFFFFFFFFFFBCF4tmp_init5 L code FFFFFFFFFFFFBD0Ctmp_init1 L code FFFFFFFFFFFFBD20tmp_init2 L code FFFFFFFFFFFFBD30tmp_init3 L code FFFFFFFFFFFFBD48tmp_read L code FFFFFFFFFFFFBD4Ctmp_read1 L code FFFFFFFFFFFFBD68tmp_read3 L code FFFFFFFFFFFFBD80tmp_read2 L code FFFFFFFFFFFFBD90tmp_read4 L code FFFFFFFFFFFFBDA8Pulse100 L code FFFFFFFFFFFFBDCCp1001 L code FFFFFFFFFFFFBE00SelectNextToRunTCB L code FFFFFFFFFFFFBE08SwitchTask L code FFFFFFFFFFFFBE10swtsk1 L code FFFFFFFFFFFFBE30FlashCursor L code FFFFFFFFFFFFBF60flshcrsr2 L code FFFFFFFFFFFFBFBCflshcrsr3 L code FFFFFFFFFFFFBF94flshcrsr1 L code FFFFFFFFFFFFBFA8CursorOff L code FFFFFFFFFFFFBFC8CursorOn L code FFFFFFFFFFFFBFDCClearBmpScreen L code FFFFFFFFFFFFBFF0csj4 L code FFFFFFFFFFFFC08CClearScreen L code FFFFFFFFFFFFC044ScrollUp L code FFFFFFFFFFFFC0B8scrup1 L code FFFFFFFFFFFFC0F8BlankLine L code FFFFFFFFFFFFC138blnkln1 L code FFFFFFFFFFFFC170AsciiToScreen L code FFFFFFFFFFFFC18Catoscr1 L code FFFFFFFFFFFFC1A4ScreenToAscii L code FFFFFFFFFFFFC1ACstasc1 L code FFFFFFFFFFFFC1B8CalcScreenLoc L code FFFFFFFFFFFFC1BCDisplayChar L code FFFFFFFFFFFFC1FCdccr L code FFFFFFFFFFFFC21Cdcx7 L code FFFFFFFFFFFFC248dcx6 L code FFFFFFFFFFFFC260dccr1 L code FFFFFFFFFFFFC224dcx8 L code FFFFFFFFFFFFC290dccu1 L code FFFFFFFFFFFFC268dcx9 L code FFFFFFFFFFFFC2C0dccl1 L code FFFFFFFFFFFFC298dcx10 L code FFFFFFFFFFFFC2F0dccd1 L code FFFFFFFFFFFFC2C8dcx11 L code FFFFFFFFFFFFC324dcx12 L code FFFFFFFFFFFFC31Cdcx13 L code FFFFFFFFFFFFC358dcx5 L code FFFFFFFFFFFFC378dcx3 L code FFFFFFFFFFFFC3ACdcx4 L code FFFFFFFFFFFFC3E0dclf L code FFFFFFFFFFFFC3DCIncCursorPos L code FFFFFFFFFFFFC3FCicc1 L code FFFFFFFFFFFFC470icr1 L code FFFFFFFFFFFFC448IncCursorRow L code FFFFFFFFFFFFC434DisplayString L code FFFFFFFFFFFFC488dspj1 L code FFFFFFFFFFFFC49Cdsret L code FFFFFFFFFFFFC4B0DisplayStringCRLF L code FFFFFFFFFFFFC4C0CRLF L code FFFFFFFFFFFFF600DisplayNum L code FFFFFFFFFFFFC4FCDisplayNybble L code FFFFFFFFFFFFC500dispnyb1 L code FFFFFFFFFFFFC51CDisplayByte L code FFFFFFFFFFFFC52CDisplayCharr L code FFFFFFFFFFFFC554DisplayHalf L code FFFFFFFFFFFFC57CDisplayWord L code FFFFFFFFFFFFC5A4dspwd1 L code FFFFFFFFFFFFC5B8DisplayMemB L code FFFFFFFFFFFFC5D4dspmem1 L code FFFFFFFFFFFFC5F8DisplayMemC L code FFFFFFFFFFFFC624dspmemc1 L code FFFFFFFFFFFFC648DisplayMemW L code FFFFFFFFFFFFC674BinToBCD L code FFFFFFFFFFFFC6B4bta1 L code FFFFFFFFFFFFC6D8BCDToAscii L code FFFFFFFFFFFFC730bta2 L code FFFFFFFFFFFFC748BinToStr L code FFFFFFFFFFFFC78Cbtos3 L code FFFFFFFFFFFFC7C0btos1 L code FFFFFFFFFFFFC7C4btos2 L code FFFFFFFFFFFFC7F4Monitor L code FFFFFFFFFFFFC828PromptLn L code FFFFFFFFFFFFC834Prompt3 L code FFFFFFFFFFFFC840Prompt1 L code FFFFFFFFFFFFC854Prompt2 L code FFFFFFFFFFFFC87CEditmem L code FFFFFFFFFFFFCA24Dumpmem L code FFFFFFFFFFFFCA70Fillmem L code FFFFFFFFFFFFCAD4Prompt7 L code FFFFFFFFFFFFC888Prompt4 L code FFFFFFFFFFFFC890ExecuteCode L code FFFFFFFFFFFFCA4CPrompt9 L code FFFFFFFFFFFFC89CPrompt10 L code FFFFFFFFFFFFC8ACTestCLS L code FFFFFFFFFFFFC8DCPrompt12 L code FFFFFFFFFFFFC8B8Prompt13 L code FFFFFFFFFFFFC8C0Prompt14 L code FFFFFFFFFFFFC8C8Prompt15 L code FFFFFFFFFFFFC8D0RandomLinesCall L code FFFFFFFFFFFFC8D4HelpMsg L code FFFFFFFFFFFFC910ignBlanks L code FFFFFFFFFFFFCA00ignBlanks1 L code FFFFFFFFFFFFCA08edtmem1 L code FFFFFFFFFFFFCA34LoadSector L code FFFFFFFFFFFFCA5CDumpmem2 L code FFFFFFFFFFFFCAA0DumpmemW L code FFFFFFFFFFFFCAC4DumpmemC L code FFFFFFFFFFFFCAB8DumpmemB L code FFFFFFFFFFFFCAACFillmemC L code FFFFFFFFFFFFCB20FillmemH L code FFFFFFFFFFFFCB30FillmemW L code FFFFFFFFFFFFCB40FillmemB L code FFFFFFFFFFFFCB10GetHexNumber L code FFFFFFFFFFFFCB50gthxn2 L code FFFFFFFFFFFFCB68gthxn1 L code FFFFFFFFFFFFCB8CAsciiToHexNybble L code FFFFFFFFFFFFCBA0gthx3 L code FFFFFFFFFFFFCBD8gthx5 L code FFFFFFFFFFFFCBB0gthx6 L code FFFFFFFFFFFFCBC4LoadS19 L code FFFFFFFFFFFFCBE0ProcessRec L code FFFFFFFFFFFFCBECNextRec L code FFFFFFFFFFFFCBE4ProcessS1 L code FFFFFFFFFFFFCCA4ProcessS2 L code FFFFFFFFFFFFCCACProcessS3 L code FFFFFFFFFFFFCCB4ProcessS7 L code FFFFFFFFFFFFCCBCProcessS8 L code FFFFFFFFFFFFCCC8ProcessS9 L code FFFFFFFFFFFFCCD4pcssxa L code FFFFFFFFFFFFCC4Cpcss1a L code FFFFFFFFFFFFCC54S19Get16BitAddress L code FFFFFFFFFFFFCCE0S1932b L code FFFFFFFFFFFFCD64S19Get24BitAddress L code FFFFFFFFFFFFCCF8S1932a L code FFFFFFFFFFFFCD44S19Get32BitAddress L code FFFFFFFFFFFFCD10sGetChar L code FFFFFFFFFFFFCDA8sgc2 L code FFFFFFFFFFFFCDB0RandomLines L code FFFFFFFFFFFFCDD0rl5 L code FFFFFFFFFFFFCDE4rl1 L code FFFFFFFFFFFFCDF8rl2 L code FFFFFFFFFFFFCE14rl3 L code FFFFFFFFFFFFCE30rl4 L code FFFFFFFFFFFFCE4Crl8 L code FFFFFFFFFFFFCE78rl7 L code FFFFFFFFFFFFCE8CRandomizeSprram L code FFFFFFFFFFFFCE9Crsr1 L code FFFFFFFFFFFFCEACSetupAC97 L code FFFFFFFFFFFFCEC4sac974 L code FFFFFFFFFFFFCED0sac971 L code FFFFFFFFFFFFCEDCsac973 L code FFFFFFFFFFFFCF08sac972 L code FFFFFFFFFFFFCF48sac975 L code FFFFFFFFFFFFCF60Beep L code FFFFFFFFFFFFCF6Cbeep1 L code FFFFFFFFFFFFCFE4beep2 L code FFFFFFFFFFFFD014Piano L code FFFFFFFFFFFFD044playnt L code FFFFFFFFFFFFD054playnt1a L code FFFFFFFFFFFFD07Cplaynt1b L code FFFFFFFFFFFFD088playnt1c L code FFFFFFFFFFFFD094playnt1d L code FFFFFFFFFFFFD0A0playnt1e L code FFFFFFFFFFFFD0ACplaynt1f L code FFFFFFFFFFFFD0B8playnt1g L code FFFFFFFFFFFFD0C4Tone L code FFFFFFFFFFFFD0D0tone1 L code FFFFFFFFFFFFD110tone2 L code FFFFFFFFFFFFD12CSetupRasterIRQ L code FFFFFFFFFFFFD14CRasterIRQfn L code FFFFFFFFFFFFD1ACrirq1 L code FFFFFFFFFFFFD1DCrirq2 L code FFFFFFFFFFFFD1DCrirq3 L code FFFFFFFFFFFFD1DCrirq4 L code FFFFFFFFFFFFD1DCrirq5 L code FFFFFFFFFFFFD1DCrirq6 L code FFFFFFFFFFFFD1DCrirq7 L code FFFFFFFFFFFFD1DCrirq8 L code FFFFFFFFFFFFD1DCDisplayDatetime L code FFFFFFFFFFFFD248InitializeGame L code FFFFFFFFFFFFD2C4DrawScore L code FFFFFFFFFFFFD2ECDrawMissile L code FFFFFFFFFFFFD31CMissileOff L code FFFFFFFFFFFFD378DrawMan L code FFFFFFFFFFFFD3A0DrawInvader L code FFFFFFFFFFFFD3ECDrawInvaders L code FFFFFFFFFFFFD40Cdinv1 L code FFFFFFFFFFFFD494DrawBombs L code FFFFFFFFFFFFD49CInvaders L code FFFFFFFFFFFFD4A0InvadersLoop L code FFFFFFFFFFFFD4ACTestMoveMan L code FFFFFFFFFFFFD4C0MoveManRight L code FFFFFFFFFFFFD4D4MoveManLeft L code FFFFFFFFFFFFD4ECFireMissile L code FFFFFFFFFFFFD500Invaders1 L code FFFFFFFFFFFFD524InvadersEnd L code FFFFFFFFFFFFD52Cspi_init L code FFFFFFFFFFFFD538spi_init1 L code FFFFFFFFFFFFD568spi_error L code FFFFFFFFFFFFD594spi_init_exit L code FFFFFFFFFFFFD5A4spi_read_sector L code FFFFFFFFFFFFD5B4spi_read_sect1 L code FFFFFFFFFFFFD614spi_read_error L code FFFFFFFFFFFFD64Cspi_read_sect2 L code FFFFFFFFFFFFD634spi_read_ret L code FFFFFFFFFFFFD65Cspi_read_boot L code FFFFFFFFFFFFD674spi_read_boot1 L code FFFFFFFFFFFFD694spi_read_boot2 L code FFFFFFFFFFFFD6DCspi_read_boot3 L code FFFFFFFFFFFFD6D0spi_read_boot4 L code FFFFFFFFFFFFD714msgFoundEB L code FFFFFFFFFFFFD728loadFAT L code FFFFFFFFFFFFD73CloadFAT1 L code FFFFFFFFFFFFD780loadRootDirectory L code FFFFFFFFFFFFD79CloadRootDir1 L code FFFFFFFFFFFFD800loadBootFile L code FFFFFFFFFFFFD814loadBootFileTmp L code FFFFFFFFFFFFD8A8loadBootFile4 L code FFFFFFFFFFFFD870loadBootFile5 L code FFFFFFFFFFFFD890loadBootFile3 L code FFFFFFFFFFFFD888loadBootFile1 L code FFFFFFFFFFFFD8C8loadBootFile2 L code FFFFFFFFFFFFD914msgJumpingToBoot L code FFFFFFFFFFFFD920msgNotBootable L code FFFFFFFFFFFFD930spi_init_ok_msg L code FFFFFFFFFFFFD946spi_init_error_msg L code FFFFFFFFFFFFD960spi_boot_error_msg L code FFFFFFFFFFFFD98Bspi_read_error_msg L code FFFFFFFFFFFFD99Emy_MAC1 C constant 0000000000000000my_MAC2 C constant 00000000000000FFmy_MAC3 C constant 00000000000000EEmy_MAC4 C constant 00000000000000F0my_MAC5 C constant 00000000000000DAmy_MAC6 C constant 0000000000000042.bss L code FFFFFFFFFFFFD9B4eth_unique_id L code FFFFFFFFFFFFD9B4.code L code FFFFFFFFFFFFD9BCeth_init L code FFFFFFFFFFFFD9BCeth_request_packet L code FFFFFFFFFFFFD9F4eth1 L code FFFFFFFFFFFFDA24eth20 L code FFFFFFFFFFFFDA4Ceth_interpret_packet L code FFFFFFFFFFFFDA70eth2 L code FFFFFFFFFFFFDA9Ceth5 L code FFFFFFFFFFFFDA90eth3 L code FFFFFFFFFFFFDACCeth4 L code FFFFFFFFFFFFDAB4eth6 L code FFFFFFFFFFFFDAC0eth7 L code FFFFFFFFFFFFDACCeth_send_packet L code FFFFFFFFFFFFDADCeth8 L code FFFFFFFFFFFFDAF4eth_build_packet L code FFFFFFFFFFFFDB24eth16 L code FFFFFFFFFFFFDBECeth_checksum L code FFFFFFFFFFFFDC38eth15 L code FFFFFFFFFFFFDC58eth14 L code FFFFFFFFFFFFDC80eth_verifyIP L code FFFFFFFFFFFFDCB0eth11 L code FFFFFFFFFFFFDD0Ceth12 L code FFFFFFFFFFFFDCF4eth13 L code FFFFFFFFFFFFDCF8eth_main L code FFFFFFFFFFFFDD3Ceth_loop L code FFFFFFFFFFFFDD40eth10 L code FFFFFFFFFFFFDDF8GOSTART L code FFFFFFFFFFFFDF4CGOWARM L code FFFFFFFFFFFFDF50GOOUT L code FFFFFFFFFFFFDF54GOIN L code FFFFFFFFFFFFDF58GOAUXO L code FFFFFFFFFFFFDF5CGOAUXI L code FFFFFFFFFFFFDF60GOBYE L code FFFFFFFFFFFFDF64TXTBGN L code FFFFFFFFFFFFDF68ENDMEM L code FFFFFFFFFFFFDF70CSTART L code FFFFFFFFFFFFDF80WSTART L code FFFFFFFFFFFFE004ST3 L code FFFFFFFFFFFFE01CDIRECT L code FFFFFFFFFFFFE318ST2 L code FFFFFFFFFFFFE048ERROR L code FFFFFFFFFFFFF028ST4 L code FFFFFFFFFFFFE09CST7 L code FFFFFFFFFFFFE078ST6 L code FFFFFFFFFFFFE094ST5 L code FFFFFFFFFFFFE0C4TAB1 L code FFFFFFFFFFFFE0ECTAB2 L code FFFFFFFFFFFFE0FETAB4 L code FFFFFFFFFFFFE14ETAB5 L code FFFFFFFFFFFFE16FTAB6 L code FFFFFFFFFFFFE172TAB8 L code FFFFFFFFFFFFE177TAB9 L code FFFFFFFFFFFFE181TAB10 L code FFFFFFFFFFFFE185TAB1_1 L code FFFFFFFFFFFFE188TAB2_1 L code FFFFFFFFFFFFE1B0TAB4_1 L code FFFFFFFFFFFFE258TAB5_1 L code FFFFFFFFFFFFE2A0TAB6_1 L code FFFFFFFFFFFFE2B0TAB8_1 L code FFFFFFFFFFFFE2C0TAB9_1 L code FFFFFFFFFFFFE2F8TAB10_1 L code FFFFFFFFFFFFE308EXEC L code FFFFFFFFFFFFE320EXLP L code FFFFFFFFFFFFE334EXNGO L code FFFFFFFFFFFFE34CEXGO L code FFFFFFFFFFFFE384EXMAT L code FFFFFFFFFFFFE374EX1 L code FFFFFFFFFFFFE364NEW L code FFFFFFFFFFFFE38CSTOP L code FFFFFFFFFFFFE39CRUN L code FFFFFFFFFFFFE3A4RUNNXL L code FFFFFFFFFFFFE3B4RUNTSL L code FFFFFFFFFFFFE3D4RUNSML L code FFFFFFFFFFFFE3DCGOTO L code FFFFFFFFFFFFE3EC_clr L code FFFFFFFFFFFFE40CFINISH L code FFFFFFFFFFFFE518clearVars L code FFFFFFFFFFFFE414cv1 L code FFFFFFFFFFFFE428LISTX L code FFFFFFFFFFFFE440LS1 L code FFFFFFFFFFFFE454LS4 L code FFFFFFFFFFFFE45CLS3 L code FFFFFFFFFFFFE47CLS2 L code FFFFFFFFFFFFE474PRINT L code FFFFFFFFFFFFE488PR2 L code FFFFFFFFFFFFE4A0PR0 L code FFFFFFFFFFFFE4B4PR3 L code FFFFFFFFFFFFE4ECPR1 L code FFFFFFFFFFFFE4CCPR4 L code FFFFFFFFFFFFE4E4PR8 L code FFFFFFFFFFFFE508PR6 L code FFFFFFFFFFFFE500GOSUB L code FFFFFFFFFFFFE520gosub1 L code FFFFFFFFFFFFE538RETURN L code FFFFFFFFFFFFE55Creturn1 L code FFFFFFFFFFFFE570FOR L code FFFFFFFFFFFFE594FR1 L code FFFFFFFFFFFFE5ACFR2 L code FFFFFFFFFFFFE5C0FR4 L code FFFFFFFFFFFFE5CCFR3 L code FFFFFFFFFFFFE5C8FR5 L code FFFFFFFFFFFFE5D0FR7 L code FFFFFFFFFFFFE5ECFR6 L code FFFFFFFFFFFFE5E8FR8 L code FFFFFFFFFFFFE60CNEXT L code FFFFFFFFFFFFE610NX4 L code FFFFFFFFFFFFE624NX0 L code FFFFFFFFFFFFE628NX5 L code FFFFFFFFFFFFE638NX2 L code FFFFFFFFFFFFE644NX1 L code FFFFFFFFFFFFE664NXPurge L code FFFFFFFFFFFFE678NX3 L code FFFFFFFFFFFFE668IF L code FFFFFFFFFFFFE680IF1 L code FFFFFFFFFFFFE684IF2 L code FFFFFFFFFFFFE688IF3 L code FFFFFFFFFFFFE698INPERR L code FFFFFFFFFFFFE69CINPUT L code FFFFFFFFFFFFE6B0IP6 L code FFFFFFFFFFFFE6B8IP2 L code FFFFFFFFFFFFE6D8IP4 L code FFFFFFFFFFFFE748IP3 L code FFFFFFFFFFFFE708IP7 L code FFFFFFFFFFFFE6F0IP5 L code FFFFFFFFFFFFE758DEFLT L code FFFFFFFFFFFFE764LET L code FFFFFFFFFFFFE76CLT1 L code FFFFFFFFFFFFE780LOAD L code FFFFFFFFFFFFE784LOD1 L code FFFFFFFFFFFFE790LODEND L code FFFFFFFFFFFFE7D0LOD2 L code FFFFFFFFFFFFE7B8GCHAR L code FFFFFFFFFFFFE7D8GCHAR1 L code FFFFFFFFFFFFE7F0asciiToHex L code FFFFFFFFFFFFE81Ca2h1 L code FFFFFFFFFFFFE824SAVE L code FFFFFFFFFFFFE830SAVE1 L code FFFFFFFFFFFFE838SAVEND L code FFFFFFFFFFFFE874SAVE2 L code FFFFFFFFFFFFE860AUXOCRLF L code FFFFFFFFFFFFE88CPWORD L code FFFFFFFFFFFFE8ACpword1 L code FFFFFFFFFFFFE8C0pword2 L code FFFFFFFFFFFFE8DCtoAsciiHex L code FFFFFFFFFFFFE8FCtah1 L code FFFFFFFFFFFFE908POKE L code FFFFFFFFFFFFE910PKER L code FFFFFFFFFFFFE93CPOKEC L code FFFFFFFFFFFFE944POKEH L code FFFFFFFFFFFFE970POKEW L code FFFFFFFFFFFFE99CSYSX L code FFFFFFFFFFFFE9C8sysx1 L code FFFFFFFFFFFFE9DCOREXPR L code FFFFFFFFFFFFE9F0XP_OR1 L code FFFFFFFFFFFFE9FCXP_OR L code FFFFFFFFFFFFEA0CXP_ORX L code FFFFFFFFFFFFEA1CANDEXPR L code FFFFFFFFFFFFEA28XP_AND1 L code FFFFFFFFFFFFEA34XP_AND L code FFFFFFFFFFFFEA44XP_ANDX L code FFFFFFFFFFFFEA54isDigit L code FFFFFFFFFFFFEA60isDigitFalse L code FFFFFFFFFFFFEA70isAlpha L code FFFFFFFFFFFFEA78isAlphaFalse L code FFFFFFFFFFFFEA90isAlphaTrue L code FFFFFFFFFFFFEA88isAlnum L code FFFFFFFFFFFFEA98isDigitx L code FFFFFFFFFFFFEAB4EXPR L code FFFFFFFFFFFFEABCXP11 L code FFFFFFFFFFFFEAD8XPRT1 L code FFFFFFFFFFFFEB44XPRT0 L code FFFFFFFFFFFFEB38XP12 L code FFFFFFFFFFFFEAE8XP13 L code FFFFFFFFFFFFEAF8XP14 L code FFFFFFFFFFFFEB08XP15 L code FFFFFFFFFFFFEB18XP16 L code FFFFFFFFFFFFEB28XP17 L code FFFFFFFFFFFFEB50XP18 L code FFFFFFFFFFFFEB5CEXPR2 L code FFFFFFFFFFFFEB78XP26 L code FFFFFFFFFFFFEBD4XP21 L code FFFFFFFFFFFFEB98XP22 L code FFFFFFFFFFFFEBA4XP23 L code FFFFFFFFFFFFEBA8XP24 L code FFFFFFFFFFFFEBBCXP25 L code FFFFFFFFFFFFEBC8XP45 L code FFFFFFFFFFFFEBE0EXPR3 L code FFFFFFFFFFFFEBECXP31 L code FFFFFFFFFFFFEBF8XP34 L code FFFFFFFFFFFFEC18XP47 L code FFFFFFFFFFFFEC38EXPR4 L code FFFFFFFFFFFFEC44XP40 L code FFFFFFFFFFFFEC58XP41 L code FFFFFFFFFFFFEC70XP46 L code FFFFFFFFFFFFEC7CPARN L code FFFFFFFFFFFFEC84XP42 L code FFFFFFFFFFFFECA8XP43 L code FFFFFFFFFFFFECB0TSTV L code FFFFFFFFFFFFECB8tstv_notfound L code FFFFFFFFFFFFED2CTV1 L code FFFFFFFFFFFFED10TV2 L code FFFFFFFFFFFFED04TSTVRT L code FFFFFFFFFFFFED20getVarName L code FFFFFFFFFFFFED3Cgvn1 L code FFFFFFFFFFFFEDC4gvn4 L code FFFFFFFFFFFFED5Cgvn2 L code FFFFFFFFFFFFED94gvn6 L code FFFFFFFFFFFFED84gvn3 L code FFFFFFFFFFFFEDA8findVar L code FFFFFFFFFFFFEDD4fv4 L code FFFFFFFFFFFFEDE4fv3 L code FFFFFFFFFFFFEE08fv1 L code FFFFFFFFFFFFEE10fv2 L code FFFFFFFFFFFFEE20PEEK L code FFFFFFFFFFFFEE34PEEKC L code FFFFFFFFFFFFEE44PEEKH L code FFFFFFFFFFFFEE58PEEKW L code FFFFFFFFFFFFEE6CUSRX L code FFFFFFFFFFFFEE80RND L code FFFFFFFFFFFFEE9Crnd2 L code FFFFFFFFFFFFEECCrnd1 L code FFFFFFFFFFFFEEC4modu4 L code FFFFFFFFFFFFEEDCmod2 L code FFFFFFFFFFFFEEFCmod1 L code FFFFFFFFFFFFEF18ABS L code FFFFFFFFFFFFEF34SGN L code FFFFFFFFFFFFEF44SIZEX L code FFFFFFFFFFFFEF54SETVAL L code FFFFFFFFFFFFEF68sv2 L code FFFFFFFFFFFFEF84SV1 L code FFFFFFFFFFFFEFACQWHAT L code FFFFFFFFFFFFF024FIN L code FFFFFFFFFFFFEFB0FI1 L code FFFFFFFFFFFFEFCCFI2 L code FFFFFFFFFFFFEFE4ENDCHK L code FFFFFFFFFFFFEFECec1 L code FFFFFFFFFFFFF00CTOOBIG L code FFFFFFFFFFFFF014QSORRY L code FFFFFFFFFFFFF01CGETLN L code FFFFFFFFFFFFF068GL1 L code FFFFFFFFFFFFF090GL3 L code FFFFFFFFFFFFF0C4GL4 L code FFFFFFFFFFFFF0ECGL2 L code FFFFFFFFFFFFF0A8GL7 L code FFFFFFFFFFFFF11CGL6 L code FFFFFFFFFFFFF114GL5 L code FFFFFFFFFFFFF0F8FNDLN L code FFFFFFFFFFFFF138fl1 L code FFFFFFFFFFFFF144FNDLNP L code FFFFFFFFFFFFF148FNDRET1 L code FFFFFFFFFFFFF174FNDNXT L code FFFFFFFFFFFFF188FNDRET2 L code FFFFFFFFFFFFF180FNDRET L code FFFFFFFFFFFFF16CFNDSKP L code FFFFFFFFFFFFF18CMVUP1 L code FFFFFFFFFFFFF19CMVUP L code FFFFFFFFFFFFF1ACMVRET L code FFFFFFFFFFFFF1B0MVDOWN1 L code FFFFFFFFFFFFF1B4MVDOWN L code FFFFFFFFFFFFF1C4POPA L code FFFFFFFFFFFFF1CCPP1 L code FFFFFFFFFFFFF1FCPUSHA L code FFFFFFFFFFFFF200PU1 L code FFFFFFFFFFFFF240PRTSTG L code FFFFFFFFFFFFF24CPS1 L code FFFFFFFFFFFFF268PRTRET L code FFFFFFFFFFFFF288QTSTG L code FFFFFFFFFFFFF2A4QT1 L code FFFFFFFFFFFFF2BCQT2 L code FFFFFFFFFFFFF2FCQT3 L code FFFFFFFFFFFFF2D4QT4 L code FFFFFFFFFFFFF2E8QT5 L code FFFFFFFFFFFFF308prCRLF L code FFFFFFFFFFFFF310PRTNUM L code FFFFFFFFFFFFF330PN2 L code FFFFFFFFFFFFF360PN1 L code FFFFFFFFFFFFF364PN6 L code FFFFFFFFFFFFF380PN4 L code FFFFFFFFFFFFF390PN3 L code FFFFFFFFFFFFF384PN5 L code FFFFFFFFFFFFF39CPNRET L code FFFFFFFFFFFFF3B0PRTHEXNUM L code FFFFFFFFFFFFF3C8PHN1 L code FFFFFFFFFFFFF400PHN7 L code FFFFFFFFFFFFF414PHN8 L code FFFFFFFFFFFFF418PHN6 L code FFFFFFFFFFFFF430PHN4 L code FFFFFFFFFFFFF440PHN3 L code FFFFFFFFFFFFF434PHN5 L code FFFFFFFFFFFFF44CPHNRET L code FFFFFFFFFFFFF460PRTLN L code FFFFFFFFFFFFF478TSTC L code FFFFFFFFFFFFF4C0TC1 L code FFFFFFFFFFFFF4E8TSTNUM L code FFFFFFFFFFFFF4F8TN1 L code FFFFFFFFFFFFF50CTSNMRET L code FFFFFFFFFFFFF54CTN2 L code FFFFFFFFFFFFF534IGNBLK L code FFFFFFFFFFFFF554IGB2 L code FFFFFFFFFFFFF55CIGB1 L code FFFFFFFFFFFFF568IGBRET L code FFFFFFFFFFFFF570TOUPBUF L code FFFFFFFFFFFFF578TOUPB1 L code FFFFFFFFFFFFF588TOUPBRT L code FFFFFFFFFFFFF5C4DOQUO L code FFFFFFFFFFFFF5ACDOQUO1 L code FFFFFFFFFFFFF5B8toUpper L code FFFFFFFFFFFFF5CCTOUPRET L code FFFFFFFFFFFFF5D8CHKIO L code FFFFFFFFFFFFF5DCCHKRET2 L code FFFFFFFFFFFFF5F4CHKRET L code FFFFFFFFFFFFF5F8PRMESG L code FFFFFFFFFFFFF604PRMESG1 L code FFFFFFFFFFFFF614PRMRET L code FFFFFFFFFFFFF628PRMESGAUX L code FFFFFFFFFFFFF638PRMESGA1 L code FFFFFFFFFFFFF648PRMRETA L code FFFFFFFFFFFFF65COUTC L code FFFFFFFFFFFFF66CINC L code FFFFFFFFFFFFF670AUXIN L code FFFFFFFFFFFFF674AXIRET_ZERO L code FFFFFFFFFFFFF684AXIRET L code FFFFFFFFFFFFF680AUXOUT L code FFFFFFFFFFFFF68C_cls L code FFFFFFFFFFFFF690_wait10 L code FFFFFFFFFFFFF698_getATAStatus L code FFFFFFFFFFFFF69C_waitCFNotBusy L code FFFFFFFFFFFFF6A0_rdcf L code FFFFFFFFFFFFF6A4rdcf6 L code FFFFFFFFFFFFF6A8BYEBYE L code FFFFFFFFFFFFF8A0msgInit L code FFFFFFFFFFFFF6B8OKMSG L code FFFFFFFFFFFFF6EEmsgWhat L code FFFFFFFFFFFFF6F5SRYMSG L code FFFFFFFFFFFFF6FDCLMSG L code FFFFFFFFFFFFF703msgReadError L code FFFFFFFFFFFFF706msgNumTooBig L code FFFFFFFFFFFFF721msgDivZero L code FFFFFFFFFFFFF735msgVarSpace L code FFFFFFFFFFFFF748msgBytesFree L code FFFFFFFFFFFFF760msgReady L code FFFFFFFFFFFFF76EmsgComma L code FFFFFFFFFFFFF778msgLineRange L code FFFFFFFFFFFFF78CmsgVar L code FFFFFFFFFFFFF7A2msgRNDBad L code FFFFFFFFFFFFF7B9msgSYSBad L code FFFFFFFFFFFFF7CDmsgInputVar L code FFFFFFFFFFFFF7DFmsgNextFor L code FFFFFFFFFFFFF7FCmsgNextVar L code FFFFFFFFFFFFF80FmsgBadGotoGosub L code FFFFFFFFFFFFF833msgRetWoGosub L code FFFFFFFFFFFFF850msgTooBig L code FFFFFFFFFFFFF867msgExtraChars L code FFFFFFFFFFFFF87CLSTROM C constant 0000000000000000ramtest L code FFFFFFFFFFFFF8B0ramtest2 L code FFFFFFFFFFFFF8C4ramtest1 L code FFFFFFFFFFFFF8E8ramtest4 L code FFFFFFFFFFFFF8F0ramtest3 L code FFFFFFFFFFFFF91Cramtest8 L code FFFFFFFFFFFFF98Cramtest5 L code FFFFFFFFFFFFF934ramtest6 L code FFFFFFFFFFFFF958ramtest7 L code FFFFFFFFFFFFF960ramtest9 L code FFFFFFFFFFFFF994ramtest10 L code FFFFFFFFFFFFF99Ciberr_rout L code FFFFFFFFFFFFF9A4dberr_rout L code FFFFFFFFFFFFF9BCdberr1 L code FFFFFFFFFFFFF9F0msgdberr L code FFFFFFFFFFFFFA20msgEPC L code FFFFFFFFFFFFFA34msgiberr L code FFFFFFFFFFFFFA3Birqrout L code FFFFFFFFFFFFFA5Cirq1000Hz L code FFFFFFFFFFFFFABCirq100Hz L code FFFFFFFFFFFFFAF0irqSerial L code FFFFFFFFFFFFFB10irqRaster L code FFFFFFFFFFFFFB1CirqKeybd L code FFFFFFFFFFFFFB28irqColdStart L code FFFFFFFFFFFFFB34irqret L code FFFFFFFFFFFFFAF8nmirout L code FFFFFFFFFFFFFB38msgPerr L code FFFFFFFFFFFFFB80ui_irout L code FFFFFFFFFFFFFB94ui_irout1 L code FFFFFFFFFFFFFBB8msgUnimp L code FFFFFFFFFFFFFBC0DTLBHandler L code FFFFFFFFFFFFFBE0dh1 L code FFFFFFFFFFFFFBF0