fix indents
This commit is contained in:
parent
0adb25254c
commit
623975e057
|
@ -5,17 +5,17 @@
|
|||
* APPLESOFT
|
||||
CH equ $24
|
||||
CV equ $25
|
||||
HCOLOR equ $E4 ;HCOLOR value
|
||||
SETHCOL equ $F6EC ;Set active HCOLOR to value of X (0 ... 7)
|
||||
HPLOT equ $F457 ;Plots a colored dor at the position
|
||||
; given by A (vertical), Y (horizontal high),
|
||||
; and X (horizontal low)
|
||||
HLIN equ $F53A ;Draws a line from the last plotted dot to the
|
||||
; position given by Y (vertical), X (horizontal high),
|
||||
; and A (horizontal low)
|
||||
HCOLOR equ $E4 ;HCOLOR value
|
||||
SETHCOL equ $F6EC ;Set active HCOLOR to value of X (0 ... 7)
|
||||
HPLOT equ $F457 ;Plots a colored dor at the position
|
||||
; given by A (vertical), Y (horizontal high),
|
||||
; and X (horizontal low)
|
||||
HLIN equ $F53A ;Draws a line from the last plotted dot to the
|
||||
; position given by Y (vertical), X (horizontal high),
|
||||
; and A (horizontal low)
|
||||
CLRLORES equ $F832
|
||||
CLRHIRES equ $F3F2
|
||||
CLRHIRESC equ $F3F6 ;clears to last color plotted
|
||||
CLRHIRESC equ $F3F6 ;clears to last color plotted
|
||||
|
||||
|
||||
|
||||
|
@ -23,7 +23,7 @@ CLR80VID equ $C00C
|
|||
SET80VID equ $C00D
|
||||
CLR80COL equ $C001
|
||||
SET80COL equ $C001
|
||||
TXTCLR equ $C050
|
||||
TXTCLR equ $C050
|
||||
TXTSET equ $C051
|
||||
MIXCLR equ $C052
|
||||
MIXSET equ $C053
|
||||
|
@ -43,7 +43,7 @@ RDVBLBAR equ $C019 ;not VBL (VBL signal low
|
|||
RAMWRTAUX equ $C005
|
||||
RAMWRTMAIN equ $C004
|
||||
CLRAN3 equ $C05E ;Clear annunciator-3 output (DLR on) (Mislabeled in IIgs Firmare Ref?)
|
||||
SETAN3 equ $C05F ;Set annunciator-3 output
|
||||
SETAN3 equ $C05F ;Set annunciator-3 output
|
||||
|
||||
|
||||
COUT equ $FDED ; Calls the output routine whose address is stored in CSW,
|
||||
|
@ -106,28 +106,29 @@ MLI equ $BF00
|
|||
*************************************
|
||||
* LORES / DOUBLE LORES / TEXT LINES *
|
||||
*************************************
|
||||
Lo01 equ $400
|
||||
Lo02 equ $480
|
||||
Lo03 equ $500
|
||||
Lo04 equ $580
|
||||
Lo05 equ $600
|
||||
Lo06 equ $680
|
||||
Lo07 equ $700
|
||||
Lo08 equ $780
|
||||
Lo09 equ $428
|
||||
Lo10 equ $4a8
|
||||
Lo11 equ $528
|
||||
Lo12 equ $5a8
|
||||
Lo13 equ $628
|
||||
Lo14 equ $6a8
|
||||
Lo15 equ $728
|
||||
Lo16 equ $7a8
|
||||
Lo17 equ $450
|
||||
Lo18 equ $4d0
|
||||
Lo19 equ $550
|
||||
Lo20 equ $5d0
|
||||
Lo01 equ $400
|
||||
Lo02 equ $480
|
||||
Lo03 equ $500
|
||||
Lo04 equ $580
|
||||
Lo05 equ $600
|
||||
Lo06 equ $680
|
||||
Lo07 equ $700
|
||||
Lo08 equ $780
|
||||
Lo09 equ $428
|
||||
Lo10 equ $4a8
|
||||
Lo11 equ $528
|
||||
Lo12 equ $5a8
|
||||
Lo13 equ $628
|
||||
Lo14 equ $6a8
|
||||
Lo15 equ $728
|
||||
Lo16 equ $7a8
|
||||
Lo17 equ $450
|
||||
Lo18 equ $4d0
|
||||
Lo19 equ $550
|
||||
Lo20 equ $5d0
|
||||
* the "plus four" lines
|
||||
Lo21 equ $650
|
||||
Lo22 equ $6d0
|
||||
Lo23 equ $750
|
||||
Lo24 equ $7d0
|
||||
Lo21 equ $650
|
||||
Lo22 equ $6d0
|
||||
Lo23 equ $750
|
||||
Lo24 equ $7d0
|
||||
|
||||
|
|
|
@ -1003,5 +1003,6 @@ BINBCDVARDUMP
|
|||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -100,7 +100,7 @@ ColorizeMenu
|
|||
rts
|
||||
|
||||
* now stores x immediately
|
||||
WaitScanline ;jmp WaitSCB
|
||||
WaitScanline ;jmp WaitSCB
|
||||
sta :val+1
|
||||
|
||||
:waitloop lda $c02f
|
||||
|
@ -109,7 +109,7 @@ WaitScanline ;jmp WaitSCB
|
|||
rol
|
||||
:val cmp #$00
|
||||
bne :waitloop
|
||||
stx $c022
|
||||
stx $c022
|
||||
rts
|
||||
|
||||
ColorizeMenuOld
|
||||
|
@ -666,3 +666,4 @@ LoLineTableL db <Lo01,<Lo02,<Lo03,<Lo04,<Lo05,<Lo06
|
|||
db <Lo07,<Lo08,<Lo09,<Lo10,<Lo11,<Lo12
|
||||
db <Lo13,<Lo14,<Lo15,<Lo16,<Lo17,<Lo18
|
||||
db <Lo19,<Lo20,<Lo21,<Lo22,<Lo23,<Lo24
|
||||
|
||||
|
|
|
@ -27,7 +27,7 @@
|
|||
|
||||
org $2000 ; start at $2000 (all ProDOS8 system files)
|
||||
typ $ff ; set P8 type ($ff = "SYS") for output file
|
||||
dsk mmtsystem ; tell compiler what name for output file
|
||||
dsk mmtsystem ; tell compiler what name for output file
|
||||
put applerom
|
||||
|
||||
Init
|
||||
|
@ -152,7 +152,7 @@ LogRamMessages jsr WinConsole
|
|||
jsr PrintString
|
||||
lda BankExpansionHighest
|
||||
jsr PRBYTE
|
||||
jsr CROUT
|
||||
jsr CROUT
|
||||
jsr WinFull
|
||||
rts
|
||||
LogTestDone jsr WinConsole
|
||||
|
@ -1287,7 +1287,7 @@ TestPatchBanks lda CurBank
|
|||
|
||||
CORRUPTOR lda $C000
|
||||
bpl _nokey
|
||||
and #11101111
|
||||
and #11101111
|
||||
cmp #"c"
|
||||
jsr GetRandTrash ;careful... this is 8-bit code. make sure M=1
|
||||
;lda #$55
|
||||
|
@ -1990,3 +1990,4 @@ BankExpansionHighest ds 1
|
|||
BankMap ds 256 ;page-align maps just to make them easier to see
|
||||
_stash ds 256
|
||||
ds \
|
||||
|
||||
|
|
Loading…
Reference in New Issue