Program 2. Assembly of P/M Vertical Positioner››10 ;P/M VERTICAL POSITIONER›20 NEW = 220›30 CURRENT = 222›40 IMAGE = 224›50 START PLA ;REMOVE ARGUMENT BYTE COUNT›60       LDX #5 ;REMOVE 6 BYTES›70 LP1   PLA ;AND PLACE IN PAGE ZERO›80       STA NEW,X›90       DEX›100      BPL LP1›110      DEC NEW›120      DEC LAST›130      LDY #0›140      LDA (IMAGE),Y ;GET IMAGE BYTE COUNT›150      TAX›160      TAY›170      LDA LAST+1 ;IF ZERO DON'T DELETE›180      BEQ SKIPD›190 LP2  LDA #0 ;DELETE IMAGE›200      STA (LAST),Y›210      DEY›220      BNE LP2›230 SKIPD TXA›240      TAY›250      LDA NEW+1 ;IF ZERO DON'T RESTORE›260      BEQ SKIPR›270 LP3  LDA (IMAGE),Y ;COPY IMAGE DATA TO NEW›280      STA (NEW),Y   ;ADDRESS›290      DEY›300      BNE LP3›310 SKIPR RTS›