![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / misc|
Return to prim.fs CVS log | Up to [gforth] / gforth / arch / misc |
1.6 jwilke 1:
2:
1.8 jwilke 3: 0 [IF]
4: Ideas/Todo
5:
6:
7: [THEN]
8:
1.6 jwilke 9: UNLOCK
10: >ENVIRON
11: \ true SetValue PrimTrace
12:
13: LOCK
14:
1.8 jwilke 15: UNLOCK
16: also assembler definitions
17:
18: X has? PrimTrace [IF]
19: : dout PC+6 X , accu X ,
20: *accu X , txd X ,
21: PC+4 X , jmp X ,
22: X , 0 X , ;
23: [ELSE]
24: : dout drop ;
25: [THEN]
26:
27: LOCK
28:
1.1 pazsan 29: \ pie primitives
30:
31: $20 allot
32:
1.6 jwilke 33: Label start ahere 2 + , jmp ,
34: Label "IntoForth" 4711 ,
35:
36: Label RP' 0 ,
37: Label SP' 0 ,
38: Label UP' 0 ,
39: Label IP' 0 ,
1.1 pazsan 40:
41: Label #0 0 ,
42: Label #1 1 ,
1.6 jwilke 43: Label #2 2 ,
44: Label #4 4 ,
45: Label #FF $FF ,
46: Label #$8000 $8000 ,
47: Label #-1 -1 ,
48: Label "Next" 1802 ,
49: Label "Next1" 1802 ,
50: Label ""Next"" "Next" ,
51: End-Label
52:
53: \ The virtual machine registers an data (stacks) go
54: \ to a seperate memory region (hopefully ram)
55:
1.11 ! pazsan 56: \ UNLOCK
! 57: \ current-region vm-memory activate ( saved-region )
! 58: \ LOCK
1.6 jwilke 59:
1.1 pazsan 60: Label RP 0 ,
61: Label SP 0 ,
62: Label UP 0 ,
63: Label IP 0 ,
64: Label W 0 ,
1.2 pazsan 65: Label t0 0 ,
66: Label t1 0 ,
67: Label t2 0 ,
68: Label t3 0 ,
69: Label srcx 0 ,
70: Label dstx 0 ,
1.6 jwilke 71: "Next" , jmp ,
72: Label data-stack 50 cells allot
73: Label data-stack-top 2 cells allot
74: Label return-stack 50 cells allot
75: Label return-stack-top 2 cells allot
76:
77: End-Label
78:
79: UNLOCK
80: ( saved-region ) activate
81: LOCK
1.2 pazsan 82:
83: \ Up to here it's self modified
1.6 jwilke 84: Label IntoForth
85: \ Transfer VM registers initial values
86: RP' , RP ,
87: SP' , SP ,
88: IP' , IP ,
89: UP' , UP , \ useless since UP is initialized by gforth boot
90: ""Next"" , dstx 1 + ,
91: #0 , dstx 2 + ,
1.2 pazsan 92:
1.6 jwilke 93: Label Next #0 , add , \ clear carry
1.1 pazsan 94: IP , shr ,
95: sym Next
1.2 pazsan 96: *accu , W ,
1.1 pazsan 97: #1 , add ,
98: accu , add ,
99: accu , IP ,
1.2 pazsan 100: Label Next1 W , shr ,
101: *accu , shr ,
1.1 pazsan 102: accu , jmp ,
1.6 jwilke 103:
1.2 pazsan 104: Label "xmov" srcx ,
1.6 jwilke 105: End-Label
1.2 pazsan 106:
1.6 jwilke 107: IntoForth "IntoForth" 2* !
108: Next "Next" 2* !
109: Next1 "Next1" 2* !
1.1 pazsan 110:
1.6 jwilke 111: has? PrimTrace [IF]
1.1 pazsan 112: Label "0" '< ,
113: Label "1" '1 ,
114: Label "2" '2 ,
115: Label "3" '3 ,
116: Label "4" '4 ,
117: Label "5" '5 ,
118: Label "6" '6 ,
119: Label "A" 'A ,
120: Label "B" 'B ,
121: Label "C" 'C ,
122: Label "D" 'D ,
123: Label "E" 'E ,
124: Label "F" '> ,
125: Label "?" '? ,
126: Label "+" '+ ,
127: Label "/" '/ ,
128: Label "H" 'H ,
129: Label "I" 'I ,
130: Label "J" 'J ,
131: Label "K" 'K ,
132: Label "L" 'L ,
133: Label "M" 'M ,
134: Label "N" 'N ,
135: Label "O" 'O ,
136: Label "P" 'P ,
137: Label "Q" 'Q ,
138: Label "R" 'R ,
139: Label "S" 'S ,
140: Label "T" 'T ,
141: Label "#" '# ,
1.6 jwilke 142: End-Label
143: [THEN]
1.1 pazsan 144:
145:
1.8 jwilke 146: Code: :docol
147: ': dout
1.1 pazsan 148: RP , accu ,
149: #1 , sub ,
150: accu , RP ,
1.2 pazsan 151: IP , *accu ,
1.1 pazsan 152: W , accu ,
153: #4 , add ,
154: accu , IP ,
155: "Next" , jmp ,
156: end-code
157:
1.8 jwilke 158: Code: :docon
159: '1 dout
1.2 pazsan 160: #0 , add ,
161: W , shr ,
162: #2 , add ,
163: *accu , t0 ,
1.1 pazsan 164: SP , accu ,
165: #1 , sub ,
166: accu , SP ,
1.2 pazsan 167: t0 , *accu ,
1.1 pazsan 168: "Next" , jmp ,
169: end-code
170:
1.8 jwilke 171: Code: :dovar
172: '2 dout
1.2 pazsan 173: W , accu ,
174: #4 , add ,
175: accu , t0 ,
1.1 pazsan 176: SP , accu ,
177: #1 , sub ,
178: accu , SP ,
1.2 pazsan 179: t0 , *accu ,
1.1 pazsan 180: "Next" , jmp ,
181: end-code
182:
1.8 jwilke 183: Code: :douser
184: '3 dout
1.1 pazsan 185: #0 , add ,
186: W , shr ,
187: #2 , add ,
1.2 pazsan 188: *accu , accu ,
1.1 pazsan 189: UP , add ,
1.2 pazsan 190: accu , t0 ,
191: SP , accu ,
192: #1 , sub ,
193: accu , SP ,
194: t0 , *accu ,
1.1 pazsan 195: "Next" , jmp ,
196: end-code
197:
1.8 jwilke 198: Code: :dodefer
199: '4 dout
1.1 pazsan 200: #0 , add ,
201: W , shr ,
202: #2 , add ,
1.2 pazsan 203: *accu , W ,
1.1 pazsan 204: "Next1" , jmp ,
205: end-code
206:
1.8 jwilke 207: Code: :dofield
208: '5 dout
1.1 pazsan 209: #0 , add ,
210: W , shr ,
211: #2 , add ,
1.2 pazsan 212: *accu , accu ,
213: accu , t0 ,
214: SP , accu ,
215: *accu , accu ,
216: t0 , add ,
217: accu , t0 ,
218: SP , accu ,
219: t0 , *accu ,
1.1 pazsan 220: "Next" , jmp ,
221: end-code
222:
1.8 jwilke 223: Code: :dodoes
224: '6 dout
1.1 pazsan 225: RP , accu ,
226: #1 , sub ,
227: accu , RP ,
1.2 pazsan 228: IP , *accu ,
229: W , accu ,
230: #4 , add ,
231: accu , t0 ,
1.1 pazsan 232: SP , accu ,
233: #1 , sub ,
234: accu , SP ,
1.2 pazsan 235: t0 , *accu ,
236: t0 , accu ,
1.1 pazsan 237: #2 , sub ,
238: #0 , add ,
239: accu , shr ,
1.2 pazsan 240: *accu , IP ,
1.1 pazsan 241: "Next" , jmp ,
242: end-code
243:
1.4 jwilke 244: Code: :doesjump
245: end-code
246:
1.8 jwilke 247: Code execute
248: 'E dout
249: SP , accu ,
250: *accu , W ,
251: #1 , add ,
252: accu , SP ,
253: "Next1" , jmp ,
254: end-code
255:
256: Code ;s
257: '; dout
258: RP , accu ,
259: #1 , add ,
260: accu , RP ,
261: #1 , sub ,
262: *accu , IP ,
263: "Next" , jmp ,
264: end-code
265:
266: Code !
267: '! dout
1.1 pazsan 268: SP , accu ,
1.2 pazsan 269: *accu , t0 ,
1.1 pazsan 270: #1 , add ,
1.2 pazsan 271: *accu , t1 ,
1.1 pazsan 272: #1 , add ,
273: accu , SP ,
1.2 pazsan 274: t0 , shr ,
275: t1 , *accu ,
1.1 pazsan 276: "Next" , jmp ,
277: end-code
278:
1.8 jwilke 279: Code @
280: '@ dout
1.1 pazsan 281: #0 , add ,
1.2 pazsan 282: SP , accu ,
283: *accu , shr ,
284: *accu , t0 ,
285: SP , accu ,
286: t0 , *accu ,
1.1 pazsan 287: "Next" , jmp ,
288: end-code
289:
1.8 jwilke 290: Code ?branch
291: '? dout
1.1 pazsan 292: #0 , add ,
293: IP , shr ,
1.2 pazsan 294: accu , t0 ,
1.1 pazsan 295: #1 , add ,
296: accu , add ,
297: accu , IP ,
1.8 jwilke 298: SP , accu ,
299: *accu , t1 ,
1.1 pazsan 300: #1 , add ,
301: accu , SP ,
1.8 jwilke 302: t1 , accu ,
1.1 pazsan 303: pc+4 , jz ,
304: "Next" , jmp ,
1.8 jwilke 305: '~ dout
1.2 pazsan 306: t0 , accu ,
1.11 ! pazsan 307: *accu , IP ,
1.1 pazsan 308: "Next" , jmp ,
309: end-code
310:
1.8 jwilke 311: Code branch
312: 'b dout
1.1 pazsan 313: #0 , add ,
314: IP , shr ,
1.11 ! pazsan 315: *accu , IP ,
1.1 pazsan 316: "Next" , jmp ,
317: end-code
318:
1.8 jwilke 319: Code (loop)
320: 'l dout
1.1 pazsan 321: #0 , add ,
322: IP , shr ,
1.2 pazsan 323: *accu , t0 ,
1.1 pazsan 324: #1 , add ,
325: accu , add ,
326: accu , IP ,
327: RP , accu ,
1.2 pazsan 328: *accu , t2 ,
1.1 pazsan 329: #1 , add ,
1.2 pazsan 330: *accu , t3 ,
331: t2 , accu ,
1.1 pazsan 332: #1 , add ,
1.2 pazsan 333: accu , t1 ,
334: RP , accu ,
335: t1 , *accu ,
336: t1 , accu ,
337: t3 , sub ,
1.1 pazsan 338: "Next" , jz ,
1.2 pazsan 339: t0 , accu ,
1.11 ! pazsan 340: *accu , IP ,
! 341: "Next" , jmp ,
1.1 pazsan 342: end-code
343:
1.8 jwilke 344: Code xor
345: 'x dout
1.1 pazsan 346: SP , accu ,
1.2 pazsan 347: *accu , t0 ,
1.1 pazsan 348: #1 , add ,
349: accu , SP ,
1.2 pazsan 350: *accu , accu ,
351: t0 , xor ,
352: accu , t0 ,
353: SP , accu ,
354: t0 , *accu ,
1.1 pazsan 355: "Next" , jmp ,
356: end-code
357:
1.8 jwilke 358: Code or
359: 'o dout
1.1 pazsan 360: SP , accu ,
1.2 pazsan 361: *accu , t0 ,
1.1 pazsan 362: #1 , add ,
363: accu , SP ,
1.2 pazsan 364: *accu , accu ,
365: t0 , or ,
366: accu , t0 ,
367: SP , accu ,
368: t0 , *accu ,
1.1 pazsan 369: "Next" , jmp ,
370: end-code
371:
1.8 jwilke 372: Code and
373: 'a dout
1.1 pazsan 374: SP , accu ,
1.2 pazsan 375: *accu , t0 ,
1.1 pazsan 376: #1 , add ,
377: accu , SP ,
1.2 pazsan 378: *accu , accu ,
379: t0 , and ,
380: accu , t0 ,
381: SP , accu ,
382: t0 , *accu ,
1.1 pazsan 383: "Next" , jmp ,
384: end-code
385:
1.8 jwilke 386: Code +
387: '+ dout
1.1 pazsan 388: SP , accu ,
1.2 pazsan 389: *accu , t0 ,
1.1 pazsan 390: #1 , add ,
391: accu , SP ,
1.2 pazsan 392: *accu , accu ,
393: t0 , add ,
394: accu , t0 ,
395: SP , accu ,
396: t0 , *accu ,
1.1 pazsan 397: "Next" , jmp ,
398: end-code
399:
1.8 jwilke 400: Code -
401: '- dout
1.1 pazsan 402: SP , accu ,
1.2 pazsan 403: *accu , t0 ,
1.1 pazsan 404: #1 , add ,
405: accu , SP ,
1.2 pazsan 406: *accu , accu ,
407: t0 , sub ,
408: accu , t0 ,
409: SP , accu ,
410: t0 , *accu ,
1.1 pazsan 411: "Next" , jmp ,
412: end-code
413:
1.8 jwilke 414: Code 2/
415: '/ dout
1.1 pazsan 416: #0 , add ,
1.2 pazsan 417: SP , accu ,
418: *accu , accu ,
1.1 pazsan 419: PC+6 , js ,
420: accu , shr ,
421: PC+6 , jmp ,
422: accu , shr ,
423: #$8000 , or ,
1.2 pazsan 424: accu , t0 ,
425: SP , accu ,
426: t0 , *accu ,
1.1 pazsan 427: "Next" , jmp ,
428: end-code
429:
1.8 jwilke 430: Code 0=
431: '° dout
1.2 pazsan 432: SP , accu ,
433: *accu , accu ,
1.1 pazsan 434: ZF , accu ,
1.2 pazsan 435: #1 , xor ,
436: #1 , sub ,
437: accu , t0 ,
438: SP , accu ,
439: t0 , *accu ,
1.1 pazsan 440: "Next" , jmp ,
441: end-code
442:
1.8 jwilke 443: Code 0<>
444: '% dout
1.2 pazsan 445: SP , accu ,
446: *accu , accu ,
1.1 pazsan 447: ZF , accu ,
1.2 pazsan 448: #1 , sub ,
449: accu , t0 ,
450: SP , accu ,
451: t0 , *accu ,
1.1 pazsan 452: "Next" , jmp ,
453: end-code
454:
1.8 jwilke 455: Code =
456: '= dout
1.1 pazsan 457: SP , accu ,
1.2 pazsan 458: *accu , t0 ,
1.1 pazsan 459: #1 , add ,
460: accu , SP ,
1.2 pazsan 461: *accu , accu ,
462: t0 , sub ,
1.1 pazsan 463: ZF , accu ,
1.2 pazsan 464: #1 , xor ,
465: #1 , sub ,
466: accu , t0 ,
467: SP , accu ,
468: t0 , *accu ,
1.1 pazsan 469: "Next" , jmp ,
470: end-code
471:
1.8 jwilke 472: Code u<
473: '< dout
1.1 pazsan 474: SP , accu ,
1.2 pazsan 475: *accu , t0 ,
1.1 pazsan 476: #1 , add ,
477: accu , SP ,
1.2 pazsan 478: *accu , accu ,
479: t0 , sub ,
1.1 pazsan 480: CF , accu ,
1.2 pazsan 481: #1 , xor ,
482: #1 , sub ,
483: accu , t0 ,
484: SP , accu ,
485: t0 , *accu ,
1.1 pazsan 486: "Next" , jmp ,
487: end-code
488:
1.8 jwilke 489: Code 1+
490: 'p dout
1.2 pazsan 491: SP , accu ,
492: *accu , accu ,
1.1 pazsan 493: #1 , add ,
1.2 pazsan 494: accu , t0 ,
495: SP , accu ,
496: t0 , *accu ,
1.1 pazsan 497: "Next" , jmp ,
498: end-code
499:
1.8 jwilke 500: Code cell+
501: 'P dout
1.2 pazsan 502: SP , accu ,
503: *accu , accu ,
1.1 pazsan 504: #2 , add ,
1.2 pazsan 505: accu , t0 ,
506: SP , accu ,
507: t0 , *accu ,
1.1 pazsan 508: "Next" , jmp ,
509: end-code
510:
1.8 jwilke 511: Code 8<<
512: '{ dout
1.1 pazsan 513: #0 , add ,
514: SP , accu ,
1.2 pazsan 515: *accu , accu ,
1.1 pazsan 516: accu , add ,
517: accu , add ,
518: accu , add ,
519: accu , add ,
520: accu , add ,
521: accu , add ,
522: accu , add ,
523: accu , add ,
1.2 pazsan 524: accu , t0 ,
525: SP , accu ,
526: t0 , *accu ,
1.1 pazsan 527: "Next" , jmp ,
528: end-code
529:
1.8 jwilke 530: Code 8>>
531: '{ dout
1.1 pazsan 532: #0 , add ,
533: SP , accu ,
1.2 pazsan 534: Label c-even@ *accu , shr ,
1.1 pazsan 535: accu , shr ,
536: accu , shr ,
537: accu , shr ,
538: accu , shr ,
539: accu , shr ,
540: accu , shr ,
541: accu , shr ,
542: #FF , and ,
1.2 pazsan 543: accu , t0 ,
544: SP , accu ,
545: t0 , *accu ,
1.1 pazsan 546: "Next" , jmp ,
547: Label "c-even@" c-even@ ,
548: end-code
549:
1.8 jwilke 550: Code c@
551: 'c dout
1.1 pazsan 552: #0 , add ,
1.2 pazsan 553: SP , accu ,
554: *accu , shr ,
1.1 pazsan 555: PC+4 , jc ,
556: "c-even@" , jmp ,
1.2 pazsan 557: *accu , accu ,
1.1 pazsan 558: #FF , and ,
1.2 pazsan 559: accu , t0 ,
560: SP , accu ,
561: t0 , *accu ,
1.1 pazsan 562: "Next" , jmp ,
1.10 jwilke 563: end-code
1.1 pazsan 564:
1.8 jwilke 565: Code 2*
566: '* dout
1.2 pazsan 567: SP , accu ,
568: *accu , accu ,
1.1 pazsan 569: accu , add ,
1.2 pazsan 570: accu , t0 ,
571: SP , accu ,
572: t0 , *accu ,
1.1 pazsan 573: "Next" , jmp ,
574: end-code
575:
1.8 jwilke 576: Code >r
577: 'R dout
1.2 pazsan 578: SP , accu ,
579: *accu , t0 ,
580: #1 , add ,
581: accu , SP ,
1.1 pazsan 582: RP , accu ,
583: #1 , sub ,
584: accu , RP ,
1.2 pazsan 585: t0 , *accu ,
1.1 pazsan 586: "Next" , jmp ,
587: end-code
588:
1.8 jwilke 589: Code r>
590: 'r dout
1.1 pazsan 591: RP , accu ,
1.2 pazsan 592: *accu , t0 ,
1.1 pazsan 593: #1 , add ,
594: accu , RP ,
595: SP , accu ,
596: #1 , sub ,
597: accu , SP ,
1.2 pazsan 598: t0 , *accu ,
1.1 pazsan 599: "Next" , jmp ,
600: end-code
601:
1.8 jwilke 602: Code sp@
603: 's dout
1.1 pazsan 604: SP , accu ,
1.2 pazsan 605: accu , add ,
606: accu , t0 ,
607: SP , accu ,
1.1 pazsan 608: #1 , sub ,
609: accu , SP ,
1.2 pazsan 610: t0 , *accu ,
1.1 pazsan 611: "Next" , jmp ,
612: end-code
613:
1.8 jwilke 614: Code sp!
615: 'S dout
1.1 pazsan 616: #0 , add ,
1.2 pazsan 617: SP , accu ,
618: *accu , shr ,
1.1 pazsan 619: accu , SP ,
620: "Next" , jmp ,
621: end-code
622:
1.8 jwilke 623: Code rp@
1.2 pazsan 624: RP , accu ,
625: accu , add ,
626: accu , t0 ,
1.1 pazsan 627: SP , accu ,
628: #1 , sub ,
629: accu , SP ,
1.2 pazsan 630: t0 , *accu ,
1.1 pazsan 631: "Next" , jmp ,
632: end-code
633:
634: Code rp! sym rp!
635: SP , accu ,
1.2 pazsan 636: *accu , t0 ,
1.1 pazsan 637: #1 , add ,
638: accu , SP ,
639: #0 , add ,
1.2 pazsan 640: t0 , shr ,
1.1 pazsan 641: accu , RP ,
642: "Next" , jmp ,
643: end-code
644:
1.8 jwilke 645: Code drop
646: 'd dout
1.1 pazsan 647: SP , accu ,
648: #1 , add ,
649: accu , SP ,
650: "Next" , jmp ,
651: end-code
652:
1.8 jwilke 653: Code lit
654: '# dout
1.1 pazsan 655: IP , shr ,
1.2 pazsan 656: *accu , t0 ,
1.1 pazsan 657: #1 , add ,
658: accu , add ,
659: accu , IP ,
1.2 pazsan 660: SP , accu ,
661: #1 , sub ,
662: accu , SP ,
663: t0 , *accu ,
1.1 pazsan 664: "Next" , jmp ,
665: end-code
666:
1.8 jwilke 667: Code dup
668: 'u dout
1.1 pazsan 669: SP , accu ,
1.2 pazsan 670: *accu , t0 ,
1.1 pazsan 671: #1 , sub ,
672: accu , SP ,
1.2 pazsan 673: t0 , *accu ,
1.1 pazsan 674: "Next" , jmp ,
675: end-code
676:
1.8 jwilke 677: Code r@
678: 'I dout
1.2 pazsan 679: RP , accu ,
680: *accu , t0 ,
1.1 pazsan 681: SP , accu ,
682: #1 , sub ,
683: accu , SP ,
1.2 pazsan 684: t0 , *accu ,
1.1 pazsan 685: "Next" , jmp ,
686: end-code
687:
1.8 jwilke 688: Code over
689: 'v dout
1.1 pazsan 690: SP , accu ,
691: #1 , add ,
1.2 pazsan 692: *accu , t0 ,
1.1 pazsan 693: #2 , sub ,
694: accu , SP ,
1.2 pazsan 695: t0 , *accu ,
1.1 pazsan 696: "Next" , jmp ,
697: end-code
698:
1.8 jwilke 699: Code swap
700: 'w dout
1.1 pazsan 701: SP , accu ,
1.2 pazsan 702: *accu , t0 ,
1.1 pazsan 703: #1 , add ,
1.2 pazsan 704: *accu , t1 ,
705: t0 , *accu ,
706: #1 , sub ,
707: t1 , *accu ,
1.1 pazsan 708: "Next" , jmp ,
709: end-code
710:
1.8 jwilke 711: Code d+
1.1 pazsan 712: SP , accu ,
1.2 pazsan 713: *accu , t0 ,
1.1 pazsan 714: #1 , add ,
1.2 pazsan 715: *accu , t1 ,
1.1 pazsan 716: #1 , add ,
1.2 pazsan 717: *accu , t2 ,
1.1 pazsan 718: accu , SP ,
719: #1 , add ,
1.2 pazsan 720: *accu , accu ,
721: t1 , add ,
722: accu , t1 ,
1.1 pazsan 723: CF , accu ,
1.2 pazsan 724: t2 , add ,
725: t0 , add ,
726: accu , t0 ,
727: SP , accu ,
728: t0 , *accu ,
729: #1 , add ,
730: t1 , *accu ,
1.1 pazsan 731: "Next" , jmp ,
732: end-code
733:
734: Label cf1 0 ,
1.10 jwilke 735: End-Label
1.1 pazsan 736: Code d2*+ sym d2*+
1.2 pazsan 737: SP , accu ,
738: Label >d2*+ *accu , t0 ,
739: #1 , add ,
740: *accu , t1 ,
1.1 pazsan 741: #1 , add ,
1.2 pazsan 742: *accu , t2 ,
743: accu , t3 ,
744: t0 , accu ,
745: t2 , add ,
746: t2 , add ,
747: accu , t2 ,
748: CF , accu ,
749: t1 , add ,
750: t1 , add ,
751: accu , t0 ,
752: t1 , accu ,
1.1 pazsan 753: #$8000 , and ,
1.2 pazsan 754: accu , t1 ,
755: t3 , accu ,
756: t2 , *accu ,
757: #1 , sub ,
758: t0 , *accu ,
759: #1 , sub ,
760: t1 , *accu ,
1.1 pazsan 761: "Next" , jmp ,
762: end-code
763:
764: Label "d2*+" >d2*+ ,
1.10 jwilke 765: End-Label
1.1 pazsan 766: Code /modstep ( ud c R: u -- ud-?u 0/1 )
767: sym /modstep
768: SP , accu ,
1.2 pazsan 769: *accu , t0 ,
770: #1 , add ,
771: *accu , t1 ,
1.1 pazsan 772: #1 , add ,
1.2 pazsan 773: *accu , t2 ,
774: t2 , accu ,
775: t0 , sub ,
776: accu , t0 ,
1.1 pazsan 777: CF , accu ,
1.2 pazsan 778: t1 , or ,
1.1 pazsan 779: PC+6 , JZ ,
780: #0 , accu ,
781: PC+6 , jmp ,
1.2 pazsan 782: t0 , t2 ,
1.1 pazsan 783: #1 , accu ,
1.2 pazsan 784: accu , t0 ,
785: SP , accu ,
786: #1 , add ,
787: t0 , *accu ,
788: #1 , add ,
789: t2 , *accu ,
790: #1 , sub ,
1.1 pazsan 791: "d2*+" , jmp ,
792: end-code
1.8 jwilke 793:
794: Code (key)
795: SP , accu ,
796: #1 , sub ,
797: accu , SP ,
798: rxd , *accu ,
799: "Next" , jmp ,
800: end-code
801:
802: Code (key?)
803: rx? , accu ,
804: ZF , accu ,
805: #1 , sub ,
806: accu , t0 ,
807: SP , accu ,
808: #1 , sub ,
809: accu , SP ,
810: t0 , *accu ,
811: "Next" , jmp ,
812: end-code
813:
814: Code (emit)
815: SP , accu ,
816: *accu , txd ,
817: #1 , add ,
818: accu , SP ,
819: "Next" , jmp ,
820: end-code
1.1 pazsan 821:
822: UP 2* Constant UP
823:
1.5 pazsan 824: : up@ up @ ;
825: : up! up ! ;
1.1 pazsan 826:
1.8 jwilke 827: \ include ./key.fs
828: include ./optcmove.fs