Problem Statement
Suppose that RECORD contains a 100-byte record. Write a subroutine for SIC that will write this record on to device 05.
Solution
Line Number | Code | Comment |
1 | JSUB WRREC | |
2 | WRREC LDX ZERO | |
3 | WLOOP TD OUTPUT | |
4 | JEQ WLOOP | |
5 | LDCH RECORD, X | |
6 | WD OUTPUT | |
7 | TIX LENGTH | |
8 | JLT WLOOP | |
9 | RSUB | |
10 | ZERO WORD 0 | |
11 | LENGTH WORD 1 | |
12 | OUTPUT BYTE X ‘05’ | |
13 | RECORD RESB 100 | |
Leave a Reply