This System Software program demonstrates an sequence of instructions for SIC that will read a record in to a buffer.
Line Number | Code | Comments |
---|---|---|
1 | RDREC LDX ZERO | |
2 | RLOOP TD INDEV | |
3 | JEQ RLOOP | |
4 | RD INDEV | |
5 | COMP NULL | |
6 | JEQ EXIT | |
7 | STCH BUFFER, X | |
8 | TIX K100 | |
9 | JLT RLOOP | |
10 | EXIT STX LENGTH | |
11 | RSUB | |
12 | ZERO WORD 0 | |
13 | NULL WORD 0 | |
14 | K100 WORD 1 | |
15 | INDEV BYTE X ‘F1’ | |
16 | LENGTH RESW 1 | |
17 | BUFFER RESB 100 |