Browse code
(hexdump.tal)Removed trailing short
Devine Lu Linvega authored on 31/07/2022 18:35:45
Showing 1 changed files
| ... | ... |
@@ -28,15 +28,14 @@ BRK |
| 28 | 28 |
LIT2r 0000 |
| 29 | 29 |
&stream |
| 30 | 30 |
#0000 ,&buf STR2 |
| 31 |
- ;&buf |
|
| 32 |
- DUP2 .File/read DEO2 |
|
| 33 |
- LDA2 ,print JSR #2018 DEO |
|
| 31 |
+ ;&buf .File/read DEO2 |
|
| 32 |
+ .File/success DEI2 #0000 EQU2 ,&eof JCN |
|
| 33 |
+ ;&buf LDA2 ,print JSR #2018 DEO |
|
| 34 | 34 |
INC2r |
| 35 | 35 |
( linebreak ) |
| 36 | 36 |
STH2kr #0007 AND2 ORA ,&no-lb JCN |
| 37 |
- #0a18 DEO |
|
| 38 |
- &no-lb |
|
| 39 |
- .File/success DEI2 ORA ,&stream JCN |
|
| 37 |
+ #0a18 DEO &no-lb |
|
| 38 |
+ ,&stream JMP &eof |
|
| 40 | 39 |
POP2r |
| 41 | 40 |
#010f DEO |
| 42 | 41 |
|