8fac3a64 |
1 | * STACK TEST PROGRAM |
2 | * |
3 | * |
4 | * |
5 | * USAGE: |
6 | * |
7 | * VERY SPECIAL |
8 | * |
9 | * |
10 | ******************************************************************************** |
11 | * |
12 | ABS ASOLUTE MODE FOR EASIER DEBUGGING |
13 | ORG '1000 |
14 | * |
15 | SUBR DAT1 |
16 | SUBR DAT2 |
17 | SUBR DAT3 |
18 | SUBR DAT4 |
19 | * |
20 | **************************************** |
21 | * |
22 | * |
23 | MAIN NOP HERE WE GO |
24 | * |
25 | LDA =2 |
26 | STA DAT1 |
27 | LDA =3 |
28 | STA DAT2 |
29 | LDA =4 |
30 | STA DAT3 |
31 | LDA =5 |
32 | STA DAT4 |
33 | * |
34 | LDA =7 |
35 | CALL S$PUSM |
36 | DAC DAT1 |
37 | DEC 4 |
38 | HLT TEMPORARY HALT |
39 | * |
40 | LDA =6 |
41 | STA DAT1 |
42 | LDA =7 |
43 | STA DAT2 |
44 | LDA =8 |
45 | STA DAT3 |
46 | LDA =9 |
47 | STA DAT4 |
48 | * |
49 | HLT |
50 | LDA =6 |
51 | REC CALL S$POPM |
52 | DAC DAT1 |
53 | DEC 4 |
54 | HLT TEMPORARY HALT |
55 | * |
56 | JMP REC |
57 | * |
58 | ******************************************************************************** |
59 | * |
60 | ORG '2000 |
61 | **** VARIABLES |
62 | * |
63 | DAT1 DEC 0 |
64 | DAT2 DEC 0 |
65 | DAT3 DEC 0 |
66 | DAT4 DEC 0 |
67 | * |
68 | ******************************************************************************** |
69 | * |
70 | END THAT'S IT. |
71 | |
72 | |