URL
https://opencores.org/ocsvn/thor/thor/trunk
Subversion Repositories thor
[/] [thor/] [trunk/] [FT64/] [software/] [boot/] [boottc.asm] - Rev 45
Compare with Previous | Blame | View Log
; N4V128Sys bootrom - (C) 2017 Robert Finch, Waterloo;; This file is part of N4V128Sys;; how to build:; 1. assemble using "A64 +gF .\boot\boot.asm"; 2. copy boot.ve0 to the correct directory if not already there;;------------------------------------------------------------------------------;; system memory map;;; 00000000 +----------------+; | |; | |; | |; | |; : dram memory : 512 MB; | |; | |; | |; | |; 20000000 +----------------+; | |; : unused :; | |; FF400000 +----------------+; | scratchpad | 8 kB; FF402000 +----------------+; | unused |; FFD00000 +----------------+; | |; : I/O area : 1.0 M; | |; FFE00000 +----------------+; | |; : unused :; | |; FFFC0000 +----------------+; | |; : boot rom :; | |; FFFFFFFF +----------------+;;;LEDS equ $FFDC0600BUTTONS equ $FFDC0600SCRATCHPAD equ $FF400000AVIC equ $FFDCC000TC1 equ $FFD0DF00WHITE equ $7FFFMEDBLUE equ $000Ffgcolor equ SCRATCHPADbkcolor equ fgcolor + 4_randStream equ SCRATCHPAD + 16_DBGCursorCol equ _randStream + 8_DBGCursorRow equ _DBGCursorCol + 4_DBGAttr equ _DBGCursorRow + 4milliseconds equ _DBGAttr + 4; Help the assembler out by telling it how many bits are required for code; addressescode 18 bitsorg $FFFC0000 ; start of ROM memory spacejmp brkrout ; jump to the exception handlerorg $FFFC0100 ; The PC is set here on resetjmp start ; Comment out this jump to test i-cachetest_icache:; This seems stupid but maybe necessary. Writes to r0 always cause it to; be loaded with the value zero regardless of the value written. Readback; should then always be a zero. The only case it might not be is at power; on. At power on the reg should be zero, but let's not assume that and; write a zero to it.and r0,r0,#0 ; cannot use LDI which does an or operation; set trap vectorldi r1,#$FFFC0000csrrw r0,#$30,r1ldi r31,#$FF400FF8 ; set stack pointersei #0; Seed random number generatorldi r6,#$FFDC0000sh r0,$0C04[r6] ; select stream #0ldi r1,#$88888888sh r1,$0C08[r6] ; set initial m_zldi r1,#$01234567sh r1,$0C0C[r6] ; set initial m_w.st4:; Get a random numbersh r0,$FFDC0C04 ; set the streamnop ; delay a wee bitlhu r1,$FFDC0C00 ; get a numbersh r0,$FFDC0C00 ; generate next number; convert to random addressshl r1,r1,#2and r1,r1,#$1FFCadd r1,r1,#$FF401000 ; scratchram address; Fill an area with test codeldi r2,#15 ; number of ops - 1ldi r3,#.st2 ; address of test routine copy.st3:lhu r4,[r3+r2*4] ; move from boot rom tosh r4,[r1+r2*4] ; scratch ramsub r2,r2,#1bge r2,r0,.st3; Now jump to the test codecache #3,[r1] ; invalidate the cachejal r29,[r1]ldi r2,#14 ; this is the value that should be returnedcmp r1,r1,r2bne r1,r0,.st5bra .st4; Display fail code.st5:ldi r1,#$FAsb r1,$FFDC0600bra .st5; Test code accumulates for 16 instructions, sum should be 14.st2:ldi r1,#0add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1add r1,r1,#1retstart:; This seems stupid but maybe necessary. Writes to r0 always cause it to; be loaded with the value zero regardless of the value written. Readback; should then always be a zero. The only case it might not be is at power; on. At power on the reg should be zero, but let's not assume that and; write a zero to it.and r0,r0,#0 ; cannot use LDI which does an or operationbra .st1.st2:ldi r2,#$AAsb r2,LEDS ; write to LEDsbra .st2; First thing to do, LED status indicates core at least hit the reset; vector..st1:ldi r2,#$FFsb r2,LEDS ; write to LEDs; set trap vectorldi r1,#$FFFC0000csrrw r0,#$30,r1ldi r31,#$FF401FF8 ; set stack pointer; Enable interruptssei #0ldi r1,#$00000 ; turn on SMT use $10000csrrs r0,#0,r1add r0,r0,#0 ; fetch adjustment rampadd r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0csrrd r1,#$044,r0 ; which thread is running ?bfextu r1,r1,#24,#24bne r1,r0,.st2call calltest3; ldi r1,#16; vmov vl,r1; ldi r1,#$FFFF; vmov vm0,r1; sync; lv v1,vec1data; lv v2,vec2data; vadd v3,v1,v2,vm0ldi r1,#MEDBLUEsh r1,bkcolor ; set text background colorldi r1,#WHITEsh r1,fgcolor ; set foreground colorldi r1,#$AAAA5555 ; pick some data to writeldi r3,#0ldi r4,#start1start1:shr r2,r1,#12sb r2,LEDS ; write to LEDsadd r1,r1,#1add r3,r3,#1cmp r2,r3,#10 ; stop after a few cycles; bne r2,r0,r4; Initialize PRNGsw r0,_randStreamldi r6,#$FFDC0000sh r0,$0C04[r6] ; select stream #0ldi r1,#$88888888sh r1,$0C08[r6] ; set initial m_zldi r1,#$01234567sh r1,$0C0C[r6] ; set initial m_wldi r2,#6sb r2,LEDS ; write to LEDsjal r29,clearTxtScreenldi r4,#$0025sb r4,LEDSjmp _BIOSMainstart3:bra start3brkrout:; sub sp,sp,#16; sw r1,[sp] ; save off r1; sw r23,8[sp] ; save off assembler's working regadd r0,r0,#0; Set the interrupt level back to the interrupting level; to allow nesting higher priority interruptscsrrd r1,#$044,r0bfextu r1,r1,#40,#42;sei r1lh r1,millisecondsadd r1,r1,#1sh r1,millisecondsldi r1,#$20000 ; sequence number reset bitcsrrs r0,#0,r1 ; pulse sn reset bitadd r0,r0,#0 ; now a ramp of instructionsadd r0,r0,#0 ; that don't depend on sequenceadd r0,r0,#0 ; number to operate properlyadd r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0add r0,r0,#0; lw r1,[sp] ; get r1 back; lw r23,8[sp]; add sp,sp,#16rticalltest:sw r1,$FF400000 ; 1add r1,r1,#2 ; 2lw r1,$FF400000 ; 3retcalltest1:sub sp,sp,#8sw lr,[sp]call calltestlw lr,[sp]add sp,sp,#8retcalltest2:sub sp,sp,#8sw lr,[sp]call calltest1lw lr,[sp]add sp,sp,#8retcalltest3:sub sp,sp,#8sw lr,[sp]call calltest2lw lr,[sp]add sp,sp,#8ret;------------------------------------------------------------------------------; Set400x300 video mode.;------------------------------------------------------------------------------_Set400x300:sub sp,sp,#8sw r6,[sp]ldi r6,#AVICldi r1,#$0190012C ; 400x300sh r1,$7E8[r6]ldi r1,#$00320001 ; 50 strips per linesh r1,$7F0[r6] ; set lowres = divide by 2lw r6,[sp]add sp,sp,#8ret;------------------------------------------------------------------------------; Get a random number, and generate the next number.;; Parameters:; r18 = random stream number.; Returns:; r1 = random 32 bit number.;------------------------------------------------------------------------------_GetRand:sh r18,$FFDC0C04 ; set the streamnop ; delay a wee bitlhu r1,$FFDC0C00 ; get a numbersh r0,$FFDC0C00 ; generate next numberret;------------------------------------------------------------------------------; Fill the display memory with bands of color.;------------------------------------------------------------------------------_ColorBandMemory2:push r1push r2push r6ldi r2,#7sb r2,LEDS ; write to LEDsldi r6,#$100000mov r18,r0call _GetRand.0002:sc r1,[r6]sb r1,LEDSadd r6,r6,#2and r2,r6,#$3FFbne r2,r0,.0001mov r18,r0call _GetRand.0001:cmpu r2,r6,#$200000blt r2,r0,.0002ldi r2,#8sb r2,LEDS ; write to LEDspop r6pop r2pop r1ret;------------------------------------------------------------------------------; Copy font to AVIC ram;;------------------------------------------------------------------------------_BootCopyFont:sub $sp,$sp,#24sw $r2,[$sp]sw $r3,8[$sp]sw $r6,16[$sp]ldi r1,#$0004sb r1,LEDSldi r6,#AVIC; Setup font tableldi r1,#$1FFFEFF0sh r1,$6F0[r6] ; set font table addresssh r0,$6F4[r6] ; set font id (0)ldi r1,#%10000111000001110000000000000000 ; set font fixed, width, height = 8sh r1,$1FFFEFFCldi r1,#$1FFFF000 ; set bitmap address (directly follows font table)sh r1,$1FFFEFF4ldi r6,#font8ldi r2,#127 ; 128 chars @ 8 bytes per char.0001:lw r3,[r6+r2*8]sw r3,[r1+r2*8]sub r2,r2,#1bne r2,r0,.0001ldi r1,#$0005sb r1,LEDSlw $r2,[$sp]lw $r3,8[$sp]lw $r6,16[$sp]ret #24;------------------------------------------------------------------------------;------------------------------------------------------------------------------;------------------------------------------------------------------------------; DispChar:;; Display character at cursor position. The current foreground color and; background color are used.;; Parameters:; r18 character to display; Returns:; <none>; Registers Affected:; <none>;------------------------------------------------------------------------------_DispChar:sub $sp,$sp,#32sw $r2,[$sp]sw $r3,8[$sp]sw $r6,16[$sp]sw $r29,24[$sp]ldi r6,#AVICldi r4,#1016.0001:; wait for character que to emptylhu r2,$6E8[r6] ; read character queue index into r2bgtu r2,r4,.0001 ; allow up 24 entries to be in progresslh r3,fgcolorsh r3,$6E0[r6]ldi r3,#12 ; 12 = set pen colorsh r3,$6E4[r6]sh r0,$6E8[r6] ; queuelh r3,bkcolorsh r3,$6E0[r6]ldi r3,#13 ; 13 = set fill colorsh r3,$6E4[r6]sh r0,$6E8[r6] ; queuelhu r3,_DBGCursorColshl r3,r3,#19 ; multiply by eight and convert to fixed (multiply by 65536)sh r3,$6E0[r6]ldi r3,#16 ; 16 = set X0 possh r3,$6E4[r6]sh r0,$6E8[r6] ; queuelhu r3,_DBGCursorRowshl r3,r3,#19sh r3,$6E0[r6]ldi r3,#17 ; 17 = set Y0 possh r3,$6E4[r6]sh r0,$6E8[r6] ; queuesh r18,$6E0[r6] ; data = character codeldi r3,#0 ; 0 = draw charactersh r3,$6E4[r6]sh r0,$6E8[r6] ; queuecall _SyncCursorPoslw $r2,[$sp]lw $r3,8[$sp]lw $r6,16[$sp]lw $r29,24[$sp]ret #32;----------------------------------------------------------------------------;----------------------------------------------------------------------------_SyncCursorPos:sub $sp,$sp,#24sw $r2,[$sp]sw $r3,8[$sp]sw $r6,16[$sp]ldi r6,#AVIClhu r2,_DBGCursorCollhu r3,_DBGCursorRowshl r3,r3,#3add r3,r3,#28shl r3,r3,#16shl r2,r2,#3add r2,r2,#256or r2,r2,r3sh r2,$408[r6] ;lw $r2,[$sp]lw $r3,8[$sp]lw $r6,16[$sp]ret #24;----------------------------------------------------------------------------;----------------------------------------------------------------------------_EnableCursor:push r2push r3push r6ldi r6,#AVICldi r2,#$FFFFFFFFsh r2,$7B0[a6] ; enable sprite #0pop r6pop r3pop r2ret;----------------------------------------------------------------------------; Setup the sprite color palette. The palette is loaded with random colors.;----------------------------------------------------------------------------_SetCursorPalette:sub sp,sp,#24sw r2,[sp]sw r6,8[sp]sw r7,16[sp]ldi r6,#AVICldi r2,#WHITEsh r2,4[r6] ; palette entry #1ldi r2,#%111110000000000 ; REDsh r2,8[r6] ; palette entry #2ldi r7,#12.0001:mov r18,r0call _GetRandand r1,r1,#$7FFFsh r1,[r6+r7]add r7,r7,#4cmp r2,r7,#$400blt r2,r0,.0001lw r2,[sp]lw r6,8[sp]lw r7,16[sp]add sp,sp,#24ret;----------------------------------------------------------------------------; Establish a default image for all the sprites.;----------------------------------------------------------------------------_SetCursorImage:push r2push r3push r4push r5push r6push r7ldi r6,#AVICldi r7,#$400.0002:ldi r2,#$1FFEE000sh r2,[r6+r7] ; sprite image addressadd r7,r7,#4 ; advance to next fieldldi r2,#30*32 ; number of pixelssh r2,[r6+r7] ;add r7,r7,#12 ; next spritecmp r2,r7,#$600bne r2,r0,.0002ldi r2,#$1FFEE000ldi r3,#_XImageldi r5,#30.0001:lw r4,8[r3] ; swap the order of the words aroundsw r4,[r2]lw r4,[r3]sw r4,8[r2]add r3,r3,#16add r2,r2,#16sub r5,r5,#1bne r5,r0,.0001pop r7pop r6pop r5pop r4pop r3pop r2retalign 8_CursorBoxImage:dw $1111111111000000,$00dw $1000000001000000,$00dw $1000000001000000,$00dw $1000000001000000,$00dw $1000000001000000,$00dw $1000000001000000,$00dw $1000000001000000,$00dw $1000000001000000,$00dw $1000110001000000,$00dw $1111111111000000,$00; Higher order word appears later in memory but is displayed first. So the; order of these words are swapped around above. To make it convenient to; define the sprite image._XImage:dw $1122222222222222,$2222222222222211dw $2110000000000000,$0000000000000112dw $2011000000000000,$0000000000001102dw $2001100000000000,$0000000000011002dw $2000110000000000,$0000000000110002dw $2000011000000000,$0000000001100002dw $2000001100000000,$0000000011000002dw $2000000110000000,$0000000110000002dw $2000000011000000,$0000001100000002dw $2000000001100000,$0000011000000002dw $2000000000110000,$0000110000000002dw $2000000000011009,$0901100000000002dw $2000000000001100,$0011000000000002dw $2000000000000110,$0110000000000002dw $2000000000000011,$1100000000000002dw $2000000000000011,$1100000000000002dw $2000000000000110,$0110000000000002dw $2000000000001100,$0011000000000002dw $2000000000011009,$0901100000000002dw $2000000000110000,$0000110000000002dw $2000000001100000,$0000011000000002dw $2000000011000000,$0000001100000002dw $2000000110000000,$0000000110000002dw $2000001100000000,$0000000011000002dw $2000011000000000,$0000000001100002dw $2000110000000000,$0000000000110002dw $2001100000000000,$0000000000011002dw $2011000000000000,$0000000000001102dw $2110000000000000,$0000000000000112dw $1122222222222222,$2222222222222211;----------------------------------------------------------------------------;----------------------------------------------------------------------------_RandomizeSpritePositions2:push r1push r6push r7ldi r6,#AVICldi r7,#$408.0001:mov r18,r0call _GetRandand r1,r1,#$00FF00FFadd r1,r1,#$000E0080 ; add +28 to y and +256 to xsh r1,[r6+r7]add r7,r7,#$10 ; advance to next spritecmp r1,r7,#$5F8blt r1,r0,.0001pop r7pop r6pop r1ret;----------------------------------------------------------------------------;----------------------------------------------------------------------------clearTxtScreen:ldi r4,#$0024sb r4,LEDSldi r1,#$FFD00000 ; text screen addressldi r2,#24 ; number of chars 2480 (80x31)ldi r3,#%000010000_111111111_0000100000.cts1:sh r3,[r1]add r1,r1,#4sub r2,r2,#1bne r2,r0,.cts1ret;===============================================================================;===============================================================================;===============================================================================;===============================================================================align 16font8:db $00,$00,$00,$00,$00,$00,$00,$00 ; $00db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $04db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $08db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $0Cdb $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $10db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $14db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $18db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; $1Cdb $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ;db $00,$00,$00,$00,$00,$00,$00,$00 ; SPACEdb $18,$18,$18,$18,$18,$00,$18,$00 ; !db $6C,$6C,$00,$00,$00,$00,$00,$00 ; "db $6C,$6C,$FE,$6C,$FE,$6C,$6C,$00 ; #db $18,$3E,$60,$3C,$06,$7C,$18,$00 ; $db $00,$66,$AC,$D8,$36,$6A,$CC,$00 ; %db $38,$6C,$68,$76,$DC,$CE,$7B,$00 ; &db $18,$18,$30,$00,$00,$00,$00,$00 ; 'db $0C,$18,$30,$30,$30,$18,$0C,$00 ; (db $30,$18,$0C,$0C,$0C,$18,$30,$00 ; )db $00,$66,$3C,$FF,$3C,$66,$00,$00 ; *db $00,$18,$18,$7E,$18,$18,$00,$00 ; +db $00,$00,$00,$00,$00,$18,$18,$30 ; ,db $00,$00,$00,$7E,$00,$00,$00,$00 ; -db $00,$00,$00,$00,$00,$18,$18,$00 ; .db $03,$06,$0C,$18,$30,$60,$C0,$00 ; /db $3C,$66,$6E,$7E,$76,$66,$3C,$00 ; 0db $18,$38,$78,$18,$18,$18,$18,$00 ; 1db $3C,$66,$06,$0C,$18,$30,$7E,$00 ; 2db $3C,$66,$06,$1C,$06,$66,$3C,$00 ; 3db $1C,$3C,$6C,$CC,$FE,$0C,$0C,$00 ; 4db $7E,$60,$7C,$06,$06,$66,$3C,$00 ; 5db $1C,$30,$60,$7C,$66,$66,$3C,$00 ; 6db $7E,$06,$06,$0C,$18,$18,$18,$00 ; 7db $3C,$66,$66,$3C,$66,$66,$3C,$00 ; 8db $3C,$66,$66,$3E,$06,$0C,$38,$00 ; 9db $00,$18,$18,$00,$00,$18,$18,$00 ; :db $00,$18,$18,$00,$00,$18,$18,$30 ; ;db $00,$06,$18,$60,$18,$06,$00,$00 ; <db $00,$00,$7E,$00,$7E,$00,$00,$00 ; =db $00,$60,$18,$06,$18,$60,$00,$00 ; >db $3C,$66,$06,$0C,$18,$00,$18,$00 ; ?db $7C,$C6,$DE,$D6,$DE,$C0,$78,$00 ; @db $3C,$66,$66,$7E,$66,$66,$66,$00 ; Adb $7C,$66,$66,$7C,$66,$66,$7C,$00 ; Bdb $1E,$30,$60,$60,$60,$30,$1E,$00 ; Cdb $78,$6C,$66,$66,$66,$6C,$78,$00 ; Ddb $7E,$60,$60,$78,$60,$60,$7E,$00 ; Edb $7E,$60,$60,$78,$60,$60,$60,$00 ; Fdb $3C,$66,$60,$6E,$66,$66,$3E,$00 ; Gdb $66,$66,$66,$7E,$66,$66,$66,$00 ; Hdb $3C,$18,$18,$18,$18,$18,$3C,$00 ; Idb $06,$06,$06,$06,$06,$66,$3C,$00 ; Jdb $C6,$CC,$D8,$F0,$D8,$CC,$C6,$00 ; Kdb $60,$60,$60,$60,$60,$60,$7E,$00 ; Ldb $C6,$EE,$FE,$D6,$C6,$C6,$C6,$00 ; Mdb $C6,$E6,$F6,$DE,$CE,$C6,$C6,$00 ; Ndb $3C,$66,$66,$66,$66,$66,$3C,$00 ; Odb $7C,$66,$66,$7C,$60,$60,$60,$00 ; Pdb $78,$CC,$CC,$CC,$CC,$DC,$7E,$00 ; Qdb $7C,$66,$66,$7C,$6C,$66,$66,$00 ; Rdb $3C,$66,$70,$3C,$0E,$66,$3C,$00 ; Sdb $7E,$18,$18,$18,$18,$18,$18,$00 ; Tdb $66,$66,$66,$66,$66,$66,$3C,$00 ; Udb $66,$66,$66,$66,$3C,$3C,$18,$00 ; Vdb $C6,$C6,$C6,$D6,$FE,$EE,$C6,$00 ; Wdb $C3,$66,$3C,$18,$3C,$66,$C3,$00 ; Xdb $C3,$66,$3C,$18,$18,$18,$18,$00 ; Ydb $FE,$0C,$18,$30,$60,$C0,$FE,$00 ; Zdb $3C,$30,$30,$30,$30,$30,$3C,$00 ; [db $C0,$60,$30,$18,$0C,$06,$03,$00 ; \db $3C,$0C,$0C,$0C,$0C,$0C,$3C,$00 ; ]db $10,$38,$6C,$C6,$00,$00,$00,$00 ; ^db $00,$00,$00,$00,$00,$00,$00,$FE ; _db $18,$18,$0C,$00,$00,$00,$00,$00 ; `db $00,$00,$3C,$06,$3E,$66,$3E,$00 ; adb $60,$60,$7C,$66,$66,$66,$7C,$00 ; bdb $00,$00,$3C,$60,$60,$60,$3C,$00 ; cdb $06,$06,$3E,$66,$66,$66,$3E,$00 ; ddb $00,$00,$3C,$66,$7E,$60,$3C,$00 ; edb $1C,$30,$7C,$30,$30,$30,$30,$00 ; fdb $00,$00,$3E,$66,$66,$3E,$06,$3C ; gdb $60,$60,$7C,$66,$66,$66,$66,$00 ; hdb $18,$00,$18,$18,$18,$18,$0C,$00 ; idb $0C,$00,$0C,$0C,$0C,$0C,$0C,$78 ; jdb $60,$60,$66,$6C,$78,$6C,$66,$00 ; kdb $18,$18,$18,$18,$18,$18,$0C,$00 ; ldb $00,$00,$EC,$FE,$D6,$C6,$C6,$00 ; mdb $00,$00,$7C,$66,$66,$66,$66,$00 ; ndb $00,$00,$3C,$66,$66,$66,$3C,$00 ; odb $00,$00,$7C,$66,$66,$7C,$60,$60 ; pdb $00,$00,$3E,$66,$66,$3E,$06,$06 ; qdb $00,$00,$7C,$66,$60,$60,$60,$00 ; rdb $00,$00,$3C,$60,$3C,$06,$7C,$00 ; sdb $30,$30,$7C,$30,$30,$30,$1C,$00 ; tdb $00,$00,$66,$66,$66,$66,$3E,$00 ; udb $00,$00,$66,$66,$66,$3C,$18,$00 ; vdb $00,$00,$C6,$C6,$D6,$FE,$6C,$00 ; wdb $00,$00,$C6,$6C,$38,$6C,$C6,$00 ; xdb $00,$00,$66,$66,$66,$3C,$18,$30 ; ydb $00,$00,$7E,$0C,$18,$30,$7E,$00 ; zdb $0E,$18,$18,$70,$18,$18,$0E,$00 ; {db $18,$18,$18,$18,$18,$18,$18,$00 ; |db $70,$18,$18,$0E,$18,$18,$70,$00 ; }db $72,$9C,$00,$00,$00,$00,$00,$00 ; ~db $FE,$FE,$FE,$FE,$FE,$FE,$FE,$00 ;align 8tblvect:dw 0dw 1dw 2dw 3dw 4dw 5dw 6dw 7dw 8dw 9dw 10dw 11dw 12dw 13dw 14dw 15vec1data:dw 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1vec2data:dw 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2.include "c:\Cores5\FT64\trunk\software\boot\BIOSMain.s".include "c:\Cores5\FT64\trunk\software\boot\FloatTest.s".include "c:\Cores5\FT64\trunk\software\boot\ramtest.s".include "c:\Cores5\FT64\trunk\software\c64libc\source\stdio.s".include "c:\Cores5\FT64\trunk\software\c64libc\source\ctype.s".include "c:\Cores5\FT64\trunk\software\c64libc\source\string.s".include "c:\Cores5\FT64\trunk\software\c64libc\source\DSD9\io.s".include "c:\Cores5\FT64\trunk\software\c64libc\source\prtflt.s".include "c:\Cores5\FT64\trunk\software\c64libc\source\libquadmath\log10q.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\LockSemaphore.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\UnlockSemaphore.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\console.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\PIC.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\FMTKc.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\FMTKmsg.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\TCB.s".include "c:\Cores5\FT64\trunk\software\FMTK\source\kernel\IOFocusc.s".include "c:\Cores5\FT64\trunk\software\bootrom\source\video.asm".include "c:\Cores5\FT64\trunk\software\bootrom\source\TinyBasicDSD9.asm"