fix indents

This commit is contained in:
Dagen Brock 2015-11-29 10:34:32 -06:00
parent 0adb25254c
commit 623975e057
4 changed files with 44 additions and 40 deletions

View File

@ -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

View File

@ -1003,5 +1003,6 @@ BINBCDVARDUMP

View File

@ -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

View File

@ -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 \