-
Notifications
You must be signed in to change notification settings - Fork 1
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
organize files, make release version
- Loading branch information
Showing
27 changed files
with
200 additions
and
141 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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.