mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-19 01:18:41 +00:00
0ab2a4fa16
while also adding some consistency. All listings now list . (dot) as defined so they need updating.
93 lines
5.0 KiB
Plaintext
93 lines
5.0 KiB
Plaintext
1 ;;;;;
|
|
2 ;
|
|
3 ; Test assembling the CIS instructions (Commercial Instruction Set).
|
|
4 ;
|
|
5
|
|
6 000000 076050 ADDN
|
|
7 000002 076070 ADDP
|
|
8 000004 076056 ASHN
|
|
9 000006 076076 ASHP
|
|
10 000010 076044 CMPC
|
|
11 000012 076052 CMPN
|
|
12 000014 076072 CMPP
|
|
13 000016 076057 CVTLN
|
|
14 000020 076073 CVTLP
|
|
15 000022 076053 CVTNL
|
|
16 000024 076073 CVTPL
|
|
17 000026 076055 CVTNP
|
|
18 000030 076054 CVTPN
|
|
19 000032 076075 DIVP
|
|
20 000034 076040 LOCC
|
|
21 000036 076020 L2D0
|
|
22 000040 076027 L2D7
|
|
23 000042 076060 L3D0
|
|
24 000044 076067 L3D7
|
|
25 000046 076045 MATC
|
|
26 000050 076030 MOVC
|
|
27 000052 076031 MOVRC
|
|
28 000054 076032 MOVTC
|
|
29 000056 076074 MULP
|
|
30 000060 076042 SCANC
|
|
31 000062 076041 SKPC
|
|
32 000064 076043 SPANC
|
|
33 000066 076051 SUBN
|
|
34 000070 076071 SUBP
|
|
35
|
|
36 000072 076150 000352' 000356' ADDNI s1, s2, d1
|
|
000100 000362'
|
|
37 000102 076170 000352' 000356' ADDPI s1, s2, d1
|
|
000110 000362'
|
|
38 000112 076156 000352' 000362' ASHNI s1, d1, <<'5*256.>!3> ; rounding digit and shift count
|
|
000120 032403
|
|
39 000122 076176 000352' 000362' ASHPI s1, d1, <<'5*256.>!3>
|
|
000130 032403
|
|
40 000132 076144 000352' 000356' CMPCI s1, s2, 'F ; fill character
|
|
000140 000106
|
|
41 000142 076152 000352' 000356' CMPNI s1, s2
|
|
42 000150 076172 000352' 000356' CMPPI s1, s2
|
|
43 000156 076157 000352' 000366' CVTLNI s1, l1
|
|
44 000164 076177 000352' 000366' CVTLPI s1, l1
|
|
45 000172 076153 000352' 000366' CVTNLI s1, l1
|
|
46 000200 076173 000352' 000366' CVTPLI s1, l1
|
|
47 000206 076155 000352' 000362' CVTNPI s1, d1
|
|
48 000214 076154 000352' 000362' CVTPNI s1, d1
|
|
49 000222 076175 000352' 000356' DIVPI s1, s2, d1
|
|
000230 000362'
|
|
50 000232 076140 000352' 000101 LOCCI s1, 'A
|
|
51 000240 076145 000352' 000356' MATCI s1, s2
|
|
52 000246 076130 000352' 000362' MOVCI s1, d1, 'F ; fill character
|
|
000254 000106
|
|
53 000256 076131 000352' 000362' MOVRCI s1, d1, 'F ; fill character
|
|
000264 000106
|
|
54 000266 076132 000352' 000362' MOVTCI s1, d1, 'F, t1
|
|
000274 000106 000372'
|
|
55 000300 076174 000352' 000356' MULPI s1, s2, d1
|
|
000306 000362'
|
|
56 000310 076142 000352' 000356' SCANCI s1, s2 ; src and set descriptors
|
|
57 000316 076141 000352' 000123 SKPCI s1, 'S ; skip character
|
|
58 000324 076143 000352' 000356' SPANCI s1, s2 ; src and set descriptors
|
|
59 000332 076151 000352' 000356' SUBNI s1, s2, d1
|
|
000340 000362'
|
|
60 000342 076171 000352' 000356' SUBPI s1, s2, d1
|
|
000350 000362'
|
|
61
|
|
62 000352 000001 000002 s1: .word 1, 2 ; string descriptor
|
|
63 000356 000003 000004 s2: .word 3, 4 ; string descriptor
|
|
64 000362 000005 000006 d1: .word 5, 6 ; string descriptor
|
|
65 000366 000007 000010 l1: .word 7, 10 ; long integer
|
|
66 000372 116 117 120 t1: .ascii /NOPABC/ ; translation table
|
|
000375 101 102 103
|
|
66
|
|
|
|
|
|
Symbol table
|
|
|
|
. 000400R 001 L1 000366R 001 S2 000356R 001
|
|
D1 000362R 001 S1 000352R 001 T1 000372R 001
|
|
|
|
|
|
Program sections:
|
|
|
|
. ABS. 000000 000 (RW,I,GBL,ABS,OVR,NOSAV)
|
|
000400 001 (RW,I,LCL,REL,CON,NOSAV)
|