F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 51

2013 * **** C! **** 2014 * ( N CADDR --- ) 2015 * HEAD FNUL,C!,CSTR 2016 001602 TLNK SET * 2017 01602 001303 VFD 1,0,1,FNUL,6,2,8,'303 2018 * =<FNUL,2>,'C' 2019 01603 020400 VFD 8,'041 ='!' 2020 01604 0 001575 DAC LINK 2021 001602 LINK SET TLNK 2022 001605 CSTR EQU * 2023 01605 1 02 00002 LDA 2,1 2024 01606 000201 IAB 2025 01607 1 02 00001 LDA 1,1 2026 01610 0 10 00176 JST CHPT 2027 01611 0 01 00112 JMP POP2 2028 * **** BYTE **** 2029 * ( A --- CADDR) GET BYTE ADDRESS FROM WORD ADDRESS 2030 * HEAD FNUL,BYTE,BYTE 2031 001612 TLNK SET * 2032 01612 002302 VFD 1,0,1,FNUL,6,4,8,'302 2033 * =<FNUL,4>,'B' 2034 01613 154724 BCI 1,YT 2035 01614 042400 VFD 8,'105 ='E' 2036 01615 0 001602 DAC LINK 2037 001612 LINK SET TLNK 2038 001616 BYTE EQU * 2039 01616 1 02 00001 LDA 1,1 2040 01617 0414 77 LGL 1 2041 01620 0 01 00125 JMP PUT 2042 * **** CELL **** 2043 * ( CADDR --- A) GET WORD ADDRESS FROM BYTE ADDRESS 2044 * HEAD FNUL,CELL,CELL 2045 001621 TLNK SET * 2046 01621 002303 VFD 1,0,1,FNUL,6,4,8,'303 2047 * =<FNUL,4>,'C' 2048 01622 142714 BCI 1,EL 2049 01623 046000 VFD 8,'114 ='L' 2050 01624 0 001612 DAC LINK 2051 001621 LINK SET TLNK 2052 001625 CELL EQU * 2053 01625 1 02 00001 LDA 1,1 2054 01626 0404 77 LGR 1 2055 01627 0 01 00125 JMP PUT 2056 EJCT