Merge branch 'master' of https://github.com/badvision/lawless-legends

Platform/Apple/tools/PLASMA/src/plvm02.s

@@ -393,9 +393,9 @@ OPXTBL  !WORD	ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR     		; 00 02 04 06 08 0A 0C 0E
 	!WORD	LNOT,LOR,LAND,LA,LLA,CB,CW,CSX			; 20 22 24 26 28 2A 2C 2E
 	!WORD	DROP,DUP,PUSH,PULL,BRGT,BRLT,BREQ,BRNE		; 30 32 34 36 38 3A 3C 3E
 	!WORD	ISEQ,ISNE,ISGT,ISLT,ISGE,ISLE,BRFLS,BRTRU	; 40 42 44 46 48 4A 4C 4E
-	!WORD	BRNCH,IBRNCH,CALLX,ICALX,ENTERX,LEAVEX,RETX,NEXTOP; 50 52 54 56 58 5A 5C 5E
+	!WORD	BRNCH,IBRNCH,CALLX,ICALX,ENTER,LEAVEX,RETX,NEXTOP; 50 52 54 56 58 5A 5C 5E
-	!WORD	LBX,LWX,LLBX,LLWX,LABX,LAWX,DLBX,DLWX		; 60 62 64 66 68 6A 6C 6E
+	!WORD	LBX,LWX,LLBX,LLWX,LABX,LAWX,DLB,DLW		; 60 62 64 66 68 6A 6C 6E
-	!WORD	SBX,SWX,SLBX,SLWX,SABX,SAWX,DABX,DAWX		; 70 72 74 76 78 7A 7C 7E
+	!WORD	SB,SW,SLB,SLW,SAB,SAW,DAB,DAW			; 70 72 74 76 78 7A 7C 7E
 ;*
 ;* ADD TOS TO TOS-1
 ;*
@@ -1017,38 +1017,6 @@ SW 	LDA	ESTKL+1,X
 	INX
 	LDY	IPY
 	JMP	NEXTOP
-;
-SBX	LDA	ESTKL+1,X
-	STA	TMPL
-	LDA	ESTKH+1,X
-	STA	TMPH
-	LDA	ESTKL,X
-	STY	IPY
-	STA	ALTRDOFF
-	LDY	#$00
-	STA	(TMP),Y
-	STA	ALTRDON
-	INX
-	INX
-	LDY	IPY
-	JMP	NEXTOP
-SWX	LDA	ESTKL+1,X
-	STA	TMPL
-	LDA	ESTKH+1,X
-	STA	TMPH
-	STY	IPY
-	STA	ALTRDOFF
-	LDY	#$00
-	LDA	ESTKL,X
-	STA	(TMP),Y
-	INY
-	LDA	ESTKH,X
-	STA	(TMP),Y
-	STA	ALTRDON
-	INX
-	INX
-	LDY	IPY
-	JMP	NEXTOP
 ;*
 ;* STORE VALUE TO LOCAL FRAME OFFSET
 ;*
@@ -1073,32 +1041,6 @@ SLW 	+INC_IP
 	INX
 	LDY	IPY
 	JMP	NEXTOP
-;
-SLBX 	+INC_IP
- 	LDA	(IP),Y
-	STY	IPY
-	STA	ALTRDOFF
-	TAY
-	LDA	ESTKL,X
-	STA	(IFP),Y
-	STA	ALTRDON
-	INX
-	LDY	IPY
-	JMP	NEXTOP
-SLWX	+INC_IP
- 	LDA	(IP),Y
-	STY	IPY
-	STA	ALTRDOFF
-	TAY
-	LDA	ESTKL,X
-	STA	(IFP),Y
-	INY
-	LDA	ESTKH,X
-	STA	(IFP),Y
-	STA	ALTRDON
-	INX
-	LDY	IPY
-	JMP	NEXTOP
 ;*
 ;* STORE VALUE TO LOCAL FRAME OFFSET WITHOUT POPPING STACK
 ;*
@@ -1121,30 +1063,6 @@ DLW 	+INC_IP
 	STA	(IFP),Y
 	LDY	IPY
 	JMP	NEXTOP
-;
-DLBX 	+INC_IP
-	LDA	(IP),Y
-	STY	IPY
-        STA	ALTRDOFF
-	TAY
-	LDA	ESTKL,X
-	STA	(IFP),Y
-	STA	ALTRDON
-	LDY	IPY
-	JMP	NEXTOP
-DLWX	+INC_IP
-	LDA	(IP),Y
-	STY	IPY
-	STA	ALTRDOFF
-	TAY
-	LDA	ESTKL,X
-	STA	(IFP),Y
-	INY
-	LDA	ESTKH,X
-	STA	(IFP),Y
-	STA	ALTRDON
-	LDY	IPY
-	JMP	NEXTOP
 ;*
 ;* STORE VALUE TO ABSOLUTE ADDRESS
 ;*
@@ -1177,40 +1095,6 @@ SAW 	+INC_IP
 	INX
 	LDY	IPY
 	JMP	NEXTOP
-;
-SABX 	+INC_IP
-	LDA	(IP),Y
-	STA	TMPL
-	+INC_IP
-	LDA	(IP),Y
-	STA	TMPH
-	LDA	ESTKL,X
-	STY	IPY
-	STA	ALTRDOFF
-	LDY	#$00
-	STA	(TMP),Y
-	STA	ALTRDON
-	INX
-	LDY	IPY
-	JMP	NEXTOP
-SAWX	+INC_IP
-	LDA	(IP),Y
-	STA	TMPL
-	+INC_IP
-	LDA	(IP),Y
-	STA	TMPH
-	STY	IPY
-	STA	ALTRDOFF
-	LDY	#$00
-	LDA	ESTKL,X
-	STA	(TMP),Y
-	INY
-	LDA	ESTKH,X
-	STA	(TMP),Y
-	STA	ALTRDON
-	INX
-	LDY	IPY
-	JMP	NEXTOP
 ;*
 ;* STORE VALUE TO ABSOLUTE ADDRESS WITHOUT POPPING STACK
 ;*
@@ -1241,38 +1125,6 @@ DAW 	+INC_IP
 	STA	(TMP),Y
 	LDY	IPY
 	JMP	NEXTOP
-;
-DABX 	+INC_IP
-	LDA	(IP),Y
-	STA	TMPL
-	+INC_IP
-	LDA	(IP),Y
-	STA	TMPH
-	STY	IPY
-	STA	ALTRDOFF
-	LDY	#$00
-	LDA	ESTKL,X
-	STA	(TMP),Y
-	STA	ALTRDON
-	LDY	IPY
-	JMP	NEXTOP
-DAWX	+INC_IP
-	LDA	(IP),Y
-	STA	TMPL
-	+INC_IP
-	LDA	(IP),Y
-	STA	TMPH
-	STY	IPY
-	STA	ALTRDOFF
-	LDY	#$00
-	LDA	ESTKL,X
-	STA	(TMP),Y
-	INY
-	LDA	ESTKH,X
-	STA	(TMP),Y
-	STA	ALTRDON
-	LDY	IPY
-	JMP	NEXTOP
 ;*
 ;* COMPARES
 ;*
@@ -1540,36 +1392,6 @@ ENTER 	INY
 	BNE	-
 +	LDY	#$02
 	JMP	NEXTOP
-;
-ENTERX	INY
-	LDA	(IP),Y
-	PHA			; SAVE ON STACK FOR LEAVEX
-	EOR	#$FF		; ALLOCATE FRAME
-	SEC
-	ADC	PPL
-	STA	PPL
-	STA	IFPL
-	LDA	#$FF
-	ADC	PPH
-	STA	PPH
-	STA	IFPH
-	INY
-	LDA	(IP),Y
-	STA	ALTRDOFF
-	ASL
-	TAY
-        BEQ	+
--	LDA	ESTKH,X
-	DEY
-	STA	(IFP),Y
-	LDA	ESTKL,X
-	INX
-	DEY
-	STA	(IFP),Y
-	BNE	-
-+	STA	ALTRDON
-	LDY	#$02
-	JMP	NEXTOP
 ;*
 ;* LEAVE FUNCTION
 ;*