Added

Author: wolfram77

ASM.ALS

@@ -0,0 +1,128 @@
+;
+; !File!
+;   buffers.inc
+;
+; !Desc!
+;   Epoc Services for Psion Series 3/3a
+;
+; !Authors!
+;   Krister Wombell
+;
+; !Date!
+;   23:09-25/09/93
+;
+
+; TimManager
+TimSleepForTenths	EPOC	$00,$89,cx,dx
+TimSleepForTicks	EPOC	$01,$89,cx,dx
+TimGetSystemTime	EPOC	$02,$89
+TimSetSystemTime	EPOC	$03,$89,cx,dx
+TimSystemTimeToDaySeconds EPOC	$04,$89,cx,dx,si
+TimDaySecondsToSystemTime EPOC	$05,$89,si
+TimDaySecondsToDate	EPOC	$06,$89,si,di
+TimDateToDaySeconds	EPOC	$07,$89,si,di
+TimDaysInMonth		EPOC	$08,$89,ch,cl
+TimDayOfWeek		EPOC	$09,$89,cx,dx
+TimNameOfDay		EPOC	$0A,$89,al,bx
+TimNameOfMonth		EPOC	$0B,$89,al,bx
+TimWaitAbsolute		EPOC	$0C,$89,cx,dx
+TimWeekNumber		EPOC	$0D,$89,cx,dx
+
+; ConvManager
+ConvUnsignedIntToBuffer	EPOC	$00,$8A,bx,cx,di
+ConvUnsignedLongIntToBuffer EPOC	$01,$8A,dx,bx,cx,di
+ConvIntToBuffer		EPOC	$02,$8A,bx,di
+ConvLongIntToBuffer	EPOC	$03,$8A,dx,bx,di
+ConvArgumentsToBuffer	EPOC	$04,$8A,bx,di,si
+ConvStringToUnsignedInt	EPOC	$05,$8A,cx,si
+ConvStringToUnsignedLongInt EPOC	$06,$8A,cx,si
+ConvStringToInt	EPOC	$07,$8A,si
+ConvStringToLongInt	EPOC	$08,$8A,si
+ConvFloatToBuffer	EPOC	$09,$8A,si,dx,di
+ConvStringToFloat	EPOC	$0A,$8A,si,dx,di
+
+LongIntCompare		EPOC	-1,$BB,ax,bx,cx,dx
+LongIntMultiply		EPOC	-1,$BC,ax,bx,cx,dx
+LongIntDivide		EPOC	-1,$BD,ax,bx,cx,dx
+LongUnsignedIntCompare	EPOC	-1,$BE,ax,bx,cx,dx
+LongUnsignedIntMultiply	EPOC	-1,$BF,ax,bx,cx,dx
+LongUnsignedIntDivide	EPOC	-1,$C0,ax,bx,cx,dx
+LongUnsignedIntRandom	EPOC	$04,$8B,bx
+
+; FloatManager
+FloatAdd		EPOC	-1,$C1,di,si
+FloatSubtract		EPOC	-1,$C2,di,si
+FloatMultiply		EPOC	-1,$C3,di,si
+FloatDivide		EPOC	-1,$C4,di,si
+FloatCompare		EPOC	-1,$C5,di,si
+FloatNegate		EPOC	-1,$C6,di
+FloatToInt		EPOC	-1,$C7,si
+FloatToUnsignedInt	EPOC	-1,$C8,si
+FloatToLong		EPOC	-1,$C9,si
+FloatToUnsignedLong	EPOC	-1,$CA,si
+IntToFloat		EPOC	-1,$CB,ax,di
+UnsignedIntToFloat	EPOC	-1,$CC,ax,di
+LongToFloat		EPOC	-1,$CD,ax,bx,di
+UnsignedLongToFloat	EPOC	-1,$CE,di,ax,bx
+
+FloatSin		EPOC	$00,$8C,di,si
+FloatCos		EPOC	$01,$8C,di,si
+FloatTan		EPOC	$02,$8C,di,si
+FloatASin		EPOC	$03,$8C,di,si
+FloatACos		EPOC	$04,$8C,di,si
+FloatATan		EPOC	$05,$8C,di,si
+FloatExp		EPOC	$06,$8C,di,si
+FloatLn			EPOC	$07,$8C,di,si
+FloatLog		EPOC	$08,$8C,di,si
+FloatSqrt		EPOC	$09,$8C,di,si
+FloatPow		EPOC	$0A,$8C,di,si,dx
+FloatRand		EPOC	$0B,$8C,di,si
+FloatMod		EPOC	$0C,$8C,di,si,dx
+FloatInt		EPOC	$0D,$8C,di,si
+
+; Buffer/String Manager
+CharIsDigit		EPOC	-1,$93,al
+CharIsHexDigit		EPOC	-1,$94,al
+CharIsPrintable		EPOC	-1,$95,al
+CharIsAlphabetic	EPOC	-1,$96,al
+CharIsAlphaNumeric	EPOC	-1,$97,al
+CharIsUpperCase		EPOC	-1,$98,al
+CharIsLowerCase		EPOC	-1,$99,al
+CharIsSpace		EPOC	-1,$9A,al
+CharIsPunctuation	EPOC	-1,$9B,al
+CharIsGraphic		EPOC	-1,$9C,al
+CharIsControl		EPOC	-1,$9D,al
+CharToUpperChar		EPOC	-1,$9E,al,ah
+CharToLowerChar		EPOC	-1,$9F,al,ah
+CharToFoldedChar	EPOC	-1,$A0,al,ah
+
+BufferCopy		EPOC	-1,$A1,si,di,cx
+BufferSwap		EPOC	-1,$A2,si,di,cx
+BufferCompare		EPOC	-1,$A3,si,di,cx,bx
+BufferCompareFolded	EPOC	-1,$A4,si,di,cx,bx
+BufferMatch		EPOC	-1,$A5,si,cx,di,dx
+BufferMatchFolded	EPOC	-1,$A6,si,cx,di,dx
+BufferLocate		EPOC	-1,$A7,ah,si,cx
+BufferLocateFolded	EPOC	-1,$A8,ah,si,cx
+BufferSubBuffer		EPOC	-1,$A9,si,di,cx,bx
+BufferSubBufferFolded	EPOC	-1,$AA,si,di,cx,bx
+BufferJustify		EPOC	-1,$AB,si,cx,di,bx,dl,dh
+
+StringCopy		EPOC	-1,$AC,si,di
+StringCopyFolded	EPOC	-1,$AD,si,di
+StringConvertToFolded	EPOC	-1,$AE,si
+StringCompare		EPOC	-1,$AF,si,di
+StringCompareFolded	EPOC	-1,$B0,si,di
+StringMatch		EPOC	-1,$B1,si,di
+StringMatchFolded	EPOC	-1,$B2,si,di
+StringLocate		EPOC	-1,$B3,ah,si
+StringLocateFolded	EPOC	-1,$B4,ah,si
+StringLocateInReverse	EPOC	-1,$B5,ah,si
+StringLocateInReverseFolded EPOC	-1,$B6,ah,si
+StringSubString		EPOC	-1,$B7,si,di
+StringSubStringFolded	EPOC	-1,$B8,si,di
+StringLength		EPOC	-1,$B9,di
+StringValidateName	EPOC	-1,$BA,al,ah
+StringCapitalise	EPOC	-1,$DB,si
+
+

BUFFERS.INC

@@ -0,0 +1,43 @@
+;
+; !File!
+;   dbf.inc
+;
+; !Desc!
+;   Epoc Services for Psion Series 3/3a
+;
+; !Authors!
+;   Krister Wombell
+;
+; !Date!
+;   13:11-25/09/93
+;
+
+; DBFManager
+DbfOpen			EPOC	$00,$D8,cl,si,di,dx,bx
+DbfClose		EPOC	$01,$D8,bx
+DbfFlush		EPOC	$02,$D8,bx
+DbfTrash		EPOC	$03,$D8,bx
+DbfCopyDown		EPOC	$04,$D8,bx,si
+DbfCompress		EPOC	$05,$D8,bx,di
+DbfCopyFile		EPOC	$06,$D8,bx,cl,ch,dx,di,si
+DbfFileSize		EPOC	$07,$D8,bx
+DbfExtHeaderRead	EPOC	$08,$D8,al,bx,cx,si
+DbfExtHeaderWrite	EPOC	$09,$D8,al,bx,cx,si
+DbfVersion		EPOC	$0A,$D8
+DbfAbsReadSense		EPOC	$0B,$D8,bx,cx
+DbfAbsRead		EPOC	$0C,$D8,bx,cx
+DbfNextRead		EPOC	$0D,$D8,bx
+DbfBackRead		EPOC	$0E,$D8,bx
+DbfFirstRead		EPOC	$0F,$D8,bx
+DbfLastRead		EPOC	$10,$D8,bx
+DbfAppend		EPOC	$11,$D8,bx,cx
+DbfEraseRead		EPOC	$12,$D8,bx,di
+DbfUpdate		EPOC	$13,$D8,bx,cx,di
+DbfFindRead		EPOC	$14,$D8,al,bx,cx,dl,dh,di,si
+DbfSense		EPOC	$15,$D8,bx
+DbfCount		EPOC	$16,$D8,bx
+DbfDescRecordRead	EPOC	$17,$D8,bx
+DbfDescRecordWrite	EPOC	$18,$D8,bx,cx
+
+
+

DBF.INC

@@ -0,0 +1,33 @@
+
+PKUNZIP (R)    FAST!    Extract Utility    Version 2.04g  02-01-93
+Copr. 1989-1993 PKWARE Inc. All Rights Reserved. Shareware Version
+PKUNZIP Reg. U.S. Pat. and Tm. Off.
+
+� 80486 CPU detected.
+� EMS version 4.00 detected.
+� XMS version 3.00 detected.
+
+Searching ZIP: S3ASM2.ZIP
+
+ Length  Method   Size  Ratio   Date    Time    CRC-32  Attr  Name
+ ------  ------   ----- -----   ----    ----   -------- ----  ----
+  41295  DeflatN  20956  50%  06-02-94  17:38  6323ace6 --w-  S3ASM.OPA
+    680  DeflatN    284  59%  02-07-06  02:44  fc402fd7 --w-  ASM.ALS
+   1014  DeflatN    402  61%  09-30-93  11:00  dbea67db --w-  DBF.INC
+   1506  DeflatN    545  64%  06-02-94  16:38  34df6b27 --w-  S3OBJ.OPL
+   1478  DeflatN    531  65%  09-30-93  11:00  2cad3d48 --w-  PROC.INC
+    880  DeflatN    380  57%  09-30-93  11:00  6372b24e --w-  MEM.INC
+   3200  DeflatN    995  69%  09-30-93  11:00  3cf9fd9c --w-  IO.INC
+   3150  DeflatN   1011  68%  09-30-93  11:00  8186a8c7 --w-  GEN.INC
+   3937  DeflatN   1099  73%  09-30-93  11:00  d638a846 --w-  BUFFERS.INC
+   3971  DeflatN   1286  68%  06-02-94  16:32  cfe75f4c --w-  WIN.INC
+   1136  DeflatN    478  58%  06-02-94  16:33  8c3d1a36 --w-  WINIMG.ASM
+    363  DeflatN    247  32%  06-02-94  16:34  8c5bd3a2 --w-  WIN.OPL
+    269  DeflatN    153  44%  06-02-94  17:59  d4fe5bc6 --w-  STATE.RST
+    776  DeflatN    480  39%  06-02-94  16:38  a4eccbac --w-  S3OBJ.OPO
+  13071  DeflatN   5166  61%  06-02-94  17:37  0cc166ad --w-  S3ASM.DOC
+   1113  DeflatN    498  56%  06-02-94  17:46  0143ab59 --w-  WIN.ASM
+    549  DeflatN    275  50%  06-02-94  17:52  81f0d9b5 --w-  INSTALL.BAT
+    938  DeflatN    357  62%  06-02-94  17:59  5ed71cc1 --w-  READ.ME
+ ------          ------  ---                                  -------
+  79326           35143  56%                                       18

ERR

@@ -0,0 +1,107 @@
+;
+; !File!
+;   gen.inc
+;
+; !Desc!
+;   Epoc Services for Psion Series 3/3a
+;
+; !Authors!
+;   Krister Wombell
+;
+; !Date!
+;   00:01-26/09/93
+;
+
+; GenManager
+GenVersion		EPOC	$00,$8B
+GenLcdType		EPOC	$01,$8B
+GenStartReason		EPOC	$02,$8B
+GenParse		EPOC	$03,$8B,bx
+GenGetCountryData	EPOC	$05,$8B,bx
+GenGetErrorText		EPOC	$06,$8B,al,bx
+GenGetOsData		EPOC	$07,$8B,di,si,cx
+GenDeferredMode		EPOC	$08,$8B,al
+GenNotify		EPOC	$09,$8B,bx,cx,dx,di,si
+GenNotifyError		EPOC	$0A,$8B,al,bx,dx,di,si
+GenNotifyHook		EPOC	$0B,$8B,bx
+GenNotifyUnHook		EPOC	$0C,$8B
+GenGetRamSizeInParas	EPOC	$0D,$8B
+GenGetCommandLine	EPOC	$0E,$8B
+GenGetSoundFlags	EPOC	$0F,$8B
+GenSetSoundFlags	EPOC	$10,$8B,ax
+GenSound		EPOC	$11,$8B,bx,cx
+GenMarkActive		EPOC	$12,$8B
+GenMarkNonActive	EPOC	$13,$8B
+GenGetText		EPOC	$14,$8B,al,bx
+GenGetNotifyState	EPOC	$15,$8B
+GenSetNotifyState	EPOC	$16,$8B,al
+GenGetAutoSwitchOffValue EPOC	$17,$8B,ax
+GenSetAutoSwitchOffValue EPOC	$18,$8B
+GenSetRevector		EPOC	$19,$8B,al,cx,bx
+GenResetRevector	EPOC	$1A,$8B,al
+GenGetLanguageCode	EPOC	$1B,$8B
+GenGetSuffixes		EPOC	$1C,$8B,al,bx
+GenGetAmPmText		EPOC	$1D,$8B,bx
+GenSetCountryData	EPOC	$1E,$8B,bx
+GenGetBatteryType	EPOC	$1F,$8B
+GenSetBatteryType	EPOC	$20,$8B,al
+GenEnvBufferGet		EPOC	$21,$8B,di,dl,si
+GenEnvBufferSet		EPOC	$22,$8B,di,dl,si,cl
+GenEnvBufferDelete	EPOC	$23,$8B,di,dl
+GenEnvBufferFind	EPOC	$24,$8B,bx,di,dl,si
+GenEnvStringGet		EPOC	$25,$8B,di,si
+GenEnvStringSet		EPOC	$26,$8B,di,si
+GenEnvStringDelete	EPOC	$27,$8B,di
+GenEnvStringFind	EPOC	$28,$8B,bx,di,si,cx
+GenCrc			EPOC	$29,$8B,cx,dx,si
+GenRomVersion		EPOC	$2A,$8B
+GenAlarmHook		EPOC	$2B,$8B,bx
+GenAlarmUnHook		EPOC	$2C,$8B
+GenAlarmId		EPOC	$2D,$8B
+GenPasswordSet		EPOC	$2E,$8B
+GenPasswordTest		EPOC	$2F,$8B
+GenPasswordControl	EPOC	$30,$8B
+GenPasswordQuery	EPOC	$31,$8B
+GenTickle		EPOC	$32,$8B
+GenSetConfig		EPOC	$33,$8B
+GenMaskInit		EPOC	$34,$8B
+GenMaskEncrypt		EPOC	$35,$8B
+GenMaskDecrypt		EPOC	$36,$8B
+GenSetOnEvents		EPOC	$37,$8B,al
+GenDataSegment		EPOC	-1,$8F
+Dummy			EPOC	-1,$D4
+GenIntByNumber		EPOC	-1,$D5,al,si,di
+HwComboOn		EPOC	$00,$8E
+HwComboOff		EPOC	$01,$8E
+HwPacksOn		EPOC	$02,$8E
+HwPacksOff		EPOC	$03,$8E
+HwSetA2Control1Bits	EPOC	$04,$8E,al
+HwClearA2Control1Bits	EPOC	$05,$8E,al
+HwReadA2Control1	EPOC	$06,$8E
+HwWriteA2Control1	EPOC	$07,$8E,al
+HwSetA2Control2Bits	EPOC	$08,$8E,al
+HwClearA2Control2Bits	EPOC	$09,$8E,al
+HwReadA2Control2	EPOC	$0A,$8E
+HwWriteA2Control2	EPOC	$0B,$8E,al
+HwSetA2Control3Bits	EPOC	$0C,$8E,al
+HwClearA2Control3Bits	EPOC	$0D,$8E,al
+HwReadA2Control3	EPOC	$0E,$8E
+HwWriteA2Control3	EPOC	$0F,$8E,al
+HwSelectChannel		EPOC	$10,$8E,al
+HwGetSupplyStatus	EPOC	$11,$8E,bx
+HwLcdContrastDelta	EPOC	$12,$8E,al
+HwReadLcdContrast	EPOC	$13,$8E
+HwSwitchOff		EPOC	$14,$8E,cx
+HwNullFrame		EPOC	$15,$8E
+HwExit			EPOC	$16,$8E
+HwGetCombo		EPOC	$17,$8E
+HwFreeCombo		EPOC	$18,$8E
+HwGetChannel		EPOC	$19,$8E,al
+HwFreeChannel		EPOC	$1A,$8E,al
+HwGetPsuType		EPOC	$1B,$8E
+HwSupplyWarnings	EPOC	$1C,$8E
+HwForceSupplyReading	EPOC	$1D,$8E
+HwGetBackLight		EPOC	$1E,$8E
+HwSetBackLight		EPOC	$1F,$8E,bx
+HwBackLight		EPOC	$20,$8E,al
+

GEN.INC

@@ -0,0 +1,34 @@
+@echo off
+if !%1==! goto error
+
+echo This will install S3Asm on your S3a, connected as %1:
+echo Press CTRL-C to terminate the installation, or press
+echo any other key to continue.
+pause
+echo ÿ
+
+:install
+
+copy s3asm.opa %1:\app\
+copy asm.als %1:\app\
+
+mkdir %1:\asm >&nil
+copy *.asm %1:\asm\
+
+mkdir %1:\inc >&nil
+copy *.inc %1:\inc\
+
+mkdir %1:\opl >&nil
+copy *.opl %1:\opl\
+mkdir %1:\opo >&nil
+copy *.opo %1:\opo\
+
+goto end
+
+:error
+echo Usage: Install drive
+
+echo ÿ
+echo eg.    install m
+echo        install l
+:end