[Wisp-cvs] wisp/users/dig make-pe-exe.py,1.18,1.19

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv31379

Modified Files:
	make-pe-exe.py 
Log Message:
use new, clearer syntax

Index: make-pe-exe.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/make-pe-exe.py,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- make-pe-exe.py	6 May 2003 16:27:28 -0000	1.18
+++ make-pe-exe.py	6 May 2003 16:35:54 -0000	1.19
@@ -25,13 +25,11 @@
     b.set_origin(0x100)
     b.emit_string('MZ') # 'MZ'
     b[::2] = '#mz/bytes-in-last-block', '#mz/blocks-in-file'
-    b.emit_wyde(0) # no relocation
-    b.emit_wyde(0) # empty MZ header--load it all into memory
-    b.emit_wyde(0x40) # low memory limit in paragraphs
-    b.emit_wyde(0x40) # high memory limit in paragraphs
-    b.emit_wyde(-0x10) # initial SS
-    b.emit_wyde(0x100) # initial SP in PSP
-    b.emit_wyde(0) # no checksum
+    b[::2] = 0 # no relocation
+    b[::2] = 0 # empty MZ header--load it all into memory
+    b[::2] = 0x40, 0x40 # low and high memory limits in paragraphs
+    b[::2] = -0x10, 0x100 # initial SS, SP
+    b[::2] = 0 # no checksum
     b.emit_wyde_sum(['&mz/_start']) # initial IP
     b.emit_wyde(-0x10) # initial CS
     b.emit_wyde(0) # relocation table offset