mirror of https://github.com/hsoft/collapseos.git
12 lines
393 B
Plaintext
12 lines
393 B
Plaintext
VARIABLE ORG
|
|
CREATE BIN( 0 , : BIN(+ BIN( @ + ;
|
|
VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
|
|
: AL 0 ; : CL 1 ; : DL 2 ; : BL 3 ;
|
|
: AH 4 ; : CH 5 ; : DH 6 ; : BH 7 ;
|
|
: AX 0 ; : CX 1 ; : DX 2 ; : BX 3 ;
|
|
: SP 4 ; : BP 5 ; : SI 6 ; : DI 7 ;
|
|
: ES 0 ; : CS 1 ; : SS 2 ; : DS 3 ;
|
|
: [BX+SI] 0 ; : [BX+DI] 1 ; : [BP+SI] 2 ; : [BP+DI] 3 ;
|
|
: [SI] 4 ; : [DI] 5 ; : [BP] 6 ; : [BX] 7 ;
|
|
: <<3 3 LSHIFT ;
|