ASM blocks are now REETODOd

README.md

@@ -13,7 +13,6 @@ Ported to Win32 by Rick Parrish<br />
 
 TODO list:<br />
 <ul>
-  <li>IFDEF out any ASM code blocks and handle the same as above</li>
   <li>WORD in RECORD to SMALLWORD</li>
   <li>INTEGER in RECORD to SMALLINT</li>
   <li>TYPEs of OF WORD to OF SMALLWORD (just in case they're used in a RECORD)</li>
@@ -27,4 +26,5 @@ TODO list:<br />
 Completed list<br />
 <ul>
   <li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li>
+  <li>IFDEF out any ASM code blocks and handle the same as above</li>
 </ul>

SOURCE/BOOT.PAS

@@ -817,12 +817,17 @@ FUNCTION SchareLoaded: Boolean;
 VAR
   T_Al: Byte;
 BEGIN
+{$IFDEF MSDOS}
   ASM
     Mov Ah,10h
     Mov Al,0h
     Int 2fh
     Mov T_Al,Al
   END;
+{$ENDIF}
+{$IFDEF WIN32}
+  T_Al := $FF;
+{$ENDIF}
   SchareLoaded := (T_Al = $FF);
 END;
 

SOURCE/COMMON.PAS

@@ -672,6 +672,7 @@ USES
   Vote
 {$IFDEF WIN32}
   ,VPUtils
+  ,Windows
 {$ENDIF}
   ;
 
@@ -2810,6 +2811,7 @@ BEGIN
         BEGIN
           IF (ABS((Ticks - LastTimeSlice)) >= General.Slicetimer) THEN
           BEGIN
+{$IFDEF MSDOS}
             CASE Tasker OF
               None : ASM
                        int 28h
@@ -2832,6 +2834,10 @@ BEGIN
                        Pop dx
                      END;
             END;
+{$ENDIF}
+{$IFDEF WIN32}
+            Sleep(1);
+{$ENDIF}
             LastTimeSlice := Ticks;
           END
           ELSE IF (MultiNodeChat) AND (NOT InChat) AND (ABS(Ticks - LastCheckTimeSlice) > 9) THEN
@@ -2996,6 +3002,7 @@ BEGIN
   END;
 END;
 
+{$IFDEF MSDOS}
 FUNCTION AOnOff(b: Boolean; CONST s1,s2:AStr): STRING; ASSEMBLER;
 ASM
   PUSH ds
@@ -3014,6 +3021,13 @@ ASM
   REP  MOVSB
   POP  ds
 END;
+{$ENDIF}
+{$IFDEF WIN32}
+FUNCTION AOnOff(b: Boolean; CONST s1,s2:AStr): STRING;
+BEGIN
+  WriteLn('REETODO COMMON AOnOff'); Halt;
+END;
+{$ENDIF}
 
 FUNCTION ShowOnOff(b: Boolean): STRING;
 BEGIN

SOURCE/COMMON2.PAS

@@ -29,7 +29,11 @@ USES
   LineChat,
   SysOp2G,
   SysOp3,
-  SplitCha;
+  SplitCha
+{$IFDEF WIN32}
+  ,Windows
+{$ENDIF}
+  ;
 
 CONST
   SYSKEY_LENGTH = 1269;
@@ -155,6 +159,7 @@ CONST
     'H','o','u','r','s',':',#25,#6 ,'M','a','i','l',' ',':',#25,#6 ,'O',
     'v','e','r','l','a','y','s',':',#25,#7 ,#24);
 
+{$IFDEF MSDOS}
 PROCEDURE BiosScroll(up: Boolean); ASSEMBLER;
 ASM
   Mov cx,0
@@ -171,6 +176,13 @@ ASM
   @Go:
   Int 10h
 END;
+{$ENDIF}
+{$IFDEF WIN32}
+PROCEDURE BiosScroll(up: Boolean);
+BEGIN
+  WriteLn('REETODO COMMON2 BiosScroll'); Halt;
+END;
+{$ENDIF}
 
 PROCEDURE CPR(c1,c2: Byte);
 VAR
@@ -845,9 +857,14 @@ BEGIN
              REPEAT
                OutKey(^G);
                Delay(500);
+{$IFDEF MSDOS}
                ASM
                 Int 28h
                END;
+{$ENDIF}
+{$IFDEF WIN32}
+               Sleep(1);
+{$ENDIF}
                CheckHangUp;
              UNTIL ((NOT Empty) OR (HangUp));
              Update_Screen;

SOURCE/COMMON3.PAS

@@ -340,6 +340,7 @@ VAR
     Inc(Cp);
   END;
 
+{$IFDEF MSDOS}
   PROCEDURE SetCursor(InsertMode: Boolean); ASSEMBLER;
   ASM
     cmp InsertMode,0
@@ -354,6 +355,13 @@ VAR
     mov ah,1
     int 10h
   END;
+{$ENDIF}
+{$IFDEF WIN32}
+  PROCEDURE SetCursor(InsertMode: Boolean);
+  BEGIN
+    WriteLn('REETODO COMMON3 SetCursor'); Halt;
+  END;
+{$ENDIF}
 
 BEGIN
   FirstKey := FALSE;

SOURCE/FILE0.PAS

@@ -41,7 +41,11 @@ USES
   Dos,
   File1,
   ShortMsg,
-  TimeFunc;
+  TimeFunc
+{$IFDEF WIN32}
+  ,Windows
+{$ENDIF}
+  ;
 
 FUNCTION CompFileArea(FArea,ArrayNum: Integer): Integer;
 VAR
@@ -585,9 +589,14 @@ BEGIN
       SaveTimer := Timer;
     END
     ELSE
+{$IFDEF MSDOS}
       ASM
         Int 28h
       END;
+{$ENDIF}
+{$IFDEF WIN32}
+      Sleep(1);
+{$ENDIF}
   END;
   IF (Cmd <> #27) THEN
   BEGIN

SOURCE/MYIO.PAS

@@ -71,6 +71,7 @@ IMPLEMENTATION
 USES
   Crt;
 
+{$IFDEF MSDOS}
 PROCEDURE CursorOn(b: BOOLEAN); ASSEMBLER;
 ASM
   cmp b, 1
@@ -85,6 +86,13 @@ ASM
   mov ah,1
   int 10h
 END;
+{$ENDIF}
+{$IFDEF WIN32}
+PROCEDURE CursorOn(b: BOOLEAN);
+BEGIN
+  WriteLn('REETODO MYIO CursorOn'); Halt;
+END;
+{$ENDIF}
 
 PROCEDURE infield1(x,y: Byte; VAR s: AStr; Len: Byte);
 VAR

SOURCE/RENEMAIL.PAS

@@ -368,6 +368,7 @@ BEGIN
 END;
 *)
 
+{$IFDEF MSDOS}
 FUNCTION AOnOff(B: Boolean; S1,S2: STRING): STRING; ASSEMBLER;
 ASM
   PUSH ds
@@ -386,6 +387,13 @@ ASM
   REP  MOVSB
   POP  ds
 END;
+{$ENDIF}
+{$IFDEF WIN32}
+FUNCTION AOnOff(B: Boolean; S1,S2: STRING): STRING;
+BEGIN
+  WriteLn('REETODO RENEMAIL AOnOff'); Halt;
+END;
+{$ENDIF}
 
 FUNCTION StripName(S: STRING): STRING;
 VAR

SOURCE/WFCMENU.PAS

@@ -47,7 +47,11 @@ USES
   SysOp11,
   SysOp12,
   TimeFunc,
-  MiscUser;
+  MiscUser
+{$IFDEF WIN32}
+  ,Windows
+{$ENDIF}
+  ;
 
 VAR
   LastKeyPress: LongInt;
@@ -946,9 +950,14 @@ BEGIN
 
     DailyMaint;
 
+{$IFDEF MSDOS}
     ASM
       Int 28h
     END;
+{$ENDIF}
+{$IFDEF WIN32}
+    Sleep(1);
+{$ENDIF}
 
     IF (AnswerBaud = 0) THEN
     BEGIN