; Stolen from class example on slides
; Modified by josiah hilden (2021-3-21)

ORG 000				; Global vars
VAR1, HEX A2
VAR2, DEC 27
PR, HEX 110

ORG 010				; Resources
RES, HEX 0

ORG 020				; Subroutine Subtract
SUBTRACT, HEX 0
LDA VAR1
CMA
INC
ADD VAR2
STA PR I
BUN SUBTRACT I

ORG 040				; Main
MAIN,
BSA SUBTRACT
ISZ RES