logo: update some stuff
This commit is contained in:
parent
ef515a991f
commit
de29430b88
|
@ -0,0 +1,12 @@
|
||||||
|
; $650,$6d0,$750,$7d0
|
||||||
|
clear_both_bottoms:
|
||||||
|
lda #' '|$80
|
||||||
|
ldx #$F7
|
||||||
|
cbloop:
|
||||||
|
sta $600,X
|
||||||
|
sta $700,X
|
||||||
|
sta $A00,X
|
||||||
|
sta $B00,X
|
||||||
|
dex
|
||||||
|
bne cbloop
|
||||||
|
|
|
@ -142,7 +142,7 @@ $BB-$BE -- editor help
|
||||||
$BF -- prodos
|
$BF -- prodos
|
||||||
$C0-$CF -- I/O
|
$C0-$CF -- I/O
|
||||||
$D0-$DF -- Logo code
|
$D0-$DF -- Logo code
|
||||||
$E0-$FF -- ProDOS
|
$E0-$FF -- ProDOS ; empty/all zeros?
|
||||||
|
|
||||||
Info
|
Info
|
||||||
$300 = max num data files *9 (usually 54)
|
$300 = max num data files *9 (usually 54)
|
||||||
|
|
|
@ -0,0 +1,9 @@
|
||||||
|
{L}
|
||||||
|
SETPC 4 SETPOS[90 80] CLEAN REPEAT 36[RT 5 FD 2 RT 5]
|
||||||
|
REPEAT 9[RT 40 PU SETPOS[100 80] FD 25 PD BK 10]
|
||||||
|
SETPC 5 PU HOME PD
|
||||||
|
RT 180 FD 119 RT 90 FD 280 RT 90 FD 119
|
||||||
|
RT 45 REPEAT 20[FD 10 RT 90 FD 10 LT 90]
|
||||||
|
FILL BK 50
|
||||||
|
SETPC 1 REPEAT 40[FD 1 RT 3] RT 90
|
||||||
|
REPEAT 40[FD 1 RT 3] HT
|
Loading…
Reference in New Issue