Apple-2-Tools
/
AppleWin
mirror of https://github.com/AppleWin/AppleWin.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Updated Home (markdown)

Michael 2016-01-15 04:46:59 -08:00
parent 3f1aeefcee
commit 5f2b5d1955
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Home.md

@ -200,6 +200,13 @@ Given:
```assembly
; Algorithm Y to TXT address
; INPUT: A = row
BASL EQU $28
BASH EQU $29
ORG $FBC1
FBC1: 48 577 BASCALC PHA ;CALC BASE ADR IN BASL,H
FBC2: 4A 578 LSR ; FOR GIVEN LINE NO
FBC3: 29 03 579 AND #$03 ; 0<=LINE NO.<=$17
@ -215,6 +222,28 @@ FBD3: 0A 588 ASL
FBD4: 05 28 589 ORA BASL
FBD6: 85 28 590 STA BASL
FBD8: 60 591 RTS
; Table Y to TXT address
; INPUT: Y = row
y2txtL EQU $1280
y2txtH EQU $1298
ORG $1200
1200: B9 80 12 Y2TXTADR LDA y2txtL, Y
1203: 85 26 STA GBASL
1205: B9 98 12 LDA y2txtH, Y
1208: 85 27 STA GBASH
120A: 60 RTS
ORG $1280
1280: 00 80 00 80 00 80 00 80 ; Rows 0 .. 7 ($00 .. $07)
1288: 28 A8 28 A8 28 A8 28 A8 ; Rows 8 ..15 ($08 .. $10)
1290: 50 D0 50 D0 50 D0 50 D0 ; Rows 16 ..23 ($10 .. $17)
1298: 04 04 05 05 06 06 07 07 ; Rows 0 .. 7 ($00 .. $07)
1298: 04 04 05 05 06 06 07 07 ; Rows 8 ..15 ($08 .. $10)
1298: 04 04 05 05 06 06 07 07 ; Rows 16 ..23 ($10 .. $17)
```