6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-10 19:29:45 +00:00
Code Issues Projects Releases Wiki Activity

Revised patch.

Browse Source 
Uses code in source listing. Tested on a real OSI C1P machine.
This commit is contained in:
Jeff Tranter 2023-05-03 11:16:22 -04:00
parent fdd4d35887
commit 387d455cb4
1 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
libsrc/osic1p/bootstrap.s
View File

@ -35,7 +35,6 @@ ram_top := __MAIN_START__ + __MAIN_SIZE__
.ifdef ASM
.include "screen-c1p-24x24.s"
.macpack generic
load := $08 ; private variables
count := $0A
@ -51,16 +50,14 @@ LINEDIST = $20 ; Offset in video RAM between two lines
sta load
stx load+1
lda #<load_size
eor #$FF
sta count
lda #>load_size
eor #$FF
sta count+1
ldx #(<load_size) + 1
stx count
ldx #(>load_size) + 1
stx count+1 ; save size with each byte incremented separately
L1: inc count
L1: dec count
bne L2
inc count+1
dec count+1
beq L3
L2: jsr GETCHAR ; (doesn't change .Y)
sta (load),y
@ -114,18 +111,15 @@ CR = $0D
hex2 >load_addr
.byte CR, "85", CR, "08", CR
.byte "86", CR, "09", CR
.byte "A9", CR
hex2 <load_size
.byte CR, "49", CR, "FF", CR
.byte "85", CR, "0A", CR
.byte "A9", CR
hex2 >load_size
.byte CR, "49", CR, "FF", CR
.byte "85", CR, "0B", CR
.byte "E6", CR, "0A", CR
.byte "A2", CR
hex2 (<load_size) + 1
.byte CR, "86", CR, "0A", CR
.byte "A2", CR
hex2 (>load_size) + 1
.byte CR, "86", CR, "0B", CR
.byte "C6", CR, "0A", CR
.byte "D0", CR, "04", CR
.byte "E6", CR, "0B", CR
.byte "C6", CR, "0B", CR
.byte "F0", CR, "16", CR
.byte "20", CR, "BF", CR, "FF", CR
.byte "91", CR, "08", CR