forked from shehab-badawy/SIC_XE_ASSEMBLER
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathoutput.txt
47 lines (47 loc) · 2.31 KB
/
output.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
0000 COPY START 0
0000 FIRST STL RETADR 172034
0003 LDB #LENGTH 692034
0006 BASE LENGTH
0006 CLOOP +JSUB RDREC 4B10103D
000A LDA LENGTH 03202D
000D COMP #0 290000
0010 JEQ ENDFIL 33200E
0013 &JSUB #0 4A1000
0016 $JSUB #0 49100000
001A +JSUB WRREC 4B101064
001E J CLOOP 3F2FE5
0021 ENDFIL LDA =C'EOF' 032010
0024 STA BUFFER 0F2016
0027 LDA #3 010003
002A STA LENGTH 0F200D
002D +JSUB WRREC 4B101064
0031 J @RETADR 3E2003
0034 LTORG
0037 RETADR RESW 1
003A LENGTH RESW 1
003D BUFFER RESB 4096
103D RDREC CLEAR X B410
103F CLEAR A B400
1041 CLEAR S B440
1043 +LDT RLOOP 77101047
1047 RLOOP TD INPUT E32019
104A JEQ RLOOP 332FFA
104D RD INPUT DB2013
1050 COMPR A,S A004
1052 JEQ EXIT 332008
1055 STCH BUFFER,X 57C003
1058 TIXR T B850
105A JLT RLOOP 3B2FEA
105D EXIT STX LENGTH 134000
1060 RSUB 4F0000
1063 INPUT BYTE X'F1' F1
1064 WRREC CLEAR X B410
1066 LDT LENGTH 774000
1069 WLOOP TD =X'09' E32011
106C JEQ WLOOP 332FFA
106F LDCH BUFFER,X 53C003
1072 WD =X'09' DF2008
1075 TIXR T B850
1077 JLT WLOOP 3B2FEF
107A RSUB 4F0000
107D END FIRST