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