[Saturn Asm] Plot routine

[dwesti]

Code:


         NIBASC  /HPHP48-A/      Binary download header
    CON(5)    =DOCODE
    REL(5)    Fin

* bottom menu off
    D0=(5) #00128
    LCHEX 3F
    DAT0=C B
* video address
    GOSBVL    =D0->Row1    * D0,A[A] -> top left corner of display
    R0=A.F    A
    D0=A
* clear screen
    LCHEX    87
    A=0 W
CL    DAT0=A W
    D0=D0+ 16
    C=C-1 B
    GONC CL

* test plot
    LAHEX 00000
    B=A A
* LL    GOTO LL
TP
    A=0 M
    A=B A
    C=B A
    GOSUB PLT  * C=y,A=x
    B=B+1 B
    LCHEX 40
    ?B<C B
    GOYES TP
KK    GOTO KK
    RTN
PLT * destroys A,C,D
    D=C A
    DSL A * D*16
    D=D+C A * D*17
    D=D+D A * D*34
    C=R0 A
    D=D+C A
* X
    LCHEX 00003
    C=C&A A
    CBIT=1  3
    P=C 0
    LCHEX #12481248
    P= 0
    CDEX A
    ASRB A
    ASRB A
    A=A+C A
    D0=A
    CDEX A
    A=DAT0 S
    A=A!C S
    DAT0=A S
    RTN

Fin
    END