Apple-2gs-SW/xrick2gs
1
0
Fork 0
mirror of https://github.com/dwsJason/xrick2gs.git synced 2025-01-21 09:34:23 +00:00
Code Issues Projects Releases Wiki Activity

move random files

Browse Source
This commit is contained in:
dwsJason 2018-08-02 20:41:52 -04:00
parent cf7eac86cc
commit b0358651bf
4 changed files with 0 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
e1.s
View File

@ -1,15 +0,0 @@
rel
dsk framebuffer.l
ext waitkey
; We could have a putbin here, to display a raw image
fbuffer ent
clc
xce
rep #$30
jsl waitkey
rtl
db 1

26
link.s
View File

@ -1,26 +0,0 @@
dsk e1.obj ; program name
typ $b1 ; OBJ
;xpl ; Add Expressload
; Segment 1
asm e1.s ; Really want to attempt a putbin
ds $8000
knd #$1100 ; Kind
ali None ; alignment
; lna e1demo.s16 ; Load Name
sna framebuffer ; Segment Name
; Segment 2
asm waitkey.s
ds 0
knd #$1100
ali none
; lna e1demo.s16
sna keything

10
patch.bat
View File

@ -1,10 +0,0 @@
rem
rem $ printf '\x31\xc0\xc3' | dd of=test_blob bs=1 seek=100 count=3 conv=notrunc
rem dd arguments:
rem
rem of | file to patch
rem bs | 1 byte at a time please
rem seek | go to position 100 (decimal)
rem conv=notrunc | don't truncate the output after the edit (which dd does by default)

31
waitkey.s
View File

@ -1,31 +0,0 @@
rel
dsk Main.l
; ext fbuffer
waitkey ent
clc
xce
sep #$30
; Enable SHR
ldal $e0c029
ora #$c0
stal $e0c029
; Wait Key
:lp
ldal $e0c000
bpl :lp
stal $e0c010
; Exit the App
; TODO call Prodos 16 Exit
; as rtl probably just crashes
rtl
; da fbuffer