URL
https://opencores.org/ocsvn/raptor64/raptor64/trunk
Subversion Repositories raptor64
[/] [raptor64/] [trunk/] [software/] [sample code/] [bootrom.lst] - Rev 35
Go to most recent revision | Compare with Previous | Blame | View Log
; ============================================================================; (C) 2012 Robert Finch; 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 0x08CTRLS EQU 0x13CTRLX EQU 0x18STACKTOP EQU 0xFFFF_FFFF_FFFE_FFF8Milliseconds EQU 0x400Lastloc EQU 0x408ScreenColor EQU 0x414CursorRow EQU 0x416CursorCol EQU 0x418KeybdEcho EQU 0x41AKeybdBuffer EQU 0x440KeybdHead EQU 0x450KeybdTail EQU 0x451TEXTSCR EQU 0xFFFF_FFFF_FFD0_0000COLORSCR EQU 0xFFFF_FFFF_FFD1_0000TEXTREG EQU 0xFFFFFFFF_FFDA0000TEXT_COLS EQU 0x0TEXT_ROWS EQU 0x2TEXT_CURPOS EQU 0x16KEYBD EQU 0xFFFF_FFFF_FFDC_0000KEYBDCLR EQU 0xFFFF_FFFF_FFDC_0002UART EQU 0xFFFF_FFFF_FFDC_0A00UART_LS EQU 0xFFFF_FFFF_FFDC_0A01PIC EQU 0xFFFF_FFFF_FFDC_0FF0PSG EQU 0xFFFF_FFFF_FFD5_0000AC97 EQU 0xFFFF_FFFF_FFDC_1000BOOT_STACK EQU 0xFFFF_FFFF_FFFE_FFF8BITMAPSCR EQU 0x00000001_00200000txempty EQU 0x40rxfull EQU 0x01; org 0x070; iret; nop; nop; nop; nop; nop; nop; nop;0000000000000000.0 codeFFFFFFFFFFFFE800.0 org 0xFFFF_FFFF_FFFF_E800; jump table;FFFFFFFFFFFFE800.0 0CFFFFFFA54 jmp SerialGetCharFFFFFFFFFFFFE800.1 0CFFFFFFA60 jmp SerialPutCharFFFFFFFFFFFFE800.2 0CFFFFFFA90 jmp SetKeyboardEchoFFFFFFFFFFFFE810.0 0CFFFFFFAA6 jmp KeybdCheckForKeyFFFFFFFFFFFFE810.1 0CFFFFFFA92 jmp KeybdGetCharFFFFFFFFFFFFE810.2 0CFFFFFFB65 jmp DisplayCharFFFFFFFFFFFFE820.0 0CFFFFFFBF5 jmp DisplayStringFFFFFFFFFFFFE820.1 start:; lea MSGRAM,a1; jsr DisplayStringFFFFFFFFFFFFE820.1 ColdStart:FFFFFFFFFFFFE820.1 0000000000A icache_on ; turn on the ICacheFFFFFFFFFFFFE820.2 0000000000C dcache_on ; turn on the DCacheFFFFFFFFFFFFE830.0 0BEFFFEFFF8 setlo sp,#STACKTOP ; top of stackFFFFFFFFFFFFE830.1 0C7FFFFFA6E call KeybdInitFFFFFFFFFFFFE830.2 0C7FFFFFA50 call PICInitFFFFFFFFFFFFE840.0 00000000040 cli ; enable interruptsFFFFFFFFFFFFE840.1 0A3000000CE setlo r3,#0xCE ; blue on blueFFFFFFFFFFFFE840.2 18806000414 sc r3,ScreenColorFFFFFFFFFFFFE850.0 10806000414 lc r3,0x414FFFFFFFFFFFFE850.1 0A300000020 setlo r3,#32FFFFFFFFFFFFE850.2 18806000416 sc r3,0x416 ; we do a store, then a load through the dcacheFFFFFFFFFFFFE860.0 10804000416 lc r2,0x416 ;FFFFFFFFFFFFE860.1 10804000416 lc r2,0x416 ;FFFFFFFFFFFFE860.2 2F8860000A8 beq r2,r3,dcokayFFFFFFFFFFFFE870.0 0000000000D dcache_off ; data cache failedFFFFFFFFFFFFE870.1 dcokay:FFFFFFFFFFFFE870.1 10806000414 lc r3,ScreenColorFFFFFFFFFFFFE870.2 0C7FFFFFB06 call ClearScreenFFFFFFFFFFFFE880.0 0C7FFFFFAF4 call ClearBmpScreenFFFFFFFFFFFFE880.1 18800000416 sc r0,CursorRowFFFFFFFFFFFFE880.2 18800000418 sc r0,CursorColFFFFFFFFFFFFE890.0 0A1FFFFE920 setlo r1,#<MSGSTARTFFFFFFFFFFFFE890.1 0E1FFFFFFFF sethi r1,#>MSGSTARTFFFFFFFFFFFFE890.2 0C7FFFFFBF5 call DisplayString; call SetupAC97 ; and Beep; Allow some other contexts to start up; equal processing time for sixteen contexts;FFFFFFFFFFFFE8A0.0 00802000AA8 mfspr r1,AXC ; which context am IFFFFFFFFFFFFE8A0.1 2F840000149 bne r1,r0,j4FFFFFFFFFFFFE8A0.2 0A176543210 setlo r1,#0x76543210FFFFFFFFFFFFE8B0.0 008400008A9 mtspr EP0,r1FFFFFFFFFFFFE8B0.1 008400009A9 mtspr EP2,r1FFFFFFFFFFFFE8B0.2 0A1FEDCBA98 setlo r1,#0xFEDCBA98FFFFFFFFFFFFE8C0.0 00840000929 mtspr EP1,r1FFFFFFFFFFFFE8C0.1 00840000A29 mtspr EP3,r1FFFFFFFFFFFFE8C0.2 j4:FFFFFFFFFFFFE8C0.2 0CFFFFFFCA6 jmp MonitorFFFFFFFFFFFFE8D0.0 2F801FFFFCA bra j4; call ramtest;-----------------------------------------; Hello World!;-----------------------------------------FFFFFFFFFFFFE8D0.1 HelloWorld:FFFFFFFFFFFFE8D0.1 03FBC000018 subui r30,r30,#24FFFFFFFFFFFFE8D0.2 27F40000003 sm [r30],r1/r2/r31FFFFFFFFFFFFE8E0.0 0A2FFFFE910 setlo r2,#MSGFFFFFFFFFFFFE8E0.1 j3:FFFFFFFFFFFFE8E0.1 10082000000 lb r1,[r2]FFFFFFFFFFFFE8E0.2 2F840000108 beq r1,r0,j2FFFFFFFFFFFFE8F0.0 0C7FFFFFA60 call SerialPutCharFFFFFFFFFFFFE8F0.1 02884000001 addui r2,r2,#1FFFFFFFFFFFFE8F0.2 2F801FFFFAA bra j3FFFFFFFFFFFFE900.0 j2:FFFFFFFFFFFFE900.0 27740000003 lm [r30],r1/r2/r31FFFFFFFFFFFFE900.1 0DFBE000018 ret #24FFFFFFFFFFFFE900.2 37800000000 align 16FFFFFFFFFFFFE910.0 align 16FFFFFFFFFFFFE910.0 MSG:FFFFFFFFFFFFE910 6F57206F6C6C6548 DB "Hello World!",0,0,0,0FFFFFFFFFFFFE918 0000000021646C72FFFFFFFFFFFFE920.0 align 16FFFFFFFFFFFFE920.0 MSGSTART:FFFFFFFFFFFFE920 3436726F74706152 db "Raptor64 system starting....",CR,LF,0,0FFFFFFFFFFFFE928 206D657473797320FFFFFFFFFFFFE930 676E697472617473FFFFFFFFFFFFE938 00000A0D2E2E2E2EFFFFFFFFFFFFE940.0 align 16;----------------------------------------------------------; Initialize programmable interrupt controller (PIC); 0 = nmi; 1 = keyboard reset; 2 = 1000Hz pulse (cursor flash); 15 = keyboard char;----------------------------------------------------------FFFFFFFFFFFFE940.0 PICInit:FFFFFFFFFFFFE940.0 0A1FFFF8007 setlo r1,#0x8007 ; enable nmi,kbd_rst,and kbd_irqFFFFFFFFFFFFE940.1 24803DC0FF2 outc r1,PIC+2FFFFFFFFFFFFE940.2 0DFBE000000 ret;-----------------------------------------; Get character from serial port;-----------------------------------------FFFFFFFFFFFFE950.0 SerialGetChar:FFFFFFFFFFFFE950.0 03FBC000008 subui r30,r30,#8FFFFFFFFFFFFE950.1 19F86000000 sw r3,[r30]FFFFFFFFFFFFE950.2 0A1FFDC0A00 setlo r1,#UARTFFFFFFFFFFFFE960.0 sgc1:FFFFFFFFFFFFE960.0 20046000001 inb r3,1[r1] ; uart statusFFFFFFFFFFFFE960.1 050C6000001 andi r3,r3,#rxfull ; is there a char available ?FFFFFFFFFFFFE960.2 2F8C0000008 beq r3,r0,sgc1FFFFFFFFFFFFE970.0 11F86000000 lw r3,[r30]FFFFFFFFFFFFE970.1 20042000000 inb r1,[r1]FFFFFFFFFFFFE970.2 0DFBE000008 ret #8;-----------------------------------------; Put character to serial port;-----------------------------------------FFFFFFFFFFFFE980.0 SerialPutChar:FFFFFFFFFFFFE980.0 03FBC000010 subui r30,r30,#16FFFFFFFFFFFFE980.1 19F84000008 sw r2,8[r30]FFFFFFFFFFFFE980.2 19F86000000 sw r3,[r30]FFFFFFFFFFFFE990.0 0A3FFDC0A00 setlo r3,#UARTFFFFFFFFFFFFE990.1 spc1:FFFFFFFFFFFFE990.1 200C4000001 inb r2,1[r3] ; uart statusFFFFFFFFFFFFE990.2 05084000040 andi r2,r2,#txempty ; is there a char available ?FFFFFFFFFFFFE9A0.0 2F881FFFFA8 beq r2,r0,spc1FFFFFFFFFFFFE9A0.1 240C2000000 outb r1,[r3]FFFFFFFFFFFFE9A0.2 11F86000000 lw r3,[r30]FFFFFFFFFFFFE9B0.0 11F84000008 lw r2,8[r30]FFFFFFFFFFFFE9B0.1 0DFBE000010 ret #16;==============================================================================; Keyboard;==============================================================================;------------------------------------------------------------------------------; Initialize keyboard;------------------------------------------------------------------------------FFFFFFFFFFFFE9B0.2 KeybdInit:FFFFFFFFFFFFE9B0.2 18000000450 sb r0,KeybdHeadFFFFFFFFFFFFE9C0.0 18000000451 sb r0,KeybdTailFFFFFFFFFFFFE9C0.1 0A100000001 setlo r1,#1 ; turn on keyboard echoFFFFFFFFFFFFE9C0.2 1800200041A sb r1,KeybdEchoFFFFFFFFFFFFE9D0.0 0DFBE000000 ret;------------------------------------------------------------------------------; Normal keyboard interrupt, the lowest priority interrupt in the system.; Grab the character from the keyboard device and store it in a buffer.;------------------------------------------------------------------------------;FFFFFFFFFFFFE9D0.1 KeybdIRQ:FFFFFFFFFFFFE9D0.1 03FBC000018 subui sp,sp,#24FFFFFFFFFFFFE9D0.2 27F00000007 sm [sp],r1/r2/r3FFFFFFFFFFFFE9E0.0 12802000450 lbu r1,KeybdHeadFFFFFFFFFFFFE9E0.1 0504200000F andi r1,r1,#0x0f ; r1 = index into bufferFFFFFFFFFFFFE9E0.2 0A300000440 setlo r3,#<KeybdBufferFFFFFFFFFFFFE9F0.0 0E300000000 sethi r3,#>KeybdBufferFFFFFFFFFFFFE9F0.1 KeybdIRQa:FFFFFFFFFFFFE9F0.1 20805DC0000 inch r2,KEYBD ; get keyboard characterFFFFFFFFFFFFE9F0.2 24801DC0002 outc r0,KEYBD+2 ; clear keyboard strobe (turns off the IRQ)FFFFFFFFFFFFEA00.0 1A8C2200010 sb r2,[r3+r1] ; store character in bufferFFFFFFFFFFFFEA00.1 02842000001 addui r1,r1,#1 ; increment head indexFFFFFFFFFFFFEA00.2 0504200000F andi r1,r1,#0x0fFFFFFFFFFFFFEA10.0 18002000450 sb r1,KeybdHeadFFFFFFFFFFFFEA10.1 KeybdIRQb:FFFFFFFFFFFFEA10.1 12804000451 lbu r2,KeybdTail ; check to see if we've collidedFFFFFFFFFFFFEA10.2 2F844000109 bne r1,r2,KeybdIRQc ; with the tailFFFFFFFFFFFFEA20.0 02884000001 addui r2,r2,#1 ; if so, increment the tail indexFFFFFFFFFFFFEA20.1 0508400000F andi r2,r2,#0x0f ; the oldest character will be lostFFFFFFFFFFFFEA20.2 18004000451 sb r2,KeybdTailFFFFFFFFFFFFEA30.0 KeybdIRQc:FFFFFFFFFFFFEA30.0 27700000007 lm [sp],r1/r2/r3FFFFFFFFFFFFEA30.1 02FBC000018 addui sp,sp,#24FFFFFFFFFFFFEA30.2 0DFBE000000 ret;------------------------------------------------------------------------------; r1 0=echo off, non-zero = echo on;------------------------------------------------------------------------------FFFFFFFFFFFFEA40.0 SetKeyboardEcho:FFFFFFFFFFFFEA40.0 1800200041A sb r1,KeybdEchoFFFFFFFFFFFFEA40.1 0DFBE000000 ret;-----------------------------------------; Get character from keyboard buffer;-----------------------------------------FFFFFFFFFFFFEA40.2 KeybdGetChar:FFFFFFFFFFFFEA40.2 03FBC000010 subui sp,sp,#16FFFFFFFFFFFFEA50.0 27F00000006 sm [sp],r2/r3FFFFFFFFFFFFEA50.1 12804000451 lbu r2,KeybdTailFFFFFFFFFFFFEA50.2 12802000450 lbu r1,KeybdHeadFFFFFFFFFFFFEA60.0 2F844000148 beq r1,r2,nocharFFFFFFFFFFFFEA60.1 0A300000440 setlo r3,#KeybdBufferFFFFFFFFFFFFEA60.2 1A8C4100005 lbu r1,[r3+r2]FFFFFFFFFFFFEA70.0 02884000001 addui r2,r2,#1FFFFFFFFFFFFEA70.1 0508400000F andi r2,r2,#0x0fFFFFFFFFFFFFEA70.2 18004000451 sb r2,KeybdTailFFFFFFFFFFFFEA80.0 27700000006 lm [sp],r2/r3FFFFFFFFFFFFEA80.1 0DFBE000010 ret #16FFFFFFFFFFFFEA80.2 nochar:FFFFFFFFFFFFEA80.2 0A1FFFFFFFF setlo r1,#-1FFFFFFFFFFFFEA90.0 27700000006 lm [sp],r2/r3FFFFFFFFFFFFEA90.1 0DFBE000010 ret #16;------------------------------------------------------------------------------; Check if there is a keyboard character available in the keyboard buffer.;------------------------------------------------------------------------------;FFFFFFFFFFFFEA90.2 KeybdCheckForKey:FFFFFFFFFFFFEA90.2 12802000451 lbu r1,KeybdTailFFFFFFFFFFFFEAA0.0 12804000450 lbu r2,KeybdHeadFFFFFFFFFFFFEAA0.1 2F8440000A8 beq r1,r2,kck1FFFFFFFFFFFFEAA0.2 0A100000001 setlo r1,#1FFFFFFFFFFFFEAB0.0 0DFBE000000 retFFFFFFFFFFFFEAB0.1 kck1:FFFFFFFFFFFFEAB0.1 0104210000A xor r1,r1,r1 ; return zeroFFFFFFFFFFFFEAB0.2 0DFBE000000 ret;------------------------------------------------------------------------------; Check if there is a keyboard character available. If so return true (1); otherwise return false (0) in r1.;------------------------------------------------------------------------------;FFFFFFFFFFFFEAC0.0 KeybdCheckForKeyDirect:FFFFFFFFFFFFEAC0.0 20803DC0000 inch r1,KEYBDFFFFFFFFFFFFEAC0.1 2F8400000A1 bge r1,r0,cfkd1FFFFFFFFFFFFEAC0.2 0A100000001 setlo r1,#1FFFFFFFFFFFFEAD0.0 0DFBE000000 retFFFFFFFFFFFFEAD0.1 cfkd1:FFFFFFFFFFFFEAD0.1 0104210000A xor r1,r1,r1 ; return 0 in r1FFFFFFFFFFFFEAD0.2 0DFBE000000 ret;------------------------------------------------------------------------------; Get character directly from keyboard. This routine blocks until a key is; available.;------------------------------------------------------------------------------;FFFFFFFFFFFFEAE0.0 KeybdGetCharDirect:FFFFFFFFFFFFEAE0.0 03FBC000010 subui sp,sp,#16FFFFFFFFFFFFEAE0.1 27F40000002 sm [sp],r2/r31FFFFFFFFFFFFEAE0.2 0A2FFDC0000 setlo r2,KEYBDFFFFFFFFFFFFEAF0.0 kgc1:FFFFFFFFFFFFEAF0.0 20803DC0000 inch r1,KEYBDFFFFFFFFFFFFEAF0.1 2F840000001 bge r1,r0,kgc1FFFFFFFFFFFFEAF0.2 24801DC0002 outc r0,KEYBD+2 ; clear keyboard strobeFFFFFFFFFFFFEB00.0 050420000FF andi r1,r1,#0xff ; remove strobe bitFFFFFFFFFFFFEB00.1 1000400041A lb r2,KeybdEcho ; is keyboard echo on ?FFFFFFFFFFFFEB00.2 2F880000128 beq r2,r0,gk1FFFFFFFFFFFFEB10.0 2C84010000D bnei r1,#'\r',gk2 ; convert CR keystroke into CRLFFFFFFFFFFFFFEB10.1 0C7FFFFFC09 call CRLFFFFFFFFFFFFFEB10.2 2F8000000AA bra gk1FFFFFFFFFFFFEB20.0 gk2:FFFFFFFFFFFFEB20.0 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFEB20.1 gk1:FFFFFFFFFFFFEB20.1 27740000002 lm [sp],r2/r31FFFFFFFFFFFFEB20.2 0DFBE000010 ret #16;==============================================================================;==============================================================================;------------------------------------------------------------------------------; 1000 Hz interrupt; - takes care of "flashing" the cursor;------------------------------------------------------------------------------;FFFFFFFFFFFFEB30.0 Pulse1000:FFFFFFFFFFFFEB30.0 03FBC000018 subui sp,sp,#24FFFFFFFFFFFFEB30.1 27F40000003 sm [sp],r1/r2/lrFFFFFFFFFFFFEB30.2 11802000400 lw r1,MillisecondsFFFFFFFFFFFFEB40.0 02842000001 addui r1,r1,#1FFFFFFFFFFFFEB40.1 19802000400 sw r1,MillisecondsFFFFFFFFFFFFEB40.2 0A2FFD00000 setlo r2,TEXTSCRFFFFFFFFFFFFEB50.0 108820000DE lc r1,222[r2]FFFFFFFFFFFFEB50.1 02842000001 addui r1,r1,#1FFFFFFFFFFFFEB50.2 188820000DE sc r1,222[r2]FFFFFFFFFFFFEB60.0 10801FF0000 lc r0,0xFFFF_FFFF_FFFF_0000 ; clear interruptFFFFFFFFFFFFEB60.1 11802000400 lw r1,MillisecondsFFFFFFFFFFFFEB60.2 0504200007F andi r1,r1,#0x7fFFFFFFFFFFFFEB70.0 2C840080040 bnei r1,#64,p10001FFFFFFFFFFFFEB70.1 0C7FFFFFAE1 call FlashCursorFFFFFFFFFFFFEB70.2 p10001:FFFFFFFFFFFFEB70.2 27740000003 lm [sp],r1/r2/lrFFFFFFFFFFFFEB80.0 0DFBE000018 ret #24;------------------------------------------------------------------------------; Flash Cursor;------------------------------------------------------------------------------;FFFFFFFFFFFFEB80.1 FlashCursor:FFFFFFFFFFFFEB80.1 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEB80.2 27F40000007 sm [sp],r1/r2/r3/r31FFFFFFFFFFFFEB90.0 0C7FFFFFB55 call CalcScreenLocFFFFFFFFFFFFEB90.1 02842010000 addui r1,r1,#0x10000; causes screen colors to flip aroundFFFFFFFFFFFFEB90.2 10844000000 lc r2,[r1]FFFFFFFFFFFFEBA0.0 02884000001 addui r2,r2,#1FFFFFFFFFFFFEBA0.1 18844000000 sc r2,[r1]FFFFFFFFFFFFEBA0.2 11804000408 lw r2,LastlocFFFFFFFFFFFFEBB0.0 2F8440000A8 beq r1,r2,flshcrsr1; restore the screen colors of the previous cursor locationFFFFFFFFFFFFEBB0.1 10806000414 lc r3,ScreenColorFFFFFFFFFFFFEBB0.2 18886000000 sc r3,[r2]FFFFFFFFFFFFEBC0.0 19802000408 sw r1,LastlocFFFFFFFFFFFFEBC0.1 flshcrsr1:FFFFFFFFFFFFEBC0.1 27740000007 lm [sp],r1/r2/r3/r31FFFFFFFFFFFFEBC0.2 0DFBE000020 ret #32;------------------------------------------------------------------------------;------------------------------------------------------------------------------FFFFFFFFFFFFEBD0.0 ClearBmpScreen:FFFFFFFFFFFFEBD0.0 03FBC000028 subui sp,sp,#40FFFFFFFFFFFFEBD0.1 27F4000000F sm [sp],r1/r2/r3/r4/r31FFFFFFFFFFFFEBD0.2 0A100000554 setlo r1,#1364 ; calc number to clearFFFFFFFFFFFFEBE0.0 0A200000300 setlo r2,#768FFFFFFFFFFFFEBE0.1 01044200018 mulu r2,r1,r2 ; r2 = # pixels to clearFFFFFFFFFFFFEBE0.2 01004400009 or r4,r0,r2 ; r4 = # pixels to clearFFFFFFFFFFFFEBF0.0 0A129292929 setlo r1,#0x29292929 ;FFFFFFFFFFFFEBF0.1 0A300200000 setlo r3,#<BITMAPSCR ; screen addressFFFFFFFFFFFFEBF0.2 0E300000001 sethi r3,#>BITMAPSCRFFFFFFFFFFFFEC00.0 csj4:FFFFFFFFFFFFEC00.0 190C2000000 sh r1,[r3]FFFFFFFFFFFFEC00.1 028C6000004 addui r3,r3,#4FFFFFFFFFFFFEC00.2 2F80400000F loop r2,csj4FFFFFFFFFFFFEC10.0 2774000000F lm [sp],r1/r2/r3/r4/r31FFFFFFFFFFFFEC10.1 0DFBE000028 ret #40;------------------------------------------------------------------------------; Clear the screen and the screen color memory; We clear the screen to give a visual indication that the system; is working at all.;------------------------------------------------------------------------------;FFFFFFFFFFFFEC10.2 ClearScreen:FFFFFFFFFFFFEC10.2 03FBC000028 subui sp,sp,#40FFFFFFFFFFFFEC20.0 27F4000000F sm [sp],r1/r2/r3/r4/r31FFFFFFFFFFFFEC20.1 0A3FFDA0000 setlo r3,#TEXTREGFFFFFFFFFFFFEC20.2 108C2000000 lc r1,TEXT_COLS[r3] ; calc number to clearFFFFFFFFFFFFEC30.0 108C4000002 lc r2,TEXT_ROWS[r3]FFFFFFFFFFFFEC30.1 01044200018 mulu r2,r1,r2 ; r2 = # chars to clearFFFFFFFFFFFFEC30.2 0A100000020 setlo r1,#32 ; space charFFFFFFFFFFFFEC40.0 10808000414 lc r4,ScreenColorFFFFFFFFFFFFEC40.1 0C7FFFFFB45 call AsciiToScreenFFFFFFFFFFFFEC40.2 0A3FFD00000 setlo r3,#TEXTSCR ; text screen addressFFFFFFFFFFFFEC50.0 csj4:FFFFFFFFFFFFEC50.0 188C2000000 sc r1,[r3]FFFFFFFFFFFFEC50.1 188C8010000 sc r4,0x10000[r3] ; color screen is 0x10000 higherFFFFFFFFFFFFEC50.2 028C6000002 addu r3,r3,#2FFFFFFFFFFFFEC60.0 2F805FFFF8F loop r2,csj4FFFFFFFFFFFFEC60.1 2774000000F lm [sp],r1/r2/r3/r4/r31FFFFFFFFFFFFEC60.2 0DFBE000028 ret #40;------------------------------------------------------------------------------; Scroll text on the screen upwards;------------------------------------------------------------------------------;FFFFFFFFFFFFEC70.0 ScrollUp:FFFFFFFFFFFFEC70.0 03FBC000028 subui sp,sp,#40FFFFFFFFFFFFEC70.1 27F4000000F sm [sp],r1/r2/r3/r4/r31FFFFFFFFFFFFEC70.2 0A3FFDA0000 setlo r3,#TEXTREGFFFFFFFFFFFFEC80.0 108C2000000 lc r1,TEXT_COLS[r3] ; r1 = # text columnsFFFFFFFFFFFFEC80.1 108C4000002 lc r2,TEXT_ROWS[r3]FFFFFFFFFFFFEC80.2 01044200018 mulu r2,r1,r2 ; calc number of chars to scrollFFFFFFFFFFFFEC90.0 01082200005 subu r2,r2,r1 ; one less rowFFFFFFFFFFFFEC90.1 0A3FFD00000 setlo r3,#TEXTSCRFFFFFFFFFFFFEC90.2 scrup1:FFFFFFFFFFFFEC90.2 1A8C2400001 lc r4,[r3+r1] ; indexed addressing exampleFFFFFFFFFFFFECA0.0 188C8000000 sc r4,[r3]FFFFFFFFFFFFECA0.1 028C6000002 addui r3,r3,#2FFFFFFFFFFFFECA0.2 2F805FFFFCF loop r2,scrup1FFFFFFFFFFFFECB0.0 0A3FFDA0000 setlo r3,#TEXTREGFFFFFFFFFFFFECB0.1 108C2000002 lc r1,TEXT_ROWS[r3]FFFFFFFFFFFFECB0.2 03842000001 subui r1,r1,#1FFFFFFFFFFFFECC0.0 0C7FFFFFB34 call BlankLineFFFFFFFFFFFFECC0.1 2774000000F lm [sp],r1/r2/r3/r4/r31FFFFFFFFFFFFECC0.2 0DFBE000028 ret #40;------------------------------------------------------------------------------; Blank out a line on the display; line number to blank is in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFECD0.0 BlankLine:FFFFFFFFFFFFECD0.0 03FBC000018 subui sp,sp,#24FFFFFFFFFFFFECD0.1 27F00000007 sm [sp],r1/r2/r3FFFFFFFFFFFFECD0.2 0A3FFDA0000 setlo r3,TEXTREG ; r3 = text register addressFFFFFFFFFFFFECE0.0 108C4000000 lc r2,TEXT_COLS[r3] ; r2 = # chars to blank outFFFFFFFFFFFFECE0.1 01082300018 mulu r3,r2,r1FFFFFFFFFFFFECE0.2 018C6080000 shli r3,r3,#1FFFFFFFFFFFFECF0.0 028C7D00000 addui r3,r3,#TEXTSCR ; r3 = screen addressFFFFFFFFFFFFECF0.1 0A100000020 setlo r1,#' 'FFFFFFFFFFFFECF0.2 blnkln1:FFFFFFFFFFFFECF0.2 188C2000000 sc r1,[r3]FFFFFFFFFFFFED00.0 028C6000002 addui r3,r3,#2FFFFFFFFFFFFED00.1 2F805FFFFCF loop r2,blnkln1FFFFFFFFFFFFED00.2 27700000007 lm [sp],r1/r2/r3FFFFFFFFFFFFED10.0 0DFBE000018 ret #24;------------------------------------------------------------------------------; Convert ASCII character to screen display character.;------------------------------------------------------------------------------;FFFFFFFFFFFFED10.1 AsciiToScreen:FFFFFFFFFFFFED10.1 050420000FF andi r1,r1,#0x00ffFFFFFFFFFFFFED10.2 2A040240041 bltui r1,#'A',atoscr1FFFFFFFFFFFFED20.0 2B04014005A bleui r1,#'Z',atoscr1FFFFFFFFFFFFED20.1 2B84014007A bgtui r1,#'z',atoscr1FFFFFFFFFFFFED20.2 2A040140061 bltui r1,#'a',atoscr1FFFFFFFFFFFFED30.0 03042000060 subi r1,r1,#0x60FFFFFFFFFFFFED30.1 atoscr1:FFFFFFFFFFFFED30.1 05842000100 ori r1,r1,#0x100FFFFFFFFFFFFED30.2 0DFBE000000 ret;------------------------------------------------------------------------------; Convert screen character to ascii character;------------------------------------------------------------------------------;FFFFFFFFFFFFED40.0 ScreenToAscii:FFFFFFFFFFFFED40.0 050420000FF andi r1,r1,#0xffFFFFFFFFFFFFED40.1 2B84010001A bgtui r1,#26,stasc1FFFFFFFFFFFFED40.2 0284200003C addui r1,r1,#60FFFFFFFFFFFFED50.0 stasc1:FFFFFFFFFFFFED50.0 0DFBE000000 ret;------------------------------------------------------------------------------; Calculate screen memory location from CursorRow,CursorCol.; Also refreshes the cursor location.; Destroys r1,r2,r3; r1 = screen location;------------------------------------------------------------------------------;FFFFFFFFFFFFED50.1 CalcScreenLoc:FFFFFFFFFFFFED50.1 10802000416 lc r1,CursorRowFFFFFFFFFFFFED50.2 0504200007F andi r1,r1,#0x7fFFFFFFFFFFFFED60.0 0A3FFDA0000 setlo r3,TEXTREGFFFFFFFFFFFFED60.1 208C4000000 inch r2,TEXT_COLS[r3]FFFFFFFFFFFFED60.2 01082200018 mulu r2,r2,r1FFFFFFFFFFFFED70.0 10802000418 lc r1,CursorColFFFFFFFFFFFFED70.1 0504200007F andi r1,r1,#0x7fFFFFFFFFFFFFED70.2 01082200003 addu r2,r2,r1FFFFFFFFFFFFED80.0 248C4000016 outc r2,TEXT_CURPOS[r3]FFFFFFFFFFFFED80.1 01884080000 shli r2,r2,#1FFFFFFFFFFFFED80.2 02883D00000 addui r1,r2,#TEXTSCR ; r1 = screen locationFFFFFFFFFFFFED90.0 0DFBE000000 ret;------------------------------------------------------------------------------; Display a character on the screen; d1.b = char to display;------------------------------------------------------------------------------;FFFFFFFFFFFFED90.1 DisplayChar:FFFFFFFFFFFFED90.1 2C84020000D bnei r1,#'\r',dccr ; carriage return ?FFFFFFFFFFFFED90.2 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEDA0.0 27F40000007 sm [sp],r1/r2/r3/lrFFFFFFFFFFFFEDA0.1 18800000418 sc r0,CursorCol ; just set cursor column to zero on a CRFFFFFFFFFFFFEDA0.2 2F8000001AA bra dcx7FFFFFFFFFFFFEDB0.0 dccr:FFFFFFFFFFFFEDB0.0 2C840340091 bnei r1,#0x91,dcx6 ; cursor right ?FFFFFFFFFFFFEDB0.1 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEDB0.2 27F40000007 sm [sp],r1/r2/r3/lrFFFFFFFFFFFFEDC0.0 10804000418 lc r2,CursorColFFFFFFFFFFFFEDC0.1 2C080140038 beqi r2,#56,dcx7FFFFFFFFFFFFEDC0.2 02884000001 addui r2,r2,#1FFFFFFFFFFFFEDD0.0 18804000418 sc r2,CursorColFFFFFFFFFFFFEDD0.1 dcx7:FFFFFFFFFFFFEDD0.1 0C7FFFFFB55 call CalcScreenLocFFFFFFFFFFFFEDD0.2 27740000007 lm [sp],r1/r2/r3/lrFFFFFFFFFFFFEDE0.0 0DFBE000020 ret #32FFFFFFFFFFFFEDE0.1 dcx6:FFFFFFFFFFFFEDE0.1 2C840300090 bnei r1,#0x90,dcx8 ; cursor up ?FFFFFFFFFFFFEDE0.2 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEDF0.0 27F40000007 sm [sp],r1/r2/r3/lrFFFFFFFFFFFFEDF0.1 10804000416 lc r2,CursorRowFFFFFFFFFFFFEDF0.2 2C0BFE40000 beqi r2,#0,dcx7FFFFFFFFFFFFEE00.0 03884000001 subui r2,r2,#1FFFFFFFFFFFFEE00.1 18804000416 sc r2,CursorRowFFFFFFFFFFFFEE00.2 2F801FFFEAA bra dcx7FFFFFFFFFFFFEE10.0 dcx8:FFFFFFFFFFFFEE10.0 2C840280093 bnei r1,#0x93,dcx9 ; cursor left ?FFFFFFFFFFFFEE10.1 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEE10.2 27F40000007 sm [sp],r1/r2/r3/lrFFFFFFFFFFFFEE20.0 10804000418 lc r2,CursorColFFFFFFFFFFFFEE20.1 2C0BFB40000 beqi r2,#0,dcx7FFFFFFFFFFFFEE20.2 03884000001 subui r2,r2,#1FFFFFFFFFFFFEE30.0 18804000418 sc r2,CursorColFFFFFFFFFFFFEE30.1 2F801FFFD2A bra dcx7FFFFFFFFFFFFEE30.2 dcx9:FFFFFFFFFFFFEE30.2 2C840340092 bnei r1,#0x92,dcx10 ; cursor down ?FFFFFFFFFFFFEE40.0 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEE40.1 27F40000007 sm [sp],r1/r2/r3/lrFFFFFFFFFFFFEE40.2 10804000416 lc r2,CursorRowFFFFFFFFFFFFEE50.0 2C0BF84001E beqi r2,#30,dcx7FFFFFFFFFFFFEE50.1 02884000001 addui r2,r2,#1FFFFFFFFFFFFEE50.2 18804000416 sc r2,CursorRowFFFFFFFFFFFFEE60.0 2F801FFFBAA bra dcx7FFFFFFFFFFFFEE60.1 dcx10:FFFFFFFFFFFFEE60.1 2C840340094 bnei r1,#0x94,dcx11 ; cursor home ?FFFFFFFFFFFFEE60.2 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEE70.0 27F40000007 sm [sp],r1/r2/r3/lrFFFFFFFFFFFFEE70.1 10804000418 lc r2,CursorColFFFFFFFFFFFFEE70.2 2F8800000C8 beq r2,r0,dcx12FFFFFFFFFFFFEE80.0 18800000418 sc r0,CursorColFFFFFFFFFFFFEE80.1 2F801FFFAAA bra dcx7FFFFFFFFFFFFEE80.2 dcx12:FFFFFFFFFFFFEE80.2 18800000416 sc r0,CursorRowFFFFFFFFFFFFEE90.0 2F801FFFA2A bra dcx7FFFFFFFFFFFFEE90.1 dcx11:FFFFFFFFFFFFEE90.1 03FBC000030 subui sp,sp,#48FFFFFFFFFFFFEE90.2 27F4000001F sm [sp],r1/r2/r3/r4/r5/r31FFFFFFFFFFFFEEA0.0 2C840180099 bnei r1,#0x99,dcx13 ; delete ?FFFFFFFFFFFFEEA0.1 0C7FFFFFB55 call CalcScreenLocFFFFFFFFFFFFEEA0.2 01002300009 or r3,r0,r1 ; r3 = screen locationFFFFFFFFFFFFEEB0.0 10802000418 lc r1,CursorCol ; r1 = cursor columnFFFFFFFFFFFFEEB0.1 2F8000001AA bra dcx5FFFFFFFFFFFFEEB0.2 dcx13:FFFFFFFFFFFFEEB0.2 2C840680008 bnei r1,#CTRLH,dcx3 ; backspace ?FFFFFFFFFFFFEEC0.0 10804000418 lc r2,CursorColFFFFFFFFFFFFEEC0.1 2F8800004A8 beq r2,r0,dcx4FFFFFFFFFFFFEEC0.2 03884000001 subui r2,r2,#1FFFFFFFFFFFFEED0.0 18804000418 sc r2,CursorColFFFFFFFFFFFFEED0.1 0C7FFFFFB55 call CalcScreenLoc ; a0 = screen locationFFFFFFFFFFFFEED0.2 01002300009 or r3,r0,r1 ; r3 = screen locationFFFFFFFFFFFFEEE0.0 10802000418 lc r1,CursorColFFFFFFFFFFFFEEE0.1 dcx5:FFFFFFFFFFFFEEE0.1 108C4000002 lc r2,2[r3]FFFFFFFFFFFFEEE0.2 188C4000000 sc r2,[r3]FFFFFFFFFFFFEEF0.0 028C6000002 addui r3,r3,#2FFFFFFFFFFFFEEF0.1 02842000001 addui r1,r1,#1FFFFFFFFFFFFEEF0.2 0A4FFDA0000 setlo r4,#TEXTREGFFFFFFFFFFFFEF00.0 2090A000000 inch r5,TEXT_COLS[r4]FFFFFFFFFFFFEF00.1 2F84BFFFF24 bltu r1,r5,dcx5FFFFFFFFFFFFEF00.2 0A200000020 setlo r2,#' 'FFFFFFFFFFFFEF10.0 188C5FFFFFE sc r2,-2[r3]FFFFFFFFFFFFEF10.1 2F80000022A bra dcx4FFFFFFFFFFFFEF10.2 dcx3:FFFFFFFFFFFFEF10.2 2C04040000A beqi r1,#'\n',dclf ; linefeed ?FFFFFFFFFFFFEF20.0 01002400009 or r4,r0,r1 ; save r1 in r4FFFFFFFFFFFFEF20.1 0C7FFFFFB55 call CalcScreenLoc ; r1 = screen locationFFFFFFFFFFFFEF20.2 01002300009 or r3,r0,r1 ; r3 = screen locationFFFFFFFFFFFFEF30.0 01008100009 or r1,r0,r4 ; restore r1FFFFFFFFFFFFEF30.1 0C7FFFFFB45 call AsciiToScreen ; convert ascii char to screen charFFFFFFFFFFFFEF30.2 188C2000000 sc r1,[r3]FFFFFFFFFFFFEF40.0 0C7FFFFFBD8 call IncCursorPosFFFFFFFFFFFFEF40.1 2774000001F lm [sp],r1/r2/r3/r4/r5/r31FFFFFFFFFFFFEF40.2 0DFBE000030 ret #48FFFFFFFFFFFFEF50.0 dclf:FFFFFFFFFFFFEF50.0 0C7FFFFFBE4 call IncCursorRowFFFFFFFFFFFFEF50.1 dcx4:FFFFFFFFFFFFEF50.1 2774000001F lm [sp],r1/r2/r3/r4/r5/r31FFFFFFFFFFFFEF50.2 0DFBE000030 ret #48;------------------------------------------------------------------------------; Increment the cursor position, scroll the screen if needed.;------------------------------------------------------------------------------;FFFFFFFFFFFFEF60.0 IncCursorPos:FFFFFFFFFFFFEF60.0 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEF60.1 27F40000007 sm [r30],r1/r2/r3/r31FFFFFFFFFFFFEF60.2 10802000418 lc r1,CursorColFFFFFFFFFFFFEF70.0 02842000001 addui r1,r1,#1FFFFFFFFFFFFEF70.1 18802000418 sc r1,CursorColFFFFFFFFFFFFEF70.2 20805DA0000 inch r2,TEXTREG+TEXT_COLSFFFFFFFFFFFFEF80.0 2F844000226 bleu r1,r2,icc1FFFFFFFFFFFFEF80.1 18800000418 sc r0,CursorCol ; column = 0FFFFFFFFFFFFEF80.2 2F8000000CA bra icr1FFFFFFFFFFFFEF90.0 IncCursorRow:FFFFFFFFFFFFEF90.0 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFEF90.1 27F40000007 sm [sp],r1/r2/r3/r31FFFFFFFFFFFFEF90.2 icr1:FFFFFFFFFFFFEF90.2 10802000416 lc r1,CursorRowFFFFFFFFFFFFEFA0.0 02842000001 addui r1,r1,#1FFFFFFFFFFFFEFA0.1 18802000416 sc r1,CursorRowFFFFFFFFFFFFEFA0.2 20805DA0002 inch r2,TEXTREG+TEXT_ROWSFFFFFFFFFFFFEFB0.0 2F8440000A6 bleu r1,r2,icc1FFFFFFFFFFFFEFB0.1 03884000001 subui r2,r2,#1 ; backup the cursor row, we are scrolling upFFFFFFFFFFFFEFB0.2 18804000416 sc r2,CursorRowFFFFFFFFFFFFEFC0.0 0C7FFFFFB1C call ScrollUpFFFFFFFFFFFFEFC0.1 icc1:FFFFFFFFFFFFEFC0.1 0C7FFFFFB55 call CalcScreenLocFFFFFFFFFFFFEFC0.2 27740000007 lm [sp],r1/r2/r3/r31FFFFFFFFFFFFEFD0.0 0DFBE000020 ret #32;------------------------------------------------------------------------------; Display a string on the screen.;------------------------------------------------------------------------------;FFFFFFFFFFFFEFD0.1 DisplayString:FFFFFFFFFFFFEFD0.1 037BC000018 subi sp,sp,#24FFFFFFFFFFFFEFD0.2 27F40000003 sm [sp],r1/r2/r31FFFFFFFFFFFFEFE0.0 01040200009 or r2,r1,r0 ; r2 = pointer to stringFFFFFFFFFFFFEFE0.1 dspj1:FFFFFFFFFFFFEFE0.1 12882000000 lbu r1,[r2] ; move string char into r1FFFFFFFFFFFFEFE0.2 02884000001 addui r2,r2,#1 ; increment pointerFFFFFFFFFFFFEFF0.0 2F840000088 beq r1,r0,dsret ; is it end of string ?FFFFFFFFFFFFEFF0.1 0C7FFFFFB65 call DisplayChar ; display characterFFFFFFFFFFFFEFF0.2 2F801FFFFAA bra dspj1 ; go back for next characterFFFFFFFFFFFFF000.0 dsret:FFFFFFFFFFFFF000.0 27740000003 lm [r30],r1/r2/r31FFFFFFFFFFFFF000.1 0DFBE000018 ret #24FFFFFFFFFFFFF000.2 DisplayStringCRLF:FFFFFFFFFFFFF000.2 03FBC000008 subui r30,r30,#8FFFFFFFFFFFFF010.0 19FBE000000 sw r31,[r30]FFFFFFFFFFFFF010.1 0C7FFFFFBF5 call DisplayStringFFFFFFFFFFFFF010.2 11FBE000000 lw r31,[r30]FFFFFFFFFFFFF020.0 02FBC000008 addui r30,r30,#8FFFFFFFFFFFFF020.1 CRLF:FFFFFFFFFFFFF020.1 03FBC000010 subui r30,r30,#16FFFFFFFFFFFFF020.2 19F82000000 sw r1,[r30]FFFFFFFFFFFFF030.0 19FBE000008 sw r31,8[r30]FFFFFFFFFFFFF030.1 0A10000000D setlo r1,#'\r'FFFFFFFFFFFFF030.2 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFF040.0 0A10000000A setlo r1,#'\n'FFFFFFFFFFFFF040.1 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFF040.2 11F82000000 lw r1,[r30]FFFFFFFFFFFFF050.0 11FBE000008 lw r31,8[r30]FFFFFFFFFFFFF050.1 0DFBE000010 ret #16;------------------------------------------------------------------------------; Display nybble in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFF050.2 DisplayNybble:FFFFFFFFFFFFF050.2 03FBC000010 subui r30,r30,#16FFFFFFFFFFFFF060.0 19FBE000008 sw r31,8[r30]FFFFFFFFFFFFF060.1 19F82000000 sw r1,[r30]FFFFFFFFFFFFF060.2 0504200000F andi r1,r1,#0x0FFFFFFFFFFFFFF070.0 02842000030 addui r1,r1,#'0'FFFFFFFFFFFFF070.1 2B040100039 bleui r1,#'9',dispnyb1FFFFFFFFFFFFF070.2 02842000007 addui r1,r1,#7FFFFFFFFFFFFF080.0 dispnyb1:FFFFFFFFFFFFF080.0 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFF080.1 11F82000000 lw r1,[r30]FFFFFFFFFFFFF080.2 11FBE000008 lw r31,8[r30]FFFFFFFFFFFFF090.0 0DFBE000010 ret #16;------------------------------------------------------------------------------; Display the byte in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFF090.1 DisplayByte:FFFFFFFFFFFFF090.1 03FBC000010 subui sp,sp,#16FFFFFFFFFFFFF090.2 27F40000001 sm [sp],r1/r31FFFFFFFFFFFFF0A0.0 01842200004 rori r1,r1,#4FFFFFFFFFFFFF0A0.1 0C7FFFFFC16 call DisplayNybbleFFFFFFFFFFFFF0A0.2 01842200002 roli r1,r1,#4FFFFFFFFFFFFF0B0.0 0C7FFFFFC16 call DisplayNybbleFFFFFFFFFFFFF0B0.1 27740000001 lm [sp],r1/r31FFFFFFFFFFFFF0B0.2 0DFBE000010 ret #16;------------------------------------------------------------------------------; Display the 64 bit word in r1;------------------------------------------------------------------------------;FFFFFFFFFFFFF0C0.0 DisplayWord:FFFFFFFFFFFFF0C0.0 03FBC000018 subui sp,sp,#24FFFFFFFFFFFFF0C0.1 27F40000005 sm [sp],r1/r3/r31FFFFFFFFFFFFF0C0.2 0A300000007 setlo r3,#7FFFFFFFFFFFFF0D0.0 dspwd1:FFFFFFFFFFFFF0D0.0 01842400002 roli r1,r1,#8FFFFFFFFFFFFF0D0.1 0C7FFFFFC25 call DisplayByteFFFFFFFFFFFFF0D0.2 2F80600000F loop r3,dspwd1FFFFFFFFFFFFF0E0.0 27740000005 lm [sp],r1/r3/r31FFFFFFFFFFFFF0E0.1 0DFBE000018 ret #24;------------------------------------------------------------------------------; Display memory pointed to by r2.; destroys r1,r3;------------------------------------------------------------------------------;FFFFFFFFFFFFF0E0.2 DisplayMem:FFFFFFFFFFFFF0E0.2 03FBC000008 subui sp,sp,#8FFFFFFFFFFFFF0F0.0 19FBE000000 sw lr,[sp]FFFFFFFFFFFFF0F0.1 0A10000003A setlo r1,#':'FFFFFFFFFFFFF0F0.2 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFF100.0 01080100009 or r1,r2,r0FFFFFFFFFFFFF100.1 0C7FFFFFC30 call DisplayWordFFFFFFFFFFFFF100.2 0A300000007 setlo r3,#7FFFFFFFFFFFFF110.0 dspmem1:FFFFFFFFFFFFF110.0 0A100000020 setlo r1,#' 'FFFFFFFFFFFFF110.1 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFF110.2 10082000000 lb r1,[r2]FFFFFFFFFFFFF120.0 0C7FFFFFC25 call DisplayByteFFFFFFFFFFFFF120.1 02884000001 addui r2,r2,#1FFFFFFFFFFFFF120.2 2F807FFFF8F loop r3,dspmem1FFFFFFFFFFFFF130.0 0C7FFFFFC09 call CRLFFFFFFFFFFFFFF130.1 11FBE000000 lw lr,[sp]FFFFFFFFFFFFF130.2 0DFBE000008 ret #8;------------------------------------------------------------------------------; Converts binary number in r1 into BCD number in r2 and r1.;------------------------------------------------------------------------------;FFFFFFFFFFFFF140.0 BinToBCD:FFFFFFFFFFFFF140.0 03FBC000030 subui sp,sp,#48FFFFFFFFFFFFF140.1 27F000000FC sm [sp],r3/r4/r5/r6/r7/r8FFFFFFFFFFFFF140.2 0A20000000A setlo r2,#10FFFFFFFFFFFFF150.0 0A800000013 setlo r8,#19 ; number of digits to produce - 1FFFFFFFFFFFFF150.1 bta1:FFFFFFFFFFFFF150.1 0104430001C mod r3,r1,r2FFFFFFFFFFFFF150.2 018C7E00000 shli r3,r3,#60 ; shift result to uppermost bitsFFFFFFFFFFFFF160.0 0194FE00000 shli r7,r5,#60 ; copy low order nybble of r5 to r4 topmost nybbleFFFFFFFFFFFFF160.1 01908200001 shrui r4,r4,#4FFFFFFFFFFFFF160.2 0110E400009 or r4,r4,r7FFFFFFFFFFFFF170.0 0194A200001 shrui r5,r5,#4FFFFFFFFFFFFF170.1 01146500009 or r5,r5,r3 ; copy new bcd digit into uppermost bits of r5FFFFFFFFFFFFF170.2 07042000000 divui r1,r1,r2 ; r1=r1/10FFFFFFFFFFFFF180.0 2F811FFFEAF loop r8,bta1FFFFFFFFFFFFF180.1 01909800001 shrui r4,r4,#48 ; right align number in registerFFFFFFFFFFFFF180.2 0194C800000 shli r6,r5,#16FFFFFFFFFFFFF190.0 0110C400009 or r4,r4,r6 ; copy bits into r4FFFFFFFFFFFFF190.1 0194B800001 shrui r5,r5,#48FFFFFFFFFFFFF190.2 01008100009 or r1,r0,r4FFFFFFFFFFFFF1A0.0 0100A200009 or r2,r0,r5FFFFFFFFFFFFF1A0.1 277000000FC lm [sp],r3/r4/r5/r6/r7/r8FFFFFFFFFFFFF1A0.2 0DFBE000030 ret #48;------------------------------------------------------------------------------; Converts BCD number in r1 into Ascii number in r2 and r1.;------------------------------------------------------------------------------;FFFFFFFFFFFFF1B0.0 BCDToAscii:FFFFFFFFFFFFF1B0.0 03FBC000020 subui sp,sp,#32FFFFFFFFFFFFF1B0.1 27F0000009C sm [sp],r3/r4/r5/r8FFFFFFFFFFFFF1B0.2 0A80000000F setlo r8,#15FFFFFFFFFFFFF1C0.0 bta2:FFFFFFFFFFFFF1C0.0 0504400000F andi r2,r1,#0x0FFFFFFFFFFFFFF1C0.1 05884000030 ori r2,r2,#0x30FFFFFFFFFFFFF1C0.2 01885C00000 shli r2,r2,#56FFFFFFFFFFFFF1D0.0 01908400001 shrui r4,r4,#8FFFFFFFFFFFFF1D0.1 018CBC00000 shli r5,r3,#56FFFFFFFFFFFFF1D0.2 0110A400009 or r4,r4,r5FFFFFFFFFFFFF1E0.0 018C6400001 shrui r3,r3,#8FFFFFFFFFFFFF1E0.1 010C4300009 or r3,r3,r2FFFFFFFFFFFFF1E0.2 01842200001 shrui r1,r1,#4FFFFFFFFFFFFF1F0.0 2F811FFFE8F loop r8,bta2FFFFFFFFFFFFF1F0.1 01008100009 or r1,r0,r4FFFFFFFFFFFFF1F0.2 01006200009 or r2,r0,r3FFFFFFFFFFFFF200.0 2770000009C lm [sp],r3/r4/r5/r8FFFFFFFFFFFFF200.1 0DFBE000020 ret #32;------------------------------------------------------------------------------; Convert a binary number into a 20 character ascii string.; r1 = number to convert; r2 = address of string buffer;------------------------------------------------------------------------------;FFFFFFFFFFFFF200.2 BinToStr:FFFFFFFFFFFFF200.2 03FBC000038 subui sp,sp,#56FFFFFFFFFFFFF210.0 27F400007C4 sm [sp],r3/r7/r8/r9/r10/r11/r31FFFFFFFFFFFFF210.1 01004B00009 or r11,r0,r2FFFFFFFFFFFFF210.2 0C7FFFFFC50 call BinToBCDFFFFFFFFFFFFF220.0 01004A00009 or r10,r0,r2 ; save off r2FFFFFFFFFFFFF220.1 0C7FFFFFC6C call BCDToAsciiFFFFFFFFFFFFF220.2 0A900000001 setlo r9,#1FFFFFFFFFFFFF230.0 btos3:FFFFFFFFFFFFF230.0 0A800000007 setlo r8,#7FFFFFFFFFFFFF230.1 btos1:FFFFFFFFFFFFF230.1 01A4E180000 shli r7,r9,#3FFFFFFFFFFFFF230.2 029CE000000 addui r7,r7,r8FFFFFFFFFFFFF240.0 029CE000004 addui r7,r7,#4FFFFFFFFFFFFF240.1 050460000FF andi r3,r1,#0xffFFFFFFFFFFFFF240.2 1A9D6300010 sb r3,[r7+r11]FFFFFFFFFFFFF250.0 01842400001 shrui r1,r1,#8FFFFFFFFFFFFF250.1 2F811FFFF2F loop r8,btos1FFFFFFFFFFFFF250.2 01004100009 or r1,r0,r2FFFFFFFFFFFFF260.0 2F813FFFE8F loop r9,btos3; the last four digitsFFFFFFFFFFFFF260.1 01014100009 or r1,r0,r10 ; get back r2FFFFFFFFFFFFF260.2 0C7FFFFFC6C call BCDToAsciiFFFFFFFFFFFFF270.0 0A800000003 setlo r8,#3FFFFFFFFFFFFF270.1 btos2:FFFFFFFFFFFFF270.1 050460000FF andi r3,r1,#0xffFFFFFFFFFFFFF270.2 1AA16300010 sb r3,[r8+r11]FFFFFFFFFFFFF280.0 01842400001 shrui r1,r1,#8FFFFFFFFFFFFF280.1 2F811FFFFAF loop r8,btos2FFFFFFFFFFFFF280.2 182C0000014 sb r0,20[r11] ; null terminateFFFFFFFFFFFFF290.0 277400007C4 lm [sp],r3/r7/r8/r9/r10/r11/r31FFFFFFFFFFFFF290.1 0DFBE000038 ret #56;==============================================================================;==============================================================================FFFFFFFFFFFFF290.2 Monitor:FFFFFFFFFFFFF290.2 0BEFFFEFFF8 setlo sp,#STACKTOP ; top of stack; reset the stack pointerFFFFFFFFFFFFF2A0.0 1800000041A sb r0,KeybdEcho ; turn off keyboard echoFFFFFFFFFFFFF2A0.1 PromptLn:FFFFFFFFFFFFF2A0.1 0C7FFFFFC09 call CRLFFFFFFFFFFFFFF2A0.2 0A100000024 setlo r1,#'$'FFFFFFFFFFFFF2B0.0 0C7FFFFFB65 call DisplayChar; Get characters until a CR is keyed;FFFFFFFFFFFFF2B0.1 Prompt3:FFFFFFFFFFFFF2B0.1 0C7FFFFFA92 call KeybdGetCharFFFFFFFFFFFFF2B0.2 2C04007FFFF beqi r1,#-1,Prompt3 ; wait for a characterFFFFFFFFFFFFF2C0.0 2C04010000D beqi r1,#CR,Prompt1FFFFFFFFFFFFF2C0.1 0C7FFFFFB65 call DisplayCharFFFFFFFFFFFFF2C0.2 2F801FFFFAA bra Prompt3; Process the screen line that the CR was keyed on;FFFFFFFFFFFFF2D0.0 Prompt1:FFFFFFFFFFFFF2D0.0 18800000418 sc r0,CursorCol ; go back to the start of the lineFFFFFFFFFFFFF2D0.1 0C7FFFFFB55 call CalcScreenLoc ; r1 = screen memory locationFFFFFFFFFFFFF2D0.2 01040300009 or r3,r1,r0FFFFFFFFFFFFF2E0.0 108C2000000 lc r1,[r3]FFFFFFFFFFFFF2E0.1 028C6000002 addui r3,r3,#2FFFFFFFFFFFFF2E0.2 0C7FFFFFB50 call ScreenToAsciiFFFFFFFFFFFFF2F0.0 2C840140024 bnei r1,#'$',Prompt2 ; skip over '$' prompt characterFFFFFFFFFFFFF2F0.1 108C2000000 lc r1,[r3]FFFFFFFFFFFFF2F0.2 028C6000002 addui r3,r3,#2FFFFFFFFFFFFF300.0 0C7FFFFFB50 call ScreenToAscii; Dispatch based on command character;FFFFFFFFFFFFF300.1 Prompt2:FFFFFFFFFFFFF300.1 2C04150003A beqi r1,#':',Editmem ; $: - edit memoryFFFFFFFFFFFFF300.2 2C041A00044 beqi r1,#'D',Dumpmem ; $D - dump memoryFFFFFFFFFFFFF310.0 2C075140042 beqi r1,#'B',START ; $B - start tiny basicFFFFFFFFFFFFF310.1 2C04174004A beqi r1,#'J',ExecuteCode ; $J - execute codeFFFFFFFFFFFFF310.2 2C04280004C beqi r1,#'L',LoadS19 ; $L - load S19 fileFFFFFFFFFFFFF320.0 2C04054003F beqi r1,#'?',DisplayHelp ; $? - display helpFFFFFFFFFFFFF320.1 2C040100043 beqi r1,#'C',TestCLS ; $C - clear screenFFFFFFFFFFFFF320.2 2F801FFFBCA bra MonitorFFFFFFFFFFFFF330.0 TestCLS:FFFFFFFFFFFFF330.0 108C2000000 lc r1,[r3]FFFFFFFFFFFFF330.1 028C6000002 addui r3,r3,#2FFFFFFFFFFFFF330.2 0C7FFFFFB50 call ScreenToAsciiFFFFFFFFFFFFF340.0 2C87F58004C bnei r1,#'L',MonitorFFFFFFFFFFFFF340.1 108C2000000 lc r1,[r3]FFFFFFFFFFFFF340.2 028C6000002 addui r3,r3,#2FFFFFFFFFFFFF350.0 0C7FFFFFB50 call ScreenToAsciiFFFFFFFFFFFFF350.1 2C87F480053 bnei r1,#'S',MonitorFFFFFFFFFFFFF350.2 0C7FFFFFB06 call ClearScreenFFFFFFFFFFFFF360.0 18000000418 sb r0,CursorColFFFFFFFFFFFFF360.1 18000000416 sb r0,CursorRowFFFFFFFFFFFFF360.2 0C7FFFFFB55 call CalcScreenLocFFFFFFFFFFFFF370.0 2F801FFF94A bra MonitorFFFFFFFFFFFFF370.1 DisplayHelp:FFFFFFFFFFFFF370.1 0A1FFFFF390 setlo r1,HelpMsgFFFFFFFFFFFFF370.2 0C7FFFFFBF5 call DisplayStringFFFFFFFFFFFFF380.0 2F801FFF8CA bra MonitorFFFFFFFFFFFFF380.1 37800000000 align 16FFFFFFFFFFFFF380.2 37800000000 align 16FFFFFFFFFFFFF390.0 align 16FFFFFFFFFFFFF390.0 HelpMsg:FFFFFFFFFFFFF390 70736944203D203F db "? = Display help",CR,LFFFFFFFFFFFFFF398 706C65682079616CFFFFFFFFFFFFF3A0 203D20534C430A0D db "CLS = clear screen",CR,LFFFFFFFFFFFFFF3A8 6373207261656C63FFFFFFFFFFFFF3B0 203A0A0D6E656572 db ": = Edit memory bytes",CR,LFFFFFFFFFFFFFF3B8 6D2074696445203DFFFFFFFFFFFFF3C0 79622079726F6D65FFFFFFFFFFFFF3C8 3D204C0A0D736574 db "L = Load S19 file",CR,LFFFFFFFFFFFFFF3D0 31532064616F4C20FFFFFFFFFFFFF3D8 0A0D656C69662039FFFFFFFFFFFFF3E0 706D7544203D2044 db "D = Dump memory",CR,LFFFFFFFFFFFFFF3E8 0D79726F6D656D20FFFFFFFFFFFFF3F0 617473203D20420A db "B = start tiny basic",CR,LFFFFFFFFFFFFFF3F8 20796E6974207472FFFFFFFFFFFFF400 4A0A0D6369736162 db "J = Jump to code",CR,LF,0FFFFFFFFFFFFF408 20706D754A203D20FFFFFFFFFFFFF410 0D65646F63206F74FFFFFFFFFFFFF418 000000000000000A align 16FFFFFFFFFFFFF420.0 align 16;------------------------------------------------------------------------------; Ignore blanks in the input; r3 = text pointer; r1 destroyed;------------------------------------------------------------------------------;FFFFFFFFFFFFF420.0 ignBlanks:FFFFFFFFFFFFF420.0 03FBC000008 subui sp,sp,#8FFFFFFFFFFFFF420.1 19FBE000000 sw r31,[sp]FFFFFFFFFFFFF420.2 ignBlanks1:FFFFFFFFFFFFF420.2 108C2000000 lc r1,[r3]FFFFFFFFFFFFF430.0 028C6000002 addui r3,r3,#2FFFFFFFFFFFFF430.1 0C7FFFFFB50 call ScreenToAsciiFFFFFFFFFFFFF430.2 2C07FF80020 beqi r1,#' ',ignBlanks1FFFFFFFFFFFFF440.0 038C6000002 subui r3,r3,#2FFFFFFFFFFFFF440.1 11FBE000000 lw r31,[sp]FFFFFFFFFFFFF440.2 0DFBE000008 ret #8;------------------------------------------------------------------------------; Edit memory byte(s).;------------------------------------------------------------------------------;FFFFFFFFFFFFF450.0 EditMem:FFFFFFFFFFFFF450.0 0C7FFFFFD08 call ignBlanksFFFFFFFFFFFFF450.1 0C7FFFFFD39 call GetHexNumberFFFFFFFFFFFFF450.2 01040500009 or r5,r1,r0FFFFFFFFFFFFF460.0 0A400000007 setlo r4,#7FFFFFFFFFFFFF460.1 edtmem1:FFFFFFFFFFFFF460.1 0C7FFFFFD08 call ignBlanksFFFFFFFFFFFFF460.2 0C7FFFFFD39 call GetHexNumberFFFFFFFFFFFFF470.0 18142000000 sb r1,[r5]FFFFFFFFFFFFF470.1 0294A000001 addui r5,r5,#1FFFFFFFFFFFFF470.2 2F809FFFFAF loop r4,edtmem1FFFFFFFFFFFFF480.0 2F801FFF0CA bra Monitor;------------------------------------------------------------------------------; Execute code at the specified address.;------------------------------------------------------------------------------;FFFFFFFFFFFFF480.1 ExecuteCode:FFFFFFFFFFFFF480.1 0C7FFFFFD08 call ignBlanksFFFFFFFFFFFFF480.2 0C7FFFFFD39 call GetHexNumberFFFFFFFFFFFFF490.0 01040300009 or r3,r1,r0FFFFFFFFFFFFF490.1 0D0FE000000 jal r31,[r3]FFFFFFFFFFFFF490.2 2F801FFF04A bra Monitor;------------------------------------------------------------------------------; Do a memory dump of the requested location.;------------------------------------------------------------------------------;FFFFFFFFFFFFF4A0.0 DumpMem:FFFFFFFFFFFFF4A0.0 0C7FFFFFD08 call ignBlanksFFFFFFFFFFFFF4A0.1 0C7FFFFFD39 call GetHexNumberFFFFFFFFFFFFF4A0.2 01040200009 or r2,r1,r0FFFFFFFFFFFFF4B0.0 0C7FFFFFC09 call CRLFFFFFFFFFFFFFF4B0.1 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4B0.2 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4C0.0 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4C0.1 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4C0.2 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4D0.0 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4D0.1 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4D0.2 0C7FFFFFC3A call DisplayMemFFFFFFFFFFFFF4E0.0 2F801FFEDCA bra Monitor;------------------------------------------------------------------------------; Get a hexidecimal number. Maximum of sixteen digits.; R3 = text pointer (updated);------------------------------------------------------------------------------;FFFFFFFFFFFFF4E0.1 GetHexNumber:FFFFFFFFFFFFF4E0.1 03FBC000018 subui sp,sp,#24FFFFFFFFFFFFF4E0.2 27F4000000A sm [sp],r2/r4/r31FFFFFFFFFFFFF4F0.0 0A200000000 setlo r2,#0FFFFFFFFFFFFF4F0.1 0A40000000F setlo r4,#15FFFFFFFFFFFFF4F0.2 gthxn2:FFFFFFFFFFFFF4F0.2 108C2000000 lc r1,[r3]FFFFFFFFFFFFF500.0 028C6000002 addui r3,r3,#2FFFFFFFFFFFFF500.1 0C7FFFFFB50 call ScreenToAsciiFFFFFFFFFFFFF500.2 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF510.0 2C0401BFFFF beqi r1,#-1,gthxn1FFFFFFFFFFFFF510.1 01884200000 shli r2,r2,#4FFFFFFFFFFFFF510.2 0504200000F andi r1,r1,#0x0fFFFFFFFFFFFFF520.0 01082200009 or r2,r2,r1FFFFFFFFFFFFF520.1 2F809FFFECF loop r4,gthxn2FFFFFFFFFFFFF520.2 gthxn1:FFFFFFFFFFFFF520.2 01080100009 or r1,r2,r0FFFFFFFFFFFFF530.0 2774000000A lm [sp],r2/r4/r31FFFFFFFFFFFFF530.1 0DFBE000018 ret #24;------------------------------------------------------------------------------; Convert ASCII character in the range '0' to '9', 'a' to 'f' or 'A' to 'F'; to a hex nybble.;------------------------------------------------------------------------------;FFFFFFFFFFFFF530.2 AsciiToHexNybble:FFFFFFFFFFFFF530.2 2A040540030 bltui r1,#'0',gthx3FFFFFFFFFFFFF540.0 2B840100039 bgtui r1,#'9',gthx5FFFFFFFFFFFFF540.1 03842000030 subui r1,r1,#'0'FFFFFFFFFFFFF540.2 0DFBE000000 retFFFFFFFFFFFFF550.0 gthx5:FFFFFFFFFFFFF550.0 2A040340041 bltui r1,#'A',gthx3FFFFFFFFFFFFF550.1 2B840180046 bgtui r1,#'F',gthx6FFFFFFFFFFFFF550.2 03842000041 subui r1,r1,#'A'FFFFFFFFFFFFF560.0 0284200000A addui r1,r1,#10FFFFFFFFFFFFF560.1 0DFBE000000 retFFFFFFFFFFFFF560.2 gthx6:FFFFFFFFFFFFF560.2 2A040240061 bltui r1,#'a',gthx3FFFFFFFFFFFFF570.0 2B840140066 bgtui r1,#'f',gthx3FFFFFFFFFFFFF570.1 03842000061 subui r1,r1,#'a'FFFFFFFFFFFFF570.2 0284200000A addui r1,r1,#10FFFFFFFFFFFFF580.0 0DFBE000000 retFFFFFFFFFFFFF580.1 gthx3:FFFFFFFFFFFFF580.1 0A1FFFFFFFF setlo r1,#-1 ; not a hex numberFFFFFFFFFFFFF580.2 0DFBE000000 ret;==============================================================================; Load an S19 format file;==============================================================================;FFFFFFFFFFFFF590.0 LoadS19:FFFFFFFFFFFFF590.0 2F80000008A bra ProcessRecFFFFFFFFFFFFF590.1 NextRec:FFFFFFFFFFFFF590.1 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF590.2 2C84004000A bne r1,#LF,NextRecFFFFFFFFFFFFF5A0.0 ProcessRec:FFFFFFFFFFFFF5A0.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF5A0.1 2C07CF8001A beqi r1,#26,Monitor ; CTRL-Z ?FFFFFFFFFFFFF5A0.2 2C87FF40053 bnei r1,#'S',NextRecFFFFFFFFFFFFF5B0.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF5B0.1 2807FE40030 blt r1,#'0',NextRecFFFFFFFFFFFFF5B0.2 2987FE40039 bgt r1,#'9',NextRecFFFFFFFFFFFFF5C0.0 01040400009 or r4,r1,r0 ; r4 = record typeFFFFFFFFFFFFF5C0.1 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF5C0.2 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF5D0.0 01040200009 or r2,r1,r0FFFFFFFFFFFFF5D0.1 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF5D0.2 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF5E0.0 01884200000 shli r2,r2,#4FFFFFFFFFFFFF5E0.1 01082200009 or r2,r2,r1 ; r2 = byte countFFFFFFFFFFFFF5E0.2 01082300009 or r3,r2,r1 ; r3 = byte countFFFFFFFFFFFFF5F0.0 2C13FA40030 beqi r4,#'0',NextRec ; manufacturer ID record, ignoreFFFFFFFFFFFFF5F0.1 2C100A40031 beqi r4,#'1',ProcessS1FFFFFFFFFFFFF5F0.2 2C100B00032 beqi r4,#'2',ProcessS2FFFFFFFFFFFFF600.0 2C100A80033 beqi r4,#'3',ProcessS3FFFFFFFFFFFFF600.1 2C13F940035 beqi r4,#'5',NextRec ; record count record, ignoreFFFFFFFFFFFFF600.2 2C100B40037 beqi r4,#'7',ProcessS7FFFFFFFFFFFFF610.0 2C100B40038 beqi r4,#'8',ProcessS8FFFFFFFFFFFFF610.1 2C100C40039 beqi r4,#'9',ProcessS9FFFFFFFFFFFFF610.2 2F801FFFC2A bra NextRecFFFFFFFFFFFFF620.0 pcssxa:FFFFFFFFFFFFF620.0 050C60000FF andi r3,r3,#0xffFFFFFFFFFFFFF620.1 038C6000001 subui r3,r3,#1 ; one less for loopFFFFFFFFFFFFF620.2 pcss1a:FFFFFFFFFFFFF620.2 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF630.0 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF630.1 01884200000 shli r2,r2,#4FFFFFFFFFFFFF630.2 01082200009 or r2,r2,r1FFFFFFFFFFFFF640.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF640.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF640.2 01884200000 shli r2,r2,#4FFFFFFFFFFFFF650.0 01082200009 or r2,r2,r1FFFFFFFFFFFFF650.1 18144000000 sb r2,[r5]FFFFFFFFFFFFF650.2 0294A000001 addui r5,r5,#1FFFFFFFFFFFFF660.0 2F807FFFE4F loop r3,pcss1a; Get the checksum byteFFFFFFFFFFFFF660.1 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF660.2 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF670.0 01884200000 shli r2,r2,#4FFFFFFFFFFFFF670.1 01082200009 or r2,r2,r1FFFFFFFFFFFFF670.2 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF680.0 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF680.1 01884200000 shli r2,r2,#4FFFFFFFFFFFFF680.2 01082200009 or r2,r2,r1FFFFFFFFFFFFF690.0 2F801FFF82A bra NextRecFFFFFFFFFFFFF690.1 ProcessS1:FFFFFFFFFFFFF690.1 0C7FFFFFDB9 call S19Get16BitAddressFFFFFFFFFFFFF690.2 2F801FFFC8A bra pcssxaFFFFFFFFFFFFF6A0.0 ProcessS2:FFFFFFFFFFFFF6A0.0 0C7FFFFFDC1 call S19Get24BitAddressFFFFFFFFFFFFF6A0.1 2F801FFFC0A bra pcssxaFFFFFFFFFFFFF6A0.2 ProcessS3:FFFFFFFFFFFFF6A0.2 0C7FFFFFDC9 call S19Get32BitAddressFFFFFFFFFFFFF6B0.0 2F801FFFB8A bra pcssxaFFFFFFFFFFFFF6B0.1 ProcessS7:FFFFFFFFFFFFF6B0.1 0C7FFFFFDC9 call S19Get32BitAddressFFFFFFFFFFFFF6B0.2 1980A000000 sw r5,S19StartAddressFFFFFFFFFFFFF6C0.0 2F801FFDECA bra MonitorFFFFFFFFFFFFF6C0.1 ProcessS8:FFFFFFFFFFFFF6C0.1 0C7FFFFFDC1 call S19Get24BitAddressFFFFFFFFFFFFF6C0.2 1980A000000 sw r5,S19StartAddressFFFFFFFFFFFFF6D0.0 2F801FFDE4A bra MonitorFFFFFFFFFFFFF6D0.1 ProcessS9:FFFFFFFFFFFFF6D0.1 0C7FFFFFDB9 call S19Get16BitAddressFFFFFFFFFFFFF6D0.2 1980A000000 sw r5,S19StartAddressFFFFFFFFFFFFF6E0.0 2F801FFDDCA bra MonitorFFFFFFFFFFFFF6E0.1 S19Get16BitAddress:FFFFFFFFFFFFF6E0.1 03FBC000008 subui sp,sp,#8FFFFFFFFFFFFF6E0.2 19FBE000000 sw r31,[sp]FFFFFFFFFFFFF6F0.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF6F0.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF6F0.2 01040200009 or r2,r1,r0FFFFFFFFFFFFF700.0 2F8000004AA bra S1932bFFFFFFFFFFFFF700.1 S19Get24BitAddress:FFFFFFFFFFFFF700.1 03FBC000008 subui sp,sp,#8FFFFFFFFFFFFF700.2 19FBE000000 sw r31,[sp]FFFFFFFFFFFFF710.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF710.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF710.2 01040200009 or r2,r1,r0FFFFFFFFFFFFF720.0 2F80000024A bra S1932aFFFFFFFFFFFFF720.1 S19Get32BitAddress:FFFFFFFFFFFFF720.1 03FBC000008 subui sp,sp,#8FFFFFFFFFFFFF720.2 19FBE000000 sw r31,[sp]FFFFFFFFFFFFF730.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF730.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF730.2 01040200009 or r2,r1,r0FFFFFFFFFFFFF740.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF740.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF740.2 01884200000 shli r2,r2,#4FFFFFFFFFFFFF750.0 01044200009 or r2,r1,r2FFFFFFFFFFFFF750.1 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF750.2 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF760.0 01884200000 shli r2,r2,#4FFFFFFFFFFFFF760.1 01082200009 or r2,r2,r1FFFFFFFFFFFFF760.2 S1932a:FFFFFFFFFFFFF760.2 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF770.0 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF770.1 01884200000 shli r2,r2,#4FFFFFFFFFFFFF770.2 01082200009 or r2,r2,r1FFFFFFFFFFFFF780.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF780.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF780.2 01884200000 shli r2,r2,#4FFFFFFFFFFFFF790.0 01082200009 or r2,r2,r1FFFFFFFFFFFFF790.1 S1932b:FFFFFFFFFFFFF790.1 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF790.2 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF7A0.0 01884200000 shli r2,r2,#4FFFFFFFFFFFFF7A0.1 01082200009 or r2,r2,r1FFFFFFFFFFFFF7A0.2 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF7B0.0 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF7B0.1 01884200000 shli r2,r2,#4FFFFFFFFFFFFF7B0.2 01082200009 or r2,r2,r1FFFFFFFFFFFFF7C0.0 0C7FFFFFDFC call sGetCharFFFFFFFFFFFFF7C0.1 0C7FFFFFD4E call AsciiToHexNybbleFFFFFFFFFFFFF7C0.2 01884200000 shli r2,r2,#4FFFFFFFFFFFFF7D0.0 01082200009 or r2,r2,r1FFFFFFFFFFFFF7D0.1 0110840000A xor r4,r4,r4FFFFFFFFFFFFF7D0.2 01080500009 or r5,r2,r0FFFFFFFFFFFFF7E0.0 11FBE000000 lw r31,[sp]FFFFFFFFFFFFF7E0.1 02FBC000008 addui sp,sp,#8FFFFFFFFFFFFF7E0.2 0DFBE000000 ret;------------------------------------------------------------------------------; Get a character from auxillary input, checking the keyboard status for a; CTRL-C;------------------------------------------------------------------------------;FFFFFFFFFFFFF7F0.0 sGetChar:FFFFFFFFFFFFF7F0.0 03FBC000008 subui sp,sp,#8FFFFFFFFFFFFF7F0.1 19FBE000000 sw r31,[sp]FFFFFFFFFFFFF7F0.2 sgc2:FFFFFFFFFFFFF7F0.2 0C7FFFFFAA6 call KeybdCheckForKeyFFFFFFFFFFFFF800.0 2F841FF8B08 beq r1,r0,sgc1FFFFFFFFFFFFF800.1 0C7FFFFFA92 call KeybdGetcharFFFFFFFFFFFFF800.2 2C07A980000 beqi r1,#CRTLC,MonitorFFFFFFFFFFFFF810.0 sgc1:FFFFFFFFFFFFF810.0 0C7FFFFFE30 call AUXINFFFFFFFFFFFFF810.1 2F841FFFF48 beq r1,r0,sgc2FFFFFFFFFFFFF810.2 11FBE000000 lw r31,[sp]FFFFFFFFFFFFF820.0 02FBC000008 addui sp,sp,#8FFFFFFFFFFFFF820.1 0DFBE000000 ret;--------------------------------------------------------------------------; Sound a 800 Hz beep;--------------------------------------------------------------------------;FFFFFFFFFFFFF820.2 SetupAC97:FFFFFFFFFFFFF820.2 05802000000 ori r1,r0,#0 ; trigger a read of register 26FFFFFFFFFFFFF830.0 18803DC1026 sc r1,AC97+0x26FFFFFFFFFFFFF830.1 sac971: ; wait for status to register 0xF (all ready)FFFFFFFFFFFFF830.1 10803DC1026 lc r1,AC97+0x26FFFFFFFFFFFFF830.2 2C84004000F bnei r1,#0x0F,sac971FFFFFFFFFFFFF840.0 05802000000 ori r1,r0,#0 ; master volume, 0db attenuation, mute offFFFFFFFFFFFFF840.1 18803DC1002 sc r1,AC97+2FFFFFFFFFFFFF840.2 18803DC1004 sc r1,AC97+4 ; headphone volume, 0db attenuation, mute offFFFFFFFFFFFFF850.0 05802001F40 ori r1,r0,#8000 ; wait a while for the settings to take effectFFFFFFFFFFFFF850.1 sac972:FFFFFFFFFFFFF850.1 2F80200002F loop r1,sac972FFFFFFFFFFFFF850.2 Beep:FFFFFFFFFFFFF850.2 0580200000F ori r1,r0,#15 ; master volume to maxFFFFFFFFFFFFF860.0 18803D50080 sc r1,PSG+128FFFFFFFFFFFFF860.1 0580200346E ori r1,r0,#13422 ; 800HzFFFFFFFFFFFFF860.2 18803D50000 sc r1,PSGFFFFFFFFFFFFF870.0 05802000020 ori r1,r0,#32 ; attack (8.192 ms)FFFFFFFFFFFFF870.1 18803D50008 sc r1,PSG+8FFFFFFFFFFFFF870.2 05802000040 ori r1,r0,#64 ; decay (16.384 ms)FFFFFFFFFFFFF880.0 18803D5000A sc r1,PSG+10FFFFFFFFFFFFF880.1 058020000C0 ori r1,r0,#0xC0 ; sustain levelFFFFFFFFFFFFF880.2 18803D5000C sc r1,PSG+12FFFFFFFFFFFFF890.0 05802000FA0 ori r1,r0,#4000 ; release (1.024 s)FFFFFFFFFFFFF890.1 18803D5000E sc r1,PSG+14FFFFFFFFFFFFF890.2 05802001104 ori r1,r0,#0x1104 ; gate, output enable, triangle waveformFFFFFFFFFFFFF8A0.0 18803D50004 sc r1,PSG+4FFFFFFFFFFFFF8A0.1 38000000000FFFFFFFFFFFFF8A0.2 058037D7840 ori r1,r0,#25000000 ; delay about 1sFFFFFFFFFFFFF8B0.0 beep1:FFFFFFFFFFFFF8B0.0 2F80200000F loop r1,beep1FFFFFFFFFFFFF8B0.1 05802000000 ori r1,r0,#0x0000 ; gate off, output enable off, no waveformFFFFFFFFFFFFF8B0.2 0DFBE000000 ret;*;* ===== Input a character from the host into register D0 (or;* return Zero status if there's no character available).;*FFFFFFFFFFFFF8C0.0 AUXIN:FFFFFFFFFFFFF8C0.0 20003DC0A01 inb r1,UART_LS ; is character ready ?FFFFFFFFFFFFF8C0.1 05042000001 andi r1,r1,#rxfullFFFFFFFFFFFFF8C0.2 2F8400000C8 beq r1,r0,AXIRET ;if not, return Zero statusFFFFFFFFFFFFF8D0.0 20003DC0A00 inb r1,UART ; else get the characterFFFFFFFFFFFFF8D0.1 0504200007F andi r1,r1,#0x7f ;zero out the high bitFFFFFFFFFFFFF8D0.2 AXIRET:FFFFFFFFFFFFF8D0.2 0DFBE000000 ret;*;* ===== Return to the resident monitor, operating system, etc.;*FFFFFFFFFFFFF8E0.0 BYEBYE:FFFFFFFFFFFFF8E0.0 0CFFFFFFCA6 jmp Monitor; MOVE.B #228,D7 ;return to Tutor; TRAP #14FFFFFFFFFFFFF8E0.1 37800000000 align 16FFFFFFFFFFFFF8E0.2 37800000000 align 16FFFFFFFFFFFFF8F0.0 align 16FFFFFFFFFFFFF8F0 726F747061520A0D msgInit db CR,LF,"Raptor64 Tiny BASIC v1.0",CR,LF,"(C) 2012 Robert Finch",CR,LF,LF,0FFFFFFFFFFFFF8F8 20796E6954203436FFFFFFFFFFFFF900 3176204349534142FFFFFFFFFFFFF908 202943280A0D302EFFFFFFFFFFFFF910 6F52202032313032FFFFFFFFFFFFF918 6E69462074726562FFFFFFFFFFFFF920 0A0D000A0A0D6863 OKMSG db CR,LF,"OK",CR,LF,0FFFFFFFFFFFFF928 616857000A0D4B4F msgWhat db "What?",CR,LF,0FFFFFFFFFFFFF930 726F53000A0D3F74 SRYMSG db "Sorry."FFFFFFFFFFFFF938 6F43000A0D2E7972 msgReadError db "Compact FLASH read error",CR,LF,0FFFFFFFFFFFFF940 4C4620746361706DFFFFFFFFFFFFF948 6461657220485341FFFFFFFFFFFFF950 0A0D726F72726520FFFFFFFFFFFFF958 207265626D754E00 msgNumTooBig db "Number is too big",CR,LF,0FFFFFFFFFFFFF960 62206F6F74207369FFFFFFFFFFFFF968 766944000A0D6769 msgDivZero db "Division by zero",CR,LF,0FFFFFFFFFFFFF970 7962206E6F697369FFFFFFFFFFFFF978 000A0D6F72657A20FFFFFFFFFFFFF980 7620666F2074754F msgVarSpace db "Out of variable space",CR,LF,0FFFFFFFFFFFFF988 20656C6261697261FFFFFFFFFFFFF990 000A0D6563617073FFFFFFFFFFFFF998 6620736574796220 msgBytesFree db " bytes free",CR,LF,0FFFFFFFFFFFFF9A0 0A0D000A0D656572 msgReady db CR,LF,"Ready",CR,LF,0FFFFFFFFFFFFF9A8 000A0D7964616552FFFFFFFFFFFFF9B0 6E69746365707845 msgComma db "Expecting a comma",CR,LF,0FFFFFFFFFFFFF9B8 6D6D6F6320612067FFFFFFFFFFFFF9C0 656E694C000A0D61 msgLineRange db "Line number too big",CR,LF,0FFFFFFFFFFFFF9C8 207265626D756E20FFFFFFFFFFFFF9D0 0D676962206F6F74FFFFFFFFFFFFF9D8 746365707845000A msgVar db "Expecting a variable",CR,LF,0FFFFFFFFFFFFF9E0 6176206120676E69FFFFFFFFFFFFF9E8 0A0D656C62616972FFFFFFFFFFFFF9F0 64616220444E5200 msgRNDBad db "RND bad parameter",CR,LF,0FFFFFFFFFFFFF9F8 74656D6172617020FFFFFFFFFFFFFA00 535953000A0D7265 msgSYSBad db "SYS bad address",CR,LF,0FFFFFFFFFFFFFA08 6464612064616220FFFFFFFFFFFFFA10 49000A0D73736572 msgInputVar db "INPUT expecting a variable",CR,LF,0FFFFFFFFFFFFFA18 707865205455504EFFFFFFFFFFFFFA20 6120676E69746365FFFFFFFFFFFFFA28 6C62616972617620FFFFFFFFFFFFFA30 5458454E000A0D65 msgNextFor db "NEXT without FOR",CR,LF,0FFFFFFFFFFFFFA38 74756F6874697720FFFFFFFFFFFFFA40 4E000A0D524F4620 msgNextVar db "NEXT expecting a defined variable",CR,LF,0FFFFFFFFFFFFFA48 6570786520545845FFFFFFFFFFFFFA50 206120676E697463FFFFFFFFFFFFFA58 2064656E69666564FFFFFFFFFFFFFA60 656C626169726176FFFFFFFFFFFFFA68 2F4F544F47000A0D msgBadGotoGosub db "GOTO/GOSUB bad line number",CR,LF,0FFFFFFFFFFFFFA70 6162204255534F47FFFFFFFFFFFFFA78 6E20656E696C2064FFFFFFFFFFFFFA80 000A0D7265626D75FFFFFFFFFFFFFA88 77204E5255544552 msgRetWoGosub db "RETURN without GOSUB",CR,LF,0FFFFFFFFFFFFFA90 472074756F687469FFFFFFFFFFFFFA98 50000A0D4255534F msgTooBig db "Program is too big",CR,LF,0FFFFFFFFFFFFFAA0 69206D6172676F72FFFFFFFFFFFFFAA8 6962206F6F742073FFFFFFFFFFFFFAB0 72747845000A0D67 msgExtraChars db "Extra characters on line ignored",CR,LF,0FFFFFFFFFFFFFAB8 6361726168632061FFFFFFFFFFFFFAC0 206E6F2073726574FFFFFFFFFFFFFAC8 6E676920656E696CFFFFFFFFFFFFFAD7.0 INITMSG:FFFFFFFFFFFFFAD0 0D000A0D6465726F db CR,LF,'Raptor64 Tiny BASIC, v1.0',CR,LF,LF,0FFFFFFFFFFFFFADF.0 OKMSG:FFFFFFFFFFFFFAD8 0D000A0A0D00520A db CR,LF,'OK',CR,LF,0FFFFFFFFFFFFFAE6.0 HOWMSG:FFFFFFFFFFFFFAE0 0048000A0D004F0A db 'How?',CR,LF,0FFFFFFFFFFFFFAEB.0 WHTMSG:FFFFFFFFFFFFFAE8 000A0D0057000A0D db 'What?',CR,LF,0FFFFFFFFFFFFFAF0.0 SRYMSG:FFFFFFFFFFFFFAF2.0 CLMSG:; DC.B 0 ;<- for aligning on a word boundaryFFFFFFFFFFFFFAF0 000000000A0D0053 align 16FFFFFFFFFFFFFAF8 0000000000000000FFFFFFFFFFFFFB00.0 align 16LSTROM EQU $; end of possible ROM area0000000000000110 bss0000000000000110 align 160000000000000080 org 0x00800000000000000088 align 80000000000000088 0000000000000001 OSSP dw 1 ; OS value of sp0000000000000090 0000000000000001 CURRNT dw 1 ; Current line pointer0000000000000098 0000000000000001 STKGOS dw 1 ; Saves stack pointer in 'GOSUB'00000000000000A0 0000000000000001 STKINP dw 1 ; Saves stack pointer during 'INPUT'00000000000000A8 0000000000000001 LOPVAR dw 1 ; 'FOR' loop save area00000000000000B0 0000000000000001 LOPINC dw 1 ; increment00000000000000B8 0000000000000001 LOPLMT dw 1 ; limit00000000000000C0 0000000000000001 LOPLN dw 1 ; line number00000000000000C8 0000000000000001 LOPPT dw 1 ; text pointer00000000000000D0 0000000000000001 TXTUNF dw 1 ; points to unfilled text area00000000000000D8 0000000000000001 VARBGN dw 1 ; points to variable area00000000000000E0 0000000000000001 IVARBGN dw 1 ; points to integer variable area00000000000000E8 0000000000000001 SVARBGN dw 1 ; points to string variable area00000000000000F0 0000000000000001 FVARBGN dw 1 ; points to float variable area00000000000000F8 0000000000000001 STKBOT dw 1 ; holds lower limit for stack growthFF 0000000000000000 NUMWKA fill.b 12,0 ; numeric work area107 00000000000000107 0000000000000000 BUFFER fill.b BUFLEN,0x00 ; Keyboard input buffer10F 00;==============================================================================; Checkerboard RAM tester;==============================================================================;FFFFFFFFFFFFFB00.0 codeFFFFFFFFFFFFFB00.0 align 16FFFFFFFFFFFFFB00.0 ramtest:FFFFFFFFFFFFFB00.0 01000800009 or r8,r0,r0 ; r8 = 0FFFFFFFFFFFFFB00.1 3D5552AAAD5FFFFFFFFFFFFFB00.2 05802AA5555 ori r1,r0,#0xAAAA5555AAAA5555 ; checkerboard patternFFFFFFFFFFFFFB10.0 ramtest2:FFFFFFFFFFFFFB10.0 19A02000000 sw r1,[r8] ; save the checkerboard to memoryFFFFFFFFFFFFFB10.1 11A04000000 lw r2,[r8] ; read it backFFFFFFFFFFFFFB10.2 01044300006 cmp r3,r1,r2 ; is it the same ?FFFFFFFFFFFFFB20.0 2F8C00000C9 bne r3,r0,ramtest1FFFFFFFFFFFFFB20.1 02A10000008 addui r8,r8,#8 ; increment RAM pointerFFFFFFFFFFFFFB20.2 38000000002FFFFFFFFFFFFFB30.0 04206000000 cmpi r3,r8,#0x0000_0000_0400_0000FFFFFFFFFFFFFB30.1 2F8C1FFFF00 blt r3,r0,ramtest2FFFFFFFFFFFFFB30.2 ramtest1:FFFFFFFFFFFFFB30.2 01200A00009 or r10,r8,r0 ; r10 = max ram address; readback the checkerboard patternFFFFFFFFFFFFFB40.0 01000800009 or r8,r0,r0 ; r8 = 0FFFFFFFFFFFFFB40.1 ramtest4:FFFFFFFFFFFFFB40.1 11A04000000 lw r2,[r8]FFFFFFFFFFFFFB40.2 3D5552AAAD5FFFFFFFFFFFFFB50.0 04086AA5555 cmpi r3,r2,#0xAAAA5555AAAA5555FFFFFFFFFFFFFB50.1 2F8C0000109 bne r3,r0,ramtest3FFFFFFFFFFFFFB50.2 02210000008 addi r8,r8,#8FFFFFFFFFFFFFB60.0 38000000000FFFFFFFFFFFFFB60.1 04207000000 cmpi r3,r8,#0x0000_0000_0100_0000FFFFFFFFFFFFFB60.2 2F8C1FFFF20 blt r3,r0,ramtest4FFFFFFFFFFFFFB70.0 ramtest3:FFFFFFFFFFFFFB70.0 2FA140003A9 bne r8,r10,ramtest8 ; check for equal maximum address; perform ramtest again with inverted checkerboardFFFFFFFFFFFFFB70.1 01000800009 or r8,r0,r0 ; r8 = 0FFFFFFFFFFFFFB70.2 3AAAAD5552AFFFFFFFFFFFFFB80.0 0580355AAAA ori r1,r0,#0x5555AAAA5555AAAAFFFFFFFFFFFFFB80.1 ramtest5:FFFFFFFFFFFFFB80.1 19A02000000 sw r1,[r8]FFFFFFFFFFFFFB80.2 11A04000000 lw r2,[r8]FFFFFFFFFFFFFB90.0 01044300006 cmp r3,r1,r2FFFFFFFFFFFFFB90.1 2F8C0000109 bne r3,r0,ramtest6FFFFFFFFFFFFFB90.2 02210000008 addi r8,r8,#8FFFFFFFFFFFFFBA0.0 38000000000FFFFFFFFFFFFFBA0.1 04207000000 cmpi r3,r8,#0x0000_0000_0100_0000FFFFFFFFFFFFFBA0.2 2F8C1FFFF20 blt r3,r0,ramtest5FFFFFFFFFFFFFBB0.0 ramtest6:FFFFFFFFFFFFFBB0.0 01200B00009 or r11,r8,r0 ; r11 = max ram address; readback checkerboardFFFFFFFFFFFFFBB0.1 01000800009 or r8,r0,r0FFFFFFFFFFFFFBB0.2 ramtest7:FFFFFFFFFFFFFBB0.2 11A04000000 lw r2,[r8]FFFFFFFFFFFFFBC0.0 3AAAAD5552AFFFFFFFFFFFFFBC0.1 0408755AAAA cmpi r3,r2,#0x5555AAAA5555AAAAFFFFFFFFFFFFFBC0.2 2F8C0000129 bne r3,r0,ramtest8FFFFFFFFFFFFFBD0.0 02210000008 addi r8,r8,#8FFFFFFFFFFFFFBD0.1 38000000000FFFFFFFFFFFFFBD0.2 04207000000 cmpi r3,r8,#0x0000_0000_0100_0000FFFFFFFFFFFFFBE0.0 2F8C1FFFEC0 blt r3,r0,ramtest7FFFFFFFFFFFFFBE0.1 ramtest8:FFFFFFFFFFFFFBE0.1 2FA16000088 beq r8,r11,ramtest9FFFFFFFFFFFFFBE0.2 01216800014 min r8,r8,r11FFFFFFFFFFFFFBF0.0 ramtest9:FFFFFFFFFFFFFBF0.0 2FA14000048 beq r8,r10,ramtest10FFFFFFFFFFFFFBF0.1 01214800014 min r8,r8,r10FFFFFFFFFFFFFBF0.2 ramtest10:FFFFFFFFFFFFFBF0.2 19810000400 sw r8,0x00000400 ;memendFFFFFFFFFFFFFC00.0 0DFBE000000 ret;-------------------------------------------; IRQ routine;-------------------------------------------FFFFFFFFFFFFFC00.1 irqrout:FFFFFFFFFFFFFC00.1 03FBC000010 subui sp,sp,#16FFFFFFFFFFFFFC00.2 27F40000001 sm [sp],r1/lrFFFFFFFFFFFFFC10.0 20803DC0FF0 inch r1,PICFFFFFFFFFFFFFC10.1 2C06C140001 beqi r1,#1,ColdStartFFFFFFFFFFFFFC10.2 irqrout3:FFFFFFFFFFFFFC10.2 2C840180002 bnei r1,#2,irqrout2FFFFFFFFFFFFFC20.0 0C7FFFFFACC call Pulse1000FFFFFFFFFFFFFC20.1 2F8000000AA bra irqrout1FFFFFFFFFFFFFC20.2 irqrout2:FFFFFFFFFFFFFC20.2 2C84014000F bnei r1,#15,irqrout1FFFFFFFFFFFFFC30.0 0C7FFFFFA75 call KeybdIRQFFFFFFFFFFFFFC30.1 irqrout1:FFFFFFFFFFFFFC30.1 27740000001 lm [sp],r1/lrFFFFFFFFFFFFFC30.2 02FBC000010 addui sp,sp,#16FFFFFFFFFFFFFC40.0 00000000020 iret;-------------------------------------------; NMI routine;-------------------------------------------FFFFFFFFFFFFFC40.1 nmirout:FFFFFFFFFFFFFC40.1 00000000020 iret;-------------------------------------------; Handle miss on Data TLB;-------------------------------------------FFFFFFFFFFFFFC40.2 DTLBHandler:FFFFFFFFFFFFFC40.2 19803FF0000 sw r1,0xFFFF_FFFF_FFFF_0000FFFFFFFFFFFFFC50.0 19805FF0008 sw r2,0xFFFF_FFFF_FFFF_0008FFFFFFFFFFFFFC50.1 dh1:FFFFFFFFFFFFFC50.1 00802000034 omgi r1,#0 ; try open mutex gate #0 (TLB protector)FFFFFFFFFFFFFC50.2 2F840000029 bne r1,r0,dh1 ; spinlock if gate is closedFFFFFFFFFFFFFC60.0 00802000228 mfspr r1,PTA ; get the page table addressFFFFFFFFFFFFFC60.1 00804000428 mfspr r2,BadVAddr ; get the bad virtual addressFFFFFFFFFFFFFC60.2 008800005A9 mtspr TLBVirtPage,r2 ; which virtual address to updateFFFFFFFFFFFFFC70.0 01884680001 shrui r2,r2,#13 ; turn va into indexFFFFFFFFFFFFFC70.1 01044100003 addu r1,r1,r2FFFFFFFFFFFFFC70.2 11844000000 lw r2,[r1] ; get the physical address from the tableFFFFFFFFFFFFFC80.0 05084000000 and r2,r2,#FFFF_FFFF_FFFF_E000 ; mask off lower bitsFFFFFFFFFFFFFC80.1 00880000529 mtspr TLBPhysPage0,r2 ;FFFFFFFFFFFFFC80.2 11844000008 lw r2,8[r1] ; get the physical address from the tableFFFFFFFFFFFFFC90.0 05084000000 and r2,r2,#FFFF_FFFF_FFFF_E000 ; mask off lower bitsFFFFFFFFFFFFFC90.1 008800005A9 mtspr TLBPhysPage1,r2 ;FFFFFFFFFFFFFC90.2 00800000034 tlbwr ; update a random entry in the TLBFFFFFFFFFFFFFCA0.0 00800000035 cmgi #0 ; close the mutex gateFFFFFFFFFFFFFCA0.1 11803FF0000 lw r1,0xFFFF_FFFF_FFFF_0000FFFFFFFFFFFFFCA0.2 11805FF0008 lw r2,0xFFFF_FFFF_FFFF_0008FFFFFFFFFFFFFCB0.0 00000000020 iretFFFFFFFFFFFFFCB0.1 37800000000 nopFFFFFFFFFFFFFCB0.2 37800000000 nopFFFFFFFFFFFFFFB0.0 org 0xFFFF_FFFF_FFFF_FFB0FFFFFFFFFFFFFFB0.0 0CFFFFFFF12 jmp DTLBHandlerFFFFFFFFFFFFFFB0.1 37800000000 nopFFFFFFFFFFFFFFB0.2 37800000000 nopFFFFFFFFFFFFFFC0.0 org 0xFFFF_FFFF_FFFF_FFC0FFFFFFFFFFFFFFC0.0 0CFFFFFFF12 jmp DTLBHandlerFFFFFFFFFFFFFFC0.1 37800000000 nopFFFFFFFFFFFFFFC0.2 37800000000 nopFFFFFFFFFFFFFFD0.0 org 0xFFFF_FFFF_FFFF_FFD0FFFFFFFFFFFFFFD0.0 0CFFFFFFF01 jmp irqroutFFFFFFFFFFFFFFD0.1 37800000000 nopFFFFFFFFFFFFFFD0.2 37800000000 nopFFFFFFFFFFFFFFE0.0 org 0xFFFF_FFFF_FFFF_FFE0FFFFFFFFFFFFFFE0.0 0CFFFFFFF11 jmp nmiroutFFFFFFFFFFFFFFE0.1 37800000000 nopFFFFFFFFFFFFFFE0.2 37800000000 nopFFFFFFFFFFFFFFF0.0 org 0xFFFF_FFFF_FFFF_FFF0FFFFFFFFFFFFFFF0.0 0CFFFFFFA09 jmp startFFFFFFFFFFFFFFF0.1 37800000000 nopFFFFFFFFFFFFFFF0.2 37800000000 nop0000000000000000.0 000000000000000000000000000.1 00000000000Symbol Table:==========================================================Name Typ Segment Address/Value----------------------------------------------------------CR C constant 000000000000000DLF C constant 000000000000000ATAB C constant 0000000000000009CTRLC C constant 0000000000000003CTRLH C constant 0000000000000008CTRLS C constant 0000000000000013CTRLX C constant 0000000000000018STACKTOP C constant FFFFFFFFFFFEFFF8Milliseconds C constant 0000000000000400Lastloc C constant 0000000000000408ScreenColor C constant 0000000000000414CursorRow C constant 0000000000000416CursorCol C constant 0000000000000418KeybdEcho C constant 000000000000041AKeybdBuffer C constant 0000000000000440KeybdHead C constant 0000000000000450KeybdTail C constant 0000000000000451TEXTSCR C constant FFFFFFFFFFD00000COLORSCR C constant FFFFFFFFFFD10000TEXTREG C constant FFFFFFFFFFDA0000TEXT_COLS C constant 0000000000000000TEXT_ROWS C constant 0000000000000002TEXT_CURPOS C constant 0000000000000016KEYBD C constant FFFFFFFFFFDC0000KEYBDCLR C constant FFFFFFFFFFDC0002UART C constant FFFFFFFFFFDC0A00UART_LS C constant FFFFFFFFFFDC0A01PIC C constant FFFFFFFFFFDC0FF0PSG C constant FFFFFFFFFFD50000AC97 C constant FFFFFFFFFFDC1000BOOT_STACK C constant FFFFFFFFFFFEFFF8BITMAPSCR C constant 0000000100200000txempty C constant 0000000000000040rxfull C constant 0000000000000001SerialGetChar L code FFFFFFFFFFFFE950.0SerialPutChar L code FFFFFFFFFFFFE980.0SetKeyboardEcho L code FFFFFFFFFFFFEA40.0KeybdCheckForKey L code FFFFFFFFFFFFEA90.2KeybdGetChar L code FFFFFFFFFFFFEA40.2DisplayChar L code FFFFFFFFFFFFED90.1DisplayString L code FFFFFFFFFFFFEFD0.1start L code FFFFFFFFFFFFE820.1ColdStart L code FFFFFFFFFFFFE820.1KeybdInit L code FFFFFFFFFFFFE9B0.2PICInit L code FFFFFFFFFFFFE940.0dcokay L code FFFFFFFFFFFFE870.1ClearScreen L code FFFFFFFFFFFFEC10.2ClearBmpScreen L code FFFFFFFFFFFFEBD0.0j4 L code FFFFFFFFFFFFE8C0.2Monitor L code FFFFFFFFFFFFF290.2HelloWorld L code FFFFFFFFFFFFE8D0.1j3 L code FFFFFFFFFFFFE8E0.1j2 L code FFFFFFFFFFFFE900.0MSG L code FFFFFFFFFFFFE910.0MSGSTART L code FFFFFFFFFFFFE920.0sgc1 L code FFFFFFFFFFFFF810.0spc1 L code FFFFFFFFFFFFE990.1KeybdIRQ L code FFFFFFFFFFFFE9D0.1KeybdIRQa L code FFFFFFFFFFFFE9F0.1KeybdIRQb L code FFFFFFFFFFFFEA10.1KeybdIRQc L code FFFFFFFFFFFFEA30.0nochar L code FFFFFFFFFFFFEA80.2kck1 L code FFFFFFFFFFFFEAB0.1KeybdCheckForKeyDirect L code FFFFFFFFFFFFEAC0.0cfkd1 L code FFFFFFFFFFFFEAD0.1KeybdGetCharDirect L code FFFFFFFFFFFFEAE0.0kgc1 L code FFFFFFFFFFFFEAF0.0gk1 L code FFFFFFFFFFFFEB20.1gk2 L code FFFFFFFFFFFFEB20.0CRLF L code FFFFFFFFFFFFF020.1Pulse1000 L code FFFFFFFFFFFFEB30.0p10001 L code FFFFFFFFFFFFEB70.2FlashCursor L code FFFFFFFFFFFFEB80.1CalcScreenLoc L code FFFFFFFFFFFFED50.1flshcrsr1 L code FFFFFFFFFFFFEBC0.1csj4 L code FFFFFFFFFFFFEC50.0AsciiToScreen L code FFFFFFFFFFFFED10.1ScrollUp L code FFFFFFFFFFFFEC70.0scrup1 L code FFFFFFFFFFFFEC90.2BlankLine L code FFFFFFFFFFFFECD0.0blnkln1 L code FFFFFFFFFFFFECF0.2atoscr1 L code FFFFFFFFFFFFED30.1ScreenToAscii L code FFFFFFFFFFFFED40.0stasc1 L code FFFFFFFFFFFFED50.0dccr L code FFFFFFFFFFFFEDB0.0dcx7 L code FFFFFFFFFFFFEDD0.1dcx6 L code FFFFFFFFFFFFEDE0.1dcx8 L code FFFFFFFFFFFFEE10.0dcx9 L code FFFFFFFFFFFFEE30.2dcx10 L code FFFFFFFFFFFFEE60.1dcx11 L code FFFFFFFFFFFFEE90.1dcx12 L code FFFFFFFFFFFFEE80.2dcx13 L code FFFFFFFFFFFFEEB0.2dcx5 L code FFFFFFFFFFFFEEE0.1dcx3 L code FFFFFFFFFFFFEF10.2dcx4 L code FFFFFFFFFFFFEF50.1dclf L code FFFFFFFFFFFFEF50.0IncCursorPos L code FFFFFFFFFFFFEF60.0IncCursorRow L code FFFFFFFFFFFFEF90.0icc1 L code FFFFFFFFFFFFEFC0.1icr1 L code FFFFFFFFFFFFEF90.2dspj1 L code FFFFFFFFFFFFEFE0.1dsret L code FFFFFFFFFFFFF000.0DisplayStringCRLF L code FFFFFFFFFFFFF000.2DisplayNybble L code FFFFFFFFFFFFF050.2dispnyb1 L code FFFFFFFFFFFFF080.0DisplayByte L code FFFFFFFFFFFFF090.1DisplayWord L code FFFFFFFFFFFFF0C0.0dspwd1 L code FFFFFFFFFFFFF0D0.0DisplayMem L code FFFFFFFFFFFFF0E0.2dspmem1 L code FFFFFFFFFFFFF110.0BinToBCD L code FFFFFFFFFFFFF140.0bta1 L code FFFFFFFFFFFFF150.1BCDToAscii L code FFFFFFFFFFFFF1B0.0bta2 L code FFFFFFFFFFFFF1C0.0BinToStr L code FFFFFFFFFFFFF200.2btos3 L code FFFFFFFFFFFFF230.0btos1 L code FFFFFFFFFFFFF230.1btos2 L code FFFFFFFFFFFFF270.1PromptLn L code FFFFFFFFFFFFF2A0.1Prompt3 L code FFFFFFFFFFFFF2B0.1Prompt1 L code FFFFFFFFFFFFF2D0.0Prompt2 L code FFFFFFFFFFFFF300.1Editmem L code FFFFFFFFFFFFF450.0Dumpmem L code FFFFFFFFFFFFF4A0.0ExecuteCode L code FFFFFFFFFFFFF480.1LoadS19 L code FFFFFFFFFFFFF590.0DisplayHelp L code FFFFFFFFFFFFF370.1TestCLS L code FFFFFFFFFFFFF330.0HelpMsg L code FFFFFFFFFFFFF390.0ignBlanks L code FFFFFFFFFFFFF420.0ignBlanks1 L code FFFFFFFFFFFFF420.2GetHexNumber L code FFFFFFFFFFFFF4E0.1edtmem1 L code FFFFFFFFFFFFF460.1gthxn2 L code FFFFFFFFFFFFF4F0.2AsciiToHexNybble L code FFFFFFFFFFFFF530.2gthxn1 L code FFFFFFFFFFFFF520.2gthx3 L code FFFFFFFFFFFFF580.1gthx5 L code FFFFFFFFFFFFF550.0gthx6 L code FFFFFFFFFFFFF560.2ProcessRec L code FFFFFFFFFFFFF5A0.0NextRec L code FFFFFFFFFFFFF590.1sGetChar L code FFFFFFFFFFFFF7F0.0ProcessS1 L code FFFFFFFFFFFFF690.1ProcessS2 L code FFFFFFFFFFFFF6A0.0ProcessS3 L code FFFFFFFFFFFFF6A0.2ProcessS7 L code FFFFFFFFFFFFF6B0.1ProcessS8 L code FFFFFFFFFFFFF6C0.1ProcessS9 L code FFFFFFFFFFFFF6D0.1pcssxa L code FFFFFFFFFFFFF620.0pcss1a L code FFFFFFFFFFFFF620.2S19Get16BitAddress L code FFFFFFFFFFFFF6E0.1S19Get24BitAddress L code FFFFFFFFFFFFF700.1S19Get32BitAddress L code FFFFFFFFFFFFF720.1S1932b L code FFFFFFFFFFFFF790.1S1932a L code FFFFFFFFFFFFF760.2sgc2 L code FFFFFFFFFFFFF7F0.2AUXIN L code FFFFFFFFFFFFF8C0.0SetupAC97 L code FFFFFFFFFFFFF820.2sac971 L code FFFFFFFFFFFFF830.1sac972 L code FFFFFFFFFFFFF850.1Beep L code FFFFFFFFFFFFF850.2beep1 L code FFFFFFFFFFFFF8B0.0AXIRET L code FFFFFFFFFFFFF8D0.2BYEBYE L code FFFFFFFFFFFFF8E0.0msgInit L code FFFFFFFFFFFFF8F0.0OKMSG L code FFFFFFFFFFFFFADF.0msgWhat L code FFFFFFFFFFFFF92D.0SRYMSG L code FFFFFFFFFFFFFAF0.0CLMSG L code FFFFFFFFFFFFFAF2.0msgReadError L code FFFFFFFFFFFFF93E.0msgNumTooBig L code FFFFFFFFFFFFF959.0msgDivZero L code FFFFFFFFFFFFF96D.0msgVarSpace L code FFFFFFFFFFFFF980.0msgBytesFree L code FFFFFFFFFFFFF998.0msgReady L code FFFFFFFFFFFFF9A6.0msgComma L code FFFFFFFFFFFFF9B0.0msgLineRange L code FFFFFFFFFFFFF9C4.0msgVar L code FFFFFFFFFFFFF9DA.0msgRNDBad L code FFFFFFFFFFFFF9F1.0msgSYSBad L code FFFFFFFFFFFFFA05.0msgInputVar L code FFFFFFFFFFFFFA17.0msgNextFor L code FFFFFFFFFFFFFA34.0msgNextVar L code FFFFFFFFFFFFFA47.0msgBadGotoGosub L code FFFFFFFFFFFFFA6B.0msgRetWoGosub L code FFFFFFFFFFFFFA88.0msgTooBig L code FFFFFFFFFFFFFA9F.0msgExtraChars L code FFFFFFFFFFFFFAB4.0INITMSG L code FFFFFFFFFFFFFAD7.0HOWMSG L code FFFFFFFFFFFFFAE6.0WHTMSG L code FFFFFFFFFFFFFAEB.0LSTROM C constant 0000000000000000typef L bss 0000000000000080OSSP L bss 0000000000000088CURRNT L bss 0000000000000090STKGOS L bss 0000000000000098STKINP L bss 00000000000000A0LOPVAR L bss 00000000000000A8LOPINC L bss 00000000000000B0LOPLMT L bss 00000000000000B8LOPLN L bss 00000000000000C0LOPPT L bss 00000000000000C8TXTUNF L bss 00000000000000D0VARBGN L bss 00000000000000D8IVARBGN L bss 00000000000000E0SVARBGN L bss 00000000000000E8FVARBGN L bss 00000000000000F0STKBOT L bss 00000000000000F8NUMWKA L bss 0000000000000100BUFFER L bss 000000000000010Eramtest L code FFFFFFFFFFFFFB00.0ramtest2 L code FFFFFFFFFFFFFB10.0ramtest1 L code FFFFFFFFFFFFFB30.2ramtest4 L code FFFFFFFFFFFFFB40.1ramtest3 L code FFFFFFFFFFFFFB70.0ramtest8 L code FFFFFFFFFFFFFBE0.1ramtest5 L code FFFFFFFFFFFFFB80.1ramtest6 L code FFFFFFFFFFFFFBB0.0ramtest7 L code FFFFFFFFFFFFFBB0.2ramtest9 L code FFFFFFFFFFFFFBF0.0ramtest10 L code FFFFFFFFFFFFFBF0.2irqrout L code FFFFFFFFFFFFFC00.1irqrout3 L code FFFFFFFFFFFFFC10.2irqrout2 L code FFFFFFFFFFFFFC20.2irqrout1 L code FFFFFFFFFFFFFC30.1nmirout L code FFFFFFFFFFFFFC40.1DTLBHandler L code FFFFFFFFFFFFFC40.2dh1 L code FFFFFFFFFFFFFC50.1
Go to most recent revision | Compare with Previous | Blame | View Log