Fix various (ends) code OCR errors

This commit is contained in:
Thomas Perl 2020-05-21 11:06:10 +02:00
commit 9072e5d500
6 changed files with 17 additions and 17 deletions

View file

@ -754,7 +754,7 @@ Parms struc
Buffer dw ?
BufferLength dw ?
Checksum dw ?
Parmsends
Parms ends
;
.model small
.code

View file

@ -85,12 +85,12 @@ registers.
;
; By Michael Abrash
;
stacksegmentword stack 'STACK'
db512 dup (?)
stackends
stack segment word stack 'STACK'
db 512 dup (?)
stack ends
;
datasegment word 'DATA'
IMAGE_WIDTHEQU 4 ;in bytes
data segment word 'DATA'
IMAGE_WIDTH EQU 4 ;in bytes
IMAGE_HEIGHT EQU 32 ;in pixels
LEFT_BOUND EQU 10 ;in bytes
RIGHT_BOUND EQU 66 ;in bytes
@ -105,11 +105,11 @@ READ_MAP EQU 4 ;Read Map register index in GC
;
PatternPlane0 label byte
db 32 dup (0ffh,0ffh,0,0)
PatternPlane1 labelbyte
PatternPlane1 label byte
db 32 dup (0ffh,0,0ffh,0)
PatternPlane2 labelbyte
PatternPlane2 label byte
db 32 dup (0f0h,0f0h,0f0h,0f0h)
PatternPlane3 labelbyte
PatternPlane3 label byte
db 32 dup (0cch,0cch,0cch,0cch)
;
; Temporary storage for 16-color image during animation.
@ -124,7 +124,7 @@ ImagePlane3 db 32*4 dup (?)
ImageX dw 40 ;in bytes
ImageY dw 100 ;in pixels
ImageXDirection dw 1 ;in bytes
dataends
data ends
;
code segment word 'CODE'
assume cs:code,ds:data

View file

@ -1104,8 +1104,8 @@ DoSetStartAddress:
ret
PanRight endp
;*********************************************************************
Codeends
endStart
Code ends
end Start
```
### Notes on Setting and Reading Registers

View file

@ -901,9 +901,9 @@ WaitKey:
ret
GetNextKey endp
;
Codeends
Code ends
;
endStart
end Start
```
When you run Listing 31.2, note the extremely smooth edges and fine

View file

@ -171,7 +171,7 @@ vptbl dw 06b00h ; horz total
dw 00616h ; v blank end
dw 0e317h ; turn on byte mode
vpend label word
_DATAends
_DATA ends
;
; Macro to output a word value to a port.
;
@ -336,7 +336,7 @@ _Read360x480Dot proc near
pop bp ;restore caller's BP
ret
_Read360x480Dot endp
_TEX Tends
_TEXT ends
end
```

View file

@ -532,7 +532,7 @@ FillVertLoop:
jnz FillHorzLoop ;no, do the next column
ret;
endStart
end Start
```
Note the jagged lines at the corners of the screen when you run Listing