10 ;LIST #D:MVPLUP.ASM
20 NUM1=$CB ;PLAYER ADDRESS IN MEM
30 NUM2=$CD ;SIZE OF PLAYER HEIGHT
40  *=$4000
50  PLA ;PULL # OF ARGS
60  PLA ;PULL HIGH BYTE FIRST ARG
70  STA NUM1+1;
80  PLA ;PULL LOW BYTE FIRST ARG
90  STA NUM1
0100  PLA ;PULL HIGH BYTE SECOND ARG
0110  STA NUM2+1
0120  PLA ;PULL LOW BYTE SECOND ARG
0130  STA NUM2
0140 ;
0150 ; SUBTRACT ONE FROM CURRENT PLAYER  ADDRESS
0165  SEC
0170  LDA NUM1
0171  SBC #$01
0172  STA NUM1
0173  LDA NUM1+1
0174  SBC #$00
0175  STA NUM1+1
0180  LDY #$01
0190 LOOP LDA (NUM1),Y ;LOAD PL POSITION
0200  DEY
0210  STA (NUM1),Y
0220  CPY NUM2
0230  INY
0240  INY
0250  BCC LOOP
0255  LDA #$00
0257  STA (NUM1),Y
0270  RTS
0280 END›