Post Reply 
(HP71B) Speed experience with Video (EMU71 and Video80 screen)
11-15-2023, 04:58 PM
Post: #21
RE: (HP71B) Speed experience with Video (EMU71 and Video80 screen)
" hELLO" OUTPUT in forth give hELLO at the screen.
Now I will use this OUTPUT (of long string incl ESC characters for Video command ) instead of EMIT of single characters. I suppose the speed will be better. Result in few days.

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
11-15-2023, 09:42 PM
Post: #22
RE: (HP71B) Speed experience with Video (EMU71 and Video80 screen)
(11-15-2023 04:43 PM)J-F Garnier Wrote:  A third (and intermediate) way is to use the OUTPUT statement:
OUTPUT :1 ;"HELLO!";
that should do the same thing.
It does, same messages in the same order. Thanks!

Sylvain Côté
Find all posts by this user
Quote this message in a reply
11-24-2023, 08:19 PM (This post was last modified: 11-29-2023 01:21 PM by floppy.)
Post: #23
RE: (HP71B) Speed experience with Video (EMU71 and Video80 screen)
I made a rework by avoiding the EMIT word which extensive looping is making the output slow.
By creating string buffers then using the word OUTPUT (probably similar in BASIC; see previous exchanges), it looks better (weird interferences in EMU71 are not seen anymore). Thanks for all supportive hints in this thread.

The result is a mix of further actions for a smooth update:
- string buffers with maximum 255 char long
- only the necessary number will be updated (frame draw one time; draw of HH MM SS only after check this is necessary)
- no date update check (if you keep it running 1 week, only the time will change)

The test on an hardware is still open (all test in EMU71 and Video80 done).

So far working.. (Linux 64bits PC starting windows binaries from ILPER ILVIDEO80 EMU71)

Clock in Video80 with EMU71 and Forth.

a) install timeasm
b) install HP71B1 and CLOCK; see below
c) start with STARTCLO: you have now a good looking clock (fonts mostly from Sylvain Cote proposal)
d) EXIT with pressing the key E

HP71B1
Code:
VARIABLE CELLV
HERE 0 , HERE SWAP - CELLV !
-1 CONSTANT TRUE
0 CONSTANT FALSE 
: >= < 0= ;
: 0<> 0= 0= ;
: .R >R S->D R> D.R ;
: D0= OR 0= ;
: D= D- D0= ;
: 2, , , ;
: 2! SWAP OVER ! 5+ ! ;
: 2@ DUP 5+ @ SWAP @ ;
: 2CONSTANT CREATE , , DOES> 2@ ;
: 2VARIABLE CREATE 0 , 0 , DOES> ;
: 2NIP 2SWAP 2DROP ;
: AT-XY 27 EMIT 37 EMIT SWAP EMIT EMIT ;
: AT-XY<BF 2SWAP 27 CHR$ S<&  37 CHR$ S<& 4 ROLL CHR$ S<& ROT
CHR$ S<& ;
: BLANK 20 FILL ;
: CELLS 5 * ;
: CELL+ 5+ ;
: CELL- 5- ;
: CHAR+ 2+ ;
: CHAR- 2- ;
: CHAR BL WORD CHAR+ C@ ;
: NIP SWAP DROP ;
: N>$ S->D STR$ ;
: ON TRUE SWAP ! ;
: OFF FALSE SWAP ! ;
: PAGE 27 EMIT 69 EMIT ;
: WITHIN OVER - >R - R> U< ;
: VALUE CREATE , DOES> @ ;
: CHARS 2* ;
: COMPARE S= 0<> ;
: MS 0 DO LOOP ;
: PERFORM @ EXECUTE ;
: -ROT ROT ROT ;
: PMOD DUP -ROT MOD DUP 0< IF + ELSE NIP THEN ;
: STRDUMP OVER 0 DO DUP I SWAP MOD 0= IF CR ELSE THEN -ROT C@+ .
ROT " " TYPE LOOP 2DROP ;

CLOCK
Code:
76 STRING LINEBUF 180 STRING SIDEBUF 84 STRING NBBUFSTR
32 STRING SEPBUFSTR 56 10 STRING-ARRAY NUMBCLO
" ##########    ####    ####    ####    ####    ##########"
1 NUMBCLO S!
"    ##      ##      ##      ##      ##      ##      ##   "
2 NUMBCLO S!
" ########      ##      ############      ##      ########"
3 NUMBCLO S!
" ########      ##      ## #######      ##      ##########"
4 NUMBCLO S!
" ##      ##      ##    ##########      ##      ##      ##"
5 NUMBCLO S!
" ##########      ##      ########      ##      ##########"
6 NUMBCLO S!
" ##########      ##      ##########    ####    ##########"
7 NUMBCLO S!
" ########      ##      ##      ##      ##      ##      ##"
8 NUMBCLO S!
" ##########    ####    ############    ####    ##########"
9 NUMBCLO S!
" ##########    ####    ##########      ##      ##########"
10 NUMBCLO S!
VARIABLE YY VARIABLE MM VARIABLE DD
: DATESET " DATE$" BASIC$ 2 LEFT$ VAL DROP YY ! PAD 1 CHARS +
COUNT DROP 8 4 5 SUB$ VAL DROP MM ! PAD 1 CHARS + COUNT DROP 8
2 RIGHT$ VAL DROP DD ! ;
VARIABLE TIMEHH VARIABLE TIMEMM VARIABLE TIMESS
VARIABLE TIMEHH-N VARIABLE TIMEMM-N VARIABLE TIMESS-N
: TIMEINIT -1 TIMEHH ! -1 TIMEMM ! -1 TIMESS ! ;
: TIMEUPDT TIME FTOI DUP 3600 / TIMEHH ! 3600 MOD DUP 60 /
TIMEMM ! 60 MOD TIMESS ! ;
: TIMEUPDT-N TIME FTOI DUP 3600 / TIMEHH-N ! 3600 MOD DUP 60 /
TIMEMM-N ! 60 MOD TIMESS-N ! ;
: CLEARSTR  DROP DUP 1 CHARS - 0 SWAP C! 0 ;
72 STRING LCLO
" +----------------------------------------------------------------------+"
LCLO S!
: DRAW-LINES  LINEBUF CLEARSTR 1 1 AT-XY<BF LCLO S<& OUTPUT
LINEBUF CLEARSTR 1 11 AT-XY<BF LCLO S<& OUTPUT LINEBUF CLEARSTR
1 21 AT-XY<BF LCLO S<& OUTPUT ;
: DRAW-SIDES SIDEBUF CLEARSTR 11 2 DO 1 I AT-XY<BF " |" S<& 72
I AT-XY<BF " |" S<& LOOP 21 12 DO 1 I AT-XY<BF " |" S<& 72 I
AT-XY<BF " |" S<& LOOP OUTPUT ;
: DRAW-FRAMEC DRAW-LINES DRAW-SIDES ;
: DRAW-SEP  SEPBUFSTR CLEARSTR 24 6 AT-XY<BF " ##" S<& 48 6
AT-XY<BF " ##" S<& 25 15 AT-XY<BF " #" S<& 49 15 AT-XY<BF " #"
S<& 25 17 AT-XY<BF " #" S<& 49 17 AT-XY<BF " #" S<& OUTPUT ;
: OUTNB NBBUFSTR CLEARSTR ROT 1 + NUMBCLO 2SWAP 8 1 DO 6 PICK
6 PICK I + 1 - AT-XY<BF 2OVER I 1 - 8 * 1 + I 8 * SUB$ S<& LOOP
2NIP 2NIP OUTPUT ;
: DRAW-DATE 4 3 YY @ 10 / OUTNB  14 3 YY @ 10 MOD OUTNB 28 3 MM
@ 10 / OUTNB  38 3 MM @ 10 MOD OUTNB 52 3 DD @ 10 / OUTNB  62 3
DD @ 10 MOD OUTNB ;
: UPDATE-SS TIMESS-N @ 10 / DUP TIMESS @ 10 / <> IF 52 13 ROT
OUTNB ELSE DROP THEN TIMESS-N @ 10 MOD DUP TIMESS @ 10 MOD <>
IF 62 13 ROT OUTNB ELSE DROP THEN ;
: UPDATE-MM TIMEMM-N @ 10 / DUP TIMEMM @ 10 / <> IF 28 13
ROT OUTNB ELSE DROP THEN TIMEMM-N @ 10 MOD DUP TIMEMM @ 10 MOD
<> IF 38 13 ROT OUTNB ELSE DROP THEN ;
: UPDATE-HH TIMEHH-N @ 10 / DUP TIMEHH @ 10 / <> IF 4 13 ROT
OUTNB ELSE DROP THEN TIMEHH-N @ 10 MOD DUP TIMEHH @ 10 MOD <>
IF 14 13 ROT OUTNB ELSE DROP THEN ;
: INITCLO DELAY00 PAGE DRAW-FRAMEC DRAW-SEP DATESET DRAW-DATE
TIMEINIT TIMEUPDT-N UPDATE-SS UPDATE-MM UPDATE-HH ;
: UPDATE-CLOCK TIMEUPDT-N TIMEHH @ TIMEHH-N @ <> IF UPDATE-HH
UPDATE-MM UPDATE-SS TIMEHH-N @ TIMEHH ! TIMEMM-N @ TIMEMM !
TIMESS-N @ TIMESS ! ELSE TIMEMM @ TIMEMM-N @ <> IF UPDATE-MM
UPDATE-SS TIMEMM-N @ TIMEMM ! TIMESS-N @ TIMESS ! ELSE TIMESS @
TIMESS-N @ <> IF UPDATE-SS TIMESS-N @ TIMESS ! ELSE THEN THEN
THEN ;
: RETIMELO BEGIN UPDATE-CLOCK ?TERMINAL IF KEY DUP 69 <> IF
101 <> IF FALSE ELSE TRUE THEN ELSE DROP TRUE THEN ELSE FALSE
THEN UNTIL ;
: STARTCLO INITCLO RETIMELO ;

This was worked out on a cross-development based on gforth. Presentation of details planned so far for Allschwill 2024. An additional layer for retranscription of HP71B word into gforth words was necessary (subject still in development; so far all float, integer, string words retranscriptions available).

words in FORTHRAM
LIST
Code:
STARTCLO
RETIMELO
UPDATE-CLOCK
INITCLO
UPDATE-HH
UPDATE-MM
UPDATE-SS
DRAW-DATE
OUTNB
DRAW-SEP
DRAW-FRAMEC
DRAW-SIDES
DRAW-LINES
LCLO
CLEARSTR
TIMEUPDT-N
TIMEUPDT
TIMEINIT
TIMESS-N
TIMEMM-N
TIMEHH-N
TIMESS
TIMEMM
TIMEHH
DATESET
DD
MM
YY
NUMBCLO
SEPBUFSTR
NBBUFSTR
SIDEBUF
LINEBUF
STRDUMP
PMOD
-ROT
PERFORM
MS
COMPARE
CHARS
VALUE
WITHIN
PAGE
OFF
ON
N>$
NIP
CHAR
CHAR-
CHAR+
CELL-
CELL+
CELLS
BLANK
AT-XY<BF
AT-XY
2NIP
2VARIABLE
2CONSTANT
2@
2!
2,
D=
D0=
.R
0<>
>=
FALSE
TRUE
CELLV
TIMED
SKIP
PRINT
FINDW
FSCRATCH
LIST
BREAK
FINISH
CONT
BP
STEP
READYSTEP
SST
SSTOUT
SSTERROR
NEWRTN
RTNSAVE
RS.
UN:
UN:C
WORD@
WORDNAME
FTEMP
"STR
+ADDR
5SP
'END
HERE0
ENDA
HEREN
'NAME
SPEC?
SPECIAL
NFASTR
NAME
NFA
ADDR-
S.
ROOM?
D-R
D-D
D-*
D-P
DELAY00
BASE?
SHOW
DUMP+
DUMP
N-A
PAUSE
PAUSELEN
TIME
BRRUN
DOSST
TIME

UPDATE 29Nov2023. When using the HP71B hardware (and ILPER and VIDEO), initialize the variable PRIMARY to zero with 0 PRIMARY ! (else it will put the data into the corresponding device like printer or others which are in the loop)


Attached File(s) Thumbnail(s)
   

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: