tal-lib/moveme.tal

( test program to verify the correctness of graphics and input on ESOP )

~esop-lib-macro.tal

|0100
  ;on-frame SETSCRVEC
  #1a #20 ( mv-x mv-y )
BRK

@on-frame
  ( drawing static strings should always end with POP2 )
  #00 #04 ;longtxt ;draw-long-str JSR2 POP2
  DATETIME-COMPAT ( get datetime info into #00c0 )
  #04 #12 ( year-x year-y -- )
  .DateTime/year LDZ2 ( year-x year-y year* -- )
  ;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
  LIT '. ;putc JSR2
  .DateTime/month LDZ
  ;print-dec2-byte JSR2
  LIT '. ;putc JSR2
  .DateTime/day LDZ
  ;print-dec2-byte JSR2
  POP2 ( mv-x mv-y -- )
  #04 #16 ( hms-x hms-y -- )
  .DateTime/hour LDZ
  ;print-dec2-byte JSR2
  LIT ': ;putc JSR2
  .DateTime/minute LDZ
  ;print-dec2-byte JSR2
  LIT ': ;putc JSR2
  .DateTime/second LDZ
  ;print-dec2-byte JSR2
  POP2 ( mv-x mv-y -- )
  ;moveme ;draw-str JSR2
  #02 #2b ;addr ;draw-str JSR2 POP2
  SWP #20 SUB SWP ( restore x coord between frames )
  ;&adv KP-A JMPKEY 
  ;&back KP-B JMPKEY 
  BRK
  &adv
    SWP INC DBGBYTE SWP
  BRK
  &back
    SWP DEC DBGBYTE SWP
  BRK

@moveme "MOVE 20 "ME! 00

@addr "SR.HT/~LUXFERRE/ESOP 00

@longtxt "HELLO 20 "FROM 20 "ESOP, 20 "NEW 20 "PHONE 20 "RUNTIME 00

( include ESOP stdlib routines )

~esop-lib-subs.tal
Code reorg 2022-07-30 21:04:16 +03:00			`( test program to verify the correctness of graphics and input on ESOP )`

reorganize ESOP stdlib 2022-07-30 20:18:39 +03:00			`~esop-lib-macro.tal`
Extended write hooks and debugged sound 2022-07-28 22:55:10 +03:00
			`\|0100`
			`;on-frame SETSCRVEC`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`#1a #20 ( mv-x mv-y )`
input debugging start 2022-07-29 08:53:50 +03:00			`BRK`
some lib 2022-07-26 20:52:57 +03:00
Extended write hooks and debugged sound 2022-07-28 22:55:10 +03:00			`@on-frame`
Decimal short output successful 2022-08-03 21:51:07 +03:00			`( drawing static strings should always end with POP2 )`
			`#00 #04 ;longtxt ;draw-long-str JSR2 POP2`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`DATETIME-COMPAT ( get datetime info into #00c0 )`
Decimal short output successful 2022-08-03 21:51:07 +03:00			`#04 #12 ( year-x year-y -- )`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`.DateTime/year LDZ2 ( year-x year-y year* -- )`
			`;print-dec JSR2 ( mv-x mv-y year-x year-y -- )`
Decimal short output successful 2022-08-03 21:51:07 +03:00			`LIT '. ;putc JSR2`
			`.DateTime/month LDZ`
			`;print-dec2-byte JSR2`
			`LIT '. ;putc JSR2`
			`.DateTime/day LDZ`
			`;print-dec2-byte JSR2`
			`POP2 ( mv-x mv-y -- )`
			`#04 #16 ( hms-x hms-y -- )`
			`.DateTime/hour LDZ`
			`;print-dec2-byte JSR2`
			`LIT ': ;putc JSR2`
			`.DateTime/minute LDZ`
			`;print-dec2-byte JSR2`
			`LIT ': ;putc JSR2`
			`.DateTime/second LDZ`
			`;print-dec2-byte JSR2`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`POP2 ( mv-x mv-y -- )`
draw-str working 2022-07-30 20:47:17 +03:00			`;moveme ;draw-str JSR2`
started implementing decimal output 2022-07-31 23:36:51 +03:00			`#02 #2b ;addr ;draw-str JSR2 POP2`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`SWP #20 SUB SWP ( restore x coord between frames )`
continue fixing inputs 2022-07-29 12:55:53 +03:00			`;&adv KP-A JMPKEY`
			`;&back KP-B JMPKEY`
input debugging start 2022-07-29 08:53:50 +03:00			`BRK`
			`&adv`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`SWP INC DBGBYTE SWP`
continue fixing inputs 2022-07-29 12:55:53 +03:00			`BRK`
			`&back`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`SWP DEC DBGBYTE SWP`
continue fixing inputs 2022-07-29 12:55:53 +03:00			`BRK`
Extended write hooks and debugged sound 2022-07-28 22:55:10 +03:00
draw-str working 2022-07-30 20:47:17 +03:00			`@moveme "MOVE 20 "ME! 00`
line output in progress 2022-07-29 19:18:15 +03:00
started implementing decimal output 2022-07-31 23:36:51 +03:00			`@addr "SR.HT/~LUXFERRE/ESOP 00`

Decimal short output successful 2022-08-03 21:51:07 +03:00			`@longtxt "HELLO 20 "FROM 20 "ESOP, 20 "NEW 20 "PHONE 20 "RUNTIME 00`

reorganize ESOP stdlib 2022-07-30 20:18:39 +03:00			`( include ESOP stdlib routines )`
line output in progress 2022-07-29 19:18:15 +03:00
reorganize ESOP stdlib 2022-07-30 20:18:39 +03:00			`~esop-lib-subs.tal`