mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
72 lines
1.1 KiB
ArmAsm
72 lines
1.1 KiB
ArmAsm
;2?CHR$(27)
|
|
;3N$=CHR$(14):I$=CHR$(15):B$=CHR$(8):F$=CHR$(10)+B$+B$+B$+B$+B$+B$
|
|
;4GOSUB8:?"_____ "F$B$I$"ZA----_"F$B$I$"Z"N$" o "I$"S_"F$B$I$"Z"N$"__|__"I$"_"N$
|
|
;6GOSUB8:?N$"____ "F$I$"Z"N$" =='"I$"_"F$I$"Z"N$"_"I$" \T_"N$
|
|
;7GOTO4
|
|
;8VTAB1+RND(1)*20:HTABRND(1)*70:RETURN
|
|
|
|
|
|
CH = $24
|
|
CV = $25
|
|
|
|
COUT = $FDED
|
|
COUT1 = $FDF0
|
|
COUTZ = $FDF6 ; cout but ignore inverse flag
|
|
|
|
floppy:
|
|
|
|
jsr $C300 ; enable 80-column card firmware
|
|
|
|
lda #27 ; enable mouse text
|
|
jsr COUT
|
|
|
|
lda #5
|
|
sta CH
|
|
sta CV
|
|
|
|
ldx #0
|
|
big_loop:
|
|
lda big_floppy,X
|
|
beq big_done
|
|
ora #$80
|
|
jsr COUT
|
|
inx
|
|
bne big_loop
|
|
big_done:
|
|
|
|
lda #10
|
|
sta CH
|
|
sta CV
|
|
|
|
ldx #0
|
|
small_loop:
|
|
lda small_floppy,X
|
|
beq small_done
|
|
ora #$80
|
|
jsr COUT
|
|
inx
|
|
bne small_loop
|
|
small_done:
|
|
|
|
done:
|
|
jmp done
|
|
|
|
|
|
big_floppy:
|
|
.byte 10,"_____ "
|
|
.byte 10,8,8,8,8,8,8,8
|
|
.byte 15,"ZA----_"
|
|
.byte 10,8,8,8,8,8,8,8
|
|
.byte 15,"Z",14," o ",15,"S_"
|
|
.byte 10,8,8,8,8,8,8,8
|
|
.byte 15,"Z",14,"__|__",15,"_",14
|
|
.byte 0
|
|
|
|
small_floppy:
|
|
.byte 10,14,"____ "
|
|
.byte 10,8,8,8,8,8,8
|
|
.byte 15,"Z",14," =='",15,"_"
|
|
.byte 10,8,8,8,8,8,8
|
|
.byte 15,"Z",14,"_",15," \T_",14
|
|
.byte 0
|