minor tweaks so the assembly builds with clang

sectorlisp.S

@@ -17,11 +17,11 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 
-/	@fileoverview lisp.c built for real mode with manual tuning
-/	binary footprint is approximately 960 bytes, about 40 bytes
-/	of it is overhead needed to load the second 512-byte sector
-/	so if we can find a way to reduce the code size another 400
-/	bytes we can bootstrap the metacircular evaluator in an mbr
+//	@fileoverview lisp.c built for real mode with manual tuning
+//	binary footprint is approximately 960 bytes, about 40 bytes
+//	of it is overhead needed to load the second 512-byte sector
+//	so if we can find a way to reduce the code size another 400
+//	bytes we can bootstrap the metacircular evaluator in an mbr
 
 #define NIL		0
 #define UNDEFINED	8
@@ -71,9 +71,9 @@ GetChar:xor	%ax,%ax				# get keystroke
 	xor	%ah,%ah				# ah is bios scancode
 	push	%ax				# al is ascii character
 	call	PutChar				# ax will have result
-	cmp	$'\r,%al			# don't clobber stuff
+	cmp	$'\r',%al			# don't clobber stuff
 	jne	1f
-	mov	$'\n,%al
+	mov	$'\n',%al
 	call	PutChar
 1:	pop	%ax
 	ret
@@ -135,7 +135,7 @@ GetObject:
 	cmpb	$40,q.token
 	je	GetList
 	mov	$q.token,%di
-/	𝑠𝑙𝑖𝑑𝑒
+//	𝑠𝑙𝑖𝑑𝑒
 
 Intern:	mov	%di,%bx
 	mov	$STR,%si
@@ -173,9 +173,9 @@ Intern:	mov	%di,%bx
 
 GetList:call	GetToken
 	mov	q.token,%al
-	cmp	$'),%al
+	cmp	$')',%al
 	je	2f
-	cmp	$'.,%al
+	cmp	$'.',%al
 	je	1f
 	call	GetObject
 	push	%ax			# save
@@ -203,8 +203,8 @@ EvalCons:
 	pop	%si			# restore
 	xchg	%ax,%di
 	pop	%bp
-/	jmp	Cons
-/	𝑠𝑙𝑖𝑑𝑒
+//	jmp	Cons
+//	𝑠𝑙𝑖𝑑𝑒
 
 Cons:	mov	$q.index,%bx
 	mov	(%bx),%ax
@@ -280,8 +280,8 @@ PrintObject:
 	call	PrintObject
 4:	pop	%bx
 	mov	$41,%al
-/	jmp	PutChar
-/	𝑠𝑙𝑖𝑑𝑒
+//	jmp	PutChar
+//	𝑠𝑙𝑖𝑑𝑒
 
 PutChar:push	%bx				# don't clobber bp,bx,di,si,cx
 	push	%bp				# original ibm pc scroll up bug
@@ -294,8 +294,8 @@ PutChar:push	%bx				# don't clobber bp,bx,di,si,cx
 
 Arg1:	call	Cadr
 	xchg	%ax,%di
-/	jmp	Eval
-/	𝑠𝑙𝑖𝑑𝑒
+//	jmp	Eval
+//	𝑠𝑙𝑖𝑑𝑒
 
 Eval:	push	%bp
 	mov	%di,%dx
@@ -313,7 +313,7 @@ Eval:	push	%bp
 	je	1f
 	mov	(%bx),%di
 	and	$-2,%di
-	cmp	$ATOM_LAMBDA,(%di)
+	cmpw	$ATOM_LAMBDA,(%di)
 	jne	EvalUndefined
 	mov	2(%bx),%si
 	mov	(%bx),%di

start.S

@@ -42,7 +42,7 @@ _begin:	push	%cs				# memory model cs=ds=es = 0x600
 	xor	%dh,%dh				# drive dl head zero
 	mov	$0x0200+v_sectors,%ax		# read sectors
 	int	$0x13				# disk service
-/	𝑠𝑙𝑖𝑑𝑒
+//	𝑠𝑙𝑖𝑑𝑒
 
 	.section .yoink
-	nop	main
+	nopw	main