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
  DATETIME-COMPAT ( get datetime info into #00c0 )
  #10 #12 ( year-x year-y -- )
  .DateTime/year LDZ2 ( year-x year-y year* -- )
  ;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
  POP2 ( mv-x mv-y -- )
  ;moveme ;draw-str JSR2
  ( drawing static strings should always end with POP2 )
  #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

( 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`
Datetime syscall fixed and compat macro introduced 2022-07-31 18:37:56 +03:00			`DATETIME-COMPAT ( get datetime info into #00c0 )`
			`#10 #12 ( year-x year-y -- )`
			`.DateTime/year LDZ2 ( year-x year-y year* -- )`
			`;print-dec JSR2 ( mv-x mv-y year-x year-y -- )`
			`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			`( drawing static strings should always end with POP2 )`
			`#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`

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`