...

Author: chitselb

doc/sizes.csv0

@@ -104,8 +104,8 @@ docconst
     sta tos
     pla
     sta tos+1
-    jsr inctos
-    jmp fetch01
+    ldy #1
+    bne fetch01
 
 ;--------------------------------------------------------------
 #if 0
@@ -137,7 +137,6 @@ put0a
 name=M>R
 stack=( count addr -- )
 tags=primitive,extra,memory
-beginning at `addr`, push `count` bytes to return stack.  `count` must be even.
 
 mtor
     ldy #0
@@ -263,6 +262,7 @@ put
     sta tos
 puty
     sty tos+1
+put99
     jmp next
 
 ;--------------------------------------------------------------
@@ -319,7 +319,7 @@ tags=forth-79,nucleus,memory,forth-83
 #endif
 cfetch
     clc
-    .byt $29
+    .byt $29                    ; AND #
     ; fall through
 ;--------------------------------------------------------------
 #if 0
@@ -334,8 +334,8 @@ Leave the 16 bit contents of address.
 fetch
     sec
     ;
-fetch01
     ldy #0
+fetch01
     lda (tos),y
     bcc put
     pha
@@ -403,9 +403,11 @@ rfrom
     jsr slip
 rput
     pla
-    sta tos
+    tay
     pla
+putay
     sta tos+1
+    sty tos
 rput99
     jmp next
 
@@ -621,6 +623,9 @@ stack=( -- )
 tags=inner,nosymbol
 Displays an inline string
 
+~todo: fix bug where a string followed by a 1-byte pad crashes `(.")`
+when target address is $xxFF then it needs to become $(xx+1)00
+
 ```
 : (.")
     r> count 2dup type  >6502  ( `;code` instead? )
@@ -1288,8 +1293,11 @@ j
 name=PADAY
 tags=inner,subroutine,nosymbol
 stack=( -- )
-subroutine to add a (properly paged) value to offset IP, result returned in AY
+add a page-adjusted offset to IP
 
+```
+AY 		new IP
+```
 #endif
 paday
     sec             ;[2]        ; A+1 = offset to be added to IP

doc/sizes.csv1

@@ -525,10 +525,6 @@ neg2
     eor #$FF
     adc #0
     sta tos
-;    .byt $29
-;eorff00
-;    clc                         ; set upper byte of tos =$FF
-    ;
     lda tos+1
     eor #$FF
     adc #0
@@ -2237,6 +2233,7 @@ stack=( -- r )
 tags=nucleus
 
  return a random number in the range 0..65535
+ from the [[First Book of KIM-1|http://users.telenet.be/kim1-6502/6502/fbok.html]]
 
 #endif
 rnd
@@ -2255,7 +2252,7 @@ tags=nucleus
 #endif
 randuc
     ldy #0
-    ;
+randu2
     jsr randu
     jmp pushya
 
@@ -2780,7 +2777,7 @@ e.g.
 
 
 ```
-: >bit   ( bit# base -- mask addr )
+: >bit   ( bit# base -- mask offset )
         over 7 and power2 + c@ -rot
         swap 2/ 2/ 2/ + ;
 
@@ -2893,7 +2890,6 @@ storeplus
     sta (tos),y
     jmp twoplus
 ;[21]
-
 ```
 #endif
 #include "align.i65"

doc/sizes.csv2

@@ -19,16 +19,16 @@ name=B/SCR
 stack=( -- 1000 )
 tags=const,vm
 !!!Constant
-bytes per screen.  Not what it usually means in other Forths,
-
- |model|b/scr|h
- |PET|1000|
- |PET 8032|2000|
- |VIC-20|512|
- |C=64|1000|
- |C128|1000|
- |Plus/4|1000|
-
+bytes per screen.  In other Forths, this word often has a different meaning of blocks per screen
+
+|^model|^b/scr|h
+|^PET|^1000|
+|^PET 8032|^2000|
+|^VIC-20|^512|
+|^C=64|^1000|
+|^C128|^1000|
+|^Plus/4|^1000|
+|^Other Forths*|^1|
 #endif
 bperscr
     jsr doconst
@@ -40,11 +40,7 @@ name=CAS1BUF
 stack=( -- $027A )
 tags=const,vm
 !!!Constant
-Address of the first tape buffer (device #1)
-#endif
-cas1buf
-    jsr doconst
-    .word CAS1BUF
+bytes per screen.  In other Forths, this word often has a different meaning of blocks per screen
 
 ;--------------------------------------------------------------
 #if 0
@@ -56,9 +52,9 @@ Address of the second tape buffer (device #2)
 base address of cassette buffer #2, used (for now) as a line buffer
 to unpack screens and blocks into lines
 #endif
-cas2buf
+ cas2buf
     jsr doconst
-#ifdef IS_PET
+ #ifdef IS_PET
     .word CAS2BUF
 #else
     .word CAS1BUF
@@ -97,9 +93,9 @@ blkbuf02
     sbc #4                      ; -1K  ~8032
 pusha0
     tay
+pushy0
     lda #0
     jmp pushya
-;[17] -1 20191019cah
 
 ;--------------------------------------------------------------
 #if 0
@@ -382,7 +378,7 @@ _pktsize
 #if 0
 name=PKT.THIS
 stack=( -- pkt size )
-tags=vm,ext
+tags=vm,ext,nosymbol
 Return header address and size for current packet in `n8`
 
 ```

doc/sizes.csv3

@@ -271,49 +271,49 @@ Initialization and storage area for User Variables
 #endif
 userarea
 ; ---- initialization values per each `cold`
-user0base       .word 10        ;                                          8-bit
-user0filename   .word currname+3 ;1 counted string, default "PETTILPACKETS"     16-bit
-user0sanum      .word 0         ;2 default secondary address is 0, (PRG file)    8-bit
-user0drvnum     .word 1         ;3 default drive (datasette #1),          8-bit
+user0base       .word 10
+user0filename   .word currname+3 ;1 counted string, default "PETTILPACKETS"
+user0sanum      .word 0         ;2 default secondary address is 0, (PRG file)
+user0drvnum     .word 1         ;3 default drive (datasette #1),
 
 ; ---- UP points to here, all live user variables
 uarea
 ; ---- not re-initialized or initialized another way
-usersp0         .word bos+1     ; `abort` does `sp!`                      8-bit
-userrp0         .word $01FE     ; `quit` does `rp!`                       8-bit
-userirq         .word 0         ; see `=irq`                             16-bit
-userbrk         .word SW16      ; see `=brk` `!sw16`                     16-bit
-usernmi         .word 0         ; see `=nmi`                             16-bit
+usersp0         .word bos+1     ; `abort` does `sp!`
+userrp0         .word $01FE     ; `quit` does `rp!`
+userirq         .word 0         ; see `=irq`
+userbrk         .word SW16      ; see `=brk` `!sw16`
+usernmi         .word 0         ; see `=nmi`
 useriooper      .word 0         ; vector for external tape and disk I/O  16-bit
-userstartup     .word fencepost ;`studio` begins here                    16-bit
-userwarning     .word _doterr   ;1/ `studio` replaces `.err` with `error.msg`   16-bit
-userdp          .word fencepost ;                                        16-bit
-userfence       .word fencepost ;                                        16-bit
-usersymtab      .word 0         ;                                        16-bit
+userstartup     .word fencepost ;`studio` begins here
+userwarning     .word _doterr   ;1/ `studio` replaces `.err` with `error.msg`
+userdp          .word fencepost
+userfence       .word fencepost
+usersymtab      .word 0
 
 ucore
     .dsb uarea-userarea+80,$cc  ; storage for user variables
 
 ; ---- re-initialized by `cold`
-userbase        = ucore+0       ;                                         8-bit
-userfilename    = ucore+2       ;-> `(save-buffers)` reads 8 consecutive bytes  16-bit
-usersanum       = ucore+4       ;->                                       8-bit
-userdrvnum      = ucore+6       ;->                                       8-bit
+userbase        = ucore+0
+userfilename    = ucore+2
+usersanum       = ucore+4
+userdrvnum      = ucore+6
 
 ustart = ucore+8
-uservmbuf       = ustart+0      ;-> There is code that relies on adjacency of   16-bit
-usernumblk      = ustart+2      ;-> these sets of uservariables, so that bytes   8-bit
-userscr         = ustart+4      ;-> and clocks may be saved              16-bit
-userprev        = ustart+6      ;-> most recently referenced block       16-bit
-userblk         = ustart+8      ;->                                      16-bit
-userin          = ustart+10     ;->                                       8-bit
-userlin          = userin+1     ; upper byte is physical line counter     8-bit
-userspan        = ustart+12     ;->                                       8-bit
-usernumline     = ustart+14     ;->                                      16-bit
-usernumout      = ustart+16     ;->                                      16-bit
-userediting     = ustart+18     ;-> - `quit` erases 12 bytes at `blk`      flag
+uservmbuf       = ustart+0      ;1 There is code that relies on adjacency of
+usernumblk      = ustart+2      ;2 1 these sets of uservariables, so that bytes
+userscr         = ustart+4      ;3 2 and clocks may be saved
+userprev        = ustart+6      ;  3 most recently referenced block
+userblk         = ustart+8      ;1 4
+userin          = ustart+10     ;2                                        8-bit
+userlin          = userin+1     ; upper byte is physical line counter
+userspan        = ustart+12     ;3                                        8-bit
+usernumline     = ustart+14     ;4
+usernumout      = ustart+16     ;5
+userediting     = ustart+18     ;6 - `quit` erases 12 bytes at `blk`
 userdpl         = ustart+20     ;                                         8-bit
-userhld         = ustart+22     ;                                         8-bit
+userhld         = ustart+22     ;
 usercursor      = ustart+24     ;                                       6 bytes
 
 uendcore = ustart+30            ; mark our place for piggyback app's uservar base