Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-06-28 13:29:37 +00:00
Code Issues Projects Releases Wiki Activity

git-svn-id: http://svn.code.sf.net/p/netboot65/code@278 93682198-c243-4bdb-bd91-e943c89aac3b

Browse Source
This commit is contained in:
jonnosan 2010-09-12 00:20:33 +00:00
parent c30fce4655
commit 33d0367389
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
client/basic/kipperbas.d64
View File

Binary file not shown.

16
client/basic/kipperbas.s
View File

@ -99,12 +99,19 @@ pptr=temp
.word basicstub ; load address
basicstub:
.word @nextline
.word 2003 ;line number
.word 10 ;line number
.byte $9e ;SYS
.byte <(((relocate / 1000) .mod 10) + $30)
.byte <(((relocate / 100 ) .mod 10) + $30)
.byte <(((relocate / 10 ) .mod 10) + $30)
.byte <(((relocate ) .mod 10) + $30)
.byte ":"
.byte "D"
.byte $b2 ;=
.byte $c2 ;PEEK
.byte "(186):"
.byte $93 ;LOAD
.byte $22,"AUTOEXEC.BAS",$22,",D"
.byte 0
@nextline:
.word 0
@ -198,9 +205,10 @@ install_new_vectors_loop:
sta connection_state
jsr set_error
@exit:
jsr $A644 ;do a "NEW"
jmp $A474 ;"READY" prompt
; jsr $A644 ;do a "NEW"
; jmp $A474 ;"READY" prompt
rts
welcome_banner:
.incbin "welcome_banner.txt"
.byte 0