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 ? Buffer dw ?
BufferLength dw ? BufferLength dw ?
Checksum dw ? Checksum dw ?
Parmsends Parms ends
; ;
.model small .model small
.code .code

View file

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

View file

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

View file

@ -901,9 +901,9 @@ WaitKey:
ret ret
GetNextKey endp GetNextKey endp
; ;
Codeends Code ends
; ;
endStart end Start
``` ```
When you run Listing 31.2, note the extremely smooth edges and fine 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 00616h ; v blank end
dw 0e317h ; turn on byte mode dw 0e317h ; turn on byte mode
vpend label word vpend label word
_DATAends _DATA ends
; ;
; Macro to output a word value to a port. ; Macro to output a word value to a port.
; ;
@ -336,7 +336,7 @@ _Read360x480Dot proc near
pop bp ;restore caller's BP pop bp ;restore caller's BP
ret ret
_Read360x480Dot endp _Read360x480Dot endp
_TEX Tends _TEXT ends
end end
``` ```

View file

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