adding methods, and LCD type and LCD methods

Author: Zeda

commands.md

@@ -230,7 +230,18 @@ means, for example, `Text(Y,1,"?"` will draw at pixel coordinates x=4, and
 - `SETFONT(2)` this also uses the small font, but you can draw text to pixel coordinates. **Default**
 
 
-
+## LCD commands
+The built-in var, `LCD` is a `display` type. On the TI-83+/84+ series, you can:
+- `LCD.OFF()` to turn the LCD off
+- `LCD.ON()` to turn the LCD on
+- `LCD.CONTRAST(val)` to set teh contrast (0 to 63)
+- `LCD.ZSHIFT(val)` to set the z-shift value (0 to 63, if you don't know what this is, definitely play with this.
+- `LCD.FLIP(val)` on *some* calculators, the LCD has special commands to flip
+the LCD horizontally and vertically. This could be useful, but remember that not
+all calcs have this.
+
+I don't know how useful this is, but you can also do something like `LCD→Z`,
+which means now you can use any of the commands via `Z`.
 
 ## CHAR()
 `CHAR(val)` converts `val` to a char. For example, to display the `@` symbol:

src/01.z80

@@ -53,6 +53,11 @@ xconst_to:
   call xconst
   jp mov10
 
+pop_operand_p1:
+  ld hl,pop_operand
+  ld (prev_page_call_address),hl
+  jp prev_page_call
+
 popoperand_ui8_p1:
   ld hl,popoperand_ui8
   ld (prev_page_call_address),hl
@@ -78,6 +83,21 @@ pushoperand_char_p1:
   ld (prev_page_call_address),hl
   jp prev_page_call
 
+err_bad_input_p1:
+  ld hl,err_bad_input
+  ld (prev_page_call_address),hl
+  jp prev_page_call
+
+err_syntax_p1:
+  ld hl,err_syntax
+  ld (prev_page_call_address),hl
+  jp prev_page_call
+
+err_fatal_p1:
+  ld hl,err_fatal
+  ld (prev_page_call_address),hl
+  jp prev_page_call
+
 eval_func_p1:
 ;A is the func to evaluate, <128
   ld hl,internal_eval_table
@@ -96,6 +116,7 @@ internal_eval_table:
   .dw eval_setmode
   .dw eval_char
   .dw eval_setfont
+  .dw eval_method
 
 eval_setfont:
   call popoperand_ui8_p1
@@ -126,4 +147,103 @@ eval_getmode:
   ld de,(flags+userflags)
   jp pushoperand_ui16_p1
 
+eval_method:
+;opstack should contain a 0, then the type, then the function number*2
+  ld hl,(opstack_ptr)
+  ld a,(hl)
+  or a
+  jp nz,err_fatal_p1
+  inc hl
+  ld a,(hl)
+  inc hl
+  ld c,(hl)
+  inc hl
+  ld (opstack_ptr),hl
+  ld hl,eval_method_type_LUT
+  add a,a
+  add a,l
+  ld l,a
+  jr nc,$+3
+  inc h
+  ld a,(hl)
+  inc hl
+  ld h,(hl)
+  ld l,a
+  or h
+  jp z,err_syntax_p1
+  ;now HL points to the table for this type
+  ld b,0
+  add hl,bc   ;BC is already times 2
+  ld a,(hl)
+  inc hl
+  ld h,(hl)
+  ld l,a
+  jp (hl)
+
+eval_method_type_LUT:
+  .dw 0               ;00 ui8
+  .dw 0               ;01
+  .dw 0               ;02
+  .dw 0               ;03
+  .dw 0               ;04
+  .dw 0               ;05
+  .dw 0               ;06
+  .dw 0               ;07
+  .dw 0               ;08
+  .dw 0               ;09
+  .dw 0               ;0A
+  .dw 0               ;0B
+  .dw 0               ;0C
+  .dw 0               ;0D
+  .dw 0               ;0E
+  .dw 0               ;0F
+  .dw 0               ;10
+  .dw 0               ;11
+  .dw 0               ;12
+  .dw method_display  ;13 display
+
+method_display:
+  .dw display_contrast
+  .dw display_flip
+  .dw display_zshift
+  .dw display_off
+  .dw display_on
+
+display_contrast:
+  call popoperand_ui8_p1
+  add a,$C0
+  jp c,err_bad_input_p1
+  out (16),a
+  call pop_end_of_params_p1
+  jp pop_operand_p1
+
+display_zshift:
+  call popoperand_ui8_p1
+  and 63
+  add a,$40
+  out (16),a
+  call pop_end_of_params_p1
+  jp pop_operand_p1
+
+display_off:
+  ld a,3
+  out (16),a
+  call pop_end_of_params_p1
+  jp pop_operand_p1
+
+display_on:
+  ld a,2
+  out (16),a
+  call pop_end_of_params_p1
+  jp pop_operand_p1
+
+display_flip:
+;Some calcs have an LCD with commands to flip the display vertically/horizontally
+  call popoperand_ui8_p1
+  and 3
+  add a,$0C
+  out (16),a
+  call pop_end_of_params_p1
+  jp pop_operand_p1
+
 .echo "Page 1: ",$8000-$," bytes remaining"

src/commandtable.z80

@@ -63,7 +63,7 @@ CommandJumpTable:
 .dw exec_num       ; 37
 .dw exec_num       ; 38
 .dw exec_num       ; 39
-.dw ErrBadToken    ; 3A
+.dw exec_dec       ; 3A
 .dw ErrBadToken    ; 3B
 .dw ErrBadToken    ; 3C
 .dw ErrBadToken    ; 3D

src/ops/sto.z80

@@ -24,8 +24,13 @@ eval_sto_LUT:
   .dw sto_list
   .dw sto_list_ref
   .dw sto_char
+  .dw sto_ref
+  .dw sto_display
 _:
 
+sto_display:
+  ld a,type_display
+  jr sto_
 
 sto_char:
   ld a,type_char
@@ -77,6 +82,7 @@ sto_:
   ldir
   ret
 
+sto_ref:
 sto_var:
   jp err_syntax
 

src/parsnip.inc

@@ -142,14 +142,15 @@ type_list     = 15
 type_list_ref = 16
 type_char     = 17
 type_ref      = 18
-
+type_display  = 19
 
 X_CONST_0     = 6
 X_CONST_1     = 7
 X_CONST_PI    = 0
 X_CONST_e     = 1
 
 tok_internal  = $F1
+tok_method    = $04   ;2-byte
 tok_index     = $FF
 
 ;===============================================================