|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Notes: MEMBER_S, Member_Text
Names: »KUN210 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».KUN210 «
#ndring af kunder.
Valutakoden kan ikke {ndres selv om saldo er nul og der ikke er ordrer.
Rettelse pr. 31/12 1984.
I##SAVE DS
.
{ndr I 182 185 VALUTA
.
{ndr I 236 239 XVALUT
add C 79 MOVE VALUTA XVALUT
C* DISPLAY SK#RMBILLEDE 2 MED DATA 1
C DISP2 TAG
C DISP3 TAG
slet C 79 MOVE VALUTA XVALUT
C CHK2 BEGSR
slet C 78 MOVE XVALUT VALUTA
C 78 GOTO OPRVAL
C XVALUT COMP VALUTA 80
C 80 GOTO ENDVAL
C Z-ADDNYSALD NYSALD 80
C 80 Z-ADDRELORD RELORD 80
C 80 POSKOD COMP '1' 80
slet C 80 MOVE XVALUT VALUTA
0x000…001 0x60
0x001…002 0x0d
0x002…003 0x92
0x003…015 »#ndring af kunder.«
0x015…016 0x41
0x016…017 0x06
0x017…018 0xc7
0x018…05f »Valutakoden kan ikke {ndres selv om saldo er nul og der ikke er ordrer.«
0x05f…060 0x13
0x060…061 0x60
0x061…062 0x06
0x062…063 0x98
0x063…07b »Rettelse pr. 31/12 1984.«
0x07b…07c 0x42
0x07c…07d 0x60
0x07d…07e 0x05
0x07e…07f 0x87
0x07f…086 »I##SAVE«
0x086…087 0x06
0x087…088 0x82
0x088…08a »DS«
0x08a…08b 0x4c
0x08b…08c 0x05
0x08c…08d 0x81
0x08d…08e ».«
0x08e…08f 0x5a
0x08f…090 0x86
0x090…096 »{ndr I«
0x096…097 0x26
0x097…098 0x8e
0x098…0a6 »182 185 VALUTA«
0x0a6…0a7 0x26
0x0a7…0a8 0x05
0x0a8…0a9 0x81
0x0a9…0aa ».«
0x0aa…0ab 0x5a
0x0ab…0ac 0x86
0x0ac…0b2 »{ndr I«
0x0b2…0b3 0x26
0x0b3…0b4 0x8e
0x0b4…0c2 »236 239 XVALUT«
0x0c2…0c3 0x26
0x0c3…0c4 0x60
0x0c4…0c5 0x83
0x0c5…0c8 »add«
0x0c8…0c9 0x02
0x0c9…0ca 0x81
0x0ca…0cb »C«
0x0cb…0cc 0x03
0x0cc…0cd 0x82
0x0cd…0cf »79«
0x0cf…0d0 0x10
0x0d0…0d1 0x8b
0x0d1…0dc »MOVE VALUTA«
0x0dc…0dd 0x04
0x0dd…0de 0x86
0x0de…0e4 »XVALUT«
0x0e4…0e5 0x30
0x0e5…0e6 0x05
0x0e6…0e7 0x82
0x0e7…0e9 »C*«
0x0e9…0ea 0x02
0x0ea…0eb 0xa1
0x0eb…10c »DISPLAY SK#RMBILLEDE 2 MED DATA 1«
0x10c…10d 0x36
0x10d…10e 0x05
0x10e…10f 0x81
0x10f…110 »C«
0x110…111 0x0b
0x111…112 0x85
0x112…117 »DISP2«
0x117…118 0x05
0x118…119 0x83
0x119…11c »TAG«
0x11c…11d 0x42
0x11d…11e 0x60
0x11e…11f 0x05
0x11f…120 0x81
0x120…121 »C«
0x121…122 0x0b
0x122…123 0x85
0x123…128 »DISP3«
0x128…129 0x05
0x129…12a 0x83
0x12a…12d »TAG«
0x12d…12e 0x42
0x12e…12f 0x86
0x12f…135 »slet C«
0x135…136 0x03
0x136…137 0x82
0x137…139 »79«
0x139…13a 0x10
0x13a…13b 0x8b
0x13b…146 »MOVE VALUTA«
0x146…147 0x04
0x147…148 0x86
0x148…14e »XVALUT«
0x14e…14f 0x30
0x14f…150 0x60
0x150…151 0x05
0x151…152 0x81
0x152…153 »C«
0x153…154 0x0b
0x154…155 0x84
0x155…159 »CHK2«
0x159…15a 0x06
0x15a…15b 0x85
0x15b…160 »BEGSR«
0x160…161 0x40
0x161…162 0x86
0x162…168 »slet C«
0x168…169 0x03
0x169…16a 0x82
0x16a…16c »78«
0x16c…16d 0x10
0x16d…16e 0x8b
0x16e…179 »MOVE XVALUT«
0x179…17a 0x04
0x17a…17b 0x86
0x17b…181 »VALUTA«
0x181…182 0x30
0x182…183 0x05
0x183…184 0x81
0x184…185 »C«
0x185…186 0x03
0x186…187 0x82
0x187…189 »78«
0x189…18a 0x10
0x18a…18b 0x8b
0x18b…196 »GOTO OPRVAL«
0x196…197 0x3a
0x197…198 0x05
0x198…199 0x81
0x199…19a »C«
0x19a…19b 0x0b
0x19b…19c 0x86
0x19c…1a2 »XVALUT«
0x1a2…1a3 0x04
0x1a3…1a4 0x8b
0x1a4…1af »COMP VALUTA«
0x1af…1b0 0x13
0x1b0…1b1 0x82
0x1b1…1b3 »80«
0x1b3…1b4 0x25
0x1b4…1b5 0x05
0x1b5…1b6 0x81
0x1b6…1b7 »C«
0x1b7…1b8 0x03
0x1b8…1b9 0x82
0x1b9…1bb »80«
0x1bb…1bc 0x10
0x1bc…1bd 0x8b
0x1bd…1c8 »GOTO ENDVAL«
0x1c8…1c9 0x3a
0x1c9…1ca 0x05
0x1ca…1cb 0x81
0x1cb…1cc »C«
0x1cc…1cd 0x15
0x1cd…1ce 0x8b
0x1ce…1d9 »Z-ADDNYSALD«
0x1d9…1da 0x04
0x1da…1db 0x86
0x1db…1e1 »NYSALD«
0x1e1…1e2 0x09
0x1e2…1e3 0x82
0x1e3…1e5 »80«
0x1e5…1e6 0x25
0x1e6…1e7 0x05
0x1e7…1e8 0x81
0x1e8…1e9 »C«
0x1e9…1ea 0x03
0x1ea…1eb 0x82
0x1eb…1ed »80«
0x1ed…1ee 0x10
0x1ee…1ef 0x8b
0x1ef…1fa »Z-ADDRELORD«
0x1fa…1fb 0x04
0x1fb…1fc 0x86
0x1fc…202 »RELORD«
0x202…203 0x09
0x203…204 0x82
0x204…206 »80«
0x206…207 0x25
0x207…208 0x05
0x208…209 0x81
0x209…20a »C«
0x20a…20b 0x03
0x20b…20c 0x82
0x20c…20e »80«
0x20e…20f 0x06
0x20f…210 0x86
0x210…216 »POSKOD«
0x216…217 0x04
0x217…218 0x88
0x218…220 »COMP '1'«
0x220…221 0x14
0x221…222 0x82
0x222…224 »80«
0x224…225 0x27
0x225…226 0x86
0x226…22c »slet C«
0x22c…22d 0x03
0x22d…22e 0x82
0x22e…230 »80«
0x230…231 0x10
0x231…232 0x8b
0x232…23d »MOVE XVALUT«
0x23d…23e 0x04
0x23e…23f 0x86
0x23f…245 »VALUTA«
0x245…246 0x30
0x246…247 0x60
0x247…248 0x00
0x248…260 40 96 87 40 84 85 99 40 89 92 92 85 40 85 99 40 96 99 84 99 85 99 4b 13 ┆ og der ikke er ordrer. ┆
0x260…280 60 06 98 d9 85 a3 a3 85 93 a2 85 40 97 99 4b 40 f3 f1 61 f1 f2 40 f1 f9 f8 f4 4b 42 60 05 87 c9 ┆- qRettelse pr. 31/12 1984.â- gI┆
0x280…2a0 7b 7b e2 c1 e5 c5 06 82 c4 e2 4c 05 81 4b 5a 86 c0 95 84 99 40 c9 26 8e f1 f8 f2 40 f1 f8 f5 40 ┆##SAVE bDS< a.!f{ndr I þ182 185 ┆
0x2a0…2c0 e5 c1 d3 e4 e3 c1 26 05 81 4b 5a 86 c0 95 84 99 40 c9 26 8e f2 f3 f6 40 f2 f3 f9 40 e7 e5 c1 d3 ┆VALUTA a.!f{ndr I þ236 239 XVAL┆
0x2c0…2e0 e4 e3 26 60 83 81 84 84 02 81 c3 03 82 f7 f9 10 8b d4 d6 e5 c5 40 e5 c1 d3 e4 e3 c1 04 86 e7 e5 ┆UT -cadd aC b79 »MOVE VALUTA fXV┆
0x2e0…300 c1 d3 e4 e3 30 05 82 c3 5c 02 a1 c4 c9 e2 d7 d3 c1 e8 40 e2 d2 7b d9 d4 c2 c9 d3 d3 c5 c4 c5 40 ┆ALUT bC* ~DISPLAY SK#RMBILLEDE ┆