Curriculum
This System Software program demonstrates an SIC/XE program to arrange 100 words in ascending order and storing the result in the array variable BETA.
Line Number | Code | Comments |
---|---|---|
1 | SORT START 0 | |
2 | OUTER LDX INDEX | |
3 | LDS ARR1,X | |
4 | LDX #0 | |
5 | INNER LDT ARR1,X | |
6 | COMPR S,T | |
7 | JLT LOOP | |
8 | JEQ LOOP | |
9 | RMO S,A | |
10 | RMO T,S | |
11 | RMO A,T | |
12 | RMO X,A | |
13 | LDX INDEX | |
14 | STS ARR1,X | |
15 | RMO A,X | |
16 | STT ARR1,X | |
17 | LOOP RMO X,A | |
18 | ADD #3 | |
19 | COMP LENGTH | |
20 | RMO A,X | |
21 | JLT INNER | |
22 | LDA INDEX | |
23 | ADD #3 | |
24 | COMP LENGTH | |
25 | STA INDEX | |
26 | JLT OUTER | |
27 | ARR1 RESW 10 | |
28 | LENGTH WORD 30 | |
29 | INDEX WORD 0 |