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