.mcall .readw, .writw, .close, .enter, .lookup, .csispc st: .csispc #name,#fext tst (sp)+ .lookup #area,#1,#name+36 bcc 1$ .word 0,0 1$: mov r0,lbr mov r0,lbw clr wbr .enter #area,#2,#name,lbw bcc 2$ .word 0,1 2$: dec lbr .readw #area,#1,#ibuf,#256.,lbr bcc 4$ .word 0,2 4$: mov #,r0 mov #ibuf,r1 mov #256.,r2 6$: com @r1 mov (r1)+,-(r0) sob r2,6$ .writw #area,#2,#obuf,#256.,wbr bcc 7$ .word 0,4 7$: inc wbr tst lbr bne 2$ 10$: .close #1 bcc 11$ .word 0,6 11$: .close #2 bcc 12$ .word 0,7 12$: 13$: clr r0 emt 350 halt lbr: .word 0 lbw: .word 0 wbr: .word 0 area: .blkw 20 name: .blkw 100 fext: .rad50 /datdatdatdatdatdat/ obuf: .blkb 1000 ibuf: .blkb 1000 .end st