BYE
Předcházející Slovník ANSI forthu Další

$Header: /home/radek/cvs/forth-book/dictionary/ansi/0830.bye,v 1.1 2003/12/28 18:21:57 radek Exp $

Jméno

BYE — ukončení práce v prostředí forthu a návrat do systému

Přehled

( → )

Protože slovo ukončuje práci prostředí forthu, nedojde nikdy k návratu z něj.

Popis

Definováno v: dpANS Forth 15.6.2.0830 EXT

Ukončí práci v prostředí Forthu, a provede návrat do systému odkud jsme Forth spustili.

Kód slova

Příklad 68. Kód slova bye

;
8112: 80EA                              DW      $80EA
8114:                                   DB      3, "BYE"
8118:                      "BYE":       PEA     16(PC)
811C:                                   SYSTRAP EvtAddEventToQue...
8120:                                   ADDQ.L  #4, RP
8122:                                   JSR     ...(CS)
8126:                                   MOVE    (SP)+, TOS
8128:                                   BRA     $+22  ;=8140
812A:                                   DW      4,0,0,0, $108,0,8,0, 0,0,0
8140:                                   RTS

Příklad použití

256 true HwrBacklight

Strojový kód slova/procedury v Qurtus Forthu

Příklad 69. BYE

0110= 8112: 80EA                              DW      $80EA           ; link to {xref linkend="QF.paren-bye-paren"/}
0112= 8114:                                   DB      3, "BYE"
0116= 8118:                      BYE:         PEA     16(PC)
011A=                                         SYSTRAP EvtAddEventToQue...
011E=                                         ADDQ.L  #4, RP          ;= UNLOOP
0120=                                         JSR     -29302(CS)      ;= EKEY
0124=                                         MOVE    (SP)+, TOS      ;= DROP
0126=                                      .--BRA     $+22 = 013E
                                           |  ; Popis události přidané do fronty událostí
0128=                                      |  DW      $0004, $0000, $0000, $0000
0130=                                      |  DW      $0108, $0000, $0008, $0000
0138=                                      |  DW      $0000, $0000, $0000
013E=                                      `->RTS                                          ;= EXIT
Předcházející Nahoru Další
BASE Domů CELL+