Skip to content

Commit

Permalink
organize files, make release version
Browse files Browse the repository at this point in the history
  • Loading branch information
mtarek97 committed Jun 11, 2018
1 parent a40434d commit 92897f4
Show file tree
Hide file tree
Showing 27 changed files with 200 additions and 141 deletions.
93 changes: 36 additions & 57 deletions ListingFile.txt
Original file line number Diff line number Diff line change
@@ -1,57 +1,36 @@
Line Loc Source statement
0 .234567890123456789
1 00000 COPY START 0
2 00000 FIRST STL RETADR
3 00003 LDB #LENGTH
4 00006 BASE LENGTH
5 00006 CLOOP +JSUB RDREC
6 0000a LDA LENGTH
7 0000d COMP #0
8 00010 JEQ ENDFIL
9 00013 +JSUB WRREC
10 00017 J CLOOP
11 0001a ENDFIL LDA =C'EOF'
12 0001d STA BUFFER
13 00020 LDA #3
14 00023 STA LENGTH
15 00026 +JSUB WRREC
16 0002a J @RETADR
17 0002d LTORG
18 0002d * =C'EOF'
19 00030 RETADR RESW 1
20 00033 LENGTH RESW 1
21 00036 BUFFER RESB 4096
22 01036 BUFEND EQU *
23 01000 MAXLEN EQU BUFEND-BUFFER
24 .
25 .
26 .
27 01036 RDREC CLEAR X
28 01038 CLEAR A
29 0103a CLEAR S
30 0103c +LDT #MAXLEN
31 01040 RLOOP TD INPUT
32 01043 JEQ RLOOP
33 01046 RD INPUT
34 01049 COMPR A,S
35 0104b JEQ EXIT
36 0104e STCH BUFFER,X
37 01051 TIXR T
38 01053 JLT RLOOP
39 01056 EXIT STX LENGTH
40 01059 RSUB
41 0105c INPUT BYTE X'F1'
42 .
43 .
44 .
45 0105d WRREC CLEAR X
46 0105f LDT LENGTH
47 01062 WLOOP TD =X'05'
48 01065 JEQ WLOOP
49 01068 LDCH BUFFER,X
50 0106b WD =X'05'
51 0106e TIXR T
52 01070 JLT WLOOP
53 01073 RSUB
54 01076 END FIRST
55 01076 * =X'05'
Line Loc Source statement
0 00000 PROG START 0000
1 00000 LDA #0
2 00003 LDX #0
3 .reads input array from device f3 and stores it into arr
4 00006 READ TD INPUT
5 00009 JEQ READ
6 0000c RD INPUT
7 0000f COMP #4
8 00012 JEQ SEARCH
9 00015 STCH 400,X
10 00018 TIX 0
11 0001b J READ
12 0001e LDS #READ
13 .search array starts here
14 .first we move length to register s for faster program
15 00021 SEARCH RMO X,S
16 00023 LDX #0
17 00026 LDA #0
18 00029 LDT #0
19 0002c LDT TARGET
20 0002f LOOP LDCH 400,X
21 00032 COMPR A,T
22 00034 JEQ FOUND
23 00037 TIXR S
24 00039 JLT LOOP
25 0003c JEQ FAIL
26 0003f FOUND LDA #400
27 00042 ADDR X,A
28 00044 J DONE
29 00047 FAIL LDA #255
30 0004a J DONE
31 0004d INPUT BYTE X'f3'
32 0004e TARGET WORD 72
33 0003f DONE EQU FOUND
34 00051 END READ
93 changes: 36 additions & 57 deletions ListingFile2.txt
Original file line number Diff line number Diff line change
@@ -1,57 +1,36 @@
Line Loc Source statement Object Code
0 .234567890123456789
1 00000 COPY START 0
2 00000 FIRST STL RETADR 17202d
3 00003 LDB #LENGTH 69202d
4 00006 BASE LENGTH
5 00006 CLOOP +JSUB RDREC 4b101036
6 0000a LDA LENGTH 032026
7 0000d COMP #0 290000
8 00010 JEQ ENDFIL 332007
9 00013 +JSUB WRREC 4b10105d
10 00017 J CLOOP 3f2fec
11 0001a ENDFIL LDA =C'EOF' 032010
12 0001d STA BUFFER 0f2016
13 00020 LDA #3 010003
14 00023 STA LENGTH 0f200d
15 00026 +JSUB WRREC 4b10105d
16 0002a J @RETADR 3e2003
17 0002d LTORG
18 0002d * =C'EOF' 454f46
19 00030 RETADR RESW 1
20 00033 LENGTH RESW 1
21 00036 BUFFER RESB 4096
22 01036 BUFEND EQU *
23 01000 MAXLEN EQU BUFEND-BUFFER
24 .
25 .
26 .
27 01036 RDREC CLEAR X B410
28 01038 CLEAR A B400
29 0103a CLEAR S B440
30 0103c +LDT #MAXLEN 75101000
31 01040 RLOOP TD INPUT e32019
32 01043 JEQ RLOOP 332ffa
33 01046 RD INPUT db2013
34 01049 COMPR A,S A004
35 0104b JEQ EXIT 332008
36 0104e STCH BUFFER,X 57c003
37 01051 TIXR T B850
38 01053 JLT RLOOP 3b2fea
39 01056 EXIT STX LENGTH 134000
40 01059 RSUB 4f0000
41 0105c INPUT BYTE X'F1' F1
42 .
43 .
44 .
45 0105d WRREC CLEAR X B410
46 0105f LDT LENGTH 774000
47 01062 WLOOP TD =X'05' e32011
48 01065 JEQ WLOOP 332ffa
49 01068 LDCH BUFFER,X 53c003
50 0106b WD =X'05' df2008
51 0106e TIXR T B850
52 01070 JLT WLOOP 3b2fef
53 01073 RSUB 4f0000
54 01076 END FIRST
56 01076 * =X'05' 05
Line Loc Source statement Object Code
0 00000 PROG START 0000
1 00000 LDA #0 010000
2 00003 LDX #0 050000
3 .reads input array from device f3 and stores it into arr
4 00006 READ TD INPUT e32044
5 00009 JEQ READ 332ffa
6 0000c RD INPUT db203e
7 0000f COMP #4 290004
8 00012 JEQ SEARCH 33200c
9 00015 STCH 400,X 578190
10 00018 TIX 0 2f0000
11 0001b J READ 3f2fe8
12 0001e LDS #READ 6d2fe5
13 .search array starts here
14 .first we move length to register s for faster program
15 00021 SEARCH RMO X,S AC14
16 00023 LDX #0 050000
17 00026 LDA #0 010000
18 00029 LDT #0 750000
19 0002c LDT TARGET 77201f
20 0002f LOOP LDCH 400,X 538190
21 00032 COMPR A,T A005
22 00034 JEQ FOUND 332008
23 00037 TIXR S B840
24 00039 JLT LOOP 3b2ff3
25 0003c JEQ FAIL 332008
26 0003f FOUND LDA #400 010190
27 00042 ADDR X,A 9010
28 00044 J DONE 3f2ff8
29 00047 FAIL LDA #255 0100ff
30 0004a J DONE 3f2ff2
31 0004d INPUT BYTE X'f3' f3
32 0004e TARGET WORD 72 000048
33 0003f DONE EQU FOUND
34 00051 END READ
15 changes: 5 additions & 10 deletions ObjectProgram.txt
Original file line number Diff line number Diff line change
@@ -1,10 +1,5 @@
HCOPY 000000001077
T0000001d17202d69202d4b1010360320262900003320074b10105d3f2fec032010
T00001d130f20160100030f200d4b10105d3e2003454f46
T0010361dB410B400B44075101000e32019332ffadb2013A00433200857c003B850
T0010531d3b2fea1340004f0000F1B410774000e32011332ffa53c003df2008B850
T001070073b2fef4f000005
M00000705
M00001405
M00002705
E000000
HPROG 000000000051
T0000001e010000050000e32044332ffadb203e29000433200c5781902f00003f2fe8
T00001e1e6d2fe5AC1405000001000075000077201f538190A005332008B8403b2ff3
T00003c1533200801019090103f2ff80100ff3f2ff2f3000048
E000006
26 changes: 10 additions & 16 deletions SYMTAB.txt
Original file line number Diff line number Diff line change
@@ -1,16 +1,10 @@
Loc SYMBOL
00000 COPY
00000 FIRST
00006 CLOOP
0001a ENDFIL
00030 RETADR
00033 LENGTH
00036 BUFFER
01036 BUFEND
01000 MAXLEN
01036 RDREC
01040 RLOOP
01056 EXIT
0105c INPUT
0105d WRREC
01062 WLOOP
Loc SYMBOL
00000 PROG
00006 READ
00021 SEARCH
0002f LOOP
0003f FOUND
00047 FAIL
0004d INPUT
0004e TARGET
0003f DONE
1 change: 0 additions & 1 deletion bin/Debug/ListingFile.txt

This file was deleted.

54 changes: 54 additions & 0 deletions bin/Release/SRCFILE.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,54 @@
.234567890123456789
COPY START 0
FIRST STL RETADR
LDB #LENGTH
BASE LENGTH
CLOOP +JSUB RDREC
LDA LENGTH
COMP #0
JEQ ENDFIL
+JSUB WRREC
J CLOOP
ENDFIL LDA =C'EOF'
STA BUFFER
LDA #3
STA LENGTH
+JSUB WRREC
J @RETADR
LTORG
RETADR RESW 1
LENGTH RESW 1
BUFFER RESB 4096
BUFEND EQU *
MAXLEN EQU BUFEND-BUFFER
.
.
.
RDREC CLEAR X
CLEAR A
CLEAR S
+LDT #MAXLEN
RLOOP TD INPUT
JEQ RLOOP
RD INPUT
COMPR A,S
JEQ EXIT
STCH BUFFER,X
TIXR T
JLT RLOOP
EXIT STX LENGTH
RSUB
INPUT BYTE X'F1'
.
.
.
WRREC CLEAR X
LDT LENGTH
WLOOP TD =X'05'
JEQ WLOOP
LDCH BUFFER,X
WD =X'05'
TIXR T
JLT WLOOP
RSUB
END FIRST
59 changes: 59 additions & 0 deletions bin/Release/opTable.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,59 @@
ADD 18 3 1
ADDF 58 3 1
ADDR 90 2 2
AND 40 3 1
CLEAR B4 2 1
COMP 28 3 1
COMPF 88 3 1
COMPR A0 2 2
DIV 24 3 1
DIVF 64 3 1
DIVR 9C 2 2
FIX C4 1 0
FLOAT C0 1 0
HIO F4 1 0
J 3C 3 1
JEQ 30 3 1
JGT 34 3 1
JLT 38 3 1
JSUB 48 3 1
LDA 00 3 1
LDB 68 3 1
LDCH 50 3 1
LDF 70 3 1
LDL 08 3 1
LDS 6C 3 1
LDT 74 3 1
LDX 04 3 1
LPS D0 3 1
MUL 20 3 1
MULF 60 3 1
MULR 98 2 2
NORM C8 1 0
OR 44 3 1
RD D8 3 1
RMO AC 2 2
RSUB 4C 3 0
SHIFTL A4 2 2
SHIFTR A8 2 2
SIO F0 1 0
SSK EC 3 1
STA 0C 3 1
STB 78 3 1
STCH 54 3 1
STF 80 3 1
STI D4 3 1
STL 14 3 1
STS 7C 3 1
STSW E8 3 1
STT 84 3 1
STX 10 3 1
SUB 1C 3 1
SUBF 5C 3 1
SUBR 94 2 2
SVC B0 2 1
TD E0 3 1
TIO F8 1 0
TIX 2C 3 1
TIXR B8 2 1
WD DC 3 1
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.

0 comments on commit 92897f4

Please sign in to comment.