dos33fsprogs/textmode/mousetext/floppy.s
2021-03-02 17:20:38 -05:00

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