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