ACagliano wrote:
Does the bcall PutS wrap text? Do any of them?
I don't believe so, but you're better off just checking the Systems Routines reference PDF. ReceiveEquation:
bcall(_ClrLCDFull)
ld a,0
ld (penCol),a
ld (penRow),a
ld de,saferam1+1
ld a,0
ld (saferam1),a
ld a,0
getKloop:
bcall(_getCSC)
jr z,getKloop
cp $01
jr z,switchnumeric
cp $04
jr z,switchalpha
cp $02
jr z,backspace
cp $09
jr z,done
switchnumeric:
bit 0,(TextInputFlag)
jr z,getKloop
ld hl,NumericCharMap
ld a,(penRow)
add a,3
ld (penRow),a
res 0,(TextInputFlag)
jr getKloop
switchalphaup:
bit 0,(TextInputFlag)
jr nz,getKloop
ld hl,AlphaCharMap
ld a,(penRow)
sub 3
ld (penRow),a
set 0,(TextInputFlag)
jr getKloop
backspace:
ld a,(saferam1)
cp 0
jr z,getKloop
dec a
ld (saferam1),a
dec de
ld a,(penCol)
sub 5
ld (penCol),a
jr getKloop
done:
AlphaUpCharMap:
.db 0,0,0,0,0,0,0,0,0,0
.db "WRMH"
AlphaLowCharMap:
NumericCharMap:
dim( [A] )
If Ans( 2 ) =/ Ans( 1 ) + 1:Goto 0
rref( [A] )
dim( [A] )
Ans( 2 )->A
Matr>list( [A] , A , L1 )
For( B , 1 , 5000) "Is there another way to do this little part?"
B (L1) -> L2
If int( sum (L2)) = sum (L2):Goto 1
End
Lbl 0
0->A
Return
Lbl 1
L2 -> L1
1->A
Return
VAT data:
Type: Program
Name: RREF
VAT Loc: $F922
Data Loc: $9ED5
Size: 0074
.db $74 , $00 , $B5 , $5C
.db $00 , $11 , $04 , $41
.db $3F , $CE , $72 , $10
.db $32 , $11 , $6F , $72 ;16
.db $10 , $31 , $11 , $70
.db $31 , $3E , $D7 , $30
.db $3F , $BB , $2E , $5C
.db $00 , $11 , $04 , $5C ;32
.db $00 , $3F , $B5 , $5C
.db $00 , $11 , $3F , $72
.db $10 , $32 , $11 , $04
.db $41 , $3F , $BB , $39 ;48
.db $5C , $00 , $2B , $41
.db $2B , $5D , $00 , $11
.db $3F , $D3 , $42 , $2B
.db $31 , $2B , $35 , $30 ;64
.db $30 , $30 , $11 , $3F
.db $42 , $10 , $5D , $00
.db $11 , $04
Advertisement