summaryrefslogtreecommitdiff
path: root/test/PharLap.py
diff options
context:
space:
mode:
authorSteven Knight <knight@baldmt.com>2005-10-14 16:23:52 +0000
committerSteven Knight <knight@baldmt.com>2005-10-14 16:23:52 +0000
commitaf962864b108d8fdd654edaf3c0300404ca07e3e (patch)
tree3a6877e15644a6da25570af9ee7aade000983ad4 /test/PharLap.py
parent82c2f16e53cba1a639d568fe8d6780dfe30c56ab (diff)
downloadscons-git-af962864b108d8fdd654edaf3c0300404ca07e3e.tar.gz
Get rid of indentation tabs in the test scripts and have runtest.py invoke them with the python -tt option to keep them out.
Diffstat (limited to 'test/PharLap.py')
-rw-r--r--test/PharLap.py144
1 files changed, 72 insertions, 72 deletions
diff --git a/test/PharLap.py b/test/PharLap.py
index 0455cc251..561200872 100644
--- a/test/PharLap.py
+++ b/test/PharLap.py
@@ -46,8 +46,8 @@ if not test.detect_tool('386asm'):
test.write("minasm.asm", r"""
;
; MINASM.ASM - A minimal assembly language program which runs
-; under ToolSuite. You can use this program as a framework
-; for large assembly language programs.
+; under ToolSuite. You can use this program as a framework
+; for large assembly language programs.
;
.386
@@ -110,7 +110,7 @@ _CONST ends
CGROUP group _TEXT, _CONST
DGROUP group _DATA, _bss
- assume cs:CGROUP,ds:DGROUP
+ assume cs:CGROUP,ds:DGROUP
_TEXT segment
;
@@ -122,22 +122,22 @@ _TEXT segment
; modify the loop count in memory verifies that it actually ends
; up in RAM.
;
- public _main
+ public _main
_main proc near
- mov cl,0ah ; Skip a line before we start
- call PutCharTarget ;
+ mov cl,0ah ; Skip a line before we start
+ call PutCharTarget ;
main_loop:
- cmp loopcount,0 ; Are we at the end of our loop?
- je short done_main ; yes.
- lea edx,rommessage ; EDX -> ROM message
- call WriteStringTarget ; Display it
- lea edx,rammessage ; EDX -> RAM message
- call WriteStringTarget ; Display it
- dec loopcount ;
- jmp main_loop ; Branch back for next loop iteration
+ cmp loopcount,0 ; Are we at the end of our loop?
+ je short done_main ; yes.
+ lea edx,rommessage ; EDX -> ROM message
+ call WriteStringTarget ; Display it
+ lea edx,rammessage ; EDX -> RAM message
+ call WriteStringTarget ; Display it
+ dec loopcount ;
+ jmp main_loop ; Branch back for next loop iteration
done_main:
- ret ; That's it!
+ ret ; That's it!
_main endp
@@ -145,27 +145,27 @@ _main endp
; WriteStringTarget - Display a string on the target console
;
; Inputs:
-; EDX -> Null terminated ASCII string to display
+; EDX -> Null terminated ASCII string to display
;
; Outputs:
-; All registers preserved
+; All registers preserved
;
WriteStringTarget proc near
- push ecx ; Save registers
- push edx ;
+ push ecx ; Save registers
+ push edx ;
write_loop:
- movzx ecx,byte ptr [edx] ; Get a character
- jecxz done_str ; Branch if end of string
- call PutCharTarget ; Display this character
- inc edx ; Bump scan pointer
- jmp write_loop ; And loop back for next character
+ movzx ecx,byte ptr [edx] ; Get a character
+ jecxz done_str ; Branch if end of string
+ call PutCharTarget ; Display this character
+ inc edx ; Bump scan pointer
+ jmp write_loop ; And loop back for next character
done_str:
- pop edx ; Restore registers
- pop ecx ;
- ret ; and return
+ pop edx ; Restore registers
+ pop ecx ;
+ ret ; and return
WriteStringTarget endp
@@ -176,26 +176,26 @@ WriteStringTarget endp
; the PutChar kernel service available through int 254.
;
; Inputs:
-; CL = character to display
+; CL = character to display
;
; Outputs:
-; All registers preserved
+; All registers preserved
;
PutCharTarget proc near
- push eax ; Save registers
- push ebx ;
- push edx ;
+ push eax ; Save registers
+ push ebx ;
+ push edx ;
- mov ax,254Ah ; Request Kernel Service
- mov bx,1 ; service code 1 = PutChar
- movzx edx,cl ; EDX = character to display
- int 0FEh ; Int 254 is for kernel services
+ mov ax,254Ah ; Request Kernel Service
+ mov bx,1 ; service code 1 = PutChar
+ movzx edx,cl ; EDX = character to display
+ int 0FEh ; Int 254 is for kernel services
- pop edx ; Restore registers
- pop ebx ;
- pop eax ;
- ret ; and return
+ pop edx ; Restore registers
+ pop ebx ;
+ pop eax ;
+ ret ; and return
PutCharTarget endp
@@ -226,54 +226,54 @@ extrn __p_SEG__bss_END:dword
;
public __p_start
__p_start proc near
- pushad ; save initial regs
- push es ;
- call __pl_unpackrom ; Call the unpacker
- cld ; Clear direction flag
-
- lea eax,__p_SEG__bss_END ; load end address and
- lea ebx,__p_SEG__bss_BEGIN ; subtract start to get size
- sub eax,ebx
- mov ecx,eax ; This is size
- inc ecx
- lea edi,__p_SEG__bss_BEGIN ; Zero from start address
- mov al,0 ;Zero out BSS and C_COMMON
- rep stosb
-
- pop es ; restore initial regs
- popad
- call _main ; go do some work
+ pushad ; save initial regs
+ push es ;
+ call __pl_unpackrom ; Call the unpacker
+ cld ; Clear direction flag
+
+ lea eax,__p_SEG__bss_END ; load end address and
+ lea ebx,__p_SEG__bss_BEGIN ; subtract start to get size
+ sub eax,ebx
+ mov ecx,eax ; This is size
+ inc ecx
+ lea edi,__p_SEG__bss_BEGIN ; Zero from start address
+ mov al,0 ;Zero out BSS and C_COMMON
+ rep stosb
+
+ pop es ; restore initial regs
+ popad
+ call _main ; go do some work
stopme:
xor eax,eax ; Call _EtsExitProcess(0)
- push eax ;
- call _EtsExitProcess ;
- pop eax ;
- jmp stopme ; .. in a loop just in case it ever
- ; comes back
+ push eax ;
+ call _EtsExitProcess ;
+ pop eax ;
+ jmp stopme ; .. in a loop just in case it ever
+ ; comes back
__p_start endp
TD_hack:
- mov eax, __p_tdhack ; force reference to TD-hack symbol
+ mov eax, __p_tdhack ; force reference to TD-hack symbol
_TEXT ends
;
-; Hack for Turbo Debugger/TDEMB - TD will fault if the .exe being
-; debugged doesn't have an import table. (TD looks for the address of
-; the table, then dereferences that address wihtout checking for NULL).
+; Hack for Turbo Debugger/TDEMB - TD will fault if the .exe being
+; debugged doesn't have an import table. (TD looks for the address of
+; the table, then dereferences that address wihtout checking for NULL).
;
-; This symbol, __p_tdhack, must be declared as an import in all the
-; .emb files shipped. IE:
+; This symbol, __p_tdhack, must be declared as an import in all the
+; .emb files shipped. IE:
;
-; -implib embkern.lib
-; -import __p_tdhack
+; -implib embkern.lib
+; -import __p_tdhack
;
-; This forces the creation of an import table within the .EXE.
+; This forces the creation of an import table within the .EXE.
_DATA segment
extrn __p_tdhack:dword
_DATA ends
- end __p_start
+ end __p_start
""")
test.write("foo.lnk","""