MaxCoderz

Code: Select all

/* chars.ads by Dan Cook
 *
 * Prints all the character values in a 15x18
 * grid using the small (variable width) font.
 * Note that all variables start with a defualt
 * value of zero unless they are tied to some
 * address (i.e. CurRow, PenRow, and PenCol).
 */
 
#include "ti83plus.ads"
#include "text.ads"
 
void main() {
    byte ch;
    .ClrHome();
    CurRow = 6;
    PenRow = 0;
    PenCol = 0;
    do {
        .TextC(ch);
        if(PenCol < 108) PenCol = PenCol + 6;
        else {
            PenCol = 0;
            PenRow = PenRow + 6;
        }
    } while(ch <= 255);
}

Code: Select all

.nolist
#include "ti83plus.inc"
.list
 .org userMem-2
 .db t2ByteTok, tAsmCmp
 
func_main:
 B_CALL(_ClrScrnFull)
 LD A,6
 LD (CurRow),A
 LD A,0
 LD (PenRow),A
 LD A,0
 LD (PenCol),A
Label5:         ; <DO-WHILE>   ; WAS <DO->WHILE
 LD A,(local_vars+0)
 B_CALL(_VPutMap)
                ; <IF>
 LD A,(PenCol)
 CP 108
 JP C,Label8                 ;WAS JP C,LabelLabel8
 LD A,(PenCol)
 ADD A,6
 LD (PenCol),A
 JP Label9      ; skip else code
Label8:         ; <ELSE>
 LD A,0
 LD (PenCol),A
 LD A,(PenRow)
 ADD A,6
 LD (PenRow),A
Label9:         ; <End IF-ELSE>
 LD A,(local_vars+0)
 INC A
 LD (local_vars+0),A
 LD A,255
 LD HL,local_vars+0        ;WAS CP (local_vars+0)
 CP (HL)                     ;INSERTED
 JP C,Label5                 ;WAS JP C,LabelLabel5
Label7:         ; <End WHILE
 RET
 
local_vars:
 .DB 0
.END
.END