.TITLE CRE .RADIX 10 .GLOBL PRMCLO L0: JMP PRMCLO .GLOBL PRMCRE L1: JMP PRMCRE .GLOBL PRMKEY L2: JMP PRMKEY .GLOBL PRMSTO L3: JMP PRMSTO .GLOBL RMSINI L4: JMP RMSINI $VER==12. $BEGIN:: MOV #282,-(6) .GLOBL $B70 JSR %7,$B70 MOV (6)+,%5 MOV (6),(5)+ MOV 2(6),(5)+ MOV %5,$RESR5 JSR %7,L4 MOV %5,%3 ADD #264,%3 CLR @%3 CLR 2(3) MOV #5,4(3) MOV %5,-(6) MOV %5,%0 ADD #264,%0 MOV %0,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L2 MOV %5,%3 ADD #264,%3 MOV #1,@%3 MOV #3,2(3) MOV #5,4(3) MOV %5,-(6) MOV %5,%0 ADD #264,%0 MOV %0,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L2 MOV %5,%3 ADD #264,%3 MOV #2,@%3 MOV #4,2(3) MOV #3,4(3) MOV %5,-(6) MOV %5,%0 ADD #264,%0 MOV %0,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L2 MOV %5,%3 ADD #264,%3 MOV #3,@%3 MOV #8,2(3) MOV #2,4(3) MOV %5,-(6) MOV %5,%0 ADD #264,%0 MOV %0,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L2 MOV %5,%3 MOVB #2,@%3 MOV #L5,%0 MOV %3,%1 ADD #2,%1 MOV #15,%2 MOV (0)+,(1)+ SOB %2,.-2 MOV #4,32(3) MOV #30,36(3) MOV #10,46(3) CLR 48(3) MOV #2,50(3) MOVB #89,54(3) MOV %5,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L1 MOV #L6,-(6) MOV #18,-(6) MOV #18,-(6) JSR %7,$B32 .GLOBL $B32 MOV 274(5),-(6) MOV #7,-(6) JSR %7,$B24 .GLOBL $B24 MOV #L7,-(6) MOV #7,-(6) MOV #7,-(6) JSR %7,$B32 MOV 276(5),-(6) MOV #7,-(6) JSR %7,$B24 JSR %7,$B36 .GLOBL $B36 MOV #L8,%0 MOV %5,%1 ADD #216,%1 MOV #5,%2 MOV (0)+,(1)+ SOB %2,.-2 MOV #64,226(5) MOV #30,250(5) MOV #1,258(5) CLR 260(5) MOV #2,-(6) MOV %5,-(6) MOV %5,%0 ADD #250,%0 MOV %0,-(6) MOV %5,%0 ADD #216,%0 MOV %0,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L3 MOV #L9,-(6) MOV #16,-(6) MOV #16,-(6) JSR %7,$B32 MOV 274(5),-(6) MOV #7,-(6) JSR %7,$B24 MOV #L10,-(6) MOV #7,-(6) MOV #7,-(6) JSR %7,$B32 MOV 276(5),-(6) MOV #7,-(6) JSR %7,$B24 JSR %7,$B36 MOV %5,-(6) MOV %5,%0 ADD #274,%0 MOV %0,-(6) JSR %7,L0 MOV #L11,-(6) MOV #17,-(6) MOV #17,-(6) JSR %7,$B32 MOV 274(5),-(6) MOV #7,-(6) JSR %7,$B24 MOV #L12,-(6) MOV #7,-(6) MOV #7,-(6) JSR %7,$B32 MOV 276(5),-(6) MOV #7,-(6) JSR %7,$B24 JSR %7,$B36 JMP $END L5: .WORD 29283 .WORD 29797 .WORD 29811 .WORD 18734 .WORD 22596 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 8224 .WORD 0 L6: .WORD 26950 .WORD 25964 .WORD 25376 .WORD 25970 .WORD 29793 .WORD 25701 .WORD 8236 .WORD 29811 .WORD 15731 .WORD 0 L7: .WORD 8224 .WORD 29472 .WORD 30324 .WORD 61 L8: .WORD 26982 .WORD 25964 .WORD 25632 .WORD 29793 .WORD 8289 .WORD 0 L9: .WORD 29779 .WORD 29295 .WORD 8293 .WORD 24932 .WORD 24948 .WORD 8236 .WORD 29811 .WORD 15731 .WORD 0 L10: .WORD 8224 .WORD 29472 .WORD 30324 .WORD 61 L11: .WORD 26950 .WORD 25964 .WORD 25376 .WORD 28524 .WORD 25971 .WORD 11364 .WORD 29472 .WORD 29556 .WORD 61 L12: .WORD 8224 .WORD 29472 .WORD 30324 .WORD 61 .END