Created
October 23, 2017 12:53
-
-
Save anonymous/05c8d33eaaefb66ed93b878605bcb1a5 to your computer and use it in GitHub Desktop.
10 clear500,&hafff:color15,0,0:screen4,2:definta-z:defusr=&hb000:bload"sc4cmd.bin"
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
10 clear500,&hafff:color15,0,0:screen4,2:definta-z:defusr=&hb000:bload"sc4cmd.bin" | |
30 reada$:ifa$="end"thena=usr(0):x=128:goto70 | |
40 s$="":fori=0to31:s$=s$+chr$(val("&h"+mid$(a$,i*2+1,2))):nexti:sprite$(sp)=s$ | |
50 reada$:s$="":fori=0to15:s$=s$+chr$(val("&h"+mid$(a$,i*2+1,2))):nexti | |
60 colorsprite$(sp)=s$:sp=sp+1:goto30 | |
70 a$="Hello Screen4!":cmd10,5,a$:a$="Score:"+str$(int(rnd(1)*1000)) | |
80 cmd10,15,a$:putsprite0,(x,96),,0:x=x-8:putsprite1,(255-x,80),,1:ifx<0thenx=255 | |
90 goto 70 | |
110 data0C1E3F7F5B6E7E3F1F1F1F1F3333330000000080C2CECE0EFCFEFEFE36363600 | |
120 data09090202020202020202020202050500 | |
130 data000000010303070FFFBFC0FF7F3F39290038FFEFFEFCFCDCDCBC7CF8F8F0C040 | |
140 data00090909090909090909090909090A0A,end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{"asm":{"filename":"sc4cmd.bin","build":"bin"},"basic":{}} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
org #B000 | |
__ldirmv: equ #0059 | |
__ldirvm: equ #005C | |
__chgmod: equ #005F | |
__filvrm: equ #0056 | |
__wrtvrm: equ #004D | |
__getbyt: equ #521C | |
__ptrget: equ #5EA4 | |
__fontptr: equ #4 | |
jp init | |
cls: | |
ld hl,#1800 | |
ld bc,768 | |
ld a,0 | |
call __filvrm | |
ret | |
init: | |
;--- setup font | |
ld hl,(__fontptr) | |
ld de,#0 | |
ld bc,#800 | |
call __ldirvm | |
ld hl,(__fontptr) | |
ld de,#800 | |
ld bc,#800 | |
call __ldirvm | |
ld hl,(__fontptr) | |
ld de,#1000 | |
ld bc,#800 | |
call __ldirvm | |
ld hl,#2000 | |
ld bc,#1800 | |
ld a,#F0 | |
call __filvrm | |
;-- setup cmd | |
ld a,#0C3 | |
ld (#FE0D),a | |
ld hl,cmdprog | |
ld (#FE0E),hl | |
jr cls | |
cmdprog: | |
pop af | |
call __getbyt | |
ld d,#00 | |
push de | |
inc hl | |
call __getbyt | |
ld d,#00 | |
ex de,hl | |
add hl,hl | |
add hl,hl | |
add hl,hl | |
add hl,hl | |
add hl,hl | |
ld bc,#1800 | |
add hl,bc | |
pop bc | |
add hl,bc | |
push hl | |
ex de,hl | |
inc hl | |
call __ptrget | |
push hl | |
ex de,hl | |
ld a,(hl) | |
inc hl | |
ld e,(hl) | |
inc hl | |
ld d,(hl) | |
pop bc | |
pop hl | |
push bc | |
ld b,a | |
loop1: | |
ld a,(de) | |
call __wrtvrm | |
inc hl | |
inc de | |
djnz loop1 | |
pop hl | |
ret |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment