mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-25 14:29:14 +00:00
9f35f32f67
- massive overhaul of architecture - first round of optimizations - first draft of the technical manual for the entire library - reorganization of directory structure
40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
*
|
|
*``````````````````````````````*
|
|
* TVLINE (NATHAN RIGGS) *
|
|
* *
|
|
* INPUT: *
|
|
* *
|
|
* ]X1 STORED AT WPAR1 *
|
|
* ]Y1 STORED AT WPAR2 *
|
|
* ]Y2 STORED AT WPAR2+1 *
|
|
* ]F STORED AT BPAR1 *
|
|
* *
|
|
* OUTPUT: VERT LINE TO SCREEN *
|
|
* *
|
|
* DESTROY: AXYNVBDIZCMS *
|
|
* ^^^^^ ^^^ *
|
|
* *
|
|
* CYCLES: 33+ *
|
|
* SIZE: 34 BYTES *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
]X1 EQU WPAR1 ; 1 BYTE
|
|
]Y1 EQU WPAR2 ; 1 BYTE
|
|
]Y2 EQU WPAR2+1 ; 1 BYTE
|
|
]F EQU BPAR1 ; 1 BYTE
|
|
*
|
|
TVLINE
|
|
*
|
|
LDA ]Y1
|
|
LDY ]X1
|
|
:LOOP
|
|
JSR GBCALC ; GET POS SCREEN ADDRESS
|
|
LDA ]F
|
|
STA (GBPSH),Y ; PLOT TO SCREEN MEMORY
|
|
INC ]Y1
|
|
LDA ]Y1
|
|
CMP ]Y2 ; IF Y1 < Y2
|
|
BNE :LOOP ; LOOP; ELSE, CONTINUE
|
|
:EXIT
|
|
RTS
|