Skip to content

Commit

Permalink
Added
Browse files Browse the repository at this point in the history
  • Loading branch information
wolfram77 committed Nov 6, 2016
1 parent adda553 commit c088632
Show file tree
Hide file tree
Showing 18 changed files with 1,552 additions and 0 deletions.
Binary file added ASM.ALS
Binary file not shown.
128 changes: 128 additions & 0 deletions BUFFERS.INC
Original file line number Diff line number Diff line change
@@ -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


43 changes: 43 additions & 0 deletions DBF.INC
Original file line number Diff line number Diff line change
@@ -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



33 changes: 33 additions & 0 deletions ERR
Original file line number Diff line number Diff line change
@@ -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
107 changes: 107 additions & 0 deletions GEN.INC
Original file line number Diff line number Diff line change
@@ -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

34 changes: 34 additions & 0 deletions INSTALL.BAT
Original file line number Diff line number Diff line change
@@ -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
Loading

0 comments on commit c088632

Please sign in to comment.