API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 3rd, 2012
117
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
6502 ACME Cross Assembler 51.06 KB | None | 0 0
raw download clone embed print report
  1. ; Замены в тексте меток:
  2. ; .     dot
  3. ; ?     q
  4. ; !     excl
  5. ; '     quote
  6. ; "     double_quote
  7. ; ]     close_br
  8. ; [     open_br
  9. ; +     plus
  10. ; -     minus
  11. ; >     gr
  12. ; <     le
  13. ; >>    rshift
  14. ; <<    lshift
  15. ; @     at
  16. ; *     mul
  17. ; /     forwardslash
  18. ; \     backslash
  19. ; (     open_parenthesis
  20. ; )     close_parenthesis
  21. ; =     eq
  22. ; ,     comma
  23. ; ;     semicolon
  24.  
  25. !to "1.img",plain
  26. !cpu 65el02
  27. *=0x500
  28.     CLC
  29.     XCE
  30.     REP #$30
  31.     !al
  32.     !rl
  33.     LDA #$0300
  34.     MMU #$01
  35.     MMU #$02
  36.     LDA #$0400
  37.     MMU #$03
  38.     MMU #$04
  39.     LDA #$0500
  40.     MMU #$06
  41.     JMP label_COLD
  42.  
  43. !tx 0x00, "DOCON", 0x00, 0x00
  44. !word 0x0000
  45. -
  46. label_DOCON
  47.     TIX
  48.     LDA $00,x
  49.     PHA
  50.     RLI
  51.     NXT
  52.  
  53. !tx 0x00, "DOVAR", 0x00, 0x00
  54. !word -
  55. -
  56. label_DOVAR
  57.     TIX
  58.     PHX
  59.     RLI
  60.     NXT
  61.  
  62. !tx 0x00, "DODOES", 0x00, 0x00
  63. !word -
  64. -
  65. label_DODOES
  66.     RLX
  67.     PHX
  68.     NXT
  69.  
  70. !tx 0x00, "(lit)", 0x00, 0x00
  71. !word -
  72. -
  73. label_int_lit
  74.     NXA
  75.     PHA
  76.     NXT
  77.  
  78. !tx 0x00, "EXIT", 0x00, 0x00
  79. !word -
  80. -
  81. label_EXIT
  82.     RLI
  83.     NXT
  84.  
  85. !tx 0x00, "(branch)", 0x00, 0x00
  86. !word -
  87. -
  88. label_int_branch
  89.     NXA
  90.     TAX
  91.     TXI
  92.     NXT
  93.  
  94. !tx 0x00, "(?branch)", 0x00, 0x00
  95. !word -
  96. -
  97. label_int_q_branch
  98.     PLA
  99.     NXA
  100.     BNE int_q_branch1
  101.     TAX
  102.     TXI
  103. int_q_branch1
  104.     NXT
  105.  
  106. !tx 0x00, "(do)", 0x00, 0x00
  107. !word -
  108. -
  109. label_int_do
  110.     NXA
  111.     LDA $02,s
  112.     RHA
  113.     PLA
  114.     SEC
  115.     SBC $00,s
  116.     RHA
  117.     PLA
  118.     NXT
  119.  
  120. !tx 0x00, "(?do)", 0x00, 0x00
  121. !word -
  122. -
  123. label_int_q_do
  124.     NXA
  125.     TAX
  126.     LDA $02,s
  127.     RHA
  128.     PLA
  129.     SEC
  130.     SBC $00,s
  131.     BEQ int_q_do1
  132.     RHA
  133.     PLA
  134.     NXT
  135. int_q_do1
  136.     RLA
  137.     PLA
  138.     TXI
  139.     NXT
  140.  
  141. !tx 0x00, "(loop)", 0x00, 0x00
  142. !word -
  143. -
  144. label_int_loop
  145.     NXA
  146.     TAX
  147.     LDA $00,r
  148.     inc
  149.     EOR $00,r
  150.     BIT #$8000
  151.     BNE int_loop1
  152.     TXI
  153. int_loop1
  154.     LDA $00,r
  155.     inc
  156.     STA $00,r
  157.     NXT
  158.  
  159. !tx 0x00, "(+loop)", 0x00, 0x00
  160. !word -
  161. -
  162. label_int_plus_loop
  163.     NXA
  164.     TAX
  165.     LDA $00,s
  166.     CLC
  167.     ADC $00,r
  168.     EOR $00,r
  169.     BIT #$8000
  170.     BNE int_plus_loop1
  171.     TXI
  172. int_plus_loop1
  173.     CLC
  174.     PLA
  175.     ADC $00,r
  176.     STA $00,r
  177.     NXT
  178.  
  179. !tx 0x00, "(leave)", 0x00, 0x00
  180. !word -
  181. -
  182. label_int_leave
  183.     RLA
  184.     RLA
  185.     NXA
  186.     TAY
  187.     LDX $00,y
  188.     TXI
  189.     TXA
  190.     NXT
  191.  
  192. !tx 0x00, "UNLOOP", 0x00, 0x00
  193. !word -
  194. -
  195. label_UNLOOP
  196.     RLA
  197.     RLA
  198.     NXT
  199.  
  200. !tx 0x00, "I", 0x00, 0x00
  201. !word -
  202. -
  203. label_I
  204.     LDA $00,r
  205.     CLC
  206.     ADC $02,r
  207.     PHA
  208.     NXT
  209.  
  210. !tx 0x00, "J", 0x00, 0x00
  211. !word -
  212. -
  213. label_J
  214.     LDA $04,r
  215.     CLC
  216.     ADC $06,r
  217.     PHA
  218.     NXT
  219.  
  220. !tx 0x00, "EXECUTE", 0x00, 0x00
  221. !word -
  222. -
  223. label_EXECUTE
  224.     PLX
  225.     DEX
  226.     PHX
  227.     RTS
  228.  
  229. !tx 0x00, "DUP", 0x00, 0x00
  230. !word -
  231. -
  232. label_DUP
  233.     LDA $00,s
  234.     PHA
  235.     NXT
  236.  
  237. !tx 0x00, "?DUP", 0x00, 0x00
  238. !word -
  239. -
  240. label_q_DUP
  241.     LDA $00,s
  242.     BEQ q_dup1
  243.     PHA
  244. q_dup1
  245.     NXT
  246.  
  247. !tx 0x00, "2DUP", 0x00, 0x00
  248. !word -
  249. -
  250. label_2DUP
  251.     LDA $02,s
  252.     PHA
  253.     LDA $02,s
  254.     PHA
  255.     NXT
  256.  
  257. !tx 0x00, "DROP", 0x00, 0x00
  258. !word -
  259. -
  260. label_DROP
  261.     PLA
  262.     NXT
  263.  
  264. !tx 0x00, "2DROP", 0x00, 0x00
  265. !word -
  266. -
  267. label_2DROP
  268.     PLA
  269.     PLA
  270.     NXT
  271.  
  272. !tx 0x00, "SWAP", 0x00, 0x00
  273. !word -
  274. -
  275. label_SWAP
  276.     PLA
  277.     PLX
  278.     PHA
  279.     PHX
  280.     NXT
  281.  
  282. !tx 0x00, "PICK", 0x00, 0x00
  283. !word -
  284. -
  285. label_PICK
  286.     PLA
  287.     CLC
  288.     rol
  289.     CLC
  290.     ADC #$0002
  291.     PHA
  292.     TSX
  293.     TXY
  294.     LDA ($00,s),y
  295.     STA $00,s
  296.     NXT
  297.  
  298. !tx 0x00, "OVER", 0x00, 0x00
  299. !word -
  300. -
  301. label_OVER
  302.     LDA $02,s
  303.     PHA
  304.     NXT
  305.  
  306. !tx 0x00, "2OVER", 0x00, 0x00
  307. !word -
  308. -
  309. label_2OVER
  310.     LDA $04,s
  311.     PHA
  312.     NXT
  313.  
  314. !tx 0x00, "ROT", 0x00, 0x00
  315. !word -
  316. -
  317. label_ROT
  318.     PLA
  319.     PLX
  320.     PLY
  321.     PHX
  322.     PHA
  323.     PHY
  324.     NXT
  325.  
  326. !tx 0x00, "2SWAP", 0x00, 0x00
  327. !word -
  328. -
  329. label_2SWAP
  330.     LDA $06,s
  331.     TAX
  332.     LDA $02,s
  333.     STA $06,s
  334.     TXA
  335.     STA $02,s
  336.     LDA $04,s
  337.     TAX
  338.     LDA $00,s
  339.     STA $04,s
  340.     TXA
  341.     STA $00,s
  342.     NXT
  343.  
  344. !tx 0x00, "-ROT", 0x00, 0x00
  345. !word -
  346. -
  347. label_minus_ROT
  348.     PLA
  349.     PLX
  350.     PLY
  351.     PHA
  352.     PHY
  353.     PHX
  354.     NXT
  355.  
  356. !tx 0x00, "NIP", 0x00, 0x00
  357. !word -
  358. -
  359. label_NIP
  360.     PLA
  361.     PLX
  362.     PHA
  363.     NXT
  364.  
  365. !tx 0x00, "TUCK", 0x00, 0x00
  366. !word -
  367. -
  368. label_TUCK
  369.     PLA
  370.     PLX
  371.     PHA
  372.     PHX
  373.     PHA
  374.     NXT
  375.  
  376. !tx 0x00, ">R", 0x00, 0x00
  377. !word -
  378. -
  379. label_gr_R
  380.     PLA
  381.     RHA
  382.     NXT
  383.  
  384. !tx 0x00, "R>", 0x00, 0x00
  385. !word -
  386. -
  387. label_R_gr
  388.     RLA
  389.     PHA
  390.     NXT
  391.  
  392. !tx 0x00, "!", 0x00, 0x00
  393. !word -
  394. -
  395. label_excl
  396.     PLX
  397.     PLA
  398.     STA $00,x
  399.     NXT
  400.  
  401. !tx 0x00, "+!", 0x00, 0x00
  402. !word -
  403. -
  404. label_plus_excl
  405.     PLX
  406.     PLA
  407.     CLC
  408.     ADC $00,x
  409.     STA $00,x
  410.     NXT
  411.  
  412. !tx 0x00, "-!", 0x00, 0x00
  413. !word -
  414. -
  415. label_minus_excl
  416.     PLX
  417.     SEC
  418.     LDA $00,x
  419.     SBC $00,s
  420.     STA $00,x
  421.     PLA
  422.     NXT
  423.  
  424. !tx 0x00, "C!", 0x00, 0x00
  425. !word -
  426. -
  427. label_C_excl
  428.     PLX
  429.     PLA
  430.     SEP #$20
  431.     !as
  432.     STA $00,x
  433.     REP #$20
  434.     !al
  435.     NXT
  436.  
  437. !tx 0x00, "@", 0x00, 0x00
  438. !word -
  439. -
  440. label_at
  441.     PLX
  442.     LDA $00,x
  443.     PHA
  444.     NXT
  445.  
  446. !tx 0x00, "C@", 0x00, 0x00
  447. !word -
  448. -
  449. label_C_at
  450.     PLX
  451.     SEP #$20
  452.     !as
  453.     LDA $00,x
  454.     ZEA
  455.     REP #$20
  456.     !al
  457.     PHA
  458.     NXT
  459.  
  460. !tx 0x00, "+", 0x00, 0x00
  461. !word -
  462. -
  463. label_plus
  464.     PLA
  465.     CLC
  466.     ADC $00,s
  467.     STA $00,s
  468.     NXT
  469.  
  470. !tx 0x00, "-", 0x00, 0x00
  471. !word -
  472. -
  473. label_minus
  474.     LDA $02,s
  475.     SEC
  476.     SBC $00,s
  477.     STA $02,s
  478.     PLA
  479.     NXT
  480.  
  481. !tx 0x00, "M*", 0x00, 0x00
  482. !word -
  483. -
  484. label_M_mul
  485.     PLA
  486.     TSX
  487.     SEC
  488.     MUL $00,x
  489.     PLX
  490.     PHA
  491.     PHD
  492.     NXT
  493.  
  494. !tx 0x00, "UM*", 0x00, 0x00
  495. !word -
  496. -
  497. label_UM_mul
  498.     PLA
  499.     TSX
  500.     CLC
  501.     MUL $00,x
  502.     PLX
  503.     PHA
  504.     PHD
  505.     NXT
  506.  
  507. !tx 0x00, "*", 0x00, 0x00
  508. !word -
  509. -
  510. label_mul
  511.     PLA
  512.     TSX
  513.     SEC
  514.     MUL $00,x
  515.     PLX
  516.     PHA
  517.     NXT
  518.  
  519. !tx 0x00, "U*", 0x00, 0x00
  520. !word -
  521. -
  522. label_U_mul
  523.     PLA
  524.     TSX
  525.     CLC
  526.     MUL $00,x
  527.     PLX
  528.     PHA
  529.     NXT
  530.  
  531. !tx 0x00, "SM/REM", 0x00, 0x00
  532. !word -
  533. -
  534. label_SM_forwardslash_REM
  535.     PLX
  536.     PLD
  537.     PLA
  538.     PHX
  539.     TSX
  540.     SEC
  541.     DIV $00,x
  542.     PLX
  543.     PHD
  544.     PHA
  545.     NXT
  546.  
  547. !tx 0x00, "FM/MOD", 0x00, 0x00
  548. !word -
  549. -
  550. label_FM_forwardslash_MOD
  551.     PLX
  552.     PLD
  553.     PLA
  554.     PHX
  555.     TSX
  556.     SEC
  557.     DIV $00,x
  558.     PLX
  559.     PHD
  560.     PHA
  561.     TDA
  562.     BEQ fm_mod2
  563.     PHX
  564.     EOR $00,s
  565.     BIT #$8000
  566.     BEQ fm_mod1
  567.     PLA
  568.     CLC
  569.     ADC $02,s
  570.     STA $02,s
  571.     TSX
  572.     DEC $00,x
  573. fm_mod2
  574.     NXT
  575. fm_mod1
  576.     PLX
  577.     NXT
  578.  
  579. !tx 0x00, "UM/MOD", 0x00, 0x00
  580. !word -
  581. -
  582. label_UM_forwardslash_MOD
  583.     PLX
  584.     PLD
  585.     PLA
  586.     PHX
  587.     TSX
  588.     CLC
  589.     DIV $00,x
  590.     PLX
  591.     PHD
  592.     PHA
  593.     NXT
  594.  
  595. !tx 0x00, "2*", 0x00, 0x00
  596. !word -
  597. -
  598. label_2_mul
  599.     PLA
  600.     CLC
  601.     rol
  602.     PHA
  603.     NXT
  604.  
  605. !tx 0x00, "2/", 0x00, 0x00
  606. !word -
  607. -
  608. label_2_forwardslash
  609.     LDA $00,s
  610.     rol
  611.     PLA
  612.     ror
  613.     PHA
  614.     NXT
  615.  
  616. !tx 0x00, "U>>", 0x00, 0x00
  617. !word -
  618. -
  619. label_U_rshift
  620.     PLY
  621.     PLA
  622. u_rshift1
  623.     CLC
  624.     ror
  625.     DEY
  626.     BNE u_rshift1
  627.     PHA
  628.     NXT
  629.  
  630. !tx 0x00, "<<", 0x00, 0x00
  631. !word -
  632. -
  633. label_lshift
  634.     PLY
  635.     PLA
  636.     CPY #$0000
  637.     BEQ lshift2
  638. lshift1
  639.     CLC
  640.     rol
  641.     DEY
  642.     BNE lshift1
  643. lshift2
  644.     PHA
  645.     NXT
  646.  
  647. !tx 0x00, "AND", 0x00, 0x00
  648. !word -
  649. -
  650. label_AND
  651.     PLA
  652.     AND $00,s
  653.     STA $00,s
  654.     NXT
  655.  
  656. !tx 0x00, "OR", 0x00, 0x00
  657. !word -
  658. -
  659. label_OR
  660.     PLA
  661.     ORA $00,s
  662.     STA $00,s
  663.     NXT
  664.  
  665. !tx 0x00, "XOR", 0x00, 0x00
  666. !word -
  667. -
  668. label_XOR
  669.     PLA
  670.     EOR $00,s
  671.     STA $00,s
  672.     NXT
  673.  
  674. !tx 0x00, "INVERT", 0x00, 0x00
  675. !word -
  676. -
  677. label_INVERT
  678.     PLA
  679.     EOR #$FFFF
  680.     PHA
  681.     NXT
  682.  
  683. !tx 0x00, "NEGATE", 0x00, 0x00
  684. !word -
  685. -
  686. label_NEGATE
  687.     PLA
  688.     EOR #$FFFF
  689.     inc
  690.     PHA
  691.     NXT
  692.  
  693. !tx 0x00, "1+", 0x00, 0x00
  694. !word -
  695. -
  696. label_1_plus
  697.     PLA
  698.     inc
  699.     PHA
  700.     NXT
  701.  
  702. !tx 0x00, "1-", 0x00, 0x00
  703. !word -
  704. -
  705. label_1_minus
  706.     PLA
  707.     dec
  708.     PHA
  709.     NXT
  710.  
  711. !tx 0x00, "SP@", 0x00, 0x00
  712. !word -
  713. -
  714. label_SP_at
  715.     TSX
  716.     PHX
  717.     NXT
  718.  
  719. !tx 0x00, "SP!", 0x00, 0x00
  720. !word -
  721. -
  722. label_SP_excl
  723.     PLX
  724.     TXS
  725.     NXT
  726.  
  727. !tx 0x00, "RP@", 0x00, 0x00
  728. !word -
  729. -
  730. label_RP_at
  731.     TRX
  732.     PHX
  733.     NXT
  734.  
  735. !tx 0x00, "RP!", 0x00, 0x00
  736. !word -
  737. -
  738. label_RP_excl
  739.     PLX
  740.     TXR
  741.     NXT
  742.  
  743. !tx 0x00, "0=", 0x00, 0x00
  744. !word -
  745. -
  746. label_0_eq
  747.     PLA
  748.     BEQ _0_eq1
  749.     PEA $0000
  750.     NXT
  751. _0_eq1
  752.     PEA $FFFF
  753.     NXT
  754.  
  755. !tx 0x00, "0<>", 0x00, 0x00
  756. !word -
  757. -
  758. label_0_le_gr
  759.     PLA
  760.     BEQ _0_le_gr1
  761.     PEA $FFFF
  762.     NXT
  763. _0_le_gr1
  764.     PHA
  765.     NXT
  766.  
  767. !tx 0x00, "0<", 0x00, 0x00
  768. !word -
  769. -
  770. label_0_le
  771.     PLA
  772.     BMI _0_le1
  773.     PEA $0000
  774.     NXT
  775. _0_le1
  776.     PEA $FFFF
  777.     NXT
  778.  
  779. !tx 0x00, "<>", 0x00, 0x00
  780. !word -
  781. -
  782. label_le_gr
  783.     PLA
  784.     CMP $00,s
  785.     BEQ le_gr1
  786.     PLA
  787.     PEA $FFFF
  788.     NXT
  789. le_gr1
  790.     PLA
  791.     PEA $0000
  792.     NXT
  793.  
  794. !tx 0x00, "<", 0x00, 0x00
  795. !word -
  796. -
  797. label_le
  798.     PLA
  799.     CMP $00,s
  800.     BMI le1
  801.     BEQ le1
  802.     PLA
  803.     PEA $FFFF
  804.     NXT
  805. le1
  806.     PLA
  807.     PEA $0000
  808.     NXT
  809.  
  810. !tx 0x00, ">", 0x00, 0x00
  811. !word -
  812. -
  813. label_gr
  814.     PLA
  815.     CMP $00,s
  816.     BMI gr1
  817.     PLA
  818.     PEA $0000
  819.     NXT
  820. gr1
  821.     PLA
  822.     PEA $FFFF
  823.     NXT
  824.  
  825. !tx 0x00, "U<", 0x00, 0x00
  826. !word -
  827. -
  828. label_U_le
  829.     PLA
  830.     CMP $00,s
  831.     BCC u_le1
  832.     BEQ u_le1
  833.     PLA
  834.     PEA $FFFF
  835.     NXT
  836. u_le1
  837.     PLA
  838.     PEA $0000
  839.     NXT
  840.  
  841. !tx 0x00, "U>", 0x00, 0x00
  842. !word -
  843. -
  844. label_U_gr
  845.     PLA
  846.     CMP $00,s
  847.     BCC u_gr1
  848.     PLA
  849.     PEA $0000
  850.     NXT
  851. u_gr1
  852.     PLA
  853.     PEA $FFFF
  854.     NXT
  855.  
  856. !tx 0x00, "<=", 0x00, 0x00
  857. !word -
  858. -
  859. label_le_eq
  860.     PLA
  861.     CMP $00,s
  862.     BMI le_eq1
  863.     PLA
  864.     PEA $FFFF
  865.     NXT
  866. le_eq1
  867.     PLA
  868.     PEA $0000
  869.     NXT
  870.  
  871. !tx 0x00, ">=", 0x00, 0x00
  872. !word -
  873. -
  874. label_gr_eq
  875.     PLA
  876.     CMP $00,s
  877.     BMI gr_eq1
  878.     BEQ gr_eq1
  879.     PLA
  880.     PEA $0000
  881.     NXT
  882. gr_eq1
  883.     PLA
  884.     PEA $FFFF
  885.     NXT
  886.  
  887. !tx 0x00, "=", 0x00, 0x00
  888. !word -
  889. -
  890. label_eq
  891.     PLA
  892.     CMP $00,s
  893.     BEQ eq1
  894.     PLA
  895.     PEA $0000
  896.     NXT
  897. eq1
  898.     PLA
  899.     PEA $FFFF
  900.     NXT
  901.  
  902. !tx 0x00, "CELL", 0x00, 0x00
  903. !word -
  904. -
  905. label_CELL
  906.     PEA $0002
  907.     NXT
  908.  
  909. !tx 0x00, "CELLS", 0x00, 0x00
  910. !word -
  911. -
  912. label_CELLS
  913.     PLA
  914.     CLC
  915.     rol
  916.     PHA
  917.     NXT
  918.  
  919. !tx 0x00, "MAX", 0x00, 0x00
  920. !word -
  921. -
  922. label_MAX
  923.     PLA
  924.     CMP $00,s
  925.     BMI max1
  926.     STA $00,s
  927. max1
  928.     NXT
  929.  
  930. !tx 0x00, "MIN", 0x00, 0x00
  931. !word -
  932. -
  933. label_MIN
  934.     PLA
  935.     CMP $00,s
  936.     BPL min1
  937.     STA $00,s
  938. min1
  939.     NXT
  940.  
  941. !tx 0x00, "MOVE", 0x00, 0x00
  942. !word -
  943. -
  944. label_MOVE
  945.     RHI
  946.     PLA
  947.     PLY
  948.     PLX
  949.     TXI
  950.     TYX
  951.     TAY
  952.     BEQ move2
  953.     SEP #$20
  954.     !as
  955. move1
  956.     NXA
  957.     STA $00,x
  958.     INX
  959.     DEY
  960.     BNE move1
  961.     REP #$20
  962.     !al
  963. move2
  964.     RLI
  965.     NXT
  966.  
  967. !tx 0x00, "FILL", 0x00, 0x00
  968. !word -
  969. -
  970. label_FILL
  971.     PLA
  972.     PLY
  973.     PLX
  974.     CPY #$0000
  975.     BEQ fill2
  976.     SEP #$20
  977.     !as
  978. fill1
  979.     STA $00,x
  980.     INX
  981.     DEY
  982.     BNE fill1
  983.     REP #$20
  984.     !al
  985. fill2
  986.     NXT
  987.  
  988. !tx 0x00, "MEMCMP", 0x00, 0x00
  989. !word -
  990. -
  991. label_MEMCMP
  992.     RHI
  993.     PLA
  994.     PLY
  995.     PLX
  996.     TXI
  997.     TYX
  998.     TAY
  999.     BEQ memcmp4
  1000.     SEP #$20
  1001.     !as
  1002. memcmp2
  1003.     NXA
  1004.     CMP $00,x
  1005.     BNE memcmp3
  1006.     INX
  1007.     DEY
  1008.     BNE memcmp2
  1009.     REP #$20
  1010.     !al
  1011. memcmp4
  1012.     RLI
  1013.     PEA $0000
  1014.     NXT
  1015. memcmp3
  1016.     REP #$20
  1017.     !al
  1018.     RLI
  1019.     BMI memcmp1
  1020.     PEA $0001
  1021.     NXT
  1022. memcmp1
  1023.     PEA $FFFF
  1024.     NXT
  1025.  
  1026. !tx 0x00, "STRLEN", 0x00, 0x00
  1027. !word -
  1028. -
  1029. label_STRLEN
  1030.     LDA $00,s
  1031.     TAX
  1032.     LDA #$0000
  1033.     SEP #$20
  1034.     !as
  1035. strlen1
  1036.     CMP $00,x
  1037.     BEQ strlen2
  1038.     INX
  1039.     BRA strlen1
  1040. strlen2
  1041.     REP #$20
  1042.     !al
  1043.     TXA
  1044.     SEC
  1045.     SBC $00,s
  1046.     STA $00,s
  1047.     NXT
  1048.  
  1049. !tx 0x00, "RSTRLEN", 0x00, 0x00
  1050. !word -
  1051. -
  1052. label_RSTRLEN
  1053.     LDA $00,s
  1054.     TAX
  1055.     LDA #$0000
  1056.     SEP #$20
  1057.     !as
  1058. rstrlen1
  1059.     CMP $00,x
  1060.     BEQ rstrlen2
  1061.     DEX
  1062.     BRA rstrlen1
  1063. rstrlen2
  1064.     REP #$20
  1065.     !al
  1066.     PLA
  1067.     PHX
  1068.     SEC
  1069.     SBC $00,s
  1070.     STA $00,s
  1071.     NXT
  1072.  
  1073. !tx 0x00, "TRUE", 0x00, 0x00
  1074. !word -
  1075. -
  1076. label_TRUE
  1077.     ENT
  1078.     !word label_DOCON
  1079.     !word 0xFFFF
  1080.  
  1081.  
  1082. !tx 0x00, "FALSE", 0x00, 0x00
  1083. !word -
  1084. -
  1085. label_FALSE
  1086.     ENT
  1087.     !word label_DOCON
  1088.     !word 0x0000
  1089.  
  1090.  
  1091. !tx 0x00, "SCRATCH", 0x00, 0x00
  1092. !word -
  1093. -
  1094. label_SCRATCH
  1095.     ENT
  1096.     !word label_DOCON
  1097.     !word 0x0040
  1098.  
  1099.  
  1100. !tx 0x00, "TIB", 0x00, 0x00
  1101. !word -
  1102. -
  1103. label_TIB
  1104.     ENT
  1105.     !word label_DOCON
  1106.     !word 0x0080
  1107.  
  1108.  
  1109. !tx 0x00, "RADIX", 0x00, 0x00
  1110. !word -
  1111. -
  1112. label_RADIX
  1113.     ENT
  1114.     !word label_DOVAR
  1115.     !word 0x000A
  1116.  
  1117.  
  1118. !tx 0x00, "BL", 0x00, 0x00
  1119. !word -
  1120. -
  1121. label_BL
  1122.     ENT
  1123.     !word label_DOCON
  1124.     !word 0x0020
  1125.  
  1126. !tx 0x00, "UITOA", 0x00, 0x00
  1127. !word -
  1128. -
  1129. label_UITOA
  1130.     ENT
  1131.     !word label_SCRATCH
  1132.     !word label_int_lit
  1133.     !word 0x0014
  1134.     !word label_plus
  1135.     !word label_int_lit
  1136.     !word 0x0000
  1137.     !word label_OVER
  1138.     !word label_C_excl
  1139. uitoa1
  1140.     !word label_1_minus
  1141.     !word label_SWAP
  1142.     !word label_int_lit
  1143.     !word 0x0000
  1144.     !word label_RADIX
  1145.     !word label_at
  1146.     !word label_UM_forwardslash_MOD
  1147.     !word label_minus_ROT
  1148.     !word label_int_lit
  1149.     !word 0x0030
  1150.     !word label_plus
  1151.     !word label_DUP
  1152.     !word label_int_lit
  1153.     !word $0039
  1154.     !word label_gr
  1155.     !word label_int_q_branch
  1156.     !word uitoa2
  1157.     !word label_int_lit
  1158.     !word $0007
  1159.     !word label_plus
  1160. uitoa2
  1161.     !word label_OVER
  1162.     !word label_C_excl
  1163.     !word label_OVER
  1164.     !word label_0_eq
  1165.     !word label_int_q_branch
  1166.     !word uitoa1
  1167.     !word label_NIP
  1168.     !word label_EXIT
  1169.  
  1170. !tx 0x00, "WORD", 0x00, 0x00
  1171. !word -
  1172. -
  1173. label_WORD
  1174.     ENT
  1175. word5
  1176.     !word label_DUP
  1177.     !word label_C_at
  1178.     !word label_DUP
  1179.     !word label_int_lit
  1180.     !word $0020
  1181.     !word label_eq
  1182.     !word label_OVER
  1183.     !word label_int_lit
  1184.     !word $0009
  1185.     !word label_eq
  1186.     !word label_OR
  1187.     !word label_OVER
  1188.     !word label_int_lit
  1189.     !word $000A
  1190.     !word label_eq
  1191.     !word label_OR
  1192.     !word label_OVER
  1193.     !word label_int_lit
  1194.     !word $000D
  1195.     !word label_eq
  1196.     !word label_OR
  1197.     !word label_NIP
  1198.     !word label_int_q_branch
  1199.     !word word6
  1200.     !word label_1_plus
  1201.     !word label_int_branch
  1202.     !word word5
  1203. word6
  1204.     !word label_DUP
  1205.     !word label_C_at
  1206.     !word label_0_eq
  1207.     !word label_int_q_branch
  1208.     !word word3
  1209.     !word label_DUP
  1210.     !word label_EXIT
  1211. word3
  1212.     !word label_DUP
  1213. word7
  1214.     !word label_DUP
  1215.     !word label_C_at
  1216.     !word label_DUP
  1217.     !word label_int_lit
  1218.     !word $0020
  1219.     !word label_le_gr
  1220.     !word label_OVER
  1221.     !word label_0_le_gr
  1222.     !word label_AND
  1223.     !word label_OVER
  1224.     !word label_int_lit
  1225.     !word $0009
  1226.     !word label_le_gr
  1227.     !word label_AND
  1228.     !word label_OVER
  1229.     !word label_int_lit
  1230.     !word $000A
  1231.     !word label_le_gr
  1232.     !word label_AND
  1233.     !word label_OVER
  1234.     !word label_int_lit
  1235.     !word $000D
  1236.     !word label_le_gr
  1237.     !word label_AND
  1238.     !word label_NIP
  1239.     !word label_int_q_branch
  1240.     !word word2
  1241.     !word label_1_plus
  1242.     !word label_int_branch
  1243.     !word word7
  1244. word2
  1245.     !word label_DUP
  1246.     !word label_C_at
  1247.     !word label_int_q_branch
  1248.     !word word1
  1249.     !word label_int_lit
  1250.     !word $0000
  1251.     !word label_OVER
  1252.     !word label_C_excl
  1253.     !word label_1_plus
  1254. word1
  1255.     !word label_SWAP
  1256.     !word label_EXIT
  1257.  
  1258. !tx 0x00, "SPLIT", 0x00, 0x00
  1259. !word -
  1260. -
  1261. label_SPLIT
  1262.     ENT
  1263.     !word label_SWAP
  1264. split4
  1265.     !word label_OVER
  1266.     !word label_OVER
  1267.     !word label_C_at
  1268.     !word label_eq
  1269.     !word label_int_q_branch
  1270.     !word split5
  1271.     !word label_1_plus
  1272.     !word label_int_branch
  1273.     !word split4
  1274. split5
  1275.     !word label_TUCK
  1276. split2
  1277.     !word label_OVER
  1278.     !word label_OVER
  1279.     !word label_C_at
  1280.     !word label_le_gr
  1281.     !word label_OVER
  1282.     !word label_C_at
  1283.     !word label_0_le_gr
  1284.     !word label_AND
  1285.     !word label_int_q_branch
  1286.     !word split3
  1287.     !word label_1_plus
  1288.     !word label_int_branch
  1289.     !word split2
  1290. split3
  1291.     !word label_DUP
  1292.     !word label_C_at
  1293.     !word label_int_q_branch
  1294.     !word split1
  1295.     !word label_int_lit
  1296.     !word $0000
  1297.     !word label_OVER
  1298.     !word label_C_excl
  1299.     !word label_1_plus
  1300. split1
  1301.     !word label_NIP
  1302.     !word label_SWAP
  1303.     !word label_EXIT
  1304.  
  1305. !tx 0x00, "STRCMP", 0x00, 0x00
  1306. !word -
  1307. -
  1308. label_STRCMP
  1309.     ENT
  1310.     !word label_2DUP
  1311.     !word label_STRLEN
  1312.     !word label_SWAP
  1313.     !word label_STRLEN
  1314.     !word label_MIN
  1315.     !word label_1_plus
  1316.     !word label_MEMCMP
  1317.     !word label_EXIT
  1318.  
  1319. !tx 0x00, "ISUNUM", 0x00, 0x00
  1320. !word -
  1321. -
  1322. label_ISUNUM
  1323.     ENT
  1324.     !word label_DUP
  1325.     !word label_int_lit
  1326.     !word $0040
  1327.     !word label_gr
  1328.     !word label_int_q_branch
  1329.     !word isunum1
  1330.     !word label_int_lit
  1331.     !word $0007
  1332.     !word label_minus
  1333. isunum1
  1334.     !word label_int_lit
  1335.     !word $0030
  1336.     !word label_minus
  1337.     !word label_DUP
  1338.     !word label_0_le
  1339.     !word label_SWAP
  1340.     !word label_RADIX
  1341.     !word label_at
  1342.     !word label_1_minus
  1343.     !word label_gr
  1344.     !word label_OR
  1345.     !word label_0_eq
  1346.     !word label_EXIT
  1347.  
  1348.  
  1349. !tx 0x00, "ISNUM", 0x00, 0x00
  1350. !word -
  1351. -
  1352. label_ISNUM
  1353.     ENT
  1354.     !word label_DUP
  1355.     !word label_ISUNUM
  1356.     !word label_SWAP
  1357.     !word label_int_lit
  1358.     !word $002D
  1359.     !word label_eq
  1360.     !word label_OR
  1361.     !word label_EXIT
  1362.  
  1363. !tx 0x00, "UATOI", 0x00, 0x00
  1364. !word -
  1365. -
  1366. label_UATOI
  1367.     ENT
  1368.     !word label_int_lit
  1369.     !word $0000
  1370. uatoi1
  1371.     !word label_OVER
  1372.     !word label_C_at
  1373.     !word label_DUP
  1374.     !word label_int_lit
  1375.     !word $0040
  1376.     !word label_gr
  1377.     !word label_int_q_branch
  1378.     !word uatoi3
  1379.     !word label_int_lit
  1380.     !word $0007
  1381.     !word label_minus
  1382. uatoi3
  1383.     !word label_int_lit
  1384.     !word $0030
  1385.     !word label_minus
  1386.     !word label_DUP
  1387.     !word label_0_le
  1388.     !word label_OVER
  1389.     !word label_RADIX
  1390.     !word label_at
  1391.     !word label_gr_eq
  1392.     !word label_OR
  1393.     !word label_0_eq
  1394.     !word label_int_q_branch
  1395.     !word uatoi2
  1396.     !word label_SWAP
  1397.     !word label_RADIX
  1398.     !word label_at
  1399.     !word label_U_mul
  1400.     !word label_plus
  1401.     !word label_SWAP
  1402.     !word label_1_plus
  1403.     !word label_SWAP
  1404.     !word label_int_branch
  1405.     !word uatoi1
  1406. uatoi2
  1407.     !word label_DROP
  1408.     !word label_NIP
  1409.     !word label_EXIT
  1410.  
  1411. !tx 0x00, "ATOI", 0x00, 0x00
  1412. !word -
  1413. -
  1414. label_ATOI
  1415.     ENT
  1416.     !word label_DUP
  1417.     !word label_C_at
  1418.     !word label_int_lit
  1419.     !word $002D
  1420.     !word label_eq
  1421.     !word label_int_q_branch
  1422.     !word atoi2
  1423.     !word label_1_plus
  1424.     !word label_UATOI
  1425.     !word label_NEGATE
  1426.     !word label_int_branch
  1427.     !word atoi1
  1428. atoi2
  1429.     !word label_UATOI
  1430. atoi1
  1431.     !word label_EXIT
  1432.  
  1433.  
  1434. !tx 0x00, "HEX", 0x00, 0x01
  1435. !word -
  1436. -
  1437. label_HEX
  1438.     ENT
  1439.     !word label_int_lit
  1440.     !word $0010
  1441.     !word label_RADIX
  1442.     !word label_excl
  1443.     !word label_EXIT
  1444.  
  1445.  
  1446. !tx 0x00, "DECIMAL", 0x00, 0x01
  1447. !word -
  1448. -
  1449. label_DECIMAL
  1450.     ENT
  1451.     !word label_int_lit
  1452.     !word $000A
  1453.     !word label_RADIX
  1454.     !word label_excl
  1455.     !word label_EXIT
  1456.  
  1457.  
  1458. !tx 0x00, "TICK", 0x00, 0x00
  1459. !word -
  1460. -
  1461. label_TICK
  1462.     WAI
  1463.     NXT
  1464.  
  1465. !tx 0x00, "RBP!", 0x00, 0x00
  1466. !word -
  1467. -
  1468. label_RBP_excl
  1469.     PLA
  1470.     MMU #$00
  1471.     NXT
  1472.  
  1473. !tx 0x00, "TERMADDR", 0x00, 0x00
  1474. !word -
  1475. -
  1476. label_TERMADDR
  1477.     ENT
  1478.     !word label_DOVAR
  1479. termaddr1
  1480.     !word $0001
  1481.  
  1482.  
  1483. !tx 0x00, "PAGE", 0x00, 0x00
  1484. !word -
  1485. -
  1486. label_PAGE
  1487.     ENT
  1488.     !word label_TERMADDR
  1489.     !word label_at
  1490.     !word label_RBP_excl
  1491.     !word label_int_lit
  1492.     !word $0000
  1493.     !word label_int_lit
  1494.     !word $0303
  1495.     !word label_C_excl
  1496.     !word label_int_lit
  1497.     !word $0020
  1498.     !word label_int_lit
  1499.     !word $0308
  1500.     !word label_C_excl
  1501.     !word label_int_lit
  1502.     !word $0000
  1503.     !word label_int_lit
  1504.     !word $030A
  1505.     !word label_excl
  1506.     !word label_int_lit
  1507.     !word $3250
  1508.     !word label_int_lit
  1509.     !word $030C
  1510.     !word label_excl
  1511.     !word label_int_lit
  1512.     !word $0001
  1513.     !word label_int_lit
  1514.     !word $0307
  1515.     !word label_C_excl
  1516. page1
  1517.     !word label_int_lit
  1518.     !word $0307
  1519.     !word label_C_at
  1520.     !word label_0_eq
  1521.     !word label_TICK
  1522.     !word label_int_q_branch
  1523.     !word page1
  1524.     !word label_int_lit
  1525.     !word $0001
  1526.     !word label_int_lit
  1527.     !word $0301
  1528.     !word label_excl
  1529.     !word label_int_lit
  1530.     !word $0002
  1531.     !word label_int_lit
  1532.     !word $0303
  1533.     !word label_C_excl
  1534.     !word label_EXIT
  1535.  
  1536.  
  1537. !tx 0x00, "SCROLL", 0x00, 0x00
  1538. !word -
  1539. -
  1540. label_SCROLL
  1541.     ENT
  1542.     !word label_TERMADDR
  1543.     !word label_at
  1544.     !word label_RBP_excl
  1545.     !word label_int_lit
  1546.     !word $0000
  1547.     !word label_int_lit
  1548.     !word $0303
  1549.     !word label_C_excl
  1550.     !word label_int_lit
  1551.     !word $0100
  1552.     !word label_int_lit
  1553.     !word $0308
  1554.     !word label_excl
  1555.     !word label_int_lit
  1556.     !word $0000
  1557.     !word label_int_lit
  1558.     !word $030A
  1559.     !word label_excl
  1560.     !word label_int_lit
  1561.     !word $3150
  1562.     !word label_int_lit
  1563.     !word $030C
  1564.     !word label_excl
  1565.     !word label_int_lit
  1566.     !word $0003
  1567.     !word label_int_lit
  1568.     !word $0307
  1569.     !word label_C_excl
  1570. scroll1
  1571.     !word label_int_lit
  1572.     !word $0307
  1573.     !word label_C_at
  1574.     !word label_0_eq
  1575.     !word label_TICK
  1576.     !word label_int_q_branch
  1577.     !word scroll1
  1578.     !word label_int_lit
  1579.     !word $0020
  1580.     !word label_int_lit
  1581.     !word $0308
  1582.     !word label_C_excl
  1583.     !word label_int_lit
  1584.     !word $3100
  1585.     !word label_int_lit
  1586.     !word $030A
  1587.     !word label_excl
  1588.     !word label_int_lit
  1589.     !word $0150
  1590.     !word label_int_lit
  1591.     !word $030C
  1592.     !word label_excl
  1593.     !word label_int_lit
  1594.     !word $0001
  1595.     !word label_int_lit
  1596.     !word $0307
  1597.     !word label_C_excl
  1598. scroll2
  1599.     !word label_int_lit
  1600.     !word $0307
  1601.     !word label_C_at
  1602.     !word label_0_eq
  1603.     !word label_TICK
  1604.     !word label_int_q_branch
  1605.     !word scroll2
  1606.     !word label_int_lit
  1607.     !word $0002
  1608.     !word label_int_lit
  1609.     !word $0303
  1610.     !word label_C_excl
  1611.     !word label_EXIT
  1612.  
  1613.  
  1614. !tx 0x00, "CR", 0x00, 0x00
  1615. !word -
  1616. -
  1617. label_CR
  1618.     ENT
  1619.     !word label_TERMADDR
  1620.     !word label_at
  1621.     !word label_RBP_excl
  1622.     !word label_int_lit
  1623.     !word $0302
  1624.     !word label_C_at
  1625.     !word label_int_lit
  1626.     !word $0030
  1627.     !word label_gr
  1628.     !word label_int_q_branch
  1629.     !word cr2
  1630.     !word label_SCROLL
  1631.     !word label_int_branch
  1632.     !word cr1
  1633. cr2
  1634.     !word label_int_lit
  1635.     !word $0302
  1636.     !word label_C_at
  1637.     !word label_1_plus
  1638.     !word label_int_lit
  1639.     !word $0302
  1640.     !word label_C_excl
  1641. cr1
  1642.     !word label_int_lit
  1643.     !word $0000
  1644.     !word label_int_lit
  1645.     !word $0301
  1646.     !word label_C_excl
  1647.     !word label_EXIT
  1648.  
  1649. !tx 0x00, "EMIT", 0x00, 0x00
  1650. !word -
  1651. -
  1652. label_EMIT
  1653.     ENT
  1654.     !word label_TERMADDR
  1655.     !word label_at
  1656.     !word label_RBP_excl
  1657.     !word label_int_lit
  1658.     !word $0302
  1659.     !word label_C_at
  1660.     !word label_int_lit
  1661.     !word $0300
  1662.     !word label_C_excl
  1663.     !word label_int_lit
  1664.     !word $0301
  1665.     !word label_C_at
  1666.     !word label_int_lit
  1667.     !word $0310
  1668.     !word label_plus
  1669.     !word label_C_excl
  1670.     !word label_int_lit
  1671.     !word $0301
  1672.     !word label_C_at
  1673.     !word label_int_lit
  1674.     !word $004E
  1675.     !word label_gr
  1676.     !word label_int_q_branch
  1677.     !word emit1
  1678.     !word label_CR
  1679.     !word label_int_branch
  1680.     !word emit2
  1681. emit1
  1682.     !word label_int_lit
  1683.     !word $0301
  1684.     !word label_C_at
  1685.     !word label_1_plus
  1686.     !word label_int_lit
  1687.     !word $0301
  1688.     !word label_C_excl
  1689. emit2
  1690.     !word label_EXIT
  1691.  
  1692.  
  1693. !tx 0x00, "BS", 0x00, 0x00
  1694. !word -
  1695. -
  1696. label_BS
  1697.     SEP #$20
  1698.     !as
  1699.     LDA termaddr1
  1700.     MMU #$00
  1701.     LDA $0301
  1702.     BEQ bs1
  1703.     dec
  1704.     STA $0301
  1705.     TAX
  1706.     LDA $0302
  1707.     STA $0300
  1708.     LDA #$20
  1709.     STA $0310,x
  1710. bs1
  1711.     REP #$20
  1712.     !al
  1713.     NXT
  1714.  
  1715. !tx 0x00, "KEY?", 0x00, 0x00
  1716. !word -
  1717. -
  1718. label_KEY_q
  1719.     SEP #$20
  1720.     !as
  1721.     LDA termaddr1
  1722.     MMU #$00
  1723.     LDA $0304
  1724.     CMP $0305
  1725.     REP #$20
  1726.     !al
  1727.     BEQ label_KEY_q1
  1728.     PEA $FFFF
  1729.     NXT
  1730. label_KEY_q1
  1731.     PEA $0000
  1732.     NXT
  1733.  
  1734. !tx 0x00, "KEY", 0x00, 0x00
  1735. !word -
  1736. -
  1737. label_KEY
  1738.     SEP #$20
  1739.     !as
  1740.     LDA termaddr1
  1741.     MMU #$00
  1742. key1
  1743.     LDA $0304
  1744.     CMP $0305
  1745.     BNE key2
  1746.     WAI
  1747.     BRA key1
  1748. key2
  1749.     LDA $0306
  1750.     ZEA
  1751.     INC $0304
  1752.     REP #$20
  1753.     !al
  1754.     PHA
  1755.     NXT
  1756.  
  1757. !tx 0x00, "AT-XY", 0x00, 0x00
  1758. !word -
  1759. -
  1760. label_AT_minus_XY
  1761.     SEP #$20
  1762.     !as
  1763.     LDA termaddr1
  1764.     MMU #$00
  1765.     PLX
  1766.     TXA
  1767.     STA $0302
  1768.     PLX
  1769.     TXA
  1770.     STA $0301
  1771.     REP #$20
  1772.     !al
  1773.     NXT
  1774.  
  1775. !tx 0x00, "(.\")", 0x00, 0x00
  1776. !word -
  1777. -
  1778. label_int_dot_double_quote
  1779.     ENT
  1780.     !word label_R_gr
  1781. int_dot_double_quote1
  1782.     !word label_DUP
  1783.     !word label_C_at
  1784.     !word label_q_DUP
  1785.     !word label_int_q_branch
  1786.     !word int_dot_double_quote2
  1787.     !word label_EMIT
  1788.     !word label_1_plus
  1789.     !word label_int_branch
  1790.     !word int_dot_double_quote1
  1791. int_dot_double_quote2
  1792.     !word label_1_plus
  1793.     !word label_gr_R
  1794.     !word label_EXIT
  1795.  
  1796. !tx 0x00, "SPACE", 0x00, 0x00
  1797. !word -
  1798. -
  1799. label_SPACE
  1800.     ENT
  1801.     !word label_BL
  1802.     !word label_EMIT
  1803.     !word label_EXIT
  1804.  
  1805.  
  1806. !tx 0x00, "TYPE", 0x00, 0x00
  1807. !word -
  1808. -
  1809. label_TYPE
  1810.     ENT
  1811. type1
  1812.     !word label_DUP
  1813.     !word label_C_at
  1814.     !word label_q_DUP
  1815.     !word label_int_q_branch
  1816.     !word type2
  1817.     !word label_EMIT
  1818.     !word label_1_plus
  1819.     !word label_int_branch
  1820.     !word type1
  1821. type2
  1822.     !word label_DROP
  1823.     !word label_EXIT
  1824.  
  1825.  
  1826. !tx 0x00, ".", 0x00, 0x00
  1827. !word -
  1828. -
  1829. label_dot
  1830.     ENT
  1831.     !word label_DUP
  1832.     !word label_0_le
  1833.     !word label_int_q_branch
  1834.     !word dot2
  1835.     !word label_NEGATE
  1836.     !word label_UITOA
  1837.     !word label_1_minus
  1838.     !word label_int_lit
  1839.     !word $002D
  1840.     !word label_OVER
  1841.     !word label_C_excl
  1842.     !word label_int_branch
  1843.     !word dot1
  1844. dot2
  1845.     !word label_UITOA
  1846. dot1
  1847.     !word label_TYPE
  1848.     !word label_SPACE
  1849.     !word label_EXIT
  1850.  
  1851.  
  1852. !tx 0x00, "U.", 0x00, 0x00
  1853. !word -
  1854. -
  1855. label_U_dot
  1856.     ENT
  1857.     !word label_UITOA
  1858.     !word label_TYPE
  1859.     !word label_SPACE
  1860.     !word label_EXIT
  1861.  
  1862.  
  1863. !tx 0x00, "/MOD", 0x00, 0x00
  1864. !word -
  1865. -
  1866. label_forwardslash_MOD
  1867.     ENT
  1868.     !word label_OVER
  1869.     !word label_0_le
  1870.     !word label_SWAP
  1871.     !word label_FM_forwardslash_MOD
  1872.     !word label_EXIT
  1873.  
  1874.  
  1875. !tx 0x00, "/", 0x00, 0x00
  1876. !word -
  1877. -
  1878. label_forwardslash
  1879.     ENT
  1880.     !word label_forwardslash_MOD
  1881.     !word label_DROP
  1882.     !word label_EXIT
  1883.  
  1884.  
  1885. !tx 0x00, "MOD", 0x00, 0x00
  1886. !word -
  1887. -
  1888. label_MOD
  1889.     ENT
  1890.     !word label_forwardslash_MOD
  1891.     !word label_NIP
  1892.     !word label_EXIT
  1893.  
  1894.  
  1895. !tx 0x00, "ABORT", 0x00, 0x00
  1896. !word -
  1897. -
  1898. label_ABORT
  1899.     ENT
  1900.     !word label_SP0
  1901.     !word label_SP_excl
  1902.     !word label_QUIT
  1903.  
  1904. !tx 0x00, "TIBPTR", 0x00, 0x00
  1905. !word -
  1906. -
  1907. label_TIBPTR
  1908.     ENT
  1909.     !word label_DOVAR
  1910.     !word $0000
  1911.  
  1912.  
  1913. !tx 0x00, "VOCAB", 0x00, 0x00
  1914. !word -
  1915. -
  1916. label_VOCAB
  1917.     ENT
  1918.     !word label_DOVAR
  1919.     !word label_COLD
  1920.  
  1921.  
  1922. !tx 0x00, "(HERE)", 0x00, 0x00
  1923. !word -
  1924. -
  1925. label_int_HERE
  1926.     ENT
  1927.     !word label_DOVAR
  1928.     !word label_end
  1929.  
  1930.  
  1931. !tx 0x00, "HERE", 0x00, 0x00
  1932. !word -
  1933. -
  1934. label_HERE
  1935.     ENT
  1936.     !word label_int_HERE
  1937.     !word label_at
  1938.     !word label_EXIT
  1939.  
  1940.  
  1941. !tx 0x00, "TOP", 0x00, 0x00
  1942. !word -
  1943. -
  1944. label_TOP
  1945.     ENT
  1946.     !word label_DOVAR
  1947.     !word $0000
  1948.  
  1949.  
  1950. !tx 0x00, "STATE", 0x00, 0x00
  1951. !word -
  1952. -
  1953. label_STATE
  1954.     ENT
  1955.     !word label_DOVAR
  1956.     !word $0000
  1957.  
  1958.  
  1959. !tx 0x00, "PROBE", 0x00, 0x00
  1960. !word -
  1961. -
  1962. label_PROBE
  1963.     ENT
  1964.     !word label_int_lit
  1965.     !word $1FFF
  1966. probe1
  1967.     !word label_DUP
  1968.     !word label_int_lit
  1969.     !word $2000
  1970.     !word label_plus
  1971.     !word label_DUP
  1972.     !word label_C_at
  1973.     !word label_DUP
  1974.     !word label_INVERT
  1975.     !word label_2OVER
  1976.     !word label_excl
  1977.     !word label_DUP
  1978.     !word label_2OVER
  1979.     !word label_C_at
  1980.     !word label_eq
  1981.     !word label_SWAP
  1982.     !word label_2OVER
  1983.     !word label_C_excl
  1984.     !word label_int_q_branch
  1985.     !word probe2
  1986.     !word label_DROP
  1987.     !word label_EXIT
  1988. probe2
  1989.     !word label_NIP
  1990.     !word label_DUP
  1991.     !word label_int_lit
  1992.     !word $FFFF
  1993.     !word label_eq
  1994.     !word label_int_q_branch
  1995.     !word probe1
  1996.     !word label_EXIT
  1997.  
  1998.  
  1999. !tx 0x00, "FREE", 0x00, 0x00
  2000. !word -
  2001. -
  2002. label_FREE
  2003.     ENT
  2004.     !word label_TOP
  2005.     !word label_at
  2006.     !word label_HERE
  2007.     !word label_minus
  2008.     !word label_EXIT
  2009.  
  2010.  
  2011. !tx 0x00, "ALLOT", 0x00, 0x00
  2012. !word -
  2013. -
  2014. label_ALLOT
  2015.     ENT
  2016.     !word label_DUP
  2017.     !word label_int_lit
  2018.     !word $0002
  2019.     !word label_plus
  2020.     !word label_FREE
  2021.     !word label_U_gr
  2022.     !word label_int_q_branch
  2023.     !word allot1
  2024.     !word label_int_dot_double_quote
  2025.     !text "Out of memory",0
  2026.     !word label_CR
  2027.     !word label_ABORT
  2028. allot1
  2029.     !word label_HERE
  2030.     !word label_SWAP
  2031.     !word label_int_HERE
  2032.     !word label_plus_excl
  2033.     !word label_EXIT
  2034.  
  2035. !tx 0x00, ",", 0x00, 0x00
  2036. !word -
  2037. -
  2038. label_comma
  2039.     ENT
  2040.     !word label_CELL
  2041.     !word label_ALLOT
  2042.     !word label_excl
  2043.     !word label_EXIT
  2044.  
  2045.  
  2046. !tx 0x00, ",C", 0x00, 0x00
  2047. !word -
  2048. -
  2049. label_comma_C
  2050.     ENT
  2051.     !word label_int_lit
  2052.     !word $0001
  2053.     !word label_ALLOT
  2054.     !word label_C_excl
  2055.     !word label_EXIT
  2056.  
  2057. !tx 0x00, ",S", 0x00, 0x00
  2058. !word -
  2059. -
  2060. label_comma_S
  2061.     ENT
  2062. comma_S1
  2063.     !word label_DUP
  2064.     !word label_C_at
  2065.     !word label_int_q_branch
  2066.     !word comma_S2
  2067.     !word label_DUP
  2068.     !word label_C_at
  2069.     !word label_comma_C
  2070.     !word label_1_plus
  2071.     !word label_int_branch
  2072.     !word comma_S1
  2073. comma_S2
  2074.     !word label_DROP
  2075.     !word label_int_lit
  2076.     !word $0000
  2077.     !word label_comma_C
  2078.     !word label_EXIT
  2079.  
  2080.  
  2081. !tx 0x00, "TIBWORD", 0x00, 0x00
  2082. !word -
  2083. -
  2084. label_TIBWORD
  2085.     ENT
  2086.     !word label_TIBPTR
  2087.     !word label_at
  2088.     !word label_WORD
  2089.     !word label_SWAP
  2090.     !word label_TIBPTR
  2091.     !word label_excl
  2092.     !word label_EXIT
  2093.  
  2094.  
  2095. !tx 0x00, "TIBSPLIT", 0x00, 0x00
  2096. !word -
  2097. -
  2098. label_TIBSPLIT
  2099.     ENT
  2100.     !word label_TIBPTR
  2101.     !word label_at
  2102.     !word label_SWAP
  2103.     !word label_SPLIT
  2104.     !word label_SWAP
  2105.     !word label_TIBPTR
  2106.     !word label_excl
  2107.     !word label_EXIT
  2108.  
  2109.  
  2110. !tx 0x00, "HEADER", 0x00, 0x00
  2111. !word -
  2112. -
  2113. label_HEADER
  2114.     ENT
  2115.     !word label_int_lit
  2116.     !word $0000
  2117.     !word label_comma_C
  2118.     !word label_TIBWORD
  2119.     !word label_comma_S
  2120.     !word label_int_lit
  2121.     !word $0000
  2122.     !word label_comma_C
  2123.     !word label_VOCAB
  2124.     !word label_at
  2125.     !word label_comma
  2126.     !word label_HERE
  2127.     !word label_VOCAB
  2128.     !word label_excl
  2129.     !word label_EXIT
  2130.  
  2131.  
  2132. !tx 0x00, "CONSTANT", 0x00, 0x00
  2133. !word -
  2134. -
  2135. label_CONSTANT
  2136.     ENT
  2137.     !word label_HEADER
  2138.     !word label_int_lit
  2139.     !word $0022
  2140.     !word label_comma_C
  2141.     !word label_int_lit
  2142.     !word label_DOCON
  2143.     !word label_comma
  2144.     !word label_comma
  2145.     !word label_EXIT
  2146.  
  2147.  
  2148. !tx 0x00, "CREATE", 0x00, 0x00
  2149. !word -
  2150. -
  2151. label_CREATE
  2152.     ENT
  2153.     !word label_HEADER
  2154.     !word label_int_lit
  2155.     !word $0022
  2156.     !word label_comma_C
  2157.     !word label_int_lit
  2158.     !word label_DOVAR
  2159.     !word label_comma
  2160.     !word label_EXIT
  2161.  
  2162.  
  2163. !tx 0x00, "VARIABLE", 0x00, 0x00
  2164. !word -
  2165. -
  2166. label_VARIABLE
  2167.     ENT
  2168.     !word label_CREATE
  2169.     !word label_int_lit
  2170.     !word $0000
  2171.     !word label_comma
  2172.     !word label_EXIT
  2173.  
  2174.  
  2175. !tx 0x00, "[", 0x00, 0x00
  2176. !word -
  2177. -
  2178. label_open_br
  2179.     ENT
  2180.     !word label_int_lit
  2181.     !word $0001
  2182.     !word label_STATE
  2183.     !word label_excl
  2184.     !word label_EXIT
  2185.  
  2186.  
  2187. !tx 0x00, "]", 0x00, 0x01
  2188. !word -
  2189. -
  2190. label_close_br
  2191.     ENT
  2192.     !word label_int_lit
  2193.     !word $0000
  2194.     !word label_STATE
  2195.     !word label_excl
  2196.     !word label_EXIT
  2197.  
  2198.  
  2199. !tx 0x00, "HIDE", 0x00, 0x00
  2200. !word -
  2201. -
  2202. label_HIDE
  2203.     ENT
  2204.     !word label_VOCAB
  2205.     !word label_at
  2206.     !word label_int_lit
  2207.     !word $0003
  2208.     !word label_minus
  2209.     !word label_DUP
  2210.     !word label_C_at
  2211.     !word label_int_lit
  2212.     !word $0002
  2213.     !word label_OR
  2214.     !word label_SWAP
  2215.     !word label_C_excl
  2216.     !word label_EXIT
  2217.  
  2218.  
  2219. !tx 0x00, "REVEAL", 0x00, 0x00
  2220. !word -
  2221. -
  2222. label_REVEAL
  2223.     ENT
  2224.     !word label_VOCAB
  2225.     !word label_at
  2226.     !word label_int_lit
  2227.     !word $0003
  2228.     !word label_minus
  2229.     !word label_DUP
  2230.     !word label_C_at
  2231.     !word label_int_lit
  2232.     !word $0001
  2233.     !word label_AND
  2234.     !word label_SWAP
  2235.     !word label_C_excl
  2236.     !word label_EXIT
  2237.  
  2238. !tx 0x00, "IMMEDIATE", 0x00, 0x00
  2239. !word -
  2240. -
  2241. label_IMMEDIATE
  2242.     ENT
  2243.     !word label_VOCAB
  2244.     !word label_at
  2245.     !word label_int_lit
  2246.     !word $0003
  2247.     !word label_minus
  2248.     !word label_DUP
  2249.     !word label_C_at
  2250.     !word label_int_lit
  2251.     !word $0001
  2252.     !word label_OR
  2253.     !word label_SWAP
  2254.     !word label_C_excl
  2255.     !word label_EXIT
  2256.  
  2257.  
  2258. !tx 0x00, "(does)", 0x00, 0x00
  2259. !word -
  2260. -
  2261. label_int_does
  2262.     ENT
  2263.     !word label_R_gr
  2264.     !word label_VOCAB
  2265.     !word label_at
  2266.     !word label_1_plus
  2267.     !word label_excl
  2268.     !word label_EXIT
  2269.  
  2270.  
  2271. !tx 0x00, "DOES>", 0x00, 0x01
  2272. !word -
  2273. -
  2274. label_DOES_gr
  2275.     ENT
  2276.     !word label_int_lit
  2277.     !word label_int_does
  2278.     !word label_comma
  2279.     !word label_int_lit
  2280.     !word $0022
  2281.     !word label_comma_C
  2282.     !word label_int_lit
  2283.     !word label_DODOES
  2284.     !word label_comma
  2285.     !word label_EXIT
  2286.  
  2287.  
  2288. !tx 0x00, ":", 0x00, 0x00
  2289. !word -
  2290. -
  2291. label_:
  2292.     ENT
  2293.     !word label_HEADER
  2294.     !word label_HIDE
  2295.     !word label_int_lit
  2296.     !word $0022
  2297.     !word label_comma_C
  2298.     !word label_open_br
  2299.     !word label_EXIT
  2300.  
  2301.  
  2302. !tx 0x00, ";", 0x00, 0x01
  2303. !word -
  2304. -
  2305. label_semicolon
  2306.     ENT
  2307.     !word label_int_lit
  2308.     !word label_EXIT
  2309.     !word label_comma
  2310.     !word label_close_br
  2311.     !word label_REVEAL
  2312.     !word label_EXIT
  2313.  
  2314.  
  2315. !tx 0x00, "IF", 0x00, 0x01
  2316. !word -
  2317. -
  2318. label_IF
  2319.     ENT
  2320.     !word label_int_lit
  2321.     !word label_int_q_branch
  2322.     !word label_comma
  2323.     !word label_HERE
  2324.     !word label_int_lit
  2325.     !word $0000
  2326.     !word label_comma
  2327.     !word label_int_lit
  2328.     !word $0000
  2329.     !word label_EXIT
  2330.  
  2331.  
  2332. !tx 0x00, "THEN", 0x00, 0x01
  2333. !word -
  2334. -
  2335. label_THEN
  2336.     ENT
  2337.     !word label_DROP
  2338.     !word label_HERE
  2339.     !word label_SWAP
  2340.     !word label_excl
  2341.     !word label_EXIT
  2342.  
  2343.  
  2344. !tx 0x00, "ELSE", 0x00, 0x01
  2345. !word -
  2346. -
  2347. label_ELSE
  2348.     ENT
  2349.     !word label_DROP
  2350.     !word label_int_lit
  2351.     !word label_int_branch
  2352.     !word label_comma
  2353.     !word label_HERE
  2354.     !word label_int_lit
  2355.     !word $0000
  2356.     !word label_comma
  2357.     !word label_SWAP
  2358.     !word label_HERE
  2359.     !word label_SWAP
  2360.     !word label_excl
  2361.     !word label_int_lit
  2362.     !word $0000
  2363.     !word label_EXIT
  2364.  
  2365. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2366. !tx 0x00, ".\"", 0x00, 0x01
  2367. !word -
  2368. -
  2369. label_dot_double_quote
  2370.     ENT
  2371.     !word label_int_lit
  2372.     !word label_int_dot_double_quote
  2373.  
  2374.     !word label_comma
  2375.     !word label_int_lit
  2376.     !word 0x0022
  2377.  
  2378. ;   !byte   0x9F, 0x11, 0x50, 0x05, 0x22, 0x00
  2379.     !word label_TIBSPLIT
  2380.     !word label_comma_S
  2381.     !word label_EXIT
  2382.  
  2383. !tx 0x00, "BEGIN", 0x00, 0x01
  2384. !word -
  2385. -
  2386. label_BEGIN
  2387.     ENT
  2388.     !word label_HERE
  2389.     !word label_int_lit
  2390.     !word $0000
  2391.     !word label_EXIT
  2392.  
  2393.  
  2394. !tx 0x00, "AGAIN", 0x00, 0x01
  2395. !word -
  2396. -
  2397. label_AGAIN
  2398.     ENT
  2399.     !word label_DROP
  2400.     !word label_int_lit
  2401.     !word label_int_branch
  2402.     !word label_comma
  2403.     !word label_comma
  2404.     !word label_EXIT
  2405.  
  2406.  
  2407. !tx 0x00, "UNTIL", 0x00, 0x01
  2408. !word -
  2409. -
  2410. label_UNTIL
  2411.     ENT
  2412.     !word label_DROP
  2413.     !word label_int_lit
  2414.     !word label_int_q_branch
  2415.     !word label_comma
  2416.     !word label_comma
  2417.     !word label_EXIT
  2418.  
  2419.  
  2420. !tx 0x00, "WHILE", 0x00, 0x01
  2421. !word -
  2422. -
  2423. label_WHILE
  2424.     ENT
  2425.     !word label_int_lit
  2426.     !word label_int_q_branch
  2427.     !word label_comma
  2428.     !word label_HERE
  2429.     !word label_int_lit
  2430.     !word $0000
  2431.     !word label_comma
  2432.     !word label_int_lit
  2433.     !word $0000
  2434.     !word label_EXIT
  2435.  
  2436.  
  2437. !tx 0x00, "REPEAT", 0x00, 0x01
  2438. !word -
  2439. -
  2440. label_REPEAT
  2441.     ENT
  2442.     !word label_DROP
  2443.     !word label_NIP
  2444.     !word label_SWAP
  2445.     !word label_int_lit
  2446.     !word label_int_branch
  2447.     !word label_comma
  2448.     !word label_comma
  2449.     !word label_HERE
  2450.     !word label_SWAP
  2451.     !word label_excl
  2452.     !word label_EXIT
  2453.  
  2454.  
  2455. !tx 0x00, "DO", 0x00, 0x01
  2456. !word -
  2457. -
  2458. label_DO
  2459.     ENT
  2460.     !word label_int_lit
  2461.     !word label_int_do
  2462.     !word label_comma
  2463.     !word label_HERE
  2464.     !word label_int_lit
  2465.     !word $0000
  2466.     !word label_comma
  2467.     !word label_HERE
  2468.     !word label_SWAP
  2469.     !word label_EXIT
  2470.  
  2471.  
  2472. !tx 0x00, "?DO", 0x00, 0x01
  2473. !word -
  2474. -
  2475. label_q_DO
  2476.     ENT
  2477.     !word label_int_lit
  2478.     !word label_int_q_do
  2479.     !word label_comma
  2480.     !word label_HERE
  2481.     !word label_int_lit
  2482.     !word $0000
  2483.     !word label_comma
  2484.     !word label_HERE
  2485.     !word label_SWAP
  2486.     !word label_EXIT
  2487.  
  2488.  
  2489. !tx 0x00, "LOOP", 0x00, 0x01
  2490. !word -
  2491. -
  2492. label_LOOP
  2493.     ENT
  2494.     !word label_SWAP
  2495.     !word label_int_lit
  2496.     !word label_int_loop
  2497.     !word label_comma
  2498.     !word label_comma
  2499.     !word label_int_lit
  2500.     !word label_UNLOOP
  2501.     !word label_comma
  2502.     !word label_HERE
  2503.     !word label_SWAP
  2504.     !word label_excl
  2505.     !word label_EXIT
  2506.  
  2507. !tx 0x00, "+LOOP", 0x00, 0x01
  2508. !word -
  2509. -
  2510. label_plusLOOP
  2511.     ENT
  2512.     !word label_SWAP
  2513.     !word label_int_lit
  2514.     !word label_int_plus_loop
  2515.     !word label_comma
  2516.     !word label_comma
  2517.     !word label_int_lit
  2518.     !word label_UNLOOP
  2519.     !word label_comma
  2520.     !word label_HERE
  2521.     !word label_SWAP
  2522.     !word label_excl
  2523.     !word label_EXIT
  2524.  
  2525.  
  2526. !tx 0x00, "LEAVE", 0x00, 0x01
  2527. !word -
  2528. -
  2529. label_LEAVE
  2530.     ENT
  2531.     !word label_int_lit
  2532.     !word $0001
  2533. leave1
  2534.     !word label_DUP
  2535.     !word label_PICK
  2536.     !word label_0_eq
  2537.     !word label_int_q_branch
  2538.     !word leave2
  2539.     !word label_int_lit
  2540.     !word $0002
  2541.     !word label_plus
  2542.     !word label_int_branch
  2543.     !word leave1
  2544. leave2
  2545.     !word label_int_lit
  2546.     !word label_int_leave
  2547.     !word label_comma
  2548.     !word label_PICK
  2549.     !word label_int_lit
  2550.     !word $0002
  2551.     !word label_minus
  2552.     !word label_comma
  2553.     !word label_EXIT
  2554.  
  2555.  
  2556. !tx 0x00, "\\", 0x00, 0x01
  2557. !word -
  2558. -
  2559. label_backslash
  2560.     ENT
  2561.     !word label_int_lit
  2562.     !word $000D
  2563.     !word label_TIBSPLIT
  2564.     !word label_DROP
  2565.     !word label_EXIT
  2566.  
  2567.  
  2568. !tx 0x00, "(", 0x00, 0x01
  2569. !word -
  2570. -
  2571. label_open_parenthesis
  2572.     ENT
  2573.     !word label_int_lit
  2574.     !word $0029
  2575.     !word label_TIBSPLIT
  2576.     !word label_DROP
  2577.     !word label_EXIT
  2578.  
  2579.  
  2580. !tx 0x00, "(\")", 0x00, 0x00
  2581. !word -
  2582. -
  2583. label_int_double_quote
  2584.     ENT
  2585.     !word label_R_gr
  2586.     !word label_DUP
  2587. int_double_quote1
  2588.     !word label_DUP
  2589.     !word label_C_at
  2590.     !word label_int_q_branch
  2591.     !word int_double_quote2
  2592.     !word label_1_plus
  2593.     !word label_int_branch
  2594.     !word int_double_quote1
  2595. int_double_quote2
  2596.     !word label_1_plus
  2597.     !word label_gr_R
  2598.     !word label_EXIT
  2599.  
  2600. !tx 0x00, "\"", 0x00, 0x01
  2601. !word -
  2602. -
  2603. label_double_quote
  2604.     ENT
  2605.     !word label_int_lit
  2606.     !word label_int_double_quote
  2607.     !word label_comma
  2608.     !word label_int_lit
  2609.     !word $0022
  2610.     !word label_TIBSPLIT
  2611.     !word label_comma_S
  2612.     !word label_EXIT
  2613.  
  2614.  
  2615. !tx 0x00, "TIMES", 0x00, 0x01
  2616. !word -
  2617. -
  2618. label_TIMES
  2619.     ENT
  2620.     !word label_STATE
  2621.     !word label_at
  2622.     !word label_0_eq
  2623.     !word label_int_q_branch
  2624.     !word times4
  2625.     !word label_quote
  2626.     !word label_SWAP
  2627.     !word label_int_lit
  2628.     !word $0000
  2629.     !word label_int_q_do
  2630.     !word times3
  2631. times2
  2632.     !word label_DUP
  2633.     !word label_EXECUTE
  2634.     !word label_int_loop
  2635.     !word times2
  2636.     !word label_UNLOOP
  2637. times3
  2638.     !word label_DROP
  2639.     !word label_int_branch
  2640.     !word times1
  2641. times4
  2642.     !word label_quote
  2643.     !word label_int_lit
  2644.     !word label_int_lit
  2645.     !word label_comma
  2646.     !word label_int_lit
  2647.     !word $0000
  2648.     !word label_comma
  2649.     !word label_int_lit
  2650.     !word label_int_q_do
  2651.     !word label_comma
  2652.     !word label_HERE
  2653.     !word label_int_lit
  2654.     !word $000A
  2655.     !word label_plus
  2656.     !word label_comma
  2657.     !word label_comma
  2658.     !word label_HERE
  2659.     !word label_int_lit
  2660.     !word $0002
  2661.     !word label_minus
  2662.     !word label_int_lit
  2663.     !word label_int_loop
  2664.     !word label_comma
  2665.     !word label_comma
  2666.     !word label_int_lit
  2667.     !word label_UNLOOP
  2668.     !word label_comma
  2669. times1
  2670.     !word label_EXIT
  2671.  
  2672.  
  2673. !tx 0x00, "LITERAL", 0x00, 0x01
  2674. !word -
  2675. -
  2676. label_LITERAL
  2677.     ENT
  2678.     !word label_quote
  2679.     !word label_int_lit
  2680.     !word label_int_lit
  2681.     !word label_comma
  2682.     !word label_comma
  2683.     !word label_EXIT
  2684.  
  2685.  
  2686. !tx 0x00, "POSTPONE", 0x00, 0x01
  2687. !word -
  2688. -
  2689. label_POSTPONE
  2690.     ENT
  2691.     !word label_quote
  2692.     !word label_DUP
  2693.     !word label_int_lit
  2694.     !word $0003
  2695.     !word label_minus
  2696.     !word label_C_at
  2697.     !word label_int_lit
  2698.     !word $0001
  2699.     !word label_AND
  2700.     !word label_int_q_branch
  2701.     !word postpone2
  2702.     !word label_comma
  2703.     !word label_int_branch
  2704.     !word postpone1
  2705. postpone2
  2706.     !word label_int_lit
  2707.     !word label_int_lit
  2708.     !word label_comma
  2709.     !word label_comma
  2710. postpone1
  2711.     !word label_EXIT
  2712.  
  2713.  
  2714. !tx 0x00, "RECURSE", 0x00, 0x01
  2715. !word -
  2716. -
  2717. label_RECURSE
  2718.     ENT
  2719.     !word label_VOCAB
  2720.     !word label_at
  2721.     !word label_comma
  2722.     !word label_EXIT
  2723.  
  2724.  
  2725. !tx 0x00, "TICKS", 0x00, 0x00
  2726. !word -
  2727. -
  2728. label_TICKS
  2729.     ENT
  2730. ticks1
  2731.     !word label_q_DUP
  2732.     !word label_int_q_branch
  2733.     !word ticks2
  2734.     !word label_TICK
  2735.     !word label_1_minus
  2736.     !word label_int_branch
  2737.     !word ticks1
  2738. ticks2
  2739.     !word label_EXIT
  2740.  
  2741.  
  2742. !tx 0x00, "SP0", 0x00, 0x00
  2743. !word -
  2744. -
  2745. label_SP0
  2746.     ENT
  2747.     !word label_DOCON
  2748.     !word $0200
  2749.  
  2750.  
  2751. !tx 0x00, "RP0", 0x00, 0x00
  2752. !word -
  2753. -
  2754. label_RP0
  2755.     ENT
  2756.     !word label_DOCON
  2757.     !word $0300
  2758.  
  2759.  
  2760. !tx 0x00, ">NAME", 0x00, 0x00
  2761. !word -
  2762. -
  2763. label_grNAME
  2764.     ENT
  2765.     !word label_int_lit
  2766.     !word $0005
  2767.     !word label_minus
  2768.     !word label_DUP
  2769.     !word label_RSTRLEN
  2770.     !word label_minus
  2771.     !word label_1_plus
  2772.     !word label_EXIT
  2773.  
  2774. !tx 0x00, "NAME>", 0x00, 0x00
  2775. !word -
  2776. -
  2777. label_NAME_gr
  2778.     ENT
  2779.     !word label_DUP
  2780.     !word label_STRLEN
  2781.     !word label_plus
  2782.     !word label_int_lit
  2783.     !word $0006
  2784.     !word label_plus
  2785.     !word label_EXIT
  2786.  
  2787.  
  2788. !tx 0x00, "FIND", 0x00, 0x00
  2789. !word -
  2790. -
  2791. label_FIND
  2792.     ENT
  2793.     !word label_VOCAB
  2794.     !word label_at
  2795. find1
  2796.     !word label_DUP
  2797.     !word label_int_q_branch
  2798.     !word find5
  2799.     !word label_2DUP
  2800.     !word label_grNAME
  2801.     !word label_STRCMP
  2802.     !word label_0_eq
  2803.     !word label_OVER
  2804.     !word label_int_lit
  2805.     !word $0003
  2806.     !word label_minus
  2807.     !word label_C_at
  2808.     !word label_int_lit
  2809.     !word $0002
  2810.     !word label_AND
  2811.     !word label_0_eq
  2812.     !word label_AND
  2813.     !word label_int_q_branch
  2814.     !word find4
  2815.     !word label_TRUE
  2816.     !word label_int_branch
  2817.     !word find3
  2818. find4
  2819.     !word label_CELL
  2820.     !word label_minus
  2821.     !word label_at
  2822.     !word label_FALSE
  2823. find3
  2824.     !word label_int_branch
  2825.     !word find2
  2826. find5
  2827.     !word label_TRUE
  2828. find2
  2829.     !word label_int_q_branch
  2830.     !word find1
  2831.     !word label_NIP
  2832.     !word label_EXIT
  2833.  
  2834. !tx 0x00, "ACCEPT", 0x00, 0x00
  2835. !word -
  2836. -
  2837. label_ACCEPT
  2838.     ENT
  2839.     !word label_OVER
  2840.     !word label_plus
  2841.     !word label_1_minus
  2842.     !word label_OVER
  2843. accept1
  2844.     !word label_KEY
  2845.     !word label_DUP
  2846.     !word label_int_lit
  2847.     !word $000D
  2848.     !word label_le_gr
  2849.     !word label_int_q_branch
  2850.     !word accept5
  2851.     !word label_DUP
  2852.     !word label_int_lit
  2853.     !word $0008
  2854.     !word label_eq
  2855.     !word label_int_q_branch
  2856.     !word accept4
  2857.     !word label_DROP
  2858.     !word label_2OVER
  2859.     !word label_OVER
  2860.     !word label_le
  2861.     !word label_int_q_branch
  2862.     !word accept3
  2863.     !word label_BS
  2864.     !word label_1_minus
  2865. accept3
  2866.     !word label_int_branch
  2867.     !word accept2
  2868. accept4
  2869.     !word label_DUP
  2870.     !word label_EMIT
  2871.     !word label_OVER
  2872.     !word label_C_excl
  2873.     !word label_1_plus
  2874.     !word label_OVER
  2875.     !word label_MIN
  2876. accept2
  2877.     !word label_int_branch
  2878.     !word accept1
  2879. accept5
  2880.     !word label_DROP
  2881.     !word label_MIN
  2882.     !word label_int_lit
  2883.     !word $0000
  2884.     !word label_SWAP
  2885.     !word label_C_excl
  2886.     !word label_EXIT
  2887.  
  2888. !tx 0x00, "0SP", 0x00, 0x00
  2889. !word -
  2890. -
  2891. label_0SP
  2892.     ENT
  2893.     !word label_SP0
  2894.     !word label_SP_excl
  2895.     !word label_EXIT
  2896.  
  2897.  
  2898. !tx 0x00, "INTERPRET", 0x00, 0x00
  2899. !word -
  2900. -
  2901. label_INTERPRET
  2902.     ENT
  2903. interpret1
  2904.     !word label_WORD
  2905.     !word label_DUP
  2906.     !word label_STRLEN
  2907.     !word label_0_le_gr
  2908.     !word label_int_q_branch
  2909.     !word interpret10
  2910.     !word label_SWAP
  2911.     !word label_TIBPTR
  2912.     !word label_excl
  2913.     !word label_DUP
  2914.     !word label_FIND
  2915.     !word label_q_DUP
  2916.     !word label_int_q_branch
  2917.     !word interpret9
  2918.     !word label_NIP
  2919.     !word label_STATE
  2920.     !word label_at
  2921.     !word label_int_q_branch
  2922.     !word interpret8
  2923.     !word label_DUP
  2924.     !word label_int_lit
  2925.     !word $0003
  2926.     !word label_minus
  2927.     !word label_C_at
  2928.     !word label_int_lit
  2929.     !word $0001
  2930.     !word label_AND
  2931.     !word label_int_q_branch
  2932.     !word interpret7
  2933.     !word label_EXECUTE
  2934.     !word label_int_branch
  2935.     !word interpret6
  2936. interpret7
  2937.     !word label_comma
  2938. interpret6
  2939.     !word label_int_branch
  2940.     !word interpret5
  2941. interpret8
  2942.     !word label_EXECUTE
  2943. interpret5
  2944.     !word label_int_branch
  2945.     !word interpret2
  2946. interpret9
  2947.     !word label_DUP
  2948.     !word label_C_at
  2949.     !word label_ISNUM
  2950.     !word label_int_q_branch
  2951.     !word interpret4
  2952.     !word label_ATOI
  2953.     !word label_STATE
  2954.     !word label_at
  2955.     !word label_int_q_branch
  2956.     !word interpret3
  2957.     !word label_int_lit
  2958.     !word label_int_lit
  2959.     !word label_comma
  2960.     !word label_comma
  2961. interpret3
  2962.     !word label_int_branch
  2963.     !word interpret2
  2964. interpret4
  2965.     !word label_int_dot_double_quote
  2966.     !text "Unknown Token: ",0
  2967.     !word label_TYPE
  2968.     !word label_CR
  2969.     !word label_ABORT
  2970. interpret2
  2971.     !word label_TIBPTR
  2972.     !word label_at
  2973.     !word label_int_branch
  2974.     !word interpret1
  2975. interpret10
  2976.     !word label_DROP
  2977.     !word label_DROP
  2978.     !word label_EXIT
  2979.  
  2980.  
  2981. !tx 0x00, "QUIT", 0x00, 0x00
  2982. !word -
  2983. -
  2984. label_QUIT
  2985.     ENT
  2986.     !word label_RP0
  2987.     !word label_RP_excl
  2988.     !word label_int_lit
  2989.     !word $0000
  2990.     !word label_STATE
  2991.     !word label_excl
  2992. quit1
  2993.     !word label_DEPTH
  2994.     !word label_0_le
  2995.     !word label_int_q_branch
  2996.     !word quit4
  2997.     !word label_int_dot_double_quote
  2998.     !text "Empty Stack",0
  2999.     !word label_SP0
  3000.     !word label_SP_excl
  3001. quit4
  3002.     !word label_CR
  3003.     !word label_STATE
  3004.     !word label_at
  3005.     !word label_0_eq
  3006.     !word label_int_q_branch
  3007.     !word quit3
  3008.     !word label_int_dot_double_quote
  3009.     !text "> ",0
  3010.     !word label_int_branch
  3011.     !word quit2
  3012. quit3
  3013.     !word label_int_dot_double_quote
  3014.     !text "compile: ",0
  3015. quit2
  3016.     !word label_TIB
  3017.     !word label_int_lit
  3018.     !word $0078
  3019.     !word label_ACCEPT
  3020.     !word label_SPACE
  3021.     !word label_INTERPRET
  3022.     !word label_int_branch
  3023.     !word quit1
  3024.  
  3025.  
  3026. !tx 0x00, "WORDS", 0x00, 0x00
  3027. !word -
  3028. -
  3029. label_WORDS
  3030.     ENT
  3031.     !word label_VOCAB
  3032.     !word label_at
  3033. words1
  3034.     !word label_DUP
  3035.     !word label_int_q_branch
  3036.     !word words2
  3037.     !word label_DUP
  3038.     !word label_grNAME
  3039.     !word label_TYPE
  3040.     !word label_SPACE
  3041.     !word label_CELL
  3042.     !word label_minus
  3043.     !word label_at
  3044.     !word label_int_branch
  3045.     !word words1
  3046. words2
  3047.     !word label_DROP
  3048.     !word label_EXIT
  3049.  
  3050.  
  3051. !tx 0x00, "DEPTH", 0x00, 0x00
  3052. !word -
  3053. -
  3054. label_DEPTH
  3055.     ENT
  3056.     !word label_SP_at
  3057.     !word label_SP0
  3058.     !word label_SWAP
  3059.     !word label_minus
  3060.     !word label_2_forwardslash
  3061.     !word label_EXIT
  3062.  
  3063.  
  3064. !tx 0x00, ".S", 0x00, 0x00
  3065. !word -
  3066. -
  3067. label_dot_S
  3068.     ENT
  3069.     !word label_DEPTH
  3070.     !word label_DUP
  3071.     !word label_int_lit
  3072.     !word $0000
  3073.     !word label_int_q_do
  3074.     !word dot_s2
  3075. dot_s1
  3076.     !word label_DUP
  3077.     !word label_I
  3078.     !word label_minus
  3079.     !word label_PICK
  3080.     !word label_dot
  3081.     !word label_int_loop
  3082.     !word dot_s1
  3083.     !word label_UNLOOP
  3084. dot_s2
  3085.     !word label_DROP
  3086.     !word label_EXIT
  3087.  
  3088.  
  3089. !tx 0x00, "'", 0x00, 0x00
  3090. !word -
  3091. -
  3092. label_quote
  3093.     ENT
  3094.     !word label_TIBWORD
  3095.     !word label_DUP
  3096.     !word label_FIND
  3097.     !word label_q_DUP
  3098.     !word label_0_eq
  3099.     !word label_int_q_branch
  3100.     !word quote2
  3101.     !word label_int_dot_double_quote
  3102.     !text "Unknown Token: ",0
  3103.     !word label_TYPE
  3104.     !word label_CR
  3105.     !word label_ABORT
  3106.     !word label_int_branch
  3107.     !word quote1
  3108. quote2
  3109.     !word label_NIP
  3110. quote1
  3111.     !word label_EXIT
  3112.  
  3113.  
  3114. !tx 0x00, "FORGET", 0x00, 0x00
  3115. !word -
  3116. -
  3117. label_FORGET
  3118.     ENT
  3119.     !word label_quote
  3120.     !word label_DUP
  3121.     !word label_grNAME
  3122.     !word label_1_minus
  3123.     !word label_int_HERE
  3124.     !word label_excl
  3125.     !word label_CELL
  3126.     !word label_minus
  3127.     !word label_at
  3128.     !word label_VOCAB
  3129.     !word label_excl
  3130.     !word label_EXIT
  3131.  
  3132.  
  3133. !tx 0x00, "IOXADDR", 0x00, 0x00
  3134. !word -
  3135. -
  3136. label_IOXADDR
  3137.     ENT
  3138.     !word label_DOVAR
  3139.     !word $0003
  3140.  
  3141.  
  3142. !tx 0x00, "IOX@", 0x00, 0x00
  3143. !word -
  3144. -
  3145. label_IOX_at
  3146.     ENT
  3147.     !word label_IOXADDR
  3148.     !word label_at
  3149.     !word label_RBP_excl
  3150.     !word label_int_lit
  3151.     !word $0300
  3152.     !word label_at
  3153.     !word label_EXIT
  3154.  
  3155.  
  3156. !tx 0x00, "IOX!", 0x00, 0x00
  3157. !word -
  3158. -
  3159. label_IOX_excl
  3160.     ENT
  3161.     !word label_IOXADDR
  3162.     !word label_at
  3163.     !word label_RBP_excl
  3164.     !word label_int_lit
  3165.     !word $0302
  3166.     !word label_excl
  3167.     !word label_EXIT
  3168.  
  3169.  
  3170. !tx 0x00, "IOXSET", 0x00, 0x00
  3171. !word -
  3172. -
  3173. label_IOXSET
  3174.     ENT
  3175.     !word label_IOXADDR
  3176.     !word label_at
  3177.     !word label_RBP_excl
  3178.     !word label_int_lit
  3179.     !word $0302
  3180.     !word label_at
  3181.     !word label_OR
  3182.     !word label_int_lit
  3183.     !word $0302
  3184.     !word label_excl
  3185.     !word label_EXIT
  3186.  
  3187.  
  3188. !tx 0x00, "IOXRST", 0x00, 0x00
  3189. !word -
  3190. -
  3191. label_IOXRST
  3192.     ENT
  3193.     !word label_IOXADDR
  3194.     !word label_at
  3195.     !word label_RBP_excl
  3196.     !word label_INVERT
  3197.     !word label_int_lit
  3198.     !word $0302
  3199.     !word label_at
  3200.     !word label_AND
  3201.     !word label_int_lit
  3202.     !word $0302
  3203.     !word label_excl
  3204.     !word label_EXIT
  3205.  
  3206.  
  3207. !tx 0x00, "DISKADDR", 0x00, 0x00
  3208. !word -
  3209. -
  3210. label_DISKADDR
  3211.     ENT
  3212.     !word label_DOVAR
  3213.     !word $0002
  3214.  
  3215.  
  3216. !tx 0x00, "DISKNAME\"", 0x00, 0x00
  3217. !word -
  3218. -
  3219. label_DISKNAME_double_quote
  3220.     ENT
  3221.     !word label_int_lit
  3222.     !word $0022
  3223.     !word label_TIBSPLIT
  3224.     !word label_DISKADDR
  3225.     !word label_at
  3226.     !word label_RBP_excl
  3227.     !word label_int_lit
  3228.     !word $0300
  3229.     !word label_OVER
  3230.     !word label_STRLEN
  3231.     !word label_1_plus
  3232.     !word label_MOVE
  3233.     !word label_int_lit
  3234.     !word $0002
  3235.     !word label_int_lit
  3236.     !word $0382
  3237.     !word label_C_excl
  3238. DISKNAME_double_quote1
  3239.     !word label_int_lit
  3240.     !word $0382
  3241.     !word label_C_at
  3242.     !word label_int_lit
  3243.     !word $0002
  3244.     !word label_eq
  3245.     !word label_int_q_branch
  3246.     !word DISKNAME_double_quote2
  3247.     !word label_TICK
  3248.     !word label_int_branch
  3249.     !word DISKNAME_double_quote1
  3250. DISKNAME_double_quote2
  3251.     !word label_EXIT
  3252.  
  3253.  
  3254. !tx 0x00, "DISKID", 0x00, 0x00
  3255. !word -
  3256. -
  3257. label_DISKID
  3258.     ENT
  3259.     !word label_DISKADDR
  3260.     !word label_at
  3261.     !word label_RBP_excl
  3262.     !word label_int_lit
  3263.     !word $0003
  3264.     !word label_int_lit
  3265.     !word $0382
  3266.     !word label_C_excl
  3267. diskid1
  3268.     !word label_int_lit
  3269.     !word $0382
  3270.     !word label_C_at
  3271.     !word label_int_lit
  3272.     !word $0003
  3273.     !word label_eq
  3274.     !word label_int_q_branch
  3275.     !word diskid2
  3276.     !word label_TICK
  3277.     !word label_int_branch
  3278.     !word diskid1
  3279. diskid2
  3280.     !word label_int_lit
  3281.     !word $0300
  3282.     !word label_SCRATCH
  3283.     !word label_int_lit
  3284.     !word $0040
  3285.     !word label_MOVE
  3286.     !word label_SCRATCH
  3287.     !word label_TYPE
  3288.     !word label_EXIT
  3289.  
  3290.  
  3291. !tx 0x00, "DISKWS", 0x00, 0x00
  3292. !word -
  3293. -
  3294. label_DISKWS
  3295.     ENT
  3296.     !word label_DISKADDR
  3297.     !word label_at
  3298.     !word label_RBP_excl
  3299.     !word label_int_lit
  3300.     !word $0380
  3301.     !word label_excl
  3302.     !word label_int_lit
  3303.     !word $0300
  3304.     !word label_int_lit
  3305.     !word $0080
  3306.     !word label_MOVE
  3307.     !word label_int_lit
  3308.     !word $0005
  3309.     !word label_int_lit
  3310.     !word $0382
  3311.     !word label_C_excl
  3312. diskws1
  3313.     !word label_int_lit
  3314.     !word $0382
  3315.     !word label_C_at
  3316.     !word label_int_lit
  3317.     !word $0005
  3318.     !word label_eq
  3319.     !word label_int_q_branch
  3320.     !word diskws2
  3321.     !word label_TICK
  3322.     !word label_int_branch
  3323.     !word diskws1
  3324. diskws2
  3325.     !word label_EXIT
  3326.  
  3327.  
  3328. !tx 0x00, "DISKRS", 0x00, 0x00
  3329. !word -
  3330. -
  3331. label_DISKRS
  3332.     ENT
  3333.     !word label_DISKADDR
  3334.     !word label_at
  3335.     !word label_RBP_excl
  3336.     !word label_int_lit
  3337.     !word $0380
  3338.     !word label_excl
  3339.     !word label_int_lit
  3340.     !word $0004
  3341.     !word label_int_lit
  3342.     !word $0382
  3343.     !word label_C_excl
  3344. diskrs1
  3345.     !word label_int_lit
  3346.     !word $0382
  3347.     !word label_C_at
  3348.     !word label_int_lit
  3349.     !word $0004
  3350.     !word label_eq
  3351.     !word label_int_q_branch
  3352.     !word diskrs2
  3353.     !word label_TICK
  3354.     !word label_int_branch
  3355.     !word diskrs1
  3356. diskrs2
  3357.     !word label_int_lit
  3358.     !word $0300
  3359.     !word label_SWAP
  3360.     !word label_int_lit
  3361.     !word $0080
  3362.     !word label_MOVE
  3363.     !word label_EXIT
  3364.  
  3365.  
  3366. !tx 0x00, "SAVE\"", 0x00, 0x00
  3367. !word -
  3368. -
  3369. label_SAVE_double_quote
  3370.     ENT
  3371.     !word label_DISKNAME_double_quote
  3372.     !word label_int_lit
  3373.     !word $0500
  3374.     !word label_HERE
  3375.     !word label_int_lit
  3376.     !word $0481
  3377.     !word label_minus
  3378.     !word label_int_lit
  3379.     !word $0007
  3380.     !word label_U_rshift
  3381.     !word label_int_lit
  3382.     !word $0000
  3383.     !word label_int_do
  3384.     !word save_double_quote2
  3385. save_double_quote1
  3386.     !word label_DUP
  3387.     !word label_I
  3388.     !word label_DISKWS
  3389.     !word label_int_lit
  3390.     !word $0080
  3391.     !word label_plus
  3392.     !word label_int_loop
  3393.     !word save_double_quote1
  3394.     !word label_UNLOOP
  3395. save_double_quote2
  3396.     !word label_EXIT
  3397.  
  3398. !tx 0x00, "(blkbuf)", 0x00, 0x00
  3399. !word -
  3400. -
  3401. label_int_blkbuf
  3402.     ENT
  3403.     !word label_DOVAR
  3404.     !word $0000
  3405.  
  3406.  
  3407. !tx 0x00, "(blkno)", 0x00, 0x00
  3408. !word -
  3409. -
  3410. label_int_blkno
  3411.     ENT
  3412.     !word label_DOVAR
  3413.     !word $0000
  3414.  
  3415.  
  3416. !tx 0x00, "(blkup)", 0x00, 0x00
  3417. !word -
  3418. -
  3419. label_int_blkup
  3420.     ENT
  3421.     !word label_DOVAR
  3422.     !word $0000
  3423.  
  3424.  
  3425. !tx 0x00, "FLUSH", 0x00, 0x00
  3426. !word -
  3427. -
  3428. label_FLUSH
  3429.     ENT
  3430.     !word label_int_blkbuf
  3431.     !word label_at
  3432.     !word label_int_blkno
  3433.     !word label_at
  3434.     !word label_1_minus
  3435.     !word label_int_lit
  3436.     !word $0003
  3437.     !word label_lshift
  3438.     !word label_int_lit
  3439.     !word $0008
  3440.     !word label_int_lit
  3441.     !word $0000
  3442.     !word label_int_do
  3443.     !word flush2
  3444. flush1
  3445.     !word label_2DUP
  3446.     !word label_DISKWS
  3447.     !word label_SWAP
  3448.     !word label_int_lit
  3449.     !word $0080
  3450.     !word label_plus
  3451.     !word label_SWAP
  3452.     !word label_1_plus
  3453.     !word label_int_loop
  3454.     !word flush1
  3455.     !word label_UNLOOP
  3456. flush2
  3457.     !word label_2DROP
  3458.     !word label_int_lit
  3459.     !word $0000
  3460.     !word label_int_blkup
  3461.     !word label_excl
  3462.     !word label_EXIT
  3463.  
  3464.  
  3465. !tx 0x00, "REVERT", 0x00, 0x00
  3466. !word -
  3467. -
  3468. label_REVERT
  3469.     ENT
  3470.     !word label_int_lit
  3471.     !word $0000
  3472.     !word label_int_blkup
  3473.     !word label_excl
  3474.     !word label_int_blkbuf
  3475.     !word label_at
  3476.     !word label_int_blkno
  3477.     !word label_at
  3478.     !word label_1_minus
  3479.     !word label_int_lit
  3480.     !word $0003
  3481.     !word label_lshift
  3482.     !word label_int_lit
  3483.     !word $0008
  3484.     !word label_int_lit
  3485.     !word $0000
  3486.     !word label_int_do
  3487.     !word revert2
  3488. revert1
  3489.     !word label_2DUP
  3490.     !word label_DISKRS
  3491.     !word label_SWAP
  3492.     !word label_int_lit
  3493.     !word $0080
  3494.     !word label_plus
  3495.     !word label_SWAP
  3496.     !word label_1_plus
  3497.     !word label_int_loop
  3498.     !word revert1
  3499.     !word label_UNLOOP
  3500. revert2
  3501.     !word label_2DROP
  3502.     !word label_EXIT
  3503.  
  3504.  
  3505. !tx 0x00, "BLOCK", 0x00, 0x00
  3506. !word -
  3507. -
  3508. label_BLOCK
  3509.     ENT
  3510.     !word label_int_blkbuf
  3511.     !word label_at
  3512.     !word label_0_eq
  3513.     !word label_int_q_branch
  3514.     !word block3
  3515.     !word label_int_lit
  3516.     !word $0400
  3517.     !word label_ALLOT
  3518.     !word label_int_blkbuf
  3519.     !word label_excl
  3520. block3
  3521.     !word label_DUP
  3522.     !word label_int_blkno
  3523.     !word label_at
  3524.     !word label_eq
  3525.     !word label_int_q_branch
  3526.     !word block2
  3527.     !word label_DROP
  3528.     !word label_int_blkbuf
  3529.     !word label_at
  3530.     !word label_EXIT
  3531. block2
  3532.     !word label_int_blkno
  3533.     !word label_at
  3534.     !word label_0_le_gr
  3535.     !word label_int_q_branch
  3536.     !word block1
  3537.     !word label_FLUSH
  3538. block1
  3539.     !word label_int_blkno
  3540.     !word label_excl
  3541.     !word label_REVERT
  3542.     !word label_int_blkbuf
  3543.     !word label_at
  3544.     !word label_EXIT
  3545.  
  3546.  
  3547. !tx 0x00, "UPDATE", 0x00, 0x00
  3548. !word -
  3549. -
  3550. label_UPDATE
  3551.     ENT
  3552.     !word label_int_lit
  3553.     !word $0001
  3554.     !word label_int_blkup
  3555.     !word label_excl
  3556.     !word label_EXIT
  3557.  
  3558.  
  3559. !tx 0x00, "LIST", 0x00, 0x00
  3560. !word -
  3561. -
  3562. label_LIST
  3563.     ENT
  3564.     !word label_BLOCK
  3565.     !word label_CR
  3566.     !word label_int_lit
  3567.     !word $000A
  3568.     !word label_RADIX
  3569.     !word label_excl
  3570.     !word label_int_lit
  3571.     !word $0010
  3572.     !word label_int_lit
  3573.     !word $0000
  3574.     !word label_int_do
  3575.     !word list5
  3576. list1
  3577.     !word label_I
  3578.     !word label_int_lit
  3579.     !word $000A
  3580.     !word label_le
  3581.     !word label_int_q_branch
  3582.     !word list4
  3583.     !word label_SPACE
  3584. list4
  3585.     !word label_I
  3586.     !word label_dot
  3587.     !word label_int_lit
  3588.     !word $0040
  3589.     !word label_int_lit
  3590.     !word $0000
  3591.     !word label_int_do
  3592.     !word list3
  3593. list2
  3594.     !word label_DUP
  3595.     !word label_C_at
  3596.     !word label_EMIT
  3597.     !word label_1_plus
  3598.     !word label_int_loop
  3599.     !word list2
  3600.     !word label_UNLOOP
  3601. list3
  3602.     !word label_CR
  3603.     !word label_int_loop
  3604.     !word list1
  3605.     !word label_UNLOOP
  3606. list5
  3607.     !word label_DROP
  3608.     !word label_EXIT
  3609.  
  3610.  
  3611. !tx 0x00, "WIPE", 0x00, 0x00
  3612. !word -
  3613. -
  3614. label_WIPE
  3615.     ENT
  3616.     !word label_UPDATE
  3617.     !word label_int_blkbuf
  3618.     !word label_at
  3619.     !word label_int_lit
  3620.     !word $0400
  3621.     !word label_int_lit
  3622.     !word $0020
  3623.     !word label_FILL
  3624.     !word label_EXIT
  3625.  
  3626.  
  3627. !tx 0x00, "PP", 0x00, 0x00
  3628. !word -
  3629. -
  3630. label_PP
  3631.     ENT
  3632.     !word label_UPDATE
  3633.     !word label_int_lit
  3634.     !word $0006
  3635.     !word label_lshift
  3636.     !word label_int_blkbuf
  3637.     !word label_at
  3638.     !word label_plus
  3639.     !word label_DUP
  3640.     !word label_int_lit
  3641.     !word $0040
  3642.     !word label_int_lit
  3643.     !word $0020
  3644.     !word label_FILL
  3645.     !word label_int_lit
  3646.     !word $000D
  3647.     !word label_TIBSPLIT
  3648.     !word label_TUCK
  3649.     !word label_STRLEN
  3650.     !word label_int_lit
  3651.     !word $0040
  3652.     !word label_MIN
  3653.     !word label_MOVE
  3654.     !word label_EXIT
  3655.  
  3656.  
  3657. !tx 0x00, "LOAD", 0x00, 0x00
  3658. !word -
  3659. -
  3660. label_LOAD
  3661.     ENT
  3662.     !word label_BLOCK
  3663.     !word label_int_lit
  3664.     !word $0000
  3665.     !word label_TIB
  3666.     !word label_int_lit
  3667.     !word $0040
  3668.     !word label_plus
  3669.     !word label_C_excl
  3670.     !word label_int_lit
  3671.     !word $0010
  3672.     !word label_int_lit
  3673.     !word $0000
  3674.     !word label_int_do
  3675.     !word load2
  3676. load1
  3677.     !word label_DUP
  3678.     !word label_TIB
  3679.     !word label_int_lit
  3680.     !word $0040
  3681.     !word label_MOVE
  3682.     !word label_TIB
  3683.     !word label_TIBPTR
  3684.     !word label_excl
  3685.     !word label_TIB
  3686.     !word label_INTERPRET
  3687.     !word label_int_lit
  3688.     !word $0040
  3689.     !word label_plus
  3690.     !word label_int_loop
  3691.     !word load1
  3692.     !word label_UNLOOP
  3693. load2
  3694.     !word label_DROP
  3695.     !word label_EXIT
  3696.  
  3697.  
  3698. !tx 0x00, "COLD", 0x00, 0x00
  3699. !word -
  3700. -
  3701. label_COLD
  3702.     ENT
  3703.     !word label_int_lit
  3704.     !word $0000
  3705.     !word label_C_at
  3706.     !word label_DISKADDR
  3707.     !word label_excl
  3708.     !word label_int_lit
  3709.     !word $0001
  3710.     !word label_C_at
  3711.     !word label_TERMADDR
  3712.     !word label_excl
  3713.     !word label_CR
  3714.     !word label_CR
  3715.     !word label_int_dot_double_quote
  3716.     !text "MineOS V1.1 Initialized",0
  3717.     !word label_CR
  3718.     !word label_PROBE
  3719.     !word label_TOP
  3720.     !word label_excl
  3721.     !word label_FREE
  3722.     !word label_U_dot
  3723.     !word label_int_dot_double_quote
  3724.     !text "bytes free.",0
  3725.     !word label_CR
  3726.     !word label_QUIT
  3727.  
  3728. label_end
  3729. !align 127, 0, $00
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!