1: f = r5 2: .globl j 3: .globl classtab,jget 4: .globl ctest 5: .globl putcstr 6: .globl succ 7: 8: ctest: 9: inc ctestc 10: mov r0,-(sp) 11: jsr pc,jget 12: asl r0 13: bit *(sp)+,classtab(r0) 14: clc 15: beq 1f 16: asr r0 17: jsr pc,putcstr 18: inc j(f) 19: sec 20: 1: 21: rts pc 22: 23: .data 24: ctestc: 0