Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-09-08 21:54:28 +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 b42a88caa9
commit 5d7dd674a7
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.

14
client/basic/kipperbas.s
View File

@ -99,12 +99,19 @@ pptr=temp
.word basicstub ; load address .word basicstub ; load address
basicstub: basicstub:
.word @nextline .word @nextline
.word 2003 ;line number .word 10 ;line number
.byte $9e ;SYS .byte $9e ;SYS
.byte <(((relocate / 1000) .mod 10) + $30) .byte <(((relocate / 1000) .mod 10) + $30)
.byte <(((relocate / 100 ) .mod 10) + $30) .byte <(((relocate / 100 ) .mod 10) + $30)
.byte <(((relocate / 10 ) .mod 10) + $30) .byte <(((relocate / 10 ) .mod 10) + $30)
.byte <(((relocate ) .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 .byte 0
@nextline: @nextline:
.word 0 .word 0
@ -198,8 +205,9 @@ install_new_vectors_loop:
sta connection_state sta connection_state
jsr set_error jsr set_error
@exit: @exit:
jsr $A644 ;do a "NEW" ; jsr $A644 ;do a "NEW"
jmp $A474 ;"READY" prompt ; jmp $A474 ;"READY" prompt
rts
welcome_banner: welcome_banner:
.incbin "welcome_banner.txt" .incbin "welcome_banner.txt"